vb期末作业报告

1、课题设计一、课题设计目的和意义飞机管理计算系统是专为飞机设计开发的系统。它建立在全面的机型数据库的基础之上，方便用户对机型的数据进行查询，处理，分析。以及应用这些机型的参数进行气动的计算。该项目系统拥有美观的交互界面，所有界面的选色，背景，布局都经过了精心的考量。拥有机型，制造商和飞机参数的查询，添加，删除，更改功能，以及基于数据库的飞机参数计算功能，用户管理功能等。操作便捷，快速，所有的主要功能在主界面上以 的形式展现，直观易懂。通过对本项目的设计，不仅使的能力。对本学期所学内容融会贯通，更使提高了学习二、功能介绍和项目需求分析1 、登陆界面由一个的欢迎界面之后就是登陆界面，要求输入用户名和

2、，输入都正确后会被允许进入主界面，如果是新用户的话，可以点击册后即可登陆。新用户的按钮，跳转到界面，完成注登陆界面会根据用户权限的不同，在主界面上体现出相应不同的功能。管理员拥有所有的功能使用权，而普通用户则不能进行删除，修改，和删除别的用户的权利。2、主界面主界面由象征着五个功能的图标组成，分别点击可以进入不同的界面，满足不同的功能需求。还有利用计时器制作的一个欢迎标语。3、计算功能计算功能分为四个，计算空气密度可以根据输入的海拔高度和当地温度计算出空气的密度，计算升力依次填写输入完所要求的参数，点击计算升力按钮就可以求出飞机所受到的升力大小。参数的输入可以手动输入，也可以从数据库中导入，点

3、击导入按钮后进入导入界面，可以按照飞机的名字进行查询，（此功能采用模糊查询，只需记得飞机名的一部分就可以进行查询），或者进行关键字查询（只需记得关于飞机的任何信息，如飞行高度，速度，生产厂家等等，这个查询就会显示所有牵涉到相关字段的飞机信息）使你更加方便快捷的找到你需要的信息。在 gridview 控件中单击选中一条飞机击刷新完成对数据的导入。 3），计算雷诺数方法参见“计算升力”4），计算尾容量方法参见“计算升力”，然后按确定即可完成选择。回到计算界面后点4、用户界面用户界面具有以下几点功能1），新用户输入用户名和入。 2），修改输入账号，旧3），管理用户，选择权限后即可完成。如果两次所输入

4、的错误，会提示重新输，新即可完成修改，如果旧输入错误会有提示。这是管理员所具有的功能，是利用基于绑定数据库实现的，可以逐个查阅用户名，权限的信息，具有，查询，新增，删除，修改的功能。5、飞机型号、飞机参数，制造商界面这三个界面代表整个关系模式的三个主体，功能类似。以功能最全的飞机型号查询为例，其他的两个不再赘述 1）查询双关键字查询，用户可以根据飞机、飞机型号或者2）删除&型号三种方式查询根据飞机话框3)添加实施删除，如果输入的不存在，则会弹出“您输入的飞机不存在”对添加完毕后，右边窗口动态显示添加后结果4)更改输入飞机后，可更改飞机的单价6，帮助界面提供操作的指导，功能介绍及 E-R 图展示

5、三、数据库设计1、E-R 图如下：2，概念模式设计3、逻辑模式设计关系模式如下Aircraft（aname,type,makrice）Planetype(type,area,height,speed,chord) Factory(maker,country,profile)4、规范化处理经分析，数据库满足 3NF5、过程设计create proc get_profile;1_aname char(1), _profile char(50) output ASselect profilefrom aircraft,factorywhere aname=_aname and aircraft.ma

6、ker =factory .maker测试用例：declare temp char(1) declare profile_oset temp =ahar(50)exec get_profile;1 temp, profile_outpr该飞机的简介是+cast(profile_out as char(50)6、触发器设计1）时间触发器 create trigger worktime on factoryfor insert,delete,updateasif (datename(kday,getdate()=六or datename(kday,getdate()=日)or (convert(,

7、datename(hour,getdate() not bet beginraiserror(非工作时间！,16,1,error)rollbackn 9 and 17)End2）利用触发器实现完整性控制create trigger aircraft_count on aircraftfor insert asdeclare maker char(5)select maker=i.maker from inserted iif (select count(type) from aircraft where maker=maker)5 beginprsorry,this is full rollb

8、ackend else beginprcongratulations commitEnd测试：inserto aircraft values(l,b747,波音,16000)四、界面与功能设计1）运行起始界面以下是起始界面时间控制代码Public ClassformPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesTimer1.TickSic n Asegern = n + 1Me.Opacity = 1 - n / 100 If Me.Opacity = 0 T

9、henTimer1.Stop() Me.Close()End If End SubPrivate Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTimer1.Enabled = TrueTimer1.End Suberval = 500Private Sub Form5_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventAr

10、gs) Handles MyBase.FormClosingDim lg As New LOGIN lg.Show()End Sub End Class2）登陆界面输入用户名和页面。之后就可以登录，未用户可以点击新用户按钮，跳出如下的程序代码mports System.Data.SqlCPublic Class LOGINntPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Clicker = 3 USER.Show()End SubPriva

11、te Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f1 As New Form1Dim myconn As New SqlConnection(database=plane;Data Source=(Local);Security=True;)egratedDimAs String= select * from users where id= & TextBox1.Text & and password= &TextBox2.Text

12、 & Dim myadapter As New SqlDataAdapter( Dim mydb As New DataSet myadapter.Fill(mydb, user), myconn)If mydb.Tables(user).Rows.Count = 0 Then MsgBox(用?户名?或密码?错?误) TextBox1.Text = TextBox2.Text = ElseIf (mydb.Tables(user).Rows(0).Item(2) = 2) Then er = 2End IfIf (mydb.Tables(user).Rows(0).Item(2) = 1)

13、Then er = 1End IfMe.Hide()f1.Show() End IfEnd Sub End Class3）主界面程序代码：Public Class Form1Private Sub Form1_Load(ByVal Handles MyBase.LoadTimer1.Enabled = Truesender As System.Object, ByVal e As System.EventArgs)Timer1.End Suberval = 80Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As S

14、ystem.EventArgs) Handles Timer1.TickLabel1.Left = Label1.Left + 4 If Label1.Left Me.Width ThenLabel1.Left = -Label1.Width End IfEnd SubPrivate Sub 飞? 机 型 号?ToolStrip ByVal e As System.EventArgs)planeform.Show()Item_Click(ByVal sender As System.Object,End SubPrivate Sub PictureBox1_Click_1(ByVal Syst

15、em.EventArgs) Handles PictureBox1.ClickDim cal As New CALCULATE cal.Show()End SubsenderAsSystem.Object,ByValeAsPrivateSubPictureBox3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles PictureBox3.Click Dim us As New USERus.Show()End SubPrivateSubPictureBox5_Click(ByValsenderAsSystem.

16、Object,ByValeAsSystem.EventArgs) Handles PictureBox5.Click factory.Show()End SubPrivateSubPictureBox4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles PictureBox4.Click planeform.Show()End SubPrivateSubPictureBox2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles P

17、ictureBox2.Click selectpara.Show()End SubPrivate Sub Label3_Click(ByVal sender As Handles Label3.ClickDim hp As New HELP hp.Show()End SubSystem.Object, ByVal e As System.EventArgs)Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.ClickEnd End SubEnd

18、Class公共模块代码Imports System.Data.SqlC Module Module1ntPublicer As StringPublic area1, chord1 As DecimalPublic heigh, area2, speed As DecimalPublic speed2, chord2 As DecimalPublic planename, planename2, planename3 As String Public myconn As New SqlConnection(database=plane;DataSecurity=True;)End Module

19、Source=(Local);egrated4）飞机管理界面全部代码如下：Imports System.Data.SqlCPublic Class planeformnt以下是查询功能的代码Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.ClickDim1 As String = select aname as,type as 型号,maker as 制造商 ,price as 单价 from aircraft Dim myconn A

20、s New SqlConnection(database=plane;Data Source=(Local); Security=True;)egratedDim myadapter As New SqlDataAdapter(Dim mydataset As New DataSet myadapter.Fill(mydataset, sl)1, myconn)DataGridView3.DataSource = mydataset.Tables(0) End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e

21、 As System.EventArgs) HandlesButton1.ClickDim anames As String = % Dim types As String = % Dim makers As String = %If CheckBox1.Checked = True Then anames = TextBox1.TextEnd IfIf CheckBox2.Checked = True Then types = TextBox2.TextEnd IfDim1 As String = select aname as,type as 型号,maker as 制造商 ,price

22、as 单价 from aircraft where aname like + anames + and type like + types + Dim myconn As New SqlConnection(database=plane;Data Source=(Local);Security=True;)egratedDim myadapter As New SqlDataAdapter( Dim mydataset As New DataSetmyadapter.Fill(mydataset, sl)1, myconn)DataGridView2.DataSource = mydatase

23、t.Tables(0)End Sub以下是清除界面功能的代码Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDataGridView2.DataSource = DBNull.ValueEnd Sub以下是删除功能的代码Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton3.ClickD

24、im1 As String = select * from aircraft where aname= & TextBox3.Text & Dim myconn As New SqlConnection(database=plane;Data Source=(Local);Security=True;)egratedDim myadapter As New SqlDataAdapter( Dim mydataset As New DataSetmyadapter.Fill(mydataset, del)1, myconn)If mydataset.Tables(del).Rows.Count

25、= 0 Then MsgBox(用户不存在！)TextBox3.Text = ElseDim2 As String = delete from aircraft where aname= & TextBox3.Text & Dim myadapter2 As New SqlDataAdapter( myadapter2.Fill(mydataset, del2) MsgBox(该飞机已删除)End IfEnd Sub2, myconn)以下是功能的代码Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As Syst

26、em.EventArgs) HandlesButton4.ClickDimTextBox5.Text &2 As String = insert, & TextBox6.Text &o aircraft values( & TextBox4.Text & , &, & TextBox7.Text & )Dim myconn As New SqlConnection(database=plane;Data Source=(Local);Security=True;)egratedDimmand Asd(2, myconn)myconn.Open()mand.ExecuteNonQuery() m

27、yconn.Close()Dim1 As String = select aname as,type as 型号,maker as 制造商 ,price as 单价 from aircraftDim myadapter As New SqlDataAdapter( Dim mydataset As New DataSet myadapter.Fill(mydataset, sl)1, myconn)DataGridView4.DataSource = mydataset.Tables(0) End SubPrivate Sub TabPage3_Click(ByVal sender As Sy

28、stem.Object, ByVal e As System.EventArgs)Handles TabPage3.ClickDim1 As String = select aname as,type as 型号,maker as 制造商 ,price as 单价 from aircraftDim myconn As New SqlConnection(database=plane;Data Source=(Local); Security=True;)egratedDim myadapter As New SqlDataAdapter(1, myconn)Dim mydataset As N

29、ew DataSet myadapter.Fill(mydataset, sl) DataGridView4.DataSource = mydataset.Tables(0)End Sub以下为修改功能的代码Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickDim2 As String = select * from aircraft where aname= & TextBox8.Text & Dim mydataset As N

30、ew DataSetDim myconn As New SqlConnection(database=plane;Data Source=(Local); Security=True;)egratedDim myadapter As New SqlDataAdapter( myadapter.Fill(mydataset, xg)If mydataset.Tables(xg).Rows.Count =2, myconn)0 ThenMsgBox(没有该 TextBox8.Text = Else！)Dim3 As String = update aircraft set price= & Tex

31、tBox9.Text & whereaname= & TextBox8.Text & Dim myadapter2 As New SqlDataAdapter( myadapter2.Fill(mydataset, xg2) MsgBox(修改单价成功)End If End Sub以下为刷新功能的代码3, myconn)Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton6.ClickDim1 As String = select aname as,

32、type as 型号,maker as 制造商 ,price as 单价 from aircraft Dim myconn As New SqlConnection(database=plane;Data Source=(Local); Security=True;)egratedDim myadapter As New SqlDataAdapter(Dim mydataset As New DataSet myadapter.Fill(mydataset, sl)1, myconn)DataGridView1.DataSource = mydataset.Tables(0) End SubP

33、rivate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton7.ClickDim1 As String = select aname as,type as 型号,maker as 制造商 ,price as 单价 from aircraft Dim myconn As New SqlConnection(database=plane;Data Source=(Local); Security=True;)egratedDim myadapter As New

34、SqlDataAdapter( Dim mydataset As New DataSetmyadapter.Fill(mydataset, sl)1, myconn)DataGridView4.DataSource = mydataset.Tables(0) End SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton8.ClickDim1 As String = select aname as,type as 型号,maker as 制造商

35、,price as 单价 from aircraft Dim myconn As New SqlConnection(database=plane;Data Source=(Local); Security=True;)egratedDim myadapter As New SqlDataAdapter( Dim mydataset As New DataSetmyadapter.Fill(mydataset, sl)1, myconn)DataGridView3.DataSource = mydataset.Tables(0) End SubEnd Class5）制造商管理界面全部代码如下I

36、mports System.Data.SqlCPublic Class factorynt以下为查询制造商功能代码Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim makers As String = % Dim countrys As String = %If CheckBox1.Checked = True Then makers = TextBox1.TextEnd IfIf CheckBox2.Checked = T

37、rue Then countrys = TextBox2.TextEnd IfDim1 As String = select maker as 制造,country as 国籍,profile asfromfactory where maker like + makers + and country like + countrys + Dim myconn As New SqlConnection(database=plane;Data Source=(Local);Security=True;)egratedDim myadapter As New SqlDataAdapter(Dim my

38、dataset As New DataSet myadapter.Fill(mydataset, sl)1, myconn)DataGridView1.DataSource = mydataset.Tables(0) End SubPrivate Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles TabPage2.ClickDimfactory 1 As String = select maker as 制造,country as 国籍,profile asfromDim

39、myconn As New SqlConnection(database=plane;Data Source=(Local);egratedSecurity=True;)Dim myadapter As New SqlDataAdapter( Dim mydataset As New DataSet myadapter.Fill(mydataset, sl)1, myconn)DataGridView2.DataSource = mydataset.Tables(0)End Sub以下为制造商添加功能代码Private Sub Button2_Click(ByVal sender As Sys

40、tem.Object, ByVal e As System.EventArgs) Handles Button2.ClickDimTextBox4.Text &2 As String = insert, & TextBox5.Text &o factory values( & TextBox3.Text & , &)Dim myconn As New SqlConnection(database=plane;Data Source=(Local);Security=True;)egratedDimmand Asd(2, myconn)myconn.Open()mand.ExecuteNonQu

41、ery() myconn.Close()Dim1 As String = select maker as 制造,country as 国籍,profile asfromfactoryDim myadapter As New SqlDataAdapter( Dim mydataset As New DataSetmyadapter.Fill(mydataset, sl)1, myconn)DataGridView2.DataSource = mydataset.Tables(0)SubEndPrivate Sub Button3_Click(ByVal sender As System.Obje

42、ct, ByVal e As System.EventArgs) HandlesButton3.ClickDim factory 1 As String = select maker as 制造,country as 国籍,profile asfromDim myadapter As New SqlDataAdapter(Dim mydataset As New DataSet myadapter.Fill(mydataset, sl)1, myconn)DataGridView2.DataSource = mydataset.Tables(0) End SubEnd Class6）飞行参数界

43、面以下飞行参数查询代码Imports System.Data.SqlCntPublic ClasectparaPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.ClickDim1 As String = select type as 型号,area as 面积,height as 高度 ,speed as 速度 ,chord as 弦长 from planetype where type = & TextBox1.Text.Trim & Dim

44、 myconn As New SqlConnection(database=plane;Data Source=(Local);Security=True;)egratedDim myadapter As New SqlDataAdapter( Dim mydataset As New DataSetmyadapter.Fill(mydataset, sl)1, myconn)DataGridView1.DataSource = mydataset.Tables(0) End SubEnd Class计算界面计算升力界面可直接输入相应数据，也可点击“从数据库导入”从数据库导入数据，如下图按名字

45、模糊查询按关键字模糊查询（任何与飞机有关的字都能帮助你找到这架飞机）选中一行单击确认选择按钮即可回到“计算升力界面”单击刷新按钮即可把数据添加到计算界面，补充其他数据点击计算，就到结果，如下图7.2 计算雷诺数操作方法参见“计算升力”7.3 计算尾容量操作方法参见“计算升力”7.4 计算空气密度输入高度和温度即可进行计算计算界面程序代码：Public Class CALCULATEPrivate Sub btnMidu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)HandlesbtnMidu.ClickDim

46、 h, tem, midu, p As Decimal tbMidu.Text = h = Val(tbHigh.Text)tem = Val(tbTem.Text)p = System.Math.p = p * 10130(2.718, -h * 0.000125)midu = 273.0 / (tem + 273) midu = 1.293 * p / 10130.0tbMidu.Text = + midu.ToStringSubEndPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.Eve

47、ntArgs)Handles Button3.ClickDimrushengli As New DRSLrushengli.Show()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.ClicktbHigh.Text = heightbArea.Text = area2 tbSpeed.Text = speed Label16.Visible = TrueLabel16.Text = 飞?机名?：阰 & planenameEnd

48、 SubPrivate Sub btnShengli_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)HandlesbtnShengli.ClickDim midu, shengli, c, v, s As Decimal tbShengli.Text = Dim h, tem, p As Decimal tbMidu.Text = h = Val(TextBox3.Text)tem = Val(TextBox2.Text)p = System.Math.p = p * 10130(2.718, -h * 0.0

49、00125)midu = 273.0 / (tem + 273) midu = 1.293 * p / 10130.0 v = Val(tbSpeed.Text)s = Val(tbArea.Text) c = Val(tbxishu.Text)shengli = 0.5 * midu * v * v * s * ctbShengli.Text = + shengli.ToString() SubEndPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Butt

50、on4.ClickDimruleinuoshu As New DRLNSruleinuoshu.Show()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.ClicktbChord.Text = tbLeinuoshu.Text = TextBox1.Text = tbChord.Text = chord2 TextBox1.Text = speed2 Label13.Visible = TrueLabel13.Text = 飞

51、?机名?：阰 & planename2End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button5.ClicktbLeinuoshu.Text = Dim v, ch, c, leinuoshu As Decimal c = 0.00001461v = Val(TextBox1.Text) ch = Val(tbChord.Text) leinuoshu = (v * ch) / ctbLeinuoshu.Text = leinuoshu.T

52、oStringEnd SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickDim drweirongliang As New DRWRL drweirongliang.Show()End SubPrivate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickTextBox5.Tex

53、t = TextBox4.Text = TextBox5.Text = area1 TextBox4.Text = chord1Label25.Text = 飞?机名?：阰 & planename3End SubPrivate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)HandlesButton7.ClickDim s, ts, ta, weirongliang, ch As Decimal tbWeirongliang.Text = s = Val(TextBox5.Text) c

54、h = Val(TextBox4.Text) ts = Val(tbTailarea.Text) ta = Val(tbTailarm.Text)weirongliang = (ts * ta) / (s * ch)tbWeirongliang.Text = weirongliang.ToString SubEndEnd Class导入雷诺数程序代码Imports System.Data.SqlCPublic Class DRLNSntPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Event

55、Args)Handles Button1.ClickDim1 As String = select aname as 飞?机名?,aircraft .type as 型号?,speedas 巡2航?速度,chord as 弦长 from aircraft ,factory ,planetype where aircraft .maker=factory .maker and aircraft .type =planetype .type and aname like % & tbName.Text.Trim& %Dim myadapter As New SqlDataAdapter( Dim

56、mydataset As New DataSetmyadapter.Fill(mydataset, lns)1, myconn)DataGridView1.DataSource = mydataset.Tables(0)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.ClickDim1 As String = select aname as 飞?机名?,aircraft .type as 型号?,speedas 巡2 航? 速

57、度 ,chord as 弦 长 ,height as 巡2 航? 高? 度 ,area as 机 翼皑? 面? 积 y,aircraft.maker as 制?造商?aircraft .price as 价?格?,country,profile as 简介 from aircraft ,factory ,planetype where aircraft .maker =factory .maker and aircraft .type=planetype .type and aname not in(select aname from aircraft ,factory ,planetype

58、where aircraft .maker =factory .maker and aircraft .type =planetype .type and aname not like% & tbMohu.Text.Trim & % and aircraft .type not like % & tbMohu.Text.Trim & % and aircraft.maker not like % & tbMohu.Text.Trim & % and price not like % & tbMohu.Text.Trim & %and speed not like % & tbMohu.Text

59、.Trim & % and height not like % & tbMohu.Text.Trim & % and chord not like % & tbMohu.Text.Trim & % and country not like % & tbMohu.Text.Trim & %and file not like % & tbMohu.Text.Trim& %)Dim myadapter As New SqlDataAdapter(Dim mydataset As New DataSet myadapter.Fill(mydataset, lns)1, mycon

60、n)DataGridView1.DataSource = mydataset.Tables(0)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Clickspeed2 = DataGridView1.CurrentRow.Cells(2).Value chord2 = DataGridView1.CurrentRow.Cells(3).Value planename2 = DataGridView1.CurrentRow.Cel