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