vb期末作業(yè)報告

1、課題設(shè)計一、課題設(shè)計目的和意義飛機管理計算系統(tǒng)是專為飛機設(shè)計開發(fā)的系統(tǒng)。它建立在全面的機型數(shù)據(jù)庫的基礎(chǔ)之上，方便用戶對機型的數(shù)據(jù)進(jìn)行查詢，處理，分析。以及應(yīng)用這些機型的參數(shù)進(jìn)行氣動的計算。該項目系統(tǒng)擁有美觀的交互界面，所有界面的選色，背景，布局都經(jīng)過了精心的考量。擁有機型，制造商和飛機參數(shù)的查詢，添加，刪除，更改功能，以及基于數(shù)據(jù)庫的飛機參數(shù)計算功能，用戶管理功能等。操作便捷，快速，所有的主要功能在主界面上以 的形式展現(xiàn)，直觀易懂。通過對本項目的設(shè)計，不僅使的能力。對本學(xué)期所學(xué)內(nèi)容融會貫通，更使提高了學(xué)習(xí)二、功能介紹和項目需求分析1 、登陸界面由一個的歡迎界面之后就是登陸界面，要求輸入用戶名和

2、，輸入都正確后會被允許進(jìn)入主界面，如果是新用戶的話，可以點擊冊后即可登陸。新用戶的按鈕，跳轉(zhuǎn)到界面，完成注登陸界面會根據(jù)用戶權(quán)限的不同，在主界面上體現(xiàn)出相應(yīng)不同的功能。管理員擁有所有的功能使用權(quán)，而普通用戶則不能進(jìn)行刪除，修改，和刪除別的用戶的權(quán)利。2、主界面主界面由象征著五個功能的圖標(biāo)組成，分別點擊可以進(jìn)入不同的界面，滿足不同的功能需求。還有利用計時器制作的一個歡迎標(biāo)語。3、計算功能計算功能分為四個，計算空氣密度可以根據(jù)輸入的海拔高度和當(dāng)?shù)販囟扔嬎愠隹諝獾拿芏?，計算升力依次填寫輸入完所要求的參?shù)，點擊計算升力按鈕就可以求出飛機所受到的升力大小。參數(shù)的輸入可以手動輸入，也可以從數(shù)據(jù)庫中導(dǎo)入，點

3、擊導(dǎo)入按鈕后進(jìn)入導(dǎo)入界面，可以按照飛機的名字進(jìn)行查詢，（此功能采用模糊查詢，只需記得飛機名的一部分就可以進(jìn)行查詢），或者進(jìn)行關(guān)鍵字查詢（只需記得關(guān)于飛機的任何信息，如飛行高度，速度，生產(chǎn)廠家等等，這個查詢就會顯示所有牽涉到相關(guān)字段的飛機信息）使你更加方便快捷的找到你需要的信息。在 gridview 控件中單擊選中一條飛機擊刷新完成對數(shù)據(jù)的導(dǎo)入。 3），計算雷諾數(shù)方法參見“計算升力”4），計算尾容量方法參見“計算升力”，然后按確定即可完成選擇?；氐接嬎憬缑婧簏c4、用戶界面用戶界面具有以下幾點功能1），新用戶輸入用戶名和入。 2），修改輸入賬號，舊3），管理用戶，選擇權(quán)限后即可完成。如果兩次所輸入

4、的錯誤，會提示重新輸，新即可完成修改，如果舊輸入錯誤會有提示。這是管理員所具有的功能，是利用基于綁定數(shù)據(jù)庫實現(xiàn)的，可以逐個查閱用戶名，權(quán)限的信息，具有，查詢，新增，刪除，修改的功能。5、飛機型號、飛機參數(shù)，制造商界面這三個界面代表整個關(guān)系模式的三個主體，功能類似。以功能最全的飛機型號查詢?yōu)槔?，其他的兩個不再贅述 1）查詢雙關(guān)鍵字查詢，用戶可以根據(jù)飛機、飛機型號或者2）刪除&型號三種方式查詢根據(jù)飛機話框3)添加實施刪除，如果輸入的不存在，則會彈出“您輸入的飛機不存在”對添加完畢后，右邊窗口動態(tài)顯示添加后結(jié)果4)更改輸入飛機后，可更改飛機的單價6，幫助界面提供操作的指導(dǎo)，功能介紹及 E-R 圖展示

5、三、數(shù)據(jù)庫設(shè)計1、E-R 圖如下：2，概念模式設(shè)計3、邏輯模式設(shè)計關(guān)系模式如下Aircraft（aname,type,makrice）Planetype(type,area,height,speed,chord) Factory(maker,country,profile)4、規(guī)范化處理經(jīng)分析，數(shù)據(jù)庫滿足 3NF5、過程設(shè)計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、觸發(fā)器設(shè)計1）時間觸發(fā)器 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）利用觸發(fā)器實現(xiàn)完整性控制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)四、界面與功能設(shè)計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）飛行參數(shù)界

43、面以下飛行參數(shù)查詢代碼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計算界面計算升力界面可直接輸入相應(yīng)數(shù)據(jù)，也可點擊“從數(shù)據(jù)庫導(dǎo)入”從數(shù)據(jù)庫導(dǎo)入數(shù)據(jù)，如下圖按名字

45、模糊查詢按關(guān)鍵字模糊查詢（任何與飛機有關(guān)的字都能幫助你找到這架飛機）選中一行單擊確認(rèn)選擇按鈕即可回到“計算升力界面”單擊刷新按鈕即可把數(shù)據(jù)添加到計算界面，補充其他數(shù)據(jù)點擊計算，就到結(jié)果，如下圖7.2 計算雷諾數(shù)操作方法參見“計算升力”7.3 計算尾容量操作方法參見“計算升力”7.4 計算空氣密度輸入高度和溫度即可進(jìn)行計算計算界面程序代碼：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導(dǎo)入雷諾數(shù)程序代碼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