【正文】 以進(jìn)行修改。 39。 的型號(hào)為 amp。 Trim((intCount, 1)) amp。所有滿(mǎn)足條件的記錄將顯示在如圖914所示的窗體中，代碼如下：Private Sub cmdOK_Click() Dim sQSql As String ‘判斷是否按照客機(jī)編號(hào)查詢(xún) If chkItem(0).Value = vbChecked Then sQSql = planeNO = 39。 39。 Trim(Combo1(1) amp。 and planeType =39。 39。l 刪除航線(xiàn)信息。窗體的Load事件調(diào)用ShowTitle、ShowData函數(shù)，將所有記錄顯示出來(lái)。當(dāng)前記錄將顯示在如圖918所示的窗體中，可以進(jìn)行修改。 39。 從 amp。 的航線(xiàn)記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then ‘記載選擇記錄位置 intCount = txtSQL = delete from airlineInfo where airlineNO =39。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘重新載入記錄并顯示 Unload frmAirline = select * from airlineInfo End If End IfEnd Sub 查詢(xún)航線(xiàn)信息在航線(xiàn)信息列表中單擊“查詢(xún)”按鈕，將出現(xiàn)如圖919所示的窗體。 Trim((intCount, 1)) amp。 出發(fā)到 amp。代碼如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘判斷列表內(nèi)容是否為空 If 1 Then If MsgBox(真的要?jiǎng)h除 amp。 amp。圖918 添加航線(xiàn)窗體輸入完航線(xiàn)信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫(kù)中。 顯示航線(xiàn)信息窗體的創(chuàng)建選擇“航線(xiàn)信息管理|航線(xiàn)信息”菜單，將出現(xiàn)如圖917所示的窗體。 sQSql Unload frmPlane End IfEnd Sub八 航線(xiàn)信息管理模塊的創(chuàng)建航線(xiàn)信息管理模塊主要實(shí)現(xiàn)如下功能：l 添加航線(xiàn)信息。 Trim(Combo1(1) amp。 39。 ) = Then sQSql = planeType =39。 Trim(Combo1(0) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmPlane ‘重新載入所有記錄，并顯示出來(lái) = select * from planeInfo End If End IfEnd Sub 查詢(xún)客機(jī)信息在客機(jī)信息列表中單擊“查詢(xún)”按鈕，將出現(xiàn)如圖916所示的窗體。 的客機(jī)記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then ‘記載選擇記錄的位置 intCount = txtSQL = delete from planeInfo where planeNO =39。代碼如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘判斷列表內(nèi)容是否為空 If 1 Then If MsgBox(真的要?jiǎng)h除客機(jī)編號(hào)為 amp。 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) 39。先刪除已有記錄 txtSQL = delete from planeInfo where planeNO=39。 amp。 ) = Then Select Case intCount Case 0 sMeg = 客機(jī)編號(hào) Case 1 sMeg = 客機(jī)型號(hào) Case 2 sMeg = 購(gòu)買(mǎi)時(shí)間 Case 3 sMeg = 服役時(shí)間 Case 4 sMeg = 經(jīng)濟(jì)艙座位數(shù)量 Case 5 sMeg = 公務(wù)艙座位數(shù)量 Case 6 sMeg = 頭等艙座位數(shù)量 End Select sMeg = sMeg amp。所有客機(jī)信息都將顯示出來(lái)。l 修改客機(jī)信息。 amp。 39。選擇記錄的內(nèi)容將顯示在窗體中，可以進(jìn)行修改，最后保存修改后的記錄。 Trim(txtItem(0)) amp。 39。 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。添加判斷是否有相同的ID記錄 If gintSmode = 1 Then txtSQL = select * from serviceInfo where serviceNO=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?？刂瓶丶奈恢? = = ( ) / 2 ‘控制表格控件的位置 = + + / 2 = 200 = + 100 = 1500 ‘控制按鈕位置 = + + 50 = / 2 3000 End IfEnd Sub 添加艙位信息窗體的創(chuàng)建在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖913所示的窗體。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。固定表頭 .FixedRows = 1 39。圖912 艙位等級(jí)信息窗體這個(gè)窗體用來(lái)顯示艙位等級(jí)信息，并且可以對(duì)各條記錄進(jìn)行操作。 六 艙位信息管理模塊的創(chuàng)建艙位信息管理模塊主要實(shí)現(xiàn)如下功能：l 添加艙位信息。這個(gè)判斷需要在系統(tǒng)運(yùn)行的最初進(jìn)行，因此將代碼放在公用模塊中。記載客戶(hù)信息模塊的讀寫(xiě)狀態(tài)Public gintKmode As Integer 39。記載艙位等級(jí)功能模塊的讀寫(xiě)狀態(tài)Public gintPmode As Integer 39。判斷是否為回車(chē)鍵 If Keyasc = 13 Then 39。返回一個(gè)數(shù)據(jù)庫(kù)連接 ConnectString = FileDSN=。返回記錄集對(duì)象 Set ExecuteSQL = rst MsgString = 查詢(xún)到 amp。打開(kāi)連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢(xún)語(yǔ)句 SQL MsgString = sTokens(0) amp。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。這樣可以極大地提高代碼的效率。狀態(tài)欄控件需要在通常的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進(jìn)行設(shè)置。 創(chuàng)建航空公司管理信息系統(tǒng)的主窗體這個(gè)項(xiàng)目我們使用多文檔界面，單擊工具欄中的ADD MDI Form按鈕，產(chǎn)生一個(gè)窗體。有關(guān)數(shù)據(jù)庫(kù)結(jié)構(gòu)的所有后臺(tái)工作已經(jīng)完成?，F(xiàn)在就可以在SQL Server 2000數(shù)據(jù)庫(kù)系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。表93 airlineInfo航線(xiàn)信息表列 名數(shù)據(jù)類(lèi)型可否為空說(shuō) 明airlineNOcharNOT NULL航線(xiàn)編號(hào)departCitynvarcharNULL出發(fā)城市arrivalCitynvarcharNULL到達(dá)城市departDatecharNULL航班日期departTimecharNULL出發(fā)時(shí)間arrivalTimecharNULL到達(dá)時(shí)間planeNOcharNULL客機(jī)編號(hào)monPricenumericNULL經(jīng)濟(jì)艙價(jià)格mercialPricenumericNULL公務(wù)艙價(jià)格firstPricenumericNULL頭等艙價(jià)格airlineMemotextNULL備注信息表94為客戶(hù)類(lèi)型信息表格。每個(gè)表格表示在數(shù)據(jù)庫(kù)中的一個(gè)表。圖97 客戶(hù)信息實(shí)體ER圖訂票信息實(shí)體ER圖如圖98所示。圖93 艙位等級(jí)信息實(shí)體ER圖客機(jī)信息實(shí)體ER圖如圖94所示。這些實(shí)體包含各種具體信息，通過(guò)相互之間的作用形成數(shù)據(jù)的流動(dòng)。l 客戶(hù)信息，包括的數(shù)據(jù)項(xiàng)有：客戶(hù)編號(hào)、客戶(hù)姓名、客戶(hù)性別、身份證號(hào)碼、聯(lián)系電話(huà)、客戶(hù)類(lèi)型、備注信息等。圖92 航空公司管理信息系統(tǒng)數(shù)據(jù)流程圖針對(duì)一般航空公司管理信息系統(tǒng)的需求，通過(guò)對(duì)航空公司管理工作過(guò)程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：l 艙位等級(jí)信息，包括的數(shù)據(jù)項(xiàng)有：艙位等級(jí)編號(hào)、艙位等級(jí)名稱(chēng)、是否有禮品、是否有報(bào)紙、是否有飲料、是否有午餐、是否有電影、是否可以改簽、是否可以退票、是否可以打折、備注信息等。l 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)。合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。l 客戶(hù)信息的輸入、修改和查詢(xún)，包括客戶(hù)編號(hào)、客戶(hù)姓名、客戶(hù)性別、身份證號(hào)碼、聯(lián)系電話(huà)、客戶(hù)類(lèi)型和備注信息等。本例子中的航空公司管理信息系統(tǒng)需要完成功能主要有：l 艙位信息的輸入和修改，包括艙位等級(jí)編號(hào)、艙位等級(jí)名稱(chēng)、提供的各種服務(wù)類(lèi)別，以及備注信息等。本設(shè)計(jì)講述如何建立一個(gè)航空公司管理信息系統(tǒng)。安徽電子信息職業(yè)技術(shù)學(xué)院畢業(yè)論文（設(shè)計(jì)）　　　　　　　　　　　　　航空公司管理系統(tǒng)安徽電子信息職業(yè)技術(shù)學(xué)院計(jì)算機(jī)科學(xué)系 畢 業(yè) 設(shè) 計(jì) （論 文）論文題目： 航空公司管理信息系統(tǒng)指導(dǎo)老師： 學(xué)生姓名： 學(xué) 號(hào):專(zhuān) 業(yè)： 計(jì)算機(jī)應(yīng)用2007年 12月30日安徽電子信息職業(yè)技術(shù)學(xué)院計(jì)算機(jī)科學(xué)系計(jì)畢 業(yè) 設(shè) 計(jì)（論文）任 務(wù) 書(shū)題目：航空公司管理信息系任務(wù)與要求： 建立一個(gè)航空公司管理信息系統(tǒng), 面對(duì)各種不同種類(lèi)的信息，需要合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)來(lái)保存數(shù)據(jù)信息以及有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。面對(duì)各種不同種類(lèi)的信息，需要合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)來(lái)保存數(shù)據(jù)信息以及有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成。l 客戶(hù)等級(jí)信息的輸入、修改，包括客戶(hù)等級(jí)編號(hào)、客戶(hù)等級(jí)名稱(chēng)、折扣比例和備注信息等。圖91 系統(tǒng)功能模塊圖二 數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效