【正文】 ] TEXTIMAGE_ON [PRIMARY] 創(chuàng)建客戶信息表 CREATE TABLE [dbo].[customerInfo] ( [customerNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [customerName] [char] (50) COLLATE Chinese_PRC_CI_AS NULL , [customerSex] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [customerID] [char] (18) COLLATE Chinese_PRC_CI_AS NULL , [customerTele] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [customerType] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , [customerMemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] 創(chuàng)建訂票信息表 CREATE TABLE [dbo].[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 , 易瑞六月風計算機畢業(yè)設(shè)計輔導網(wǎng) ——— 提供畢業(yè)設(shè)計輔導及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 434 – [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] 4 航空公司管理信息系統(tǒng)主窗體的創(chuàng)建 上面的 SQL 語句在 SQL Server 2020 中查詢分析器的執(zhí)行，將自動產(chǎn)生需要的所有表格。 表 92 planeInfo客機信息表格 列 名 數(shù)據(jù)類型 可否為空 說 明 planeNO char NOT NULL 客機編號 planeType char NULL 客機型號 buyDate datetime NULL 購買日期 serveDate datetime NULL 服役日期 isCommon nvarchar NULL 經(jīng)濟艙座位數(shù)量 isCommercial nvarchar NULL 公務艙座位數(shù)量 isFirst nvarchar NULL 頭等艙座位 數(shù)量 planeMemo text NULL 備注信息 表 93為航線信息表。 圖 96 客戶類型信息實體 ER 圖 客戶信息實體 ER 圖如圖 97 所示。 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。 仔細分析調(diào)查有關(guān)航空公司管理信息需求的基礎(chǔ) 上，將得到如圖 92 所示的本系統(tǒng)所處理的數(shù)據(jù)流程。 航空公司管理系統(tǒng) 國 圖 91 系統(tǒng)功能模塊圖 2 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。 系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎(chǔ)上完成。 本設(shè)計講述如何建立一個航空公司管理信息系統(tǒng)。 ? 客戶信息的輸入、修改和查詢，包括客戶編 號、客戶姓名、客戶性別、身份證號碼、聯(lián)系電話、客戶類型和備注信息等。 ? 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計。 ? 客戶信息，包括的數(shù)據(jù)項有：客戶編號、客戶姓名、客戶性別、身份證號碼、聯(lián)系航空公司管理系統(tǒng) 國 電話、客戶類型、備注信息等。 圖 93 艙位等級信息實體 ER 圖 客機信息 實體 ER 圖如圖 94 所示。每個表格表示在數(shù)據(jù)庫中的一個表。現(xiàn)在就可以在 SQL Server 2020 數(shù)據(jù)庫系統(tǒng)中實現(xiàn)該邏輯結(jié)構(gòu)。 創(chuàng)建航空公司管理信息系統(tǒng)的主窗體 這個項目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form按鈕，產(chǎn)生一個窗體。這樣可 以極大地提高代碼的效率。打開連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢語句 SQL MsgString = sTokens(0) amp。返回一個數(shù)據(jù)庫連接 ConnectString = FileDSN=。記載艙位等級功能模塊的讀寫狀態(tài) Public gintPmode As Integer 39。這個判斷需要在系統(tǒng)運行的最初進行，因此將代碼放在公用模塊中。 圖 912 艙位等級信息窗體 這個窗體用來顯示艙位等級信息，并且可以對各條記錄進行操作。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。代碼如下： Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String ‘判斷輸入內(nèi)容是否為空 For intCount = 0 To 1 If Trim(txtItem(intCount) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此編號的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If 39。 39。選擇記錄的內(nèi)容將顯示在窗體中，可以進行修改，最后保存修改后的記錄。 amp。所有客機信息都將顯示出 來。 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) 易瑞六月風計算機畢業(yè)設(shè)計輔導網(wǎng) ——— 提供畢業(yè)設(shè)計輔導及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 450 – 39。代碼如下： 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。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmPlane ‘重新載入所有記錄，并顯示出來 = select * from planeInfo End If End If End Sub 查詢客機信息 在客機信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖 916 所示的窗體。 ) = Then sQSql = planeType =39。 Trim(Combo1(1) amp。 顯示航線信息窗體的創(chuàng)建 選擇“航線信息管理 |航線信息”菜單，將出現(xiàn)如圖 917 所示的窗體。當前記錄將顯示在如圖 918 所示的窗體中，可以進行修改。 ? 刪除航線信息。 and planeType =39。 39。 Trim((intCount, 1)) amp。 39。 Trim(txtItem(0)) amp。 請輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus End If Next intCount ‘判斷輸入內(nèi)容是否為日期 For intCount = 2 To 3 If IsDate(txtItem(intCount)) Then txtItem(intCount) = Format(txtItem(intCount), yyyymmdd) Else MsgBox 時間應輸入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount 39。 ? 查詢客機信息。 Trim((, 2)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) 39。 amp。 Trim(txtItem(0)) amp。 添加 For i = 0 To 7 Combo1(i).AddItem 否 Combo1(i).AddItem 是 Combo1(i).ListIndex = 0 Next I ‘載入當前選擇記錄內(nèi)容 ElseIf gintSmode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) 航空公司管理系統(tǒng) 國 ‘判斷記錄是否為空 If = False Then With mrc For intCount = 0 To 1 txtItem(intCount) = .Fields(intCount) Next intCount txtItem(2) = .Fields(10) For i = 0 To 7 Combo1(i).AddItem 否 Combo1(i).AddItem 是 Combo1(i).ListIndex = 0 Next i End With txtItem(0).Enabled = False End If = amp。表頭項居中 .FillStyle = flexFillRepeat