【正文】 號(hào)ctypeNamecharNULL客戶類型名稱discountnumericNULL折扣比例續(xù)表列 名數(shù)據(jù)類型可否為空說 明ctypeMemotextNULL備注表95為客戶信息表格。表96 ticketInfo 訂票信息表列 名數(shù)據(jù)類型可否為空說 明ticketNOcharNOT NULL訂票編號(hào)customerNOcharNULL客戶編號(hào)customerNamecharNULL客戶姓名customerTypecharNULL客戶類型discountnumericNULL折扣比例airlineNOcharNULL航線編號(hào)departCitynvarcharNULL出發(fā)城市arrivalCitynvarcharNULL到達(dá)城市ticketDatedatetimeNULL出發(fā)日期serviceTypecharNULL艙位類型ticketPricenumericNULL機(jī)票價(jià)格ticketSumnumericNULL結(jié)算金額customerMemotextNULL備注3 數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn)經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計(jì)以后，得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)。這是利用SQL Server 2000數(shù)據(jù)庫系統(tǒng)中的SQL 查詢分析器實(shí)現(xiàn)的。 創(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)建艙位等級(jí)信息表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)主窗體的創(chuàng)建上面的SQL語句在SQL Server 2000中查詢分析器的執(zhí)行，將自動(dòng)產(chǎn)生需要的所有表格?，F(xiàn)在將通過航空公司管理信息系統(tǒng)中各個(gè)功能模塊的實(shí)現(xiàn)，講解如何使用Visual Basic來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。這里我們刪除這個(gè)窗體，單擊File|Save Project菜單，將這個(gè)工程項(xiàng)目命名為MIS_Ticket。在這個(gè)窗體上添加所需的控件，窗體和控件的屬性設(shè)置見表97。表97 主窗體及其控件屬性設(shè)置控 件屬 性屬性取值frmMain(Form)NameFrmMainCaption大唐航空公司信息管理系統(tǒng)StartUpPositonCenterScreenWindowStateMaximizedSbStatusBar(StatusBar)NameSbStatusBarPanels(1)StyleSbrTextPanels(2)StyleSbrDatePanels(3)StyleSbrTime圖910 航空公司管理信息系統(tǒng)主窗體在主窗體中加入狀態(tài)欄控件，可以實(shí)時(shí)反映系統(tǒng)中的各個(gè)狀態(tài)的變化。選中狀態(tài)欄控件，單擊鼠標(biāo)右鍵，選中Property菜單，然后設(shè)置屬性。 創(chuàng)建主窗體的菜單在如圖910所示的主窗體中，單擊鼠標(biāo)右鍵，選擇彈出式菜單中的Menu Editor，創(chuàng)建如圖911所示的菜單結(jié)構(gòu)：圖911 主窗體中的菜單結(jié)構(gòu) 創(chuàng)建公用模塊在Visual Basic中可以用公用模塊來存放整個(gè)工程項(xiàng)目公用的函數(shù)、過程和全局變量等。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè)Module。由于系統(tǒng)中各個(gè)功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個(gè)公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。執(zhí)行SQL語句，并返回記錄集對(duì)象 ‘聲明一個(gè)連接 Dim n As ‘聲明一個(gè)數(shù)據(jù)集對(duì)象 Dim rst As Dim sTokens() As String39。用Split函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens = Split(SQL) ‘創(chuàng)建一個(gè)連接 Set n = New 39。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。get RecordCount39。 amp。 _ Resume ExecuteSQL_ExitEnd Function 在ExecuteSQL函數(shù)中使用了Connect String函數(shù)，這個(gè)函數(shù)用來連接數(shù)據(jù)庫，代碼如下：Public Function ConnectString() _ As String39。UID=sa。在所有的功能模塊都需要這個(gè)函數(shù)，所以將它放在公用模塊中，代碼如下：Public Sub EnterToTab(Keyasc As Integer) 39。轉(zhuǎn)換成Tab鍵 SendKeys {TAB} End IfEnd SubKeyasc用來保存當(dāng)前按鍵，SendKeys函數(shù)用來指定的按鍵。添加全局變量，用來記錄各個(gè)功能模塊