【正文】 20) COLLATE Chinese_PRC_CI_AS NULL , [buyDate] [datetime] NULL , [serveDate] [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 , [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 , [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 2021 中查詢分析器的執(zhí)行，將自動產生需要的所有表格。有關數據庫結構的所有后臺工作已經完成?，F在將通過航空公司管理信息系統(tǒng)中各個功能模塊的實現，講解如何使用 Visual Basic 來編寫數據庫系統(tǒng)的客戶端程序。 創(chuàng)建工程項目 —— MIS_Ticket 啟動 Visual Basic 后，單擊 File|New Project 菜單，在工程模板中選擇 Standard EXE， Visual Basic 將自動產生一個 Form窗體，屬性都是 缺省設置。這里我們刪除這個窗體，單擊 File|Save Project 菜單，將這個工程項目命名為 MIS_Ticket。 創(chuàng)建航空公司管理信息系統(tǒng)的主窗體 這個項目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form 按鈕，產生一個窗體。在這個窗體上添加所需的控件，窗體和控件的屬性設置見表 97。創(chuàng)建好的窗體如圖 910 所示。 表 97 主窗體及其控件屬性設置 控 件 屬 性 屬性取值 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 圖 910 航空公司管理信息系統(tǒng)主窗體 在主窗體中加入狀態(tài)欄控件，可以實時反映系統(tǒng)中的各個狀態(tài)的變化。狀態(tài)欄控件需要在通常 的屬性窗口中設置一般屬性，還需要在其特有的彈出式菜單中進行設置。選中狀態(tài)欄控件，單擊鼠標右鍵，選中 Property菜單，然后設置屬性。面板 1用來顯示各種文本信息，面板 2用來顯示當前日期，面板 3 用來顯示當前時間。 創(chuàng)建主窗體的菜單 在如圖 910 所示的主窗體中，單擊鼠標右鍵，選擇彈出式菜單中的 Menu Editor，創(chuàng)建如圖911 所示的菜單結構： 圖 911 主窗體中的菜單結構 創(chuàng)建公用模塊 在 Visual Basic 中可以用公用模塊來存放整個工程項目公用的函數、過程和全局變量等。這樣可 以極大地提高代碼的效率。在項目資源管理器中為項目添加一個 Module，保存為。下面就可以開始添加需要的代碼了。 由于系統(tǒng)中各個功能模塊都將頻繁使用數據庫中的各種數據，因此需要一個公共的數據操作函數，用以執(zhí)行各種 SQL 語句。添加函數 ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。執(zhí)行 SQL 語句，并返回記錄集 對象 ‘聲明一個連接 Dim n As ‘聲明一個數據集對象 Dim rst As Dim sTokens() As String 39。異常處理 On Error GoTo ExecuteSQL_Error 39。用 Split 函數產生一個包含各個子串的數組 sTokens = Split(SQL) ‘創(chuàng)建一個連接 Set n = New 39。打開連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢語句 SQL MsgString = sTokens(0) amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 39。get RecordCount 39。返回記錄集對象 Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤 : amp。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL 函數中使用了 Connect String函數，這個函數用來連接數據庫，代碼如下： Public Function ConnectString() _ As String 39。返回一個數據庫連接 ConnectString = FileDSN=。UID=sa。PWD= End Function 在錄入有關信息時，需要回車來進入下一個文本框，這樣對軟件使用者非常方便。在所有的功能模塊都需要這個函數，所以將它放在公用模塊中，代碼如下： Public Sub EnterToTab(Keyasc As Integer) 39。判斷是否為回車鍵 If Keyasc = 13 Then 39。轉換成 Tab 鍵 SendKeys {TAB} End If End Sub Keyasc 用來保存當前按鍵， SendKeys 函數用來指定的按鍵。一旦按下回車鍵，將返回 Tab鍵，下一個控件自動獲得輸入焦點。 添加全局變量，用來記錄各個功能模塊的讀寫狀態(tài)，代碼如下： Public gintSmode As Integer 39。記載艙位等級功能模塊的讀寫狀態(tài) Public gintPmode As Integer 39。記載客機信息模塊的讀寫狀態(tài) Public gintAmode As Integer 39。記載航線信息模塊的讀寫狀態(tài) Public gintTmode As Integer 39。記載客戶類型模塊的讀寫狀態(tài) Public gintCmode As Integer 39。記載客戶信息模塊的讀寫狀態(tài) Public gintKmode As Integer 39。記載訂票信息模塊的讀寫狀態(tài) 這些全局變量用來記錄是添加狀態(tài)還是修改狀態(tài)，賦值 1 為添加，賦值 2 為修改。 由于航空公司管理信息管理系統(tǒng)啟動后，需要對用戶進行判斷。如果登錄者是授權用戶，將進入系統(tǒng)，否則將停止程序的執(zhí)行。這個判斷需要在系統(tǒng)運行的最初進行，因此將代碼放在公用模塊中。 5 系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實現： ? 用戶登錄。 ? 添加用戶。