【正文】 amp。所有客機(jī)信息都將顯示出來(lái)。 amp。選擇記錄的內(nèi)容將顯示在窗體中，可以進(jìn)行修改，最后保存修改后的記錄。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此編號(hào)的記錄！, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If 39。代碼如下：Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String ‘判斷輸入內(nèi)容是否為空 For intCount = 0 To 1 If Trim(txtItem(intCount) amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。圖912 艙位等級(jí)信息窗體這個(gè)窗體用來(lái)顯示艙位等級(jí)信息，并且可以對(duì)各條記錄進(jìn)行操作。這個(gè)判斷需要在系統(tǒng)運(yùn)行的最初進(jìn)行，因此將代碼放在公用模塊中。記載艙位等級(jí)功能模塊的讀寫(xiě)狀態(tài)Public gintPmode As Integer 39。返回一個(gè)數(shù)據(jù)庫(kù)連接 ConnectString = FileDSN=。打開(kāi)連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢語(yǔ)句 SQL MsgString = sTokens(0) amp。這樣可以極大地提高代碼的效率。 創(chuàng)建航空公司管理信息系統(tǒng)的主窗體這個(gè)項(xiàng)目我們使用多文檔界面，單擊工具欄中的ADD MDI Form按鈕，產(chǎn)生一個(gè)窗體?，F(xiàn)在就可以在SQL Server 2000數(shù)據(jù)庫(kù)系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。每個(gè)表格表示在數(shù)據(jù)庫(kù)中的一個(gè)表。圖93 艙位等級(jí)信息實(shí)體ER圖客機(jī)信息實(shí)體ER圖如圖94所示。l 客戶信息，包括的數(shù)據(jù)項(xiàng)有：客戶編號(hào)、客戶姓名、客戶性別、身份證號(hào)碼、聯(lián)系電話、客戶類(lèi)型、備注信息等。l 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)。l 客戶信息的輸入、修改和查詢，包括客戶編號(hào)、客戶姓名、客戶性別、身份證號(hào)碼、聯(lián)系電話、客戶類(lèi)型和備注信息等。本設(shè)計(jì)講述如何建立一個(gè)航空公司管理信息系統(tǒng)。面對(duì)各種不同種類(lèi)的信息，需要合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)來(lái)保存數(shù)據(jù)信息以及有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。l 客戶等級(jí)信息的輸入、修改，包括客戶等級(jí)編號(hào)、客戶等級(jí)名稱(chēng)、折扣比例和備注信息等。l 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)。l 客戶類(lèi)型信息，包括的數(shù)據(jù)項(xiàng)有：客戶類(lèi)型編號(hào)、客戶類(lèi)型名稱(chēng)、折扣比例、備注信息等。艙位等級(jí)信息實(shí)體ER圖如圖93所示。航空公司管理信息系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè)計(jì)結(jié)果如下面表格所示。表96 ticketInfo 訂票信息表列 名數(shù)據(jù)類(lèi)型可否為空說(shuō) 明ticketNOcharNOT NULL訂票編號(hào)customerNOcharNULL客戶編號(hào)customerNamecharNULL客戶姓名customerTypecharNULL客戶類(lèi)型discountnumericNULL折扣比例airlineNOcharNULL航線編號(hào)departCitynvarcharNULL出發(fā)城市arrivalCitynvarcharNULL到達(dá)城市ticketDatedatetimeNULL出發(fā)日期serviceTypecharNULL艙位類(lèi)型ticketPricenumericNULL機(jī)票價(jià)格ticketSumnumericNULL結(jié)算金額customerMemotextNULL備注三 數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn)經(jīng)過(guò)前面的需求分析和概念結(jié)構(gòu)設(shè)計(jì)以后，得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。這里我們刪除這個(gè)窗體，單擊File|Save Project菜單，將這個(gè)工程項(xiàng)目命名為MIS_Ticket。 創(chuàng)建主窗體的菜單在如圖910所示的主窗體中，單擊鼠標(biāo)右鍵，選擇彈出式菜單中的Menu Editor，創(chuàng)建如圖911所示的菜單結(jié)構(gòu)：圖911 主窗體中的菜單結(jié)構(gòu) 創(chuàng)建公用模塊在Visual Basic中可以用公用模塊來(lái)存放整個(gè)工程項(xiàng)目公用的函數(shù)、過(guò)程和全局變量等。用Split函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens = Split(SQL) ‘創(chuàng)建一個(gè)連接 Set n = New 39。 _ Resume ExecuteSQL_ExitEnd Function 在ExecuteSQL函數(shù)中使用了Connect String函數(shù)，這個(gè)函數(shù)用來(lái)連接數(shù)據(jù)庫(kù)，代碼如下：Public Function ConnectString() _ As String39。添加全局變量，用來(lái)記錄各個(gè)功能模塊的讀寫(xiě)狀態(tài)，代碼如下：Public gintSmode As Integer 39。如果登錄者是授權(quán)用戶，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行。 顯示艙位信息窗體的創(chuàng)建選擇“航線信息管理|艙位信息”菜單，將出現(xiàn)如圖912所示的窗體。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 1000 .ColWidth(9) = 1000 .ColWidth(10) = 1000 .ColWidth(11) = 1000 .Row = 1 End WithEnd Sub函數(shù)ShowData把各條記錄加到表格中，并顯示出來(lái)，代碼如下：Private Sub ShowData() Dim j As Integer Dim i As Integer Dim MsgText As String‘獲得數(shù)據(jù)集 Set mrc = ExecuteSQL(txtSQL, MsgText) With msgList .Rows = 1 ‘判斷是否為空 Do While Not ‘移動(dòng)到下一行 .Rows = .Rows + 1 ‘循環(huán) For i = 1 To ‘判斷是否為空 If Not IsNull(Trim((i 1))) Then ‘根據(jù)數(shù)據(jù)類(lèi)型顯示 Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 修改 End If mblChange = FalseEnd Sub輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿足要求，然后添加到數(shù)據(jù)庫(kù)中。 39。 Trim(txtItem(1)) amp。再加入新記錄 txtSQL = select * from serviceInfo Set mrc = ExecuteSQL(txtSQL, MsgText) For intCount = 0 To 1 (intCount) = Trim(txtItem(intCount)) Next intCount For intCount = 0 To 7 (intCount + 2) = Trim(Combo1(intCount)) Next intCount (10) = Trim(txtItem(2)) ‘更新數(shù)據(jù)集內(nèi)容 ‘關(guān)閉數(shù)據(jù)集內(nèi)容 If gintSmode = 1 Then MsgBox 添加記錄成功！, vbOKOnly + vbExclamation, 添加記錄 For intCount = 0 To 1 txtItem(intCount) = Next intCount For intCount = 0 To 3 Combo1(intCount).ListIndex = 0 Next intCount txtItem(2) = mblChange = False Unload frmService = select * from serviceInfo ElseIf gintSmode = 2 Then Unload Me Unload frmService = select * from serviceInfo End IfEnd Sub 修改艙位等級(jí)信息在艙位等級(jí)信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，將出現(xiàn)如圖913所示的窗體。 的記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then ‘記錄選擇記錄位置 intCount = ‘刪除重復(fù)記錄 txtSQL = delete from serviceInfo where serviceNO =39。 顯示客機(jī)信息窗體的創(chuàng)建選擇“航線信息管理|客機(jī)信息”菜單，將出現(xiàn)如圖914所示的窗體。添加判斷是否有相同的ID記錄 If gintPmode = 1 Then txtSQL = select * from planeInfo where planeNO=39。 39。 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 請(qǐng)首先選擇需要修改的記錄！ End If End IfEnd Sub 刪除客機(jī)信息在客機(jī)信息列表中選擇記錄，然后單擊“刪除”按鈕，當(dāng)前記錄將被刪除。 39。 End If ‘判斷是否按照客機(jī)型號(hào)查詢 If chkItem(1).Value = vbChecked Then If Trim(sQSql amp。 amp。l 查詢航線信息。代碼如下：Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then gintAmode = 2 ‘記載選擇記錄的位置 intCount = If intCount 0 Then = select * from airlineInfo where airlineNO =39。 Trim((, 2)) amp。圖919 航線信息查詢窗體載入窗體時(shí)自動(dòng)加入出發(fā)城市和到達(dá)城市的內(nèi)容，代碼如下：Private Sub Form_Load() Dim i As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As ‘清除列表框中的內(nèi)容 For i = 0 To 1 Combo1(i).Clear Next i ‘選擇數(shù)據(jù)庫(kù)中與出發(fā)城市有關(guān)的內(nèi)容 txtSQL = select DISTINCT departCity from airlineInfo Set mrc = ExecuteSQL(txtSQL, MsgText) ‘判斷數(shù)據(jù)集是否為空 If Not Then Do While Not