【文章內(nèi)容簡(jiǎn)介】 datetime] NULL , [isCommon] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [isCommercial] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [isFirst] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [planeMemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] （ 四 ） 創(chuàng)建航線信息表 CREATE TABLE [dbo].[airlineInfo] ( [airlineNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [departCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [arrivalCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [departDate] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [departTime] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [arrivalTime] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [planeNO] [char] (18) COLLATE Chinese_PRC_CI_AS NULL , [monPrice] [numeric](18, 2) NULL , [mercialPrice] [numeric](18, 2) NULL , [firstPrice] [numeric](18, 2) NULL , 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 8 頁(yè) 共 40 頁(yè) [airlineMemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] （五）創(chuàng)建客戶類型信息表 CREATE TABLE [dbo].[customerType] ( [ctypeNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , [ctypeName] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [discount] [numeric](2, 0) NULL , [ctypeMemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 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 , [ticketDate] [datetime] NULL , [serviceType] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL , 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 9 頁(yè) 共 40 頁(yè) [ticketPrice] [numeric](18, 2) NULL , [ticketSum] [numeric](18, 2) NULL , [ticketMemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 10 頁(yè) 共 40 頁(yè) 第三章 系統(tǒng)詳細(xì)設(shè)計(jì) 一、航空公司管理信息系統(tǒng)主窗體創(chuàng)建 上面的 SQL 語(yǔ)句在 SQL Server 2021 中查詢分析器的執(zhí)行，將自動(dòng)產(chǎn)生需要的所有表格。有關(guān)數(shù)據(jù)庫(kù)結(jié)構(gòu)的所有后臺(tái)工作已經(jīng)完成?，F(xiàn)在將通過航空公司管理信息系統(tǒng)中各個(gè)功能模塊的實(shí)現(xiàn)，講解如何使用 Visual Basic 來編寫數(shù)據(jù)庫(kù)系統(tǒng)的客戶端程序。 （一）創(chuàng)建工程項(xiàng)目 —— MIS_Ticket 啟動(dòng) Visual 后，單擊 File|New Project 菜單，在工程模板中選擇 Standard EXE， Visual Basic 將自動(dòng)產(chǎn)生一個(gè) Form 窗體，屬性都是缺省設(shè)置。這里我們刪除這個(gè)窗體，單擊 File|Save Project 菜單，將這個(gè)工程項(xiàng)目命名為MIS_Ticket。 （二）創(chuàng)建航空公司管理信息系統(tǒng)的主窗體 這個(gè)項(xiàng)目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form 按鈕，產(chǎn)生一個(gè)窗體。在這個(gè)窗體上添加所需的控件，窗體和控件的屬性設(shè)置見表 31。創(chuàng)建好的窗體如圖 所示。 表 31 主窗體及控件屬性設(shè)置 控 件 屬 性 屬性取值 frmMain(Form) Name FrmMain Caption 大 唐航空公司信息管理系統(tǒng) StartUpPositon CenterScreen WindowState Maximized SbStatusBar(StatusBar) Name SbStatusBar Panels(1) Style SbrText Panels(2) Style SbrDate Panels(3) Style SbrTime 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 11 頁(yè) 共 40 頁(yè) 圖 航空公司管理信息系統(tǒng)主窗體 在主窗體中加入狀態(tài)欄控件，可以實(shí)時(shí)反映系統(tǒng)中的各個(gè)狀態(tài)的變化。狀態(tài)欄控件需要在通常的屬性 窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進(jìn)行設(shè)置。選中狀態(tài)欄控件，單擊鼠標(biāo)右鍵，選中 Property 菜單，然后設(shè)置屬性。面板 1用來顯示各種文本信息，面板 2用來顯示當(dāng)前日期，面板 3 用來顯示當(dāng)前時(shí)間。 （三）創(chuàng)建主窗體的菜單 在如圖 所示的主窗體中，單擊鼠標(biāo)右鍵，選擇彈出式菜單中的 Menu Editor，創(chuàng)建如圖 所示的菜單結(jié)構(gòu)： 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 12 頁(yè) 共 40 頁(yè) 圖 主窗體中的菜單結(jié)構(gòu) （四）創(chuàng)建公用模塊 在 Visual Basic 中可以用公用模塊來存放整個(gè)工程項(xiàng)目公用的函數(shù)、過程和全局變量等。這樣可以極大地提高代碼 的效率。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè) Module，保存為 。下面就可以開始添加需要的代碼了。 由于系統(tǒng)中各個(gè)功能模塊都將頻繁使用數(shù)據(jù)庫(kù)中的各種數(shù)據(jù)，因此需要一個(gè)公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語(yǔ)句。添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。執(zhí)行 SQL 語(yǔ)句，并返回記錄集對(duì)象 ‘聲 明一個(gè)連接 Dim n As ‘聲明一個(gè)數(shù)據(jù)集對(duì)象 Dim rst As Dim sTokens() As String 39。異常處理 On Error GoTo ExecuteSQL_Error 39。用 Split 函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens = Split(SQL) ‘創(chuàng)建一個(gè)連接 Set n = New 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 13 頁(yè) 共 40 頁(yè) 39。打開連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢語(yǔ)句 SQL MsgString = sTokens(0) amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 39。get RecordCount 39。返回記錄集對(duì)象 Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯(cuò)誤 : amp。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL 函數(shù)中使用了 Connect String 函數(shù)，這個(gè)函數(shù)用來連接數(shù)據(jù)庫(kù)，代碼如下： Public Function ConnectString() _ As String 39。返回一個(gè)數(shù)據(jù)庫(kù)連接 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 14 頁(yè) 共 40 頁(yè) ConnectString = FileDSN=。UID=sa。PWD= End Function 在錄入有關(guān)信息時(shí)，需要回車來進(jìn)入下一個(gè)文本框，這樣對(duì)軟件使用者非常方便。在所有的功能模塊都需要這個(gè)函數(shù)，所以將它放在公用模塊中，代碼如下： Public Sub EnterToTab(Keyasc As Integer) 39。判斷是否為回車鍵 If Keyasc = 13 Then 39。轉(zhuǎn)換