【正文】 + / 2 = 200 = + 100 = 1500 ‘控制按鈕位置 = + + 50 = / 2 3000 End IfEnd Sub 添加艙位信息窗體的創(chuàng)建在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖913所示的窗體。可以在窗體的Resize事件中加入代碼，代碼如下：Private Sub Form_Resize() ‘判斷當前窗體所處的狀態(tài)，當前窗體不處于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時進行后面的操作 If vbMinimized And vbMinimized Then 39。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。固定表頭 .FixedRows = 1 39。參數(shù)為0時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數(shù)為1時，顯示的窗體為有模式形式，窗體切換時必須進行相關操作。圖912 艙位等級信息窗體這個窗體用來顯示艙位等級信息，并且可以對各條記錄進行操作。l 刪除艙位信息。 6 艙位信息管理模塊的創(chuàng)建艙位信息管理模塊主要實現(xiàn)如下功能：l 添加艙位信息。l 添加用戶。這個判斷需要在系統(tǒng)運行的最初進行，因此將代碼放在公用模塊中。由于航空公司管理信息管理系統(tǒng)啟動后，需要對用戶進行判斷。記載客戶信息模塊的讀寫狀態(tài)Public gintKmode As Integer 39。記載航線信息模塊的讀寫狀態(tài)Public gintTmode As Integer 39。記載艙位等級功能模塊的讀寫狀態(tài)Public gintPmode As Integer 39。一旦按下回車鍵，將返回Tab鍵，下一個控件自動獲得輸入焦點。判斷是否為回車鍵 If Keyasc = 13 Then 39。PWD=End Function在錄入有關信息時，需要回車來進入下一個文本框，這樣對軟件使用者非常方便。返回一個數(shù)據(jù)庫連接 ConnectString = FileDSN=。 _ 條記錄 End IfExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤: amp。返回記錄集對象 Set ExecuteSQL = rst MsgString = 查詢到 amp。 39。打開連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢語句 SQL MsgString = sTokens(0) amp。異常處理 On Error GoTo ExecuteSQL_Error39。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。下面就可以開始添加需要的代碼了。這樣可以極大地提高代碼的效率。面板1用來顯示各種文本信息，面板2用來顯示當前日期，面板3用來顯示當前時間。狀態(tài)欄控件需要在通常的屬性窗口中設置一般屬性，還需要在其特有的彈出式菜單中進行設置。創(chuàng)建好的窗體如圖910所示。 創(chuàng)建航空公司管理信息系統(tǒng)的主窗體這個項目我們使用多文檔界面，單擊工具欄中的ADD MDI Form按鈕，產(chǎn)生一個窗體。 創(chuàng)建工程項目——MIS_Ticket啟動Visual Basic后，單擊File|New Project菜單，在工程模板中選擇Standard EXE，Visual Basic將自動產(chǎn)生一個Form窗體，屬性都是缺省設置。有關數(shù)據(jù)庫結構的所有后臺工作已經(jīng)完成。下面給出創(chuàng)建這些表格的SQL語句?，F(xiàn)在就可以在SQL Server 2000數(shù)據(jù)庫系統(tǒng)中實現(xiàn)該邏輯結構。表95 customerInfo 客戶信息表列 名數(shù)據(jù)類型可否為空說 明customerNOcharNOT NULL客戶編號customerNamecharNULL客戶姓名customerSexcharNULL客戶性別customerIDcharNULL身份證號碼customerTelecharNULL客戶聯(lián)系電話customerTypecharNULL客戶類型customerMemotextNULL備注表96為訂票信息表格。表93 airlineInfo航線信息表列 名數(shù)據(jù)類型可否為空說 明airlineNOcharNOT NULL航線編號departCitynvarcharNULL出發(fā)城市arrivalCitynvarcharNULL到達城市departDatecharNULL航班日期departTimecharNULL出發(fā)時間arrivalTimecharNULL到達時間planeNOcharNULL客機編號monPricenumericNULL經(jīng)濟艙價格mercialPricenumericNULL公務艙價格firstPricenumericNULL頭等艙價格airlineMemotextNULL備注信息表94為客戶類型信息表格。表91 serviceInfo 艙位等級信息表列 名數(shù)據(jù)類型可否為空說 明serviceNOcharNOT NULL艙位等級編號serviceNamenvarcharNULL艙位等級名稱noPresentcharNULL是否有禮物noNewsPapercharNULL是否有報紙noDrinkcharNULL是否有飲料noFoodcharNULL是否有午餐noMoviecharNULL是否有電影canChangecharNULL是否可以改簽canCancelcharNULL是否可以退票canDiscountcharNULL是否可以打折serviceMemotextNULL備注信息表92為顧客信息表格。每個表格表示在數(shù)據(jù)庫中的一個表。圖99 實體之間關系的ER圖 數(shù)據(jù)庫邏輯結構設計現(xiàn)在需要將上面的數(shù)據(jù)庫概念結構轉化為SQL Server 2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結構。圖97 客戶信息實體ER圖訂票信息實體ER圖如圖98所示。圖95 航線信息實體ER圖客戶類型信息實體ER圖如圖96所示。圖93 艙位等級信息實體ER圖客機信息實體ER圖如圖94所示。各個實體具體的描述ER圖如下。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。有了上面的數(shù)據(jù)結構、數(shù)據(jù)項和數(shù)據(jù)流程，我們就能進行下面的數(shù)據(jù)庫設計。l 客戶信息，包括的數(shù)據(jù)項有：客戶編號、客戶姓名、客戶性別、身份證號碼、聯(lián)系電話、客戶類型、備注信息等。l 航線信息，包括的數(shù)據(jù)項有：航線編號、出發(fā)城市、到達城市、航班日期、出發(fā)時間、到達時間、客機編號、經(jīng)濟艙價格、公務艙價格、頭等艙價格、備注信息等。圖92 航空公司管理信息系統(tǒng)數(shù)據(jù)流程圖針對一般航空公司管理信息系統(tǒng)的需求，通過對航空公司管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構：l 艙位等級信息，包括的數(shù)據(jù)項有：艙位等級編號、艙位等級名稱、是否有禮品、是否有報紙、是否有飲料、是否有午餐、是否有電影、是否可以改簽、是否可以退票、是否可以打折、備注信息等。收集基本數(shù)據(jù)、數(shù)據(jù)結構以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設計打下基礎。l 數(shù)據(jù)庫邏輯結構設計。數(shù)據(jù)庫設計一般包括如下幾個步驟：l 數(shù)據(jù)庫需要分析。合理的數(shù)據(jù)庫結構設計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。 系統(tǒng)功能模塊設計對上述各項功能進行集中、分塊，按照結構化程序設計的要求，得到如圖91所示的系統(tǒng)功能模塊圖。l 客戶信息的輸入、修改和查詢，包括客戶編號、客戶姓名、客戶性別、身份證號碼、聯(lián)系電話、客戶類型和備注信息等。l 航線信息的輸入、修改和查詢，包括航線編號、出發(fā)城市、到達城市、航班日期、出發(fā)時間、到達時間、客機編號、經(jīng)濟艙價格、公務艙價格、頭等艙價格和備注信息等。本例子中的航空公司管理信息系統(tǒng)需要完成功能主要有：l 艙位信息的輸入和修改，包括艙位等級編號、艙位等級名稱、提供的各種服務類別，以及備注信息等。1 系統(tǒng)設計 系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。本設計講述如何建立一個航空公司管理信息系統(tǒng)。航空公司管理信息系統(tǒng)一個正常營運的航空公司需要管理所擁有的飛機、航線的設置、客戶的信息等，更重要的還要提供票務管理。面對各種不同種類的信息，需要合理的數(shù)據(jù)庫結構來保存數(shù)據(jù)信息以及有效的程序結構支持各種數(shù)據(jù)操作的執(zhí)行。一般而言，航空公司的管理信息系統(tǒng)應該包括人事、工資管理模塊 。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎上完成。l 客機信息的輸入、修改和查詢，包括客機編號、客機型號、購買時間、服役時間、經(jīng)濟艙座位數(shù)量、公務艙座位數(shù)量、頭等艙座位數(shù)量以及備注信息等。l 客戶等級信息的輸入、修改，包括客戶等級編號、客戶等級名稱、折扣比例和備注信息等。l 訂票信息的輸入、查詢和修改，包括訂票編號、客戶編號、客戶姓名、客戶類型、折扣比例、航線編號、出發(fā)城市、到達城市、出發(fā)時間、艙位類型、票價、結算金額和備注信息等。圖91 系統(tǒng)功能模塊圖2 數(shù)據(jù)庫設計數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結構設計的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。設計數(shù)據(jù)庫系統(tǒng)時應該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。l 數(shù)據(jù)庫概念結構設計。 數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結構能充分滿足各種信息的輸出和輸入。仔細分析調(diào)查有關航空公司管理信息需求的基礎上，將得到如圖92所示的本系統(tǒng)所處理的數(shù)據(jù)流程。l 客機信息，包括的數(shù)據(jù)項有：客機編號、客機型號、購買時間、服役時間、經(jīng)濟艙座位數(shù)量、公務艙座位數(shù)量、頭等艙座位數(shù)量、備注信息等。l 客戶類型信息，包括的數(shù)據(jù)項有：客戶類型編號、客戶類型名稱、折扣比例、備注信息等。l 訂票信息，包括的數(shù)據(jù)項有：訂票編號、顧客編號、顧客姓名、顧客類型、折扣比例、航線編號、出發(fā)城市、到達城市、艙位類型、機票價格、結算金額、備注信息等。 數(shù)據(jù)庫概念結構設計得到上面的數(shù)據(jù)項和數(shù)據(jù)結構以后，就可以設計出能夠滿足用戶需求的各種實體，以及它們之間的關系，為后面的邏輯結構設計打下基礎。本實例根據(jù)上面的設計規(guī)劃出的實體有：艙位等級信息實體、客機信息實體、航線信息實體、客戶類型信息實體、客戶信息實體、訂票信息實體。艙位等級信息實體ER圖如圖93所示。圖94 客機信息實體ER圖航線信息實體ER圖如圖95所示。圖96 客戶類型信息實體ER圖客戶信息實體ER圖如圖97所示。圖98 訂票信息實體ER圖實體之間關系的ER圖如圖99所示。航空公司管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設計結果如下面表格所示。表91為供應商信息表。表92 planeInfo客機信息表格列 名數(shù)據(jù)類型可否為空說 明planeNOcharNOT NULL客機編號planeTypecharNULL客機型號buyDatedatetimeNULL購買日期serveDatedatetimeNULL服役日期isCommonnvarcharNULL經(jīng)濟艙座位數(shù)量isCommercialnvarcharNULL公務艙座位數(shù)量isFirstnvarcharNULL頭等艙座位數(shù)量planeMemotextNULL備注信息表93為航線信息表。表94 customerType 客戶類型信息表列 名數(shù)據(jù)類型可否為空說 明ctypeNOcharNOT NULL客戶類型編