【正文】 o].[ticketInfo] ( [ticketNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [customerNO] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , [customerName] [char] (50) COLLATE Chinese_PRC_CI_AS NULL , [customerType] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , [discount] [numeric](18, 0) NULL , [airlineNO] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , [departCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [arrivalCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [ticketDate] [datetime] NULL , [serviceType] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [ticketPrice] [numeric](18, 2) NULL , [ticketSum] [numeric](18, 2) NULL , [ticketMemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]四 航空公司管理信息系統(tǒng)主窗體的創(chuàng)建上面的SQL語句在SQL Server 2000中查詢分析器的執(zhí)行，將自動產(chǎn)生需要的所有表格。表92 planeInfo客機信息表格列 名數(shù)據(jù)類型可否為空說 明planeNOcharNOT NULL客機編號planeTypecharNULL客機型號buyDatedatetimeNULL購買日期serveDatedatetimeNULL服役日期isCommonnvarcharNULL經(jīng)濟艙座位數(shù)量isCommercialnvarcharNULL公務艙座位數(shù)量isFirstnvarcharNULL頭等艙座位數(shù)量planeMemotextNULL備注信息表93為航線信息表。圖96 客戶類型信息實體ER圖客戶信息實體ER圖如圖97所示。 數(shù)據(jù)庫概念結(jié)構設計得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構以后，就可以設計出能夠滿足用戶需求的各種實體，以及它們之間的關系，為后面的邏輯結(jié)構設計打下基礎。仔細分析調(diào)查有關航空公司管理信息需求的基礎上，將得到如圖92所示的本系統(tǒng)所處理的數(shù)據(jù)流程。圖91 系統(tǒng)功能模塊圖二 數(shù)據(jù)庫設計數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構設計的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎上完成。安徽電子信息職業(yè)技術學院畢業(yè)論文（設計）　　　　　　　　　　　　　航空公司管理系統(tǒng)安徽電子信息職業(yè)技術學院計算機科學系 畢 業(yè) 設 計 （論 文）論文題目： 航空公司管理信息系統(tǒng)指導老師： 學生姓名： 學 號:專 業(yè)： 計算機應用2007年 12月30日安徽電子信息職業(yè)技術學院計算機科學系計畢 業(yè) 設 計（論文）任 務 書題目：航空公司管理信息系任務與要求： 建立一個航空公司管理信息系統(tǒng), 面對各種不同種類的信息，需要合理的數(shù)據(jù)庫結(jié)構來保存數(shù)據(jù)信息以及有效的程序結(jié)構支持各種數(shù)據(jù)操作的執(zhí)行。本例子中的航空公司管理信息系統(tǒng)需要完成功能主要有：l 艙位信息的輸入和修改，包括艙位等級編號、艙位等級名稱、提供的各種服務類別，以及備注信息等。合理的數(shù)據(jù)庫結(jié)構設計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。圖92 航空公司管理信息系統(tǒng)數(shù)據(jù)流程圖針對一般航空公司管理信息系統(tǒng)的需求，通過對航空公司管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構：l 艙位等級信息，包括的數(shù)據(jù)項有：艙位等級編號、艙位等級名稱、是否有禮品、是否有報紙、是否有飲料、是否有午餐、是否有電影、是否可以改簽、是否可以退票、是否可以打折、備注信息等。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。圖97 客戶信息實體ER圖訂票信息實體ER圖如圖98所示。表93 airlineInfo航線信息表列 名數(shù)據(jù)類型可否為空說 明airlineNOcharNOT NULL航線編號departCitynvarcharNULL出發(fā)城市arrivalCitynvarcharNULL到達城市departDatecharNULL航班日期departTimecharNULL出發(fā)時間arrivalTimecharNULL到達時間planeNOcharNULL客機編號monPricenumericNULL經(jīng)濟艙價格mercialPricenumericNULL公務艙價格firstPricenumericNULL頭等艙價格airlineMemotextNULL備注信息表94為客戶類型信息表格。有關數(shù)據(jù)庫結(jié)構的所有后臺工作已經(jīng)完成。狀態(tài)欄控件需要在通常的屬性窗口中設置一般屬性，還需要在其特有的彈出式菜單中進行設置。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。返回記錄集對象 Set ExecuteSQL = rst MsgString = 查詢到 amp。判斷是否為回車鍵 If Keyasc = 13 Then 39。記載客戶信息模塊的讀寫狀態(tài)Public gintKmode As Integer 39。 六 艙位信息管理模塊的創(chuàng)建艙位信息管理模塊主要實現(xiàn)如下功能：l 添加艙位信息。固定表頭 .FixedRows = 1 39?？刂瓶丶奈恢? = = ( ) / 2 ‘控制表格控件的位置 = + + / 2 = 200 = + 100 = 1500 ‘控制按鈕位置 = + + 50 = / 2 3000 End IfEnd Sub 添加艙位信息窗體的創(chuàng)建在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖913所示的窗體。添加判斷是否有相同的ID記錄 If gintSmode = 1 Then txtSQL = select * from serviceInfo where serviceNO=39。 39。 Trim(txtItem(0)) amp。 39。l 修改客機信息。 ) = Then Select Case intCount Case 0 sMeg = 客機編號 Case 1 sMeg = 客機型號 Case 2 sMeg = 購買時間 Case 3 sMeg = 服役時間 Case 4 sMeg = 經(jīng)濟艙座位數(shù)量 Case 5 sMeg = 公務艙座位數(shù)量 Case 6 sMeg = 頭等艙座位數(shù)量 End Select sMeg = sMeg amp。先刪除已有記錄 txtSQL = delete from planeInfo where planeNO=39。 amp。 的客機記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then ‘記載選擇記錄的位置 intCount = txtSQL = delete from planeInfo where planeNO =39。 Trim(Combo1(0) amp。 39。 sQSql Unload frmPlane End IfEnd Sub八 航線信息管理模塊的創(chuàng)建航線信息管理模塊主要實現(xiàn)如下功能：l 添加航線信息。圖918 添加航線窗體輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要求，然后檢查是否有重復記錄，最后添加到數(shù)據(jù)庫中。代碼如下：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(真的要刪除 amp。 Trim((intCount, 1)) amp。 的航線記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then ‘記載選擇記錄位置 intCount = txtSQL = delete from airlineInfo where airlineNO =39。 39。窗體的Load事件調(diào)用ShowTitle、ShowData函數(shù)，將所有記錄顯示出來。 39。 Trim(Combo1(1) amp。所有滿足條件的記錄將顯示在如圖914所示的窗體中，代碼如下：Private Sub cmdOK_Click() Dim sQSql As String ‘判斷是否按照客機編號查詢 If chkItem(0).Value = vbChecked Then sQSql = planeNO = 39。 的型號為 amp。當前記錄將顯示在如圖915所示的窗體中，可以進行修改。 39。圖914 顯示客機信息列表窗體 添加客機信息窗體的創(chuàng)建單擊客機信息列表中的“添加”按鈕，將出現(xiàn)如圖915所示的窗體。 39。 amp。先刪除已有記錄 txtSQL = delete from serviceInfo where serviceNO=39。 amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount ‘判斷輸入內(nèi)容是否為數(shù)字 If Not IsNumeric(Trim(txtItem(0))) Then sMeg = 機艙等級編號 sMeg = sMeg amp。可以在窗體的Resize事件中加入代碼，代碼如下：Private Sub Form_Resize() ‘判斷當前窗體所處的狀態(tài)，當前窗體不處于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時進行后面的操作 If vbMinimized And vbMinimized Then 39。參數(shù)為0時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數(shù)為1時，顯示的窗體為有模式形式，窗體切換時必須進行相關操作。l 添加用戶。記載航線信息模塊的讀寫狀態(tài)Public gintTmode As Integer 39。PWD=End Function在錄入有關信息時，需要回車來進入下一個文本框，這樣對軟件使用者非常方便。 39。下面就可以開始添加需要的代碼了。創(chuàng)建好的窗體如圖910所示。下面給出創(chuàng)建這些表格的SQL語句。表91 serviceInfo 艙位等級信息表列 名數(shù)據(jù)類型可否為空說 明serviceNOcharNOT NULL艙位等級編號serviceNamenvarchar