【正文】 To ‘判斷是否為空 If Not IsNull(Trim((i 1))) Then ‘根據(jù)數(shù)據(jù)類型顯示 Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 載入窗體時將自動顯示各條記錄，代碼如下： Private Sub Form_Load() ShowTitle ShowData End Sub 函數(shù) ShowTitle 用來顯示表頭，代碼如下： Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 12 .TextMatrix(0, 1) = 等級編號 .TextMatrix(0, 2) = 機(jī)艙等級 .TextMatrix(0, 3) = 是否有禮品 .TextMatrix(0, 4) = 是否有報紙 .TextMatrix(0, 5) = 是否有飲料 .TextMatrix(0, 6) = 是否有午餐 .TextMatrix(0, 7) = 是否提供電影 .TextMatrix(0, 8) = 是否可以改簽 .TextMatrix(0, 9) = 是否可以退票 .TextMatrix(0, 10) = 是否可以打折 .TextMatrix(0, 11) = 備注信息 39。 顯示艙位信息窗體的創(chuàng)建 選擇“航線信息管理 |艙位信息”菜單，將出現(xiàn)如圖 912 所示的窗體。 ? 修改用戶密碼。如果登錄者是授權(quán)用戶，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行。記載客戶類型模塊的讀寫狀態(tài) Public gintCmode As Integer 39。 添加全局變量，用來記錄各個功能模塊的讀寫狀態(tài)，代碼如下： Public gintSmode As Integer 39。在所有的功能模塊都需要這個函數(shù)，所以將它放在公用模塊中，代碼如下： Public Sub EnterToTab(Keyasc As Integer) 39。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL 函數(shù)中使用了 Connect String函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫，代碼如下： Public Function ConnectString() _ As String 39。get RecordCount 39。用 Split 函數(shù)產(chǎn)生一個包含各個子串的數(shù)組 sTokens = Split(SQL) ‘創(chuàng)建一個連接 Set n = New 39。 由于系統(tǒng)中各個功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語句。 創(chuàng)建主窗體的菜單 在如圖 910 所示的主窗體中，單擊鼠標(biāo)右鍵，選擇彈出式菜單中的 Menu Editor，創(chuàng)建如圖911 所示的菜單結(jié)構(gòu)： 圖 911 主窗體中的菜單結(jié)構(gòu) 創(chuàng)建公用模塊 在 Visual Basic 中可以用公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量等。 表 97 主窗體及其控件屬性設(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 圖 910 航空公司管理信息系統(tǒng)主窗體 在主窗體中加入狀態(tài)欄控件，可以實時反映系統(tǒng)中的各個狀態(tài)的變化。這里我們刪除這個窗體，單擊 File|Save Project 菜單，將這個工程項目命名為 MIS_Ticket。 創(chuàng)建系統(tǒng)用戶表 CREATE TABLE [dbo].[user_Info1] ( [user_ID] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [user_PWD] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [user_Des] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建艙位等級信息表 CREATE TABLE [dbo].[serviceInfo] ( [serviceNO] [char] (4) COLLATE Chinese_PRC_CI_AS NOT NULL , [serviceName] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [noPresent] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [noNewsPaper] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [noDrink] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [noFood] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [noMovie] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [canChange] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [canCancel] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [canDiscount] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [serviceMemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] 創(chuàng)建客機(jī)信息表 CREATE TABLE [dbo].[planeInfo] ( [planeNO] [char] (18) COLLATE Chinese_PRC_CI_AS NOT NULL , [planeType] [char] (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)主窗體