基于vb航空公司管理信息系統(含源文件)-資料下載頁

【導讀】的還要提供票務管理。面對各種不同種類的信息，需要合理的數據庫結構來保存數據信息以。及有效的程序結構支持各種數據操作的執行。本設計講述如何建立一個航空公司管理信息系統。應該包括人事、工資管理模塊。系統開發的總體任務是實現各種信息的系統化、規范化和自動化。客機信息的輸入、修改和查詢，包括客機編號、客機型號、購買時間、服役時間、經濟艙座位數量、公務艙座位數量、頭等艙座位數量以及備注信息等。聯系電話、客戶類型和備注信息等。用系統的效率以及實現的效果產生影響。保證數據的完整和一致。收集基本數據、數據結構以及數據處理的流程，組成一份詳。盡的數據字典，為后面的具體設計打下基礎。艙位等級信息，包括的數據項有：艙位等級編號、艙位等級名稱、是否有禮品、是。航線信息，包括的數據項有：航線編號、出發城市、到達城市、航班日期、出發時。之間的作用形成數據的流動。客機信息實體E-R圖如圖9-4所示。表9-3為航線信息表。

　　

【正文】 mation, 添加記錄 For intCount = 0 To 7 txtItem(intCount) = 電子郵箱： 手機： 13955813944 – 450 – Next intCount mblChange = False Unload frmPlane = select * from planeInfo ElseIf gintPmode = 2 Then Unload Me Unload frmPlane = select * from planeInfo End If End Sub 修改客機信息 在客機信息列表中選擇記錄，然后單擊“修改”按鈕。當前記錄將顯示在如圖 915 所示的窗體中，可以進行修改。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內容是否為空 If 1 Then gintPmode = 2 ‘ 記載選擇記錄的位置 intCount = If intCount 0 Then = select * from planeInfo where planeNO =39。 amp。 Trim((intCount, 1)) amp。 39。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub 刪除客機信息 在客機信息列表中選擇記錄，然后單擊“刪除”按鈕，當前記錄將被刪除。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘判斷列表內容是否為空 航空公司管理系統 國 If 1 Then If MsgBox(真的要刪除客機編號為 amp。 Trim((, 1)) amp。 的型號為 amp。 Trim((, 2)) amp。 的客機記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位 置 intCount = txtSQL = delete from planeInfo where planeNO =39。 amp。 Trim((intCount, 1)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmPlane ‘重新載入所有記錄，并顯示出來 = select * from planeInfo End If End If End Sub 查詢客機信息 在客機信息列表中單擊“查詢”按鈕，將出現如圖 916 所示的窗體。 圖 916 查詢客機信息的窗體 載入窗體時，將自動加入所有客機編號和客機型號的信息，代碼如下： Private Sub Form_Load() Dim i As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As ‘清楚各個列表框中的內容 For i = 0 To 1 Combo1(i).Clear Next i ‘選擇數據庫中所有客機編號的內容 txtSQL = select DISTINCT planeNO from planeInfo Set mrc = ExecuteSQL(txtSQL, MsgText) ‘判斷數據庫是否為空 電子郵箱： 手機： 13955813944 – 452 – If Not Then Do While Not Combo1(0).AddItem Trim((0)) Loop Else MsgBox 請先進行客機信息設置！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If ‘選擇所有數據庫中有關飛機型號的內容 txtSQL = select DISTINCT planeType from planeInfo Set mrc = ExecuteSQL(txtSQL, MsgText) ‘判斷數據集對象是否為空 If Not Then Do While Not Combo1(1).AddItem Trim((0)) Loop Else MsgBox 請先進行客機信息設置！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If ‘關閉數據集對象 End Sub 設置完查詢內容和方式后，單擊 cmdOK 按鈕將進行查詢。所有滿足條件的記錄將顯示在如圖 914 所示的窗體中，代碼如下 ： Private Sub cmdOK_Click() Dim sQSql As String ‘判斷是否按照客機編號查詢 If chkItem(0).Value = vbChecked Then sQSql = planeNO = 39。 amp。 Trim(Combo1(0) amp。 ) amp。 39。 End If ‘判斷是否按照客機型號查詢 If chkItem(1).Value = vbChecked Then If Trim(sQSql amp。 ) = Then sQSql = planeType =39。 amp。 Trim(Combo1(1) amp。 ) amp。 39。 Else 航空公司管理系統 國 sQSql = sQSql amp。 and planeType =39。 amp。 Trim(Combo1(1) amp。 ) amp。 39。 End If End If ‘判斷查詢內容是否為空 If Trim(sQSql) = Then MsgBox 請設置查詢條件！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else ‘顯示所有滿足查詢條件的內容 = select * from planeInfo where amp。 sQSql Unload frmPlane End If End Sub 8 航線信息管理模塊的創建 航線信息管理模塊主要實現如下功能： ? 添加航線信息。 ? 修改航線信息。 ? 刪除航線信息。 ? 查詢航線信息。 顯示航線信息窗體的創建 選擇“航線信息管理 |航線信息”菜單，將出現如圖 917 所示的窗體。所有航線信息都將顯示出來。窗體的 Load 事件調用 ShowTitle、 ShowData 函數，將所有記錄顯示出來。 電子郵箱： 手機： 13955813944 – 454 – 圖 917 顯示客機信息窗體 添加航線信息窗體的創建 選擇“航線信息管理 |航線信息”菜單，將出現如圖 918 所示的窗體，用來添加航線信息。 圖 918 添加航線窗體 輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內容是否符合要求，然后檢查是否有重復記錄，最后添加到數據庫中。 修改航線信息 在航線信息列表中選擇記錄，然后單擊“修改”按鈕。當前記錄將顯示在如圖 918 所示的窗體中，可以進行修改。代碼如下： 航空公司管理系統 國 Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內容是否為空 If 1 Then gintAmode = 2 ‘記載選擇記錄的位置 intCount = If intCount 0 Then = select * from airlineInfo where airlineNO =39。 amp。 Trim((intCount, 1)) amp。 39。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub 刪除航線信息 在航線信息列表中選擇記錄，然后單擊“刪除”按鈕，當前記錄將被刪除。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘判斷列表內容是否為空 If 1 Then If MsgBox( 真的要刪除 amp。 Trim((, 4)) amp。 從 amp。 Trim((, 2)) amp。 出發到 amp。 Trim((, 3)) amp。 的航線記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄位置 intCount = txtSQL = delete from airlineInfo where airlineNO =39。 amp。 Trim((intCount, 1)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘重新載入記錄并顯示 Unload frmAirline = select * from airlineInfo End If End If 電子郵箱： 手機： 13955813944 – 456 – End Sub 查詢航線信息 在航線信息列表中單擊“查詢”按鈕，將出現如圖 919 所示的窗體。 圖 919 航線信息查詢窗體 載入窗體時自動加入出發城市和到達城市的內容，代碼如下： Private Sub Form_Load() Dim i As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As ‘清除列表框中的內容 For i = 0 To 1 Combo1(i).Clear Next i ‘選擇數據庫中與出發城市有關的內容 txtSQL = select DISTINCT departCity from airlineInfo Set mrc = ExecuteSQL(txtSQL, MsgText) ‘判斷數據集是否為空 If Not Then Do While Not Combo1(0).AddItem Trim((0)) Loop