【正文】 單擊“修改”按鈕，當(dāng)前記錄將出現(xiàn)在窗體中。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數(shù)據(jù)庫中。 刪除訂票信息選擇機票信息列表中需要刪除的記錄，然后單擊“刪除”按鈕，可以刪除所選記錄。 查詢訂票信息在機票信息列表中，單擊“查詢”按鈕。窗體載入時自動在列表框中添加出發(fā)城市、到達城市和艙位類型的信息。輸入查詢內(nèi)容完畢，單擊“確定”按鈕將自動組合產(chǎn)生查詢語句。 23 / 52 系統(tǒng)的實現(xiàn)現(xiàn)在已經(jīng)完成了程序各個功能模塊的創(chuàng)建，現(xiàn)在就可以來運行整個系統(tǒng)。 系統(tǒng)的編譯和發(fā)行完成了航空公司管理信息系統(tǒng)的編程和調(diào)試工作，最后一步就是該系統(tǒng)的編譯和發(fā)行。這涉及到工程項目屬性的設(shè)置、可執(zhí)行應(yīng)用程序的生成。在系統(tǒng)的編譯和發(fā)行以前，需要設(shè)置工程項目的屬性。選擇“Project|MIS_TICKET Properties”菜單，進行屬性設(shè)置。最后選擇“File|Make ”菜單，編譯開始。編譯完畢后，即生成了相應(yīng)的可執(zhí)行文件。編譯通過后，生成可執(zhí)行文件 。我們需要在發(fā)行前對生成的可執(zhí)行文件進行測試。通過測試的可執(zhí)行文件，就可以進行發(fā)布了。 24 / 52第 6 章 總結(jié)這次的數(shù)據(jù)庫課程設(shè)計，我們組負責(zé)的中小學(xué)教師及家長交流平臺的設(shè)計。我們組實行的分工合作來提高設(shè)計效率。從各種文檔的閱讀到需求分析、概要設(shè)計、數(shù)據(jù)庫總體設(shè)計、代碼編寫與調(diào)試，我們都準(zhǔn)備了好長時間。我們都親身體驗了一回系統(tǒng)的設(shè)計開發(fā)過程，分工合作的好處。很多東西書上寫的很清楚，貌似看著也很簡單，思路非常清晰。但真正需要自己想辦法去設(shè)計一個系統(tǒng)的時候才發(fā)現(xiàn)其中的難度。通過上網(wǎng)查找資料、相關(guān)文獻的閱讀，我們對該系統(tǒng)有了大體的了解。在需求分析過程中，我們通過上網(wǎng)查資料，去圖書館查閱相關(guān)資料，結(jié)合我們的生活經(jīng)驗，根據(jù)可行性研究的結(jié)果和用戶的需要，分析現(xiàn)有情況及問題。在一個月的時間里，不斷地對程序及各模塊進行修改、編譯、調(diào)試、運行，其間遇到很多問題，經(jīng)過組內(nèi)討論。最終把它解決了。通過這次課程設(shè)計，我們都對數(shù)據(jù)庫的設(shè)計更加熟練了。 通過本次課程設(shè)計，我們覺得不管做什么，始終都要相信自己。不要畏懼，不要怕遇到困難，什么都要去嘗試，有些你開始認(rèn)為很難的事在你嘗試之后你可能會發(fā)現(xiàn)原來它并沒有你你想象的那么難。如果沒有目標(biāo)，沒有信心就很難把事情做好，當(dāng)其他人都在迷茫的時候，自己一定要堅信目標(biāo)。從學(xué)習(xí)這個專業(yè)，到以后從事這方面的工作都需要不斷地去學(xué)習(xí)去實踐，這次實踐可以給我們敲一個警鐘，我們面臨畢業(yè)，面臨擇業(yè)，需要這些實踐經(jīng)驗，在困難面前要勇于嘗試，這是這次課程設(shè)計給我的最大感想！通過這次設(shè)計的完成，使我們對自己所學(xué)知識進一步的了解，同時通過實踐發(fā)現(xiàn)自己的不足，對知識的掌握及運用存在諸多的不完善。本系統(tǒng)也存在著很多不足，實現(xiàn)功能也不夠完善。所以在今后的學(xué)習(xí)中我們會繼續(xù)努力，完善自我，也要感謝同學(xué)的幫助、指導(dǎo)老師的用心輔導(dǎo)和學(xué)校的精心安排使這個課題能夠順利進行。 25 / 52參考文獻[1] Visual Basic 程序設(shè)計案例教程，黃冬梅的等編著，清華大學(xué)出版社[2] 數(shù)據(jù)庫原理及應(yīng)用教程 26 / 52附錄 1—小組成員分工情況設(shè)計題目 航空公司管理信息系統(tǒng)成員 趙毅 趙子雄 王赫分工 負責(zé)整體架構(gòu)。前臺后臺具體功能代碼實現(xiàn)。代碼編寫調(diào)試。負責(zé)概念結(jié)構(gòu)設(shè)計，需求分析。簡單數(shù)據(jù)庫操作代碼。負責(zé)建立數(shù)據(jù)庫，建表，負責(zé)報告的設(shè)計和完善。 27 / 52附錄 2—實現(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)建艙位等級信息表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)建客機信息表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 , 28 / 52[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 , 29 / 52[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]公共的數(shù)據(jù)操作函數(shù) ExecuteSQLPublic Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。執(zhí)行 SQL 語句，并返回記錄集對象 ‘聲明一個連接 Dim n As ‘聲明一個數(shù)據(jù)集對象 Dim rst As Dim sTokens() As String39。異常處理 On Error GoTo ExecuteSQL_Error39。用 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 RecordCount39。返回記錄集對象 Set ExecuteSQL = rst MsgString