【正文】 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)建客機信息表 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 , 航空公司管理系統(tǒng) 國 [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 , 易瑞六月風計算機畢業(yè)設(shè)計輔導網(wǎng) ——— 提供畢業(yè)設(shè)計輔導及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 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)生需要的所有表格。有關(guān)數(shù)據(jù)庫結(jié)構(gòu)的所有后臺工作已經(jīng)完成。現(xiàn)在將通過航空公司管理信息系統(tǒng)中各個功能模塊的實現(xiàn)，講解如何使用 Visual Basic 來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。 創(chuàng)建工程項目 —— MIS_Ticket 啟動 Visual Basic 后，單擊 File|New Project 菜單，在工程模板中選擇 Standard EXE， Visual Basic 將自動產(chǎn)生一個 Form 窗體，屬性都是 缺省設(shè)置。這里我們刪除這個窗體，單擊 File|Save Project 菜單，將這個工程項目命名為 MIS_Ticket。 創(chuàng)建航空公司管理信息系統(tǒng)的主窗體 這個項目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form按鈕，產(chǎn)生一個窗體。在這個窗體上添加所需的控件，窗體和控件的屬性設(shè)置見表 97。創(chuàng)建好的窗體如圖 910 所示。 表 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 航空公司管理系統(tǒng) 國 圖 910 航空公司管理信息系統(tǒng)主窗體 在主窗體中加入狀態(tài)欄控件，可以實時反映系統(tǒng)中的各個狀態(tài)的變化。狀態(tài)欄控件需要在通常 的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進行設(shè)置。選中狀態(tài)欄控件，單擊鼠標右鍵，選中 Property 菜單，然后設(shè)置屬性。面板 1 用來顯示各種文本信息，面板 2 用來顯示當前日期，面板 3 用來顯示當前時間。 創(chuàng)建主窗體的菜單 在如圖 910 所示的主窗體中，單擊鼠標右鍵，選擇彈出式菜單中的 Menu Editor，創(chuàng)建如圖 911 所示的菜單結(jié)構(gòu)： 圖 911 主窗體中的菜單結(jié)構(gòu) 創(chuàng)建公用模塊 在 Visual Basic 中可以用公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量等。這樣可 以極大地提高代碼的效率。在項目資源管理器中為項目添加一個 Module，保存為。下面就可以開始添加需要的代碼了。 易瑞六月風計算機畢業(yè)設(shè)計輔導網(wǎng) ——— 提供畢業(yè)設(shè)計輔導及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 436 – 由于系統(tǒng)中各個功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語句。添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。執(zhí)行 SQL 語句，并返回記錄集 對象 ‘聲明一個連接 Dim n As ‘聲明一個數(shù)據(jù)集對象 Dim rst As Dim sTokens() As String 39。異常處理 On Error GoTo ExecuteSQL_Error 39。用 Split 函數(shù)產(chǎn)生一個包含各個子串的數(shù)組 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 航空公司管理系統(tǒng) 國 ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgSt