航空公司管理信息系統(tǒng)-畢業(yè)設(shè)計論文

航空公司管理信息系統(tǒng)一個正常營運的航空公司需要管理所擁有的飛機、航線的設(shè)置、客戶的信息等，更重要的還要提供票務(wù)管理。面對各種不同種類的信息，需要合理的數(shù)據(jù)庫結(jié)構(gòu)來保存數(shù)據(jù)信息以及有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。本設(shè)計講述如何建立一個航空公司管理信息系統(tǒng)。一般而言，航空公司的管理信息系統(tǒng)應(yīng)該包括人事、工資管理模塊。1系統(tǒng)設(shè)計系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。本例子中的航空公司管理信息系統(tǒng)需要完成功能主要有：艙位信息的輸入和修改，包括艙位等級編號、艙位等級名稱、提供的各種服務(wù)類別，以及備注信息等?？蜋C信息的輸入、修改和查詢，包括客機編號、客機型號、購買時間、服役時間、經(jīng)濟艙座位數(shù)量、公務(wù)艙座位數(shù)量、頭等艙座位數(shù)量以及備注信息等。航線信息的輸入、修改和查詢，包括航線編號、出發(fā)城市、到達城市、航班日期、出發(fā)時間、到達時間、客機編號、經(jīng)濟艙價格、公務(wù)艙價格、頭等艙價格和備注信息等?？蛻舻燃壭畔⒌妮斎搿⑿薷?，包括客戶等級編號、客戶等級名稱、折扣比例和備注信息等?？蛻粜畔⒌妮斎搿⑿薷暮筒樵?，包括客戶編號、客戶姓名、客戶性別、身份證號碼、聯(lián)系、客戶類型和備注信息等。訂票信息的輸入、查詢和修改，包括訂票編號、客戶編號、客戶姓名、客戶類型、折扣比例、航線編號、出發(fā)城市、到達城市、出發(fā)時間、艙位類型、票價、結(jié)算金額和備注信息等。系統(tǒng)功能模塊設(shè)計對上述各項功能進行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計的要求，得到如圖9-1所示的系統(tǒng)功能模塊圖。圖9-1系統(tǒng)功能模塊圖2數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。設(shè)計數(shù)據(jù)庫系統(tǒng)時應(yīng)該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟：數(shù)據(jù)庫需要分析。數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計。數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計。2.1數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。仔細分析調(diào)查有關(guān)航空公司管理信息需求的基礎(chǔ)上，將得到如圖9-2所示的本系統(tǒng)所處理的數(shù)據(jù)流程。圖9-2航空公司管理信息系統(tǒng)數(shù)據(jù)流程圖針對一般航空公司管理信息系統(tǒng)的需求，通過對航空公司管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：艙位等級信息，包括的數(shù)據(jù)項有：艙位等級編號、艙位等級名稱、是否有禮品、是否有報紙、是否有飲料、是否有午餐、是否有電影、是否可以改簽、是否可以退票、是否可以打折、備注信息等?？蜋C信息，包括的數(shù)據(jù)項有：客機編號、客機型號、購買時間、服役時間、經(jīng)濟艙座位數(shù)量、公務(wù)艙座位數(shù)量、頭等艙座位數(shù)量、備注信息等。航線信息，包括的數(shù)據(jù)項有：航線編號、出發(fā)城市、到達城市、航班日期、出發(fā)時間、到達時間、客機編號、經(jīng)濟艙價格、公務(wù)艙價格、頭等艙價格、備注信息等?？蛻纛愋托畔ⅲǖ臄?shù)據(jù)項有：客戶類型編號、客戶類型名稱、折扣比例、備注信息等?？蛻粜畔ⅲǖ臄?shù)據(jù)項有：客戶編號、客戶姓名、客戶性別、身份證號碼、聯(lián)系、客戶類型、備注信息等。訂票信息，包括的數(shù)據(jù)項有：訂票編號、顧客編號、顧客姓名、顧客類型、折扣比例、航線編號、出發(fā)城市、到達城市、艙位類型、機票價格、結(jié)算金額、備注信息等。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項和數(shù)據(jù)流程，我們就能進行下面的數(shù)據(jù)庫設(shè)計。2.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。本實例根據(jù)上面的設(shè)計規(guī)劃出的實體有：艙位等級信息實體、客機信息實體、航線信息實體、客戶類型信息實體、客戶信息實體、訂票信息實體。各個實體具體的描述E-R圖如下。艙位等級信息實體E-R圖如圖9-3所示。圖9-3艙位等級信息實體E-R圖客機信息實體E-R圖如圖9-4所示。圖9-4客機信息實體E-R圖航線信息實體E-R圖如圖9-5所示。圖9-5航線信息實體E-R圖客戶類型信息實體E-R圖如圖9-6所示。圖9-6客戶類型信息實體E-R圖客戶信息實體E-R圖如圖9-7所示。圖9-7客戶信息實體E-R圖訂票信息實體E-R圖如圖9-8所示。圖9-8訂票信息實體E-R圖實體之間關(guān)系的E-R圖如圖9-9所示。圖9-9實體之間關(guān)系的E-R圖2.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQLServer2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。航空公司管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。表9-1為供應(yīng)商信息表。表9-1serviceInfo艙位等級信息表列名數(shù)據(jù)類型可否為空說明serviceNOcharNOTNULL艙位等級編號serviceNamenvarcharNULL艙位等級名稱noPresentcharNULL是否有禮物noNewsPapercharNULL是否有報紙noDrinkcharNULL是否有飲料noFoodcharNULL是否有午餐noMoviecharNULL是否有電影canChangecharNULL是否可以改簽canCancelcharNULL是否可以退票canDiscountcharNULL是否可以打折serviceMemotextNULL備注信息表9-2為顧客信息表格。表9-2planeInfo客機信息表格列名數(shù)據(jù)類型可否為空說明planeNOcharNOTNULL客機編號planeTypecharNULL客機型號buyDatedatetimeNULL購買日期serveDatedatetimeNULL服役日期isCommonnvarcharNULL經(jīng)濟艙座位數(shù)量isCommercialnvarcharNULL公務(wù)艙座位數(shù)量isFirstnvarcharNULL頭等艙座位數(shù)量planeMemotextNULL備注信息表9-3為航線信息表。表9-3airlineInfo航線信息表列名數(shù)據(jù)類型可否為空說明airlineNOcharNOTNULL航線編號departCitynvarcharNULL出發(fā)城市arrivalCitynvarcharNULL到達城市departDatecharNULL航班日期departTimecharNULL出發(fā)時間arrivalTimecharNULL到達時間planeNOcharNULL客機編號commonPricenumericNULL經(jīng)濟艙價格commercialPricenumericNULL公務(wù)艙價格firstPricenumericNULL頭等艙價格airlineMemotextNULL備注信息表9-4為客戶類型信息表格。表9-4customerType客戶類型信息表列名數(shù)據(jù)類型可否為空說明ctypeNOcharNOTNULL客戶類型編號ctypeNamecharNULL客戶類型名稱discountnumericNULL折扣比例續(xù)表列名數(shù)據(jù)類型可否為空說明ctypeMemotextNULL備注表9-5為客戶信息表格。表9-5customerInfo客戶信息表列名數(shù)據(jù)類型可否為空說明customerNOcharNOTNULL客戶編號customerNamecharNULL客戶姓名customerSexcharNULL客戶性別customerIDcharNULL身份證號碼customerTelecharNULL客戶聯(lián)系customerTypecharNULL客戶類型customerMemotextNULL備注表9-6為訂票信息表格。表9-6ticketInfo訂票信息表列名數(shù)據(jù)類型可否為空說明ticketNOcharNOTNULL訂票編號customerNOcharNULL客戶編號customerNamecharNULL客戶姓名customerTypecharNULL客戶類型discountnumericNULL折扣比例airlineNOcharNULL航線編號departCitynvarcharNULL出發(fā)城市arrivalCitynvarcharNULL到達城市ticketDatedatetimeNULL出發(fā)日期serviceTypecharNULL艙位類型ticketPricenumericNULL機票價格ticketSumnumericNULL結(jié)算金額customerMemotextNULL備注3數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn)經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計以后，得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)?，F(xiàn)在就可以在SQLServer2000數(shù)據(jù)庫系統(tǒng)中實現(xiàn)該邏輯結(jié)構(gòu)。這是利用SQLServer2000數(shù)據(jù)庫系統(tǒng)中的SQL查詢分析器實現(xiàn)的。下面給出創(chuàng)建這些表格的SQL語句。3.1創(chuàng)建系統(tǒng)用戶表CREATETABLE[dbo].[user_Info1]( [user_ID][char](10)COLLATEChinese_PRC_CI_ASNOTNULL, [user_PWD][char](10)COLLATEChinese_PRC_CI_ASNULL, [user_Des][char](10)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]3.2創(chuàng)建艙位等級信息表CREATETABLE[dbo].[serviceInfo]( [serviceNO][char](4)COLLATEChinese_PRC_CI_ASNOTNULL, [serviceName][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [noPresent][char](2)COLLATEChinese_PRC_CI_ASNULL, [noNewsPaper][char](2)COLLATEChinese_PRC_CI_ASNULL, [noDrink][char](2)COLLATEChinese_PRC_CI_ASNULL, [noFood][char](2)COLLATEChinese_PRC_CI_ASNULL, [noMovie][char](2)COLLATEChinese_PRC_CI_ASNULL, [canChange][char](2)COLLATEChinese_PRC_CI_ASNULL, [canCancel][char](2)COLLATEChinese_PRC_CI_ASNULL, [canDiscount][char](2)COLLATEChinese_PRC_CI_ASNULL, [serviceMemo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]3.3創(chuàng)建客機信息表CREATETABLE[dbo].[planeInfo]( [planeNO][char](18)COLLATEChinese_PRC_CI_ASNOTNULL, [planeType][char](20)COLLATEChinese_PRC_CI_ASNULL, [buyDate][datetime]NULL, [serveDate][datetime]NULL, [isCommon][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [isCommercial][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [isFirst][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [planeMemo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]3.4創(chuàng)建航線信息表CREATETABLE[dbo].[airlineInfo]( [airlineNO][char](14)COLLATEChinese_PRC_CI_ASNOTNULL, [departCity][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL, [arrivalCity][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL, [departDate][char](10)COLLATEChinese_PRC_CI_ASNULL, [departTime][char](10)COLLATEChinese_PRC_CI_ASNULL, [arrivalTime][char](10)COLLATEChinese_PRC_CI_ASNULL, [planeNO][char](18)COLLATEChinese_PRC_CI_ASNULL, [commonPrice][numeric](18,2)NULL, [commercialPrice][numeric](18,2)NULL, [firstPrice][numeric](18,2)NULL, [airlineMemo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]3.5創(chuàng)建客戶類型信息表CREATETABLE[dbo].[customerType]( [ctypeNO][char](14)COLLATEChinese_PRC_CI_ASNOTNULL, [ctypeName][char](20)COLLATEChinese_PRC_CI_ASNULL, [discount][numeric](2,0)NULL, [ctypeMemo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]3.6創(chuàng)建客戶信息表CREATETABLE[dbo].[customerInfo]( [customerNO][char](14)COLLATEChinese_PRC_CI_ASNOTNULL, [customerName][char](50)COLLATEChinese_PRC_CI_ASNULL, [customerSex][char](2)COLLATEChinese_PRC_CI_ASNULL, [customerID][char](18)COLLATEChinese_PRC_CI_ASNULL, [customerTele][char](20)COLLATEChinese_PRC_CI_ASNULL, [customerType][char](14)COLLATEChinese_PRC_CI_ASNULL, [customerMemo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]3.7創(chuàng)建訂票信息表CREATETABLE[dbo].[ticketInfo]( [ticketNO][char](14)COLLATEChinese_PRC_CI_ASNOTNULL, [customerNO][char](14)COLLATEChinese_PRC_CI_ASNULL, [customerName][char](50)COLLATEChinese_PRC_CI_ASNULL, [customerType][char](14)COLLATEChinese_PRC_CI_ASNULL, [discount][numeric](18,0)NULL, [airlineNO][char](14)COLLATEChinese_PRC_CI_ASNULL, [departCity][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL, [arrivalCity][nvarchar](50)COLLATEChinese_PRC_CI_ASNULL, [ticketDate][datetime]NULL, [serviceType][nvarchar](20)COLLATEChinese_PRC_CI_ASNULL, [ticketPrice][numeric](18,2)NULL, [ticketSum][numeric](18,2)NULL, [ticketMemo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]4航空公司管理信息系統(tǒng)主窗體的創(chuàng)建上面的SQL語句在SQLServer2000中查詢分析器的執(zhí)行，將自動產(chǎn)生需要的所有表格。有關(guān)數(shù)據(jù)庫結(jié)構(gòu)的所有后臺工作已經(jīng)完成?，F(xiàn)在將通過航空公司管理信息系統(tǒng)中各個功能模塊的實現(xiàn)，講解如何使用VisualBasic來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。4.1創(chuàng)建工程項目——MIS_Ticket啟動VisualBasic后，單擊File|NewProject菜單，在工程模板中選擇StandardEXE，VisualBasic將自動產(chǎn)生一個Form窗體，屬性都是缺省設(shè)置。這里我們刪除這個窗體，單擊File|SaveProject菜單，將這個工程項目命名為MIS_Ticket。4.2創(chuàng)建航空公司管理信息系統(tǒng)的主窗體這個項目我們使用多文檔界面，單擊工具欄中的ADDMDIForm按鈕，產(chǎn)生一個窗體。在這個窗體上添加所需的控件，窗體和控件的屬性設(shè)置見表9-7。創(chuàng)建好的窗體如圖9-10所示。表9-7主窗體及其控件屬性設(shè)置控件屬性屬性取值frmMain(Form)NameFrmMainCaption大唐航空公司信息管理系統(tǒng)StartUpPositonCenterScreenWindowStateMaximizedSbStatusBar(StatusBar)NameSbStatusBarPanels(1)StyleSbrTextPanels(2)StyleSbrDatePanels(3)StyleSbrTime圖9-10航空公司管理信息系統(tǒng)主窗體在主窗體中加入狀態(tài)欄控件，可以實時反映系統(tǒng)中的各個狀態(tài)的變化。狀態(tài)欄控件需要在通常的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進行設(shè)置。選中狀態(tài)欄控件，單擊鼠標(biāo)右鍵，選中Property菜單，然后設(shè)置屬性。面板1用來顯示各種文本信息，面板2用來顯示當(dāng)前日期，面板3用來顯示當(dāng)前時間。4.3創(chuàng)建主窗體的菜單在如圖9-10所示的主窗體中，單擊鼠標(biāo)右鍵，選擇彈出式菜單中的MenuEditor，創(chuàng)建如圖9-11所示的菜單結(jié)構(gòu)：圖9-11主窗體中的菜單結(jié)構(gòu)4.4創(chuàng)建公用模塊在VisualBasic中可以用公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量等。這樣可以極大地提高代碼的效率。在項目資源管理器中為項目添加一個Module，保存為Module1.bas。下面就可以開始添加需要的代碼了。由于系統(tǒng)中各個功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL，代碼如下：PublicFunctionExecuteSQL(ByValSQL_AsString,MsgStringAsString)_'執(zhí)行SQL語句，并返回記錄集對象‘聲明一個連接‘聲明一個數(shù)據(jù)集對象DimsTokens()AsString'異常處理OnErrorGoToExecuteSQL_Error'用Split函數(shù)產(chǎn)生一個包含各個子串的數(shù)組sTokens=Split(SQL)‘創(chuàng)建一個連接'打開連接cnn.OpenConnectStringIfInStr("INSERT,DELETE,UPDATE",_UCase$(sTokens(0)))Then‘執(zhí)行查詢語句cnn.ExecuteSQLMsgString=sTokens(0)&_"querysuccessful"Elserst.OpenTrim$(SQL),cnn,_adOpenKeyset,_adLockOptimistic'rst.MoveLast'getRecordCount'返回記錄集對象SetExecuteSQL=rstMsgString="查詢到"&rst.RecordCount&_"條記錄"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查詢錯誤:"&_ResumeExecuteSQL_ExitEndFunction在ExecuteSQL函數(shù)中使用了ConnectString函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫，代碼如下：PublicFunctionConnectString()_AsString'返回一個數(shù)據(jù)庫連接ConnectString="FileDSN=;UID=sa;PWD="EndFunction在錄入有關(guān)信息時，需要回車來進入下一個文本框，這樣對軟件使用者非常方便。在所有的功能模塊都需要這個函數(shù)，所以將它放在公用模塊中，代碼如下：PublicSubEnterToTab(KeyascAsInteger)'判斷是否為回車鍵IfKeyasc=13Then'轉(zhuǎn)換成Tab鍵SendKeys"{TAB}"EndIfEndSubKeyasc用來保存當(dāng)前按鍵，SendKeys函數(shù)用來指定的按鍵。一旦按下回車鍵，將返回Tab鍵，下一個控件自動獲得輸入焦點。添加全局變量，用來記錄各個功能模塊的讀寫狀態(tài)，代碼如下：PublicgintSmodeAsInteger'記載艙位等級功能模塊的讀寫狀態(tài)PublicgintPmodeAsInteger'記載客機信息模塊的讀寫狀態(tài)PublicgintAmodeAsInteger'記載航線信息模塊的讀寫狀態(tài)PublicgintTmodeAsInteger'記載客戶類型模塊的讀寫狀態(tài)PublicgintCmodeAsInteger'記載客戶信息模塊的讀寫狀態(tài)PublicgintKmodeAsInteger'記載訂票信息模塊的讀寫狀態(tài)這些全局變量用來記錄是添加狀態(tài)還是修改狀態(tài)，賦值1為添加，賦值2為修改。由于航空公司管理信息管理系統(tǒng)啟動后，需要對用戶進行判斷。如果登錄者是授權(quán)用戶，將進入系統(tǒng)，否則將停止程序的執(zhí)行。這個判斷需要在系統(tǒng)運行的最初進行，因此將代碼放在公用模塊中。5系統(tǒng)用戶管理模塊的創(chuàng)建用戶管理模塊主要實現(xiàn)：用戶登錄。添加用戶。修改用戶密碼。6艙位信息管理模塊的創(chuàng)建艙位信息管理模塊主要實現(xiàn)如下功能：添加艙位信息。修改艙位信息。刪除艙位信息。6.1顯示艙位信息窗體的創(chuàng)建選擇“航線信息管理|艙位信息”菜單，將出現(xiàn)如圖9-12所示的窗體。圖9-12艙位等級信息窗體這個窗體用來顯示艙位等級信息，并且可以對各條記錄進行操作。在載入窗體時，程序?qū)⒆詣虞d入所有記錄，代碼如下：PrivateSubmenuCarbin_Click()frmService.txtSQL="select*fromserviceInfo"frmService.Show0EndSub窗體的Show方法后面加上0或者1，可以得到不同的窗體顯示方式。參數(shù)為0時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數(shù)為1時，顯示的窗體為有模式形式，窗體切換時必須進行相關(guān)操作。載入窗體時將自動顯示各條記錄，代碼如下：PrivateSubForm_Load()ShowTitleShowDataEndSub函數(shù)ShowTitle用來顯示表頭，代碼如下：PrivateSubShowTitle()DimiAsIntegerWithmsgList.Cols=12.TextMatrix(0,1)="等級編號".TextMatrix(0,2)="機艙等級".TextMatrix(0,3)="是否有禮品".TextMatrix(0,4)="是否有報紙".TextMatrix(0,5)="是否有飲料".TextMatrix(0,6)="是否有午餐".TextMatrix(0,7)="是否提供電影".TextMatrix(0,8)="是否可以改簽".TextMatrix(0,9)="是否可以退票".TextMatrix(0,10)="是否可以打折".TextMatrix(0,11)="備注信息"'固定表頭.FixedRows=1'設(shè)置各列的對齊方式Fori=0To11.ColAlignment(i)=0Nexti'表頭項居中.FillStyle=flexFillRepeat.Col=0.Row=0.RowSel=1.ColSel=.Cols-1.CellAlignment=4'設(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=1EndWithEndSub函數(shù)ShowData把各條記錄加到表格中，并顯示出來，代碼如下：PrivateSubShowData()DimjAsIntegerDimiAsIntegerDimMsgTextAsString‘獲得數(shù)據(jù)集Setmrc=ExecuteSQL(txtSQL,MsgText)WithmsgList.Rows=1‘判斷是否為空‘移動到下一行.Rows=.Rows+1‘循環(huán)unt‘判斷是否為空IfNotIsNull(Trim(mrc.Fields(i-1)))Then‘根據(jù)數(shù)據(jù)類型顯示SelectCasemrc.Fields(i-1).TypeCaseadDBDate.TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&"","yyyy-mm-dd")CaseElse.TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&""EndSelectEndIfNextI‘移動到下一條記錄NextLoopEndWith‘關(guān)閉數(shù)據(jù)集對象EndSub在窗體顯示時，可以控制窗體中各個控件按照要求的位置顯示?？梢栽诖绑w的Resize事件中加入代碼，代碼如下：PrivateSubForm_Resize()‘判斷當(dāng)前窗體所處的狀態(tài)，當(dāng)前窗體不處于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時進行后面的操作tate<>vbMinimizedThen'邊界處理IfMe.ScaleHeight<10*lblTitle.HeightThenExitSubEndIfIfMe.ScaleWidth<lblTitle.Width+lblTitle.Width/2ThenExitSubEndIf'控制控件的位置lblTitle.Left=(Me.Width-lblTitle.Width)/2‘控制表格控件的位置msgList.Top=lblTitle.Top+lblTitle.Height+lblTitle.Height/2msgList.Width=Me.ScaleWidth-200aleLeft+100msgList.Height=Me.ScaleHeight-msgList.Top-1500‘控制按鈕位置Frame2.Top=msgList.Top+msgList.Height+50Frame2.Left=Me.ScaleWidth/2-3000EndIfEndSub6.2添加艙位信息窗體的創(chuàng)建在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖9-13所示的窗體。圖9-13添加艙位等級信息窗體載入窗體時，首先根據(jù)標(biāo)志變量判斷狀態(tài)，然后決定是添加還是修改，代碼如下：PrivateSubForm_Load()DimintCountAsIntegerDimMsgTextAsStringDimiAsInteger‘判斷是否為添加IfgintSmode=1ThenMe.Caption=Me.Caption&"添加"Fori=0To7Combo1(i).AddItem"否"Combo1(i).AddItem"是"Combo1(i).ListIndex=0NextI‘載入當(dāng)前選擇記錄內(nèi)容ElseIfgintSmode=2ThenSetmrc=ExecuteSQL(txtSQL,MsgText)‘判斷記錄是否為空Ifmrc.EOF=FalseThenWithmrcForintCount=0To1txtItem(intCount)=.Fields(intCount)NextintCounttxtItem(2)=.Fields(10)Fori=0To7Combo1(i).AddItem"否"Combo1(i).AddItem"是"Combo1(i).ListIndex=0NextiEndWithtxtItem(0).Enabled=FalseEndIfMe.Caption=Me.Caption&"修改"EndIfmblChange=FalseEndSub輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿足要求，然后添加到數(shù)據(jù)庫中。代碼如下：PrivateSubcmdSave_Click()DimintCountAsIntegerDimsMegAsStringDimMsgTextAsString‘判斷輸入內(nèi)容是否為空ForintCount=0To1IfTrim(txtItem(intCount)&"")=""ThenSelectCaseintCountCase0sMeg="機艙等級編號"Case1sMeg="機艙等級名稱"EndSelectsMeg=sMeg&"不能為空！"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtItem(intCount).SetFocusExitSubEndIfNextintCount‘判斷輸入內(nèi)容是否為數(shù)字IfNotIsNumeric(Trim(txtItem(0)))ThensMeg="機艙等級編號"sMeg=sMeg&"請輸入數(shù)字！"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtItem(0).SetFocusEndIf'添加判斷是否有相同的ID記錄IfgintSmode=1ThentxtSQL="select*fromserviceInfowhereserviceNO='"&Trim(txtItem(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"已經(jīng)存在此編號的記錄！",vbOKOnly+vbExclamation,"警告"txtItem(0).SetFocusExitSubEndIfEndIf'判斷是否有相同內(nèi)容的記錄txtSQL="select*fromserviceInfowhereserviceNO<>'"&Trim(txtItem(0))&"'andserviceName='"&Trim(txtItem(1))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"已經(jīng)存在相同機艙等級的記錄！",vbOKOnly+vbExclamation,"警告"txtItem(1).SetFocusExitSubEndIf'先刪除已有記錄txtSQL="deletefromserviceInfowhereserviceNO='"&Trim(txtItem(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)'再加入新記錄txtSQL="select*fromserviceInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)ForintCount=0To1mrc.Fields(intCount)=Trim(txtItem(intCount))NextintCountForintCount=0To7mrc.Fields(intCount+2)=Trim(Combo1(intCount))NextintCountmrc.Fields(10)=Trim(txtItem(2))‘更新數(shù)據(jù)集內(nèi)容‘關(guān)閉數(shù)據(jù)集內(nèi)容IfgintSmode=1ThenMsgBox"添加記錄成功！",vbOKOnly+vbExclamation,"添加記錄"ForintCount=0To1txtItem(intCount)=""NextintCountForintCount=0To3Combo1(intCount).ListIndex=0NextintCounttxtItem(2)=""mblChange=FalseUnloadfrmServicefrmService.txtSQL="select*fromserviceInfo"ElseIfgintSmode=2ThenUnloadMeUnloadfrmServicefrmService.txtSQL="select*fromserviceInfo"EndIfEndSub6.3修改艙位等級信息在艙位等級信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，將出現(xiàn)如圖9-13所示的窗體。選擇記錄的內(nèi)容將顯示在窗體中，可以進行修改，最后保存修改后的記錄。代碼如下：PrivateSubcmdModify_Click()DimintCountAsInteger判斷列表中是否有記錄IffrmService.msgList.Rows>1Then‘改變狀態(tài)變量gintSmode=2‘記錄選擇記錄位置IfintCount>0ThenfrmService1.txtSQL="select*fromserviceInfowhereserviceNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"frmService1.Show1ElseMsgBox"警告",vbOKOnly+vbExclamation,"請首先選擇需要修改的記錄！"EndIfEndIfEndSub6.4刪除艙位等級信息在艙位等級信息列表中選擇需要刪除的記錄，然后單擊“刪除”按鈕，將刪除當(dāng)前記錄，代碼如下：PrivateSubcmdDelete_Click()DimtxtSQLAsStringDimintCountAsIntegerDimMsgTextAsString‘判斷信息列表中內(nèi)容是否為空IfmsgList.Rows>1Then‘提示信息IfMsgBox("真的要刪除機艙等級為"&Trim(msgList.TextMatrix(msgList.Row,2))&"的記錄嗎？",vbOKCancel+vbExclamation,"警告")=vbOKThen‘記錄選擇記錄位置intCount‘刪除重復(fù)記錄txtSQL="deletefromserviceInfowhereserviceNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)‘卸載窗體UnloadfrmService‘重新載入記錄并顯示frmService.txtSQL="select*fromserviceInfo"EndIfEndIfEndSub7客機信息管理模塊的創(chuàng)建客機信息管理模塊主要實現(xiàn)如下功能：添加客機信息。修改客機信息。刪除客機信息。查詢客機信息。7.1顯示客機信息窗體的創(chuàng)建選擇“航線信息管理|客機信息”菜單，將出現(xiàn)如圖9-14所示的窗體。所有客機信息都將顯示出來。窗體的Load事件調(diào)用ShowTitle、ShowData函數(shù)，將所有記錄顯示出來。圖9-14顯示客機信息列表窗體7.2添加客機信息窗體的創(chuàng)建單擊客機信息列表中的“添加”按鈕，將出現(xiàn)如圖9-15所示的窗體。圖9-15添加客機信息列表輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿足要求，然后將記錄添加到數(shù)據(jù)庫中，代碼如下：PrivateSubcmdSave_Click()DimintCountAsIntegerDimsMegAsStringDimMsgTextAsString‘判斷輸入內(nèi)容是否為空ForintCount=0To6IfTrim(txtItem(intCount)&"")=""ThenSelectCaseintCountCase0sMeg="客機編號"Case1sMeg="客機型號"Case2sMeg="購買時間"Case3sMeg="服役時間"Case4sMeg="經(jīng)濟艙座位數(shù)量"Case5sMeg="公務(wù)艙座位數(shù)量"Case6sMeg="頭等艙座位數(shù)量"EndSelectsMeg=sMeg&"不能為空！"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtItem(intCount).SetFocusExitSubEndIfNextintCount‘判斷輸入內(nèi)容為數(shù)字ForintCount=4To6IfNotIsNumeric(Trim(txtItem(intCount)))ThensMeg="座位數(shù)量"sMeg=sMeg&"請輸入數(shù)字！"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"txtItem(intCount).SetFocusEndIfNextintCount‘判斷輸入內(nèi)容是否為日期ForintCount=2To3IfIsDate(txtItem(intCount))ThentxtItem(intCount)=Format(txtItem(intCount),"yyyy-mm-dd")ElseMsgBox"時間應(yīng)輸入日期（yyyy-mm-dd）！",vbOKOnly+vbExclamation,"警告"txtItem(intCount).SetFocusExitSubEndIfNextintCount'添加判斷是否有相同的ID記錄IfgintPmode=1ThentxtSQL="select*fromplaneInfowhereplaneNO='"&Trim(txtItem(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"已經(jīng)存在此編號的記錄！",vbOKOnly+vbExclamation,"警告"txtItem(0).SetFocusExitSubEndIfEndIf'先刪除已有記錄txtSQL="deletefromplaneInfowhereplaneNO='"&Trim(txtItem(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)'再加入新記錄txtSQL="select*fromplaneInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)ForintCount=0To7mrc.Fields(intCount)=Trim(txtItem(intCount))NextintCount‘更新數(shù)據(jù)集‘關(guān)閉數(shù)據(jù)集對象IfgintPmode=1ThenMsgBox"添加記錄成功！",vbOKOnly+vbExclamation,"添加記錄"ForintCount=0To7txtItem(intCount)=""NextintCountmblChange=FalseUnloadfrmPlanefrmPlane.txtSQL="select*fromplaneInfo"ElseIfgintPmode=2ThenUnloadMeUnloadfrmPlanefrmPlane.txtSQL="select*fromplaneInfo"EndIfEndSub7.3修改客機信息在客機信息列表中選擇記錄，然后單擊“修改”按鈕。當(dāng)前記錄將顯示在如圖9-15所示的窗體中，可以進行修改。代碼如下：PrivateSubcmdModify_Click()DimintCountAsInteger‘判斷列表內(nèi)容是否為空IffrmPlane.msgList.Rows>1ThengintPmode=2‘記載選擇記錄的位置IfintCount>0ThenfrmPlane1.txtSQL="select*fromplaneInfowhereplaneNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"frmPlane1.Show1ElseMsgBox"警告",vbOKOnly+vbExclamation,"請首先選擇需要修改的記錄！"EndIfEndIfEndSub7.4刪除客機信息在客機信息列表中選擇記錄，然后單擊“刪除”按鈕，當(dāng)前記錄將被刪除。代碼如下：PrivateSubcmdDelete_Click()DimtxtSQLAsStringDimintCountAsIntegerDimMsgTextAsString‘判斷列表內(nèi)容是否為空IfmsgList.Rows>1ThenIfMsgBox("真的要刪除客機編號為"&Trim(msgList.TextMatrix(msgList.Row,1))&"的型號為"&Trim(msgList.TextMatrix(msgList.Row,2))&"的客機記錄嗎？",vbOKCancel+vbExclamation,"警告")=vbOKThen‘記載選擇記錄的位置txtSQL="deletefromplaneInfowhereplaneNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)UnloadfrmPlane‘重新載入所有記錄，并顯示出來frmPlane.txtSQL="select*fromplaneInfo"EndIfEndIfEndSub7.5查詢客機信息在客機信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖9-16所示的窗體。圖9-16查詢客機信息的窗體載入窗體時，將自動加入所有客機編號和客機型號的信息，代碼如下：PrivateSubForm_Load()DimiAsIntegerDimsSqlAsStringDimtxtSQLAsStringDimMsgTextAsString‘清楚各個列表框中的內(nèi)容Fori=0To1Combo1(i).ClearNexti‘選擇數(shù)據(jù)庫中所有客機編號的內(nèi)容txtSQL="selectDISTINCTplaneNOfromplaneInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)‘判斷數(shù)據(jù)庫是否為空IfNotmrc.EOFThenCombo1(0).AddItemTrim(mrc.Fields(0))LoopElseMsgBox"請先進行客機信息設(shè)置！",vbOKOnly+vbExclamation,"警告"ExitSubEndIf‘選擇所有數(shù)據(jù)庫中有關(guān)飛機型號的內(nèi)容txtSQL="selectDISTINCTplaneTypefromplaneInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)‘判斷數(shù)據(jù)集對象是否為空IfNotmrc.EOFThenCombo1(1).AddItemTrim(mrc.Fields(0))NextLoopElseMsgBox"請先進行客機信息設(shè)置！",vbOKOnly+vbExclamation,"警告"ExitSubEndIf‘關(guān)閉數(shù)據(jù)集對象EndSub設(shè)置完查詢內(nèi)容和方式后，單擊cmdOK按鈕將進行查詢。所有滿足條件的記錄將顯示在如圖9-14所示的窗體中，代碼如下：PrivateSubcmdOK_Click()DimsQSqlAsString‘判斷是否按照客機編號查詢IfchkItem(0).Value=vbCheckedThensQSql="planeNO='"&Trim(Combo1(0)&"")&"'"EndIf‘判斷是否按照客機型號查詢IfchkItem(1).Value=vbCheckedThenIfTrim(sQSql&"")=""ThensQSql="planeType='"&Trim(Combo1(1)&"")&"'"ElsesQSql=sQSql&"andplaneType='"&Trim(Combo1(1)&"")&"'"EndIfEndIf‘判斷查詢內(nèi)容是否為空IfTrim(sQSql)=""ThenMsgBox"請設(shè)置查詢條件！",vbOKOnly+vbExclamation,"警告"ExitSubElse‘顯示所有滿足查詢條件的內(nèi)容frmPlane.txtSQL="select*fromplaneInfowhere"&sQSqlUnloadfrmPlaneEndIfEndSub8航線信息管理模塊的創(chuàng)建航線信息管理模塊主要實現(xiàn)如下功能：添加航線信息。修改航線信息。刪除航線信息。查詢航線信息。8.1顯示航線信息窗體的創(chuàng)建選擇“航線信息管理|航線信息”菜單，將出現(xiàn)如圖9-17所示的窗體。所有航線信息都將顯示出來。窗體的Load事件調(diào)用ShowTitle、ShowData函數(shù)，將所有記錄顯示出來。圖9-17顯示客機信息窗體8.2添加航線信息窗體的創(chuàng)建選擇“航線信息管理|航線信息”菜單，將出現(xiàn)如圖9-18所示的窗體，用來添加航線信息。圖9-18添加航線窗體輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫中。8.3修改航線信息在航線信息列表中選擇記錄，然后單擊“修改”按鈕。當(dāng)前記錄將顯示在如圖9-18所示的窗體中，可以進行修改。代碼如下：PrivateSubcmdModify_Click()DimintCountAsInteger‘判斷列表內(nèi)容是否為空IffrmAirline.msgList.Rows>1ThengintAmode=2‘記載選擇記錄的位置IfintCount>0ThenfrmAirline1.txtSQL="select*fromairlineInfowhereairlineNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"frmAirline1.Show1ElseMsgBox"警告",vbOKOnly+vbExclamation,"請首先選擇需要修改的記錄！"EndIfEndIfEndSub8.4刪除航線信息在航線信息列表中選擇記錄，然后單擊“刪除”按鈕，當(dāng)前記錄將被刪除。代碼如下：PrivateSubcmdDelete_Click()DimtxtSQLAsStringDimintCountAsIntegerDimMsgTextAsString‘判斷列表內(nèi)容是否為空IfmsgList.Rows>1ThenIfMsgBox("真的要刪除"&Trim(msgList.TextMatrix(msgList.Row,4))&"從"&Trim(msgList.TextMatrix(msgList.Row,2))&"出發(fā)到"&Trim(msgList.TextMatrix(msgList.Row,3))&"的航線記錄嗎？",vbOKCancel+vbExclamation,"警告")=vbOKThen‘記載選擇記錄位置txtSQL="deletefromairlineInfowhereairlineNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)‘重新載入記錄并顯示UnloadfrmAirlinefrmAirline.txtSQL="select*fromairlineInfo"EndIfEndIfEndSub8.5查詢航線信息在航線信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖9-19所示的窗體。圖9-19航線信息查詢窗體載入窗體時自動加入出發(fā)城市和到達城市的內(nèi)容，代碼如下：PrivateSubForm_Load()DimiAsIntegerDimsSqlAsStringDimtxtSQLAsStringDimMsgTextAsString‘清除列表框中的內(nèi)容Fori=0To1Combo1(i).ClearNexti‘選擇數(shù)據(jù)庫中與出發(fā)城市有關(guān)的內(nèi)容txtSQL="selectDISTINCTdepartCityfromairlineInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)‘判斷數(shù)據(jù)集是否為空IfNotmrc.EOFThenCombo1(0).AddItemTrim(mrc.Fields(0))LoopElseMsgBox"請先進行航線信息設(shè)置！",vbOKOnly+vbExclamation,"警告"ExitSubEndIftxtSQL="selectDISTINCTarrivalCityfromairlineInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)IfNotmrc.EOFThenCombo1(1).AddItemTrim(mrc.Fields(0))LoopElseMsgBox"請先進行航線信息設(shè)置！",vbOKOnly+vbExclamation,"警告"ExitSubEndIfEndSub設(shè)置查詢內(nèi)容后，單擊“確定”按鈕，所有滿足查詢條件的內(nèi)容顯示在航線信息列表中。9客戶類型信息管理模塊的創(chuàng)建客戶類型信息管理模塊主要實現(xiàn)如下功能：添加客戶類型信息。修改客戶類型信息。刪除客戶類型信息。9.1顯示客戶類型信息窗體的創(chuàng)建選擇“客戶信息管理|客戶類型”菜單，將出現(xiàn)如圖9-20所示的窗體。所有客戶類型信息都將顯示出來。窗體的Load事件調(diào)用ShowTitle、ShowData函數(shù)，將所有記錄顯示出來。圖9-20顯示客戶類型信息窗體9.2添加客戶類型信息窗體的創(chuàng)建在客戶類型信息列表中單擊“添加”按鈕，將出現(xiàn)如圖9-21所示的窗體，用來添加客戶類型信息。圖9-21添加客戶類型信息窗體輸入內(nèi)容完畢，單擊“保存”按鈕，程序?qū)⑹紫葯z查內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫中。9.3修改客戶類型信息在客戶類型信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當(dāng)前記錄將出現(xiàn)在如圖9-14所示的窗體中。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數(shù)據(jù)庫中。代碼如下：PrivateSubcmdModify_Click()DimintCountAsInteger‘判斷列表內(nèi)容是否為空IffrmcType.msgList.Rows>1ThengintTmode=2‘記載選擇記錄的位置‘判斷是否選擇記