【正文】 amp。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer 判斷列表中是否有記錄 If 1 Then 易瑞六月風計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 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 已經(jīng)存在相同機艙等級的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(1).SetFocus Exit Sub End If 39。判斷是否有相同內(nèi)容的記錄 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 ‘關(guān)閉數(shù)據(jù)集對象 End Sub 在窗體顯示時，可以控制窗體中各個控件按照要求的位置顯示。在載入窗體時，程序航空公司管理系統(tǒng) 國 將自動載入所有記錄，代碼如下： Private Sub menuCarbin_Click() = select * from serviceInfo 0 End Sub 窗體的 Show 方法后面加上 0 或者 1，可以得到不同的窗體顯示方式。 易瑞六月風計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 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，保存為。在這個窗體上添加所需的控件，窗體和控件的屬性設(shè)置見表 97。這是利用 SQL Server 2020 數(shù)據(jù)庫系統(tǒng)中的 SQL 查詢分析器實現(xiàn)的。表 91 為供應(yīng)商信息表。 圖 94 客機信息實體 ER 圖 航線信息實體 ER 圖如圖 95 所示。 ? 訂票信息，包括的數(shù)據(jù)項有：訂票編號、顧客編號、顧客姓名、顧客類型、折扣比例、航線編號、出發(fā)城市、到達城市、艙位類型、機票價格、結(jié)算金額、備注信息等。 數(shù)據(jù)庫需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。 ? 訂票信息的輸入、查詢和修改，包括訂票編號、客戶編號、客戶姓名、客戶類型、折扣比例、航線編號、出發(fā)城市、到達城市、出發(fā)時間、艙位類型、票價、結(jié)算金額和備注信息等。一般而言，航空公司的管理信息系統(tǒng)應(yīng)該包括人事、工資管理模塊 。 1 系統(tǒng)設(shè)計 系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。 系統(tǒng)功能模塊設(shè)計 對上述各項功能進行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計的要求，得到如圖 91 所示的系統(tǒng)功能模塊圖。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳 易瑞六月風計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 426 – 盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。 有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù) 據(jù)項和數(shù)據(jù)流程，我們就能進行下面的數(shù)據(jù)庫設(shè)計。 易瑞六月風計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 428 – 圖 95 航線信息實體 ER 圖 客戶類型信息實體 ER 圖如圖 96 所示。 表 91 serviceInfo 艙位等級信息表 列 名 數(shù)據(jù)類型 可否為空 說 明 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 在錄入有關(guān)信息時，需要回車來進入下一個文本框，這樣對軟件使用者非常方便。記載航線信息模塊的讀寫狀態(tài) Public gintTmode As Integer 39。 ? 添加用戶。參數(shù)為 0 時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數(shù)為 1 時，顯示的窗體為有模式形式，窗體切換時必須進行相關(guān)操作?？梢栽诖绑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è)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 444 – Next intCount ‘判斷輸入內(nèi)容是否為數(shù)字 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 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將所有記錄顯示出來。 航空公司管理系統(tǒng) 國 圖 918 添加航線窗體 輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要 求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫中。 sQSql Unload frmPlane End If End Sub 易瑞六月風計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 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 = 經(jīng)濟艙座位數(shù)量 Case 5 sMeg = 公務(wù)艙座位數(shù)量 Case 6 sMeg = 頭等艙座位數(shù)量 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è)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料