【正文】 amp。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer 判斷列表中是否有記錄 If 1 Then 易瑞六月風計算機畢業(yè)設計輔導網 ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 446 – ‘改變狀態(tài)變量 gintSmode = 2 ‘記錄 選擇記錄位置 intCount = If intCount 0 Then = select * from serviceInfo where serviceNO =39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經存在相同機艙等級的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(1).SetFocus Exit Sub End If 39。判斷是否有相同內容的記錄 txtSQL = select * from serviceInfo where serviceNO39。 ) = Then Select Case intCount Case 0 sMeg = 機艙等級編號 Case 1 sMeg = 機艙等級名稱 End Select sMeg = sMeg amp。 End Select End If Next I ‘移動到下一條記錄 Loop End With ‘關閉數據集對象 End Sub 在窗體顯示時，可以控制窗體中各個控件按照要求的位置顯示。在載入窗體時，程序航空公司管理系統(tǒng) 國 將自動載入所有記錄，代碼如下： Private Sub menuCarbin_Click() = select * from serviceInfo 0 End Sub 窗體的 Show 方法后面加上 0 或者 1，可以得到不同的窗體顯示方式。 易瑞六月風計算機畢業(yè)設計輔導網 ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 438 – 5 系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實現(xiàn)： ? 用戶登錄。記載客機信息模塊的讀寫狀態(tài) Public gintAmode As Integer 39。UID=sa。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。在項目資源管理器中為項目添加一個 Module，保存為。在這個窗體上添加所需的控件，窗體和控件的屬性設置見表 97。這是利用 SQL Server 2020 數據庫系統(tǒng)中的 SQL 查詢分析器實現(xiàn)的。表 91 為供應商信息表。 圖 94 客機信息實體 ER 圖 航線信息實體 ER 圖如圖 95 所示。 ? 訂票信息，包括的數據項有：訂票編號、顧客編號、顧客姓名、顧客類型、折扣比例、航線編號、出發(fā)城市、到達城市、艙位類型、機票價格、結算金額、備注信息等。 數據庫需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數據庫結構能充分滿足各種信息的輸出和輸入。 ? 訂票信息的輸入、查詢和修改，包括訂票編號、客戶編號、客戶姓名、客戶類型、折扣比例、航線編號、出發(fā)城市、到達城市、出發(fā)時間、艙位類型、票價、結算金額和備注信息等。一般而言，航空公司的管理信息系統(tǒng)應該包括人事、工資管理模塊 。 1 系統(tǒng)設計 系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。 系統(tǒng)功能模塊設計 對上述各項功能進行集中、分塊，按照結構化程序設計的要求，得到如圖 91 所示的系統(tǒng)功能模塊圖。收集基本數據、數據結構以及數據處理的流程，組成一份詳 易瑞六月風計算機畢業(yè)設計輔導網 ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 426 – 盡的數據字典，為后面的具體設計打下基礎。 有了上面的數據結構、數 據項和數據流程，我們就能進行下面的數據庫設計。 易瑞六月風計算機畢業(yè)設計輔導網 ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 428 – 圖 95 航線信息實體 ER 圖 客戶類型信息實體 ER 圖如圖 96 所示。 表 91 serviceInfo 艙位等級信息表 列 名 數據類型 可否為空 說 明 serviceNO char NOT NULL 艙位等級編號 serviceName nvarchar NULL 艙位等級名稱 noPresent char NULL 是否有禮物 noNewsPaper char NULL 是否有報紙 noDrink char NULL 是否有飲料 noFood char NULL 是否有午餐 noMovie char NULL 是否有電影 canChange char NULL 是否可以改簽 canCancel char NULL 是否可以退票 canDiscount char NULL 是否可以打折 serviceMemo text NULL 備注信息 表 92 為顧客信息表格。下面給出創(chuàng)建這些表格的 SQL 語句。創(chuàng)建好的窗體如圖 910 所示。下面就可以開始添加需要的代碼了。 39。PWD= End Function 在錄入有關信息時，需要回車來進入下一個文本框，這樣對軟件使用者非常方便。記載航線信息模塊的讀寫狀態(tài) Public gintTmode As Integer 39。 ? 添加用戶。參數為 0 時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數為 1 時，顯示的窗體為有模式形式，窗體切換時必須進行相關操作?？梢栽诖绑w的 Resize 事件中加入代碼，代碼如下： Private Sub Form_Resize() ‘判斷當前窗體所處的狀態(tài)，當前窗體不處于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時進行后面的操作 If vbMinimized And vbMinimized Then 39。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If 易瑞六月風計算機畢業(yè)設計輔導網 ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 444 – Next intCount ‘判斷輸入內容是否為數字 If Not IsNumeric(Trim(txtItem(0))) Then sMeg = 機艙等級編號 sMeg = sMeg amp。 amp。先刪除已有記錄 txtSQL = delete from serviceInfo where serviceNO=39。 amp。 39。 圖 914 顯示客機信息列表窗體 添加客機信息窗體的創(chuàng)建 單擊客機信息列表中的“添加”按鈕，將出現(xiàn)如圖 915 所示的窗體。 39。當前記錄將顯示在如圖 915 所示的窗體中，可以進行修改。 的型號為 amp。所有滿足條件的記錄將顯示在如圖 914 所示的窗體中，代碼如下： Private Sub cmdOK_Click() Dim sQSql As String ‘判斷是否按照客機編號查詢 If chkItem(0).Value = vbChecked Then sQSql = planeNO = 39。 Trim(Combo1(1) amp。 39。窗體的 Load 事件調用 ShowTitle、 ShowData 函數，將所有記錄顯示出來。 航空公司管理系統(tǒng) 國 圖 918 添加航線窗體 輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內容是否符合要 求，然后檢查是否有重復記錄，最后添加到數據庫中。 sQSql Unload frmPlane End If End Sub 易瑞六月風計算機畢業(yè)設計輔導網 ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 454 – 8 航線信息管理模塊的創(chuàng)建 航線信息管理模塊主要實現(xiàn)如下功能： ? 添加航線信 息。 39。 Trim(Combo1(0) amp。 的客機記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = txtSQL = delete from planeInfo where planeNO =39。 amp。先刪除已有記錄 txtSQL = delete from planeInfo where planeNO=39。 ) = Then Select Case intCount Case 0 sMeg = 客機編號 Case 1 sMeg = 客機型號 Case 2 sMeg = 購買時間 Case 3 sMeg = 服役時間 Case 4 sMeg = 經濟艙座位數量 Case 5 sMeg = 公務艙座位數量 Case 6 sMeg = 頭等艙座位數量 End Select 航空公司管理系統(tǒng) 國 sMeg = sMeg amp。 ? 修改客機信息。 39。 Trim(txtItem(0)) amp。 39。添加判斷是否有相同的 ID 記錄 If gintSmode = 1 Then txtSQL = select * from serviceInfo where serviceNO=39。控制控件的位置 = = ( ) / 2 ‘控制表格控件的位置 = + + / 2 = 200 = + 100 = 1500 易瑞六月風計算機畢業(yè)設計輔導網 ——— 提供畢業(yè)設計輔導及相關資料