基于vb航空公司管理信息系統(tǒng)畢業(yè)設計

上傳人：奔*** IP屬地：河北更新時間：2024-03-02 格式：docx 頁數(shù)：52 大小：510.17KB 人氣指數(shù)：12 舉報 版權申訴

已閱讀1頁，還剩51頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　航空公司管理信息系統(tǒng)　　一個正常營運的航空公司需要管理所擁有的飛機、航線的設置、客戶的信息等，更重要的還要提供票務管理。面對各種不同種類的信息，需要合理的數(shù)據(jù)庫結構來保存數(shù)據(jù)信息以及有效的程序結構支持各種數(shù)據(jù)操作的執(zhí)行。　　本設計講述如何建立一個航空公司管理信息系統(tǒng)。一般而言，航空公司的管理信息系統(tǒng)應該包括人事、工資管理模塊。&l

2、t;/p>　　1 系統(tǒng)設計　　1.1 系統(tǒng)功能分析　　系統(tǒng)開發(fā)的總體任務是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。　　系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎上完成。本例子中的航空公司管理信息系統(tǒng)需要完成功能主要有：<p

3、>　　艙位信息的輸入和修改，包括艙位等級編號、艙位等級名稱、提供的各種服務類別，以及備注信息等。　　客機信息的輸入、修改和查詢，包括客機編號、客機型號、購買時間、服役時間、經濟艙座位數(shù)量、公務艙座位數(shù)量、頭等艙座位數(shù)量以及備注信息等。　　航線信息的輸入、修改和查詢，包括航線編號、出發(fā)城市、到達城市、航班日期、出發(fā)時間、到達時間、客機編號、經濟艙價格

4、、公務艙價格、頭等艙價格和備注信息等。　　客戶等級信息的輸入、修改，包括客戶等級編號、客戶等級名稱、折扣比例和備注信息等。　　客戶信息的輸入、修改和查詢，包括客戶編號、客戶姓名、客戶性別、身份證號碼、聯(lián)系電話、客戶類型和備注信息等。　　訂票信息的輸入、查詢和修改，包括訂票編號、客戶編號、客戶姓名、客戶類型、折扣比

5、例、航線編號、出發(fā)城市、到達城市、出發(fā)時間、艙位類型、票價、結算金額和備注信息等。　　1.2 系統(tǒng)功能模塊設計　　對上述各項功能進行集中、分塊，按照結構化程序設計的要求，得到如圖9-1所示的系統(tǒng)功能模塊圖。　　圖9-1 系統(tǒng)功能模塊圖　　2 數(shù)據(jù)庫設計&

6、lt;/b>　　數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結構設計的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產生影響。合理的數(shù)據(jù)庫結構設計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。　　設計數(shù)據(jù)庫系統(tǒng)時應該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設計一般包括如下幾個步驟：<p

7、>　　數(shù)據(jù)庫需要分析。　　數(shù)據(jù)庫概念結構設計。　　數(shù)據(jù)庫邏輯結構設計。　　2.1 數(shù)據(jù)庫需求分析　　用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結構能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結構以

8、及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設計打下基礎。　　仔細分析調查有關航空公司管理信息需求的基礎上，將得到如圖9-2所示的本系統(tǒng)所處理的數(shù)據(jù)流程。　　圖9-2 航空公司管理信息系統(tǒng)數(shù)據(jù)流程圖　　針對一般航空公司管理信息系統(tǒng)的需求，通過對航空公司管理工作過程的內容和數(shù)據(jù)流程分析，設計如下面所示的數(shù)

9、據(jù)項和數(shù)據(jù)結構：　　艙位等級信息，包括的數(shù)據(jù)項有：艙位等級編號、艙位等級名稱、是否有禮品、是否有報紙、是否有飲料、是否有午餐、是否有電影、是否可以改簽、是否可以退票、是否可以打折、備注信息等。　　客機信息，包括的數(shù)據(jù)項有：客機編號、客機型號、購買時間、服役時間、經濟艙座位數(shù)量、公務艙座位數(shù)量、頭等艙座位數(shù)量、備注信息等。<p

10、>　　航線信息，包括的數(shù)據(jù)項有：航線編號、出發(fā)城市、到達城市、航班日期、出發(fā)時間、到達時間、客機編號、經濟艙價格、公務艙價格、頭等艙價格、備注信息等。　　客戶類型信息，包括的數(shù)據(jù)項有：客戶類型編號、客戶類型名稱、折扣比例、備注信息等。　　客戶信息，包括的數(shù)據(jù)項有：客戶編號、客戶姓名、客戶性別、身份證號碼、聯(lián)系電話、客戶類型、備注信息等。</p

11、>　　訂票信息，包括的數(shù)據(jù)項有：訂票編號、顧客編號、顧客姓名、顧客類型、折扣比例、航線編號、出發(fā)城市、到達城市、艙位類型、機票價格、結算金額、備注信息等。　　有了上面的數(shù)據(jù)結構、數(shù)據(jù)項和數(shù)據(jù)流程，我們就能進行下面的數(shù)據(jù)庫設計。　　2.2 數(shù)據(jù)庫概念結構設計　　得到上面的數(shù)據(jù)項和數(shù)據(jù)結構

12、以后，就可以設計出能夠滿足用戶需求的各種實體，以及它們之間的關系，為后面的邏輯結構設計打下基礎。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。　　本實例根據(jù)上面的設計規(guī)劃出的實體有：艙位等級信息實體、客機信息實體、航線信息實體、客戶類型信息實體、客戶信息實體、訂票信息實體。各個實體具體的描述E-R圖如下。　　艙位等級信息實體E-R圖如圖9-

13、3所示。　　圖9-3 艙位等級信息實體E-R圖　　客機信息實體E-R圖如圖9-4所示。　　圖9-4 客機信息實體E-R圖　　航線信息實體E-R圖如圖9-5所示。　　圖9-5 航線信息實體E-R圖<p&

14、gt;　　客戶類型信息實體E-R圖如圖9-6所示。　　圖9-6 客戶類型信息實體E-R圖　　客戶信息實體E-R圖如圖9-7所示。　　圖9-7 客戶信息實體E-R圖　　訂票信息實體E-R圖如圖9-8所示。　　圖9-8 訂票信息實體E

15、-R圖　　實體之間關系的E-R圖如圖9-9所示。　　圖9-9 實體之間關系的E-R圖　　2.3 數(shù)據(jù)庫邏輯結構設計　　現(xiàn)在需要將上面的數(shù)據(jù)庫概念結構轉化為SQL Server 2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結構。<

16、p>　　航空公司管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設計結果如下面表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。表9-1為供應商信息表。　　表9-1 serviceInfo 艙位等級信息表　　表9-2為顧客信息表格。　　表9-2

17、 planeInfo客機信息表格　　表9-3為航線信息表。　　表9-3 airlineInfo航線信息表　　表9-4為客戶類型信息表格。　　表9-4 customerType 客戶類

18、型信息表　　續(xù)表　　表9-5為客戶信息表格。　　表9-5 customerInfo 客戶信息表　　表9-6為訂票信息表格。　　表9-6

19、 ticketInfo 訂票信息表　　3 數(shù)據(jù)庫結構的實現(xiàn)　　經過前面的需求分析和概念結構設計以后，得到數(shù)據(jù)庫的邏輯結構?，F(xiàn)在就可以在SQL Server 2000數(shù)據(jù)庫系統(tǒng)中實現(xiàn)該邏輯結構。這是利用SQL Server 2000數(shù)據(jù)庫系統(tǒng)中的SQL 查詢分析器實現(xiàn)的。下面給出創(chuàng)建這些表格的SQL語句。

20、;　　3.1 創(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 Chin

21、ese_PRC_CI_AS NULL ,　　[user_Des] [char] (10) COLLATE Chinese_PRC_CI_AS NULL 　　) ON [PRIMARY]　　3.2 創(chuàng)建艙位等級信息表　　CREATE TABLE [dbo].[service

22、Info] (　　[serviceNO] [char] (4) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[serviceName] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL ,　　[noPresent] [char] (2)

23、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]

24、[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 ,

25、[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

26、　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]　　3.3 創(chuàng)建客機信息表　　CREATE TABLE [dbo].[planeInfo] (　　[planeNO] [char] (18) COLLATE Chinese_PRC_CI_AS NOT NULL ,

27、　　[planeType] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,　　[buyDate] [datetime] NULL ,　　[serveDate] [datetime] NULL ,　　[isCommon] [nvar

28、char] (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 ,

29、　　[planeMemo] [text] COLLATE Chinese_PRC_CI_AS NULL 　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]　　3.4 創(chuàng)建航線信息表　　CREATE TABLE [dbo].[airlineInfo] (</p

30、>　　[airlineNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[departCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,　　[arrivalCity] [nvarchar] (50) COLLAT

31、E Chinese_PRC_CI_AS NULL ,　　[departDate] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,　　[departTime] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,　　[arrivalTim

32、e] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,　　[planeNO] [char] (18) COLLATE Chinese_PRC_CI_AS NULL ,　　[commonPrice] [numeric](18, 2) NULL ,　　[commercialPr

33、ice] [numeric](18, 2) NULL ,　　[firstPrice] [numeric](18, 2) NULL ,　　[airlineMemo] [text] COLLATE Chinese_PRC_CI_AS NULL 　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMAR

34、Y]　　3.5 創(chuàng)建客戶類型信息表　　CREATE TABLE [dbo].[customerType] (　　[ctypeNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[ctypeName] [char] (

35、20) COLLATE Chinese_PRC_CI_AS NULL ,　　[discount] [numeric](2, 0) NULL ,　　[ctypeMemo] [text] COLLATE Chinese_PRC_CI_AS NULL 　　) ON [PRIMARY] TEXTIMAGE_ON [PRI

36、MARY]　　3.6 創(chuàng)建客戶信息表　　CREATE TABLE [dbo].[customerInfo] (　　[customerNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,　　[customerName] [

37、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 ,<p

38、>　　[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 NU

39、LL 　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]　　3.7 創(chuàng)建訂票信息表　　CREATE TABLE [dbo].[ticketInfo] (　　[ticketNO] [char] (14) COLLATE Chinese_PRC_C

40、I_AS NOT NULL ,　　[customerNO] [char] (14) COLLATE Chinese_PRC_CI_AS NULL ,　　[customerName] [char] (50) COLLATE Chinese_PRC_CI_AS NULL ,　　[customerType] [char

41、] (14) COLLATE Chinese_PRC_CI_AS NULL ,　　[discount] [numeric](18, 0) NULL ,　　[airlineNO] [char] (14) COLLATE Chinese_PRC_CI_AS NULL ,　　[departCity] [nvarchar

42、] (50) COLLATE Chinese_PRC_CI_AS NULL ,　　[arrivalCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,　　[ticketDate] [datetime] NULL ,　　[serviceType] [nvarc

43、har] (20) COLLATE Chinese_PRC_CI_AS NULL ,　　[ticketPrice] [numeric](18, 2) NULL ,　　[ticketSum] [numeric](18, 2) NULL ,　　[ticketMemo] [text] COLLATE Chinese_P

44、RC_CI_AS NULL 　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]　　4 航空公司管理信息系統(tǒng)主窗體的創(chuàng)建　　上面的SQL語句在SQL Server 2000中查詢分析器的執(zhí)行，將自動產生需要的所有表格。有關數(shù)據(jù)庫結構的所有后臺工作已經完成?，F(xiàn)在將通過航空公司管理信息系統(tǒng)中

45、各個功能模塊的實現(xiàn)，講解如何使用Visual Basic來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。　　4.1 創(chuàng)建工程項目——MIS_Ticket　　啟動Visual Basic后，單擊File|New Project菜單，在工程模板中選擇Standard EXE，Visual Basic將自動產生一個Form窗體，屬性都是缺省設置。這里我們刪除這個窗體，單擊Fil

46、e|Save Project菜單，將這個工程項目命名為MIS_Ticket。　　4.2 創(chuàng)建航空公司管理信息系統(tǒng)的主窗體　　這個項目我們使用多文檔界面，單擊工具欄中的ADD MDI Form按鈕，產生一個窗體。在這個窗體上添加所需的控件，窗體和控件的屬性設置見表9-7。創(chuàng)建好的窗體如圖9-10所示。　　表9-7

47、主窗體及其控件屬性設置　　圖9-10 航空公司管理信息系統(tǒng)主窗體　　在主窗體中加入狀態(tài)欄控件，可以實時反映系統(tǒng)中的各個狀態(tài)的變化。狀態(tài)欄控件需要在通常的屬性窗口中設置一般屬性，還需要在其特有的彈出式菜單中進行設置。選中狀態(tài)欄控件，單擊鼠標右鍵，選中Property菜單，然后設置屬性。面板1用來顯示各種文本信息，面

48、板2用來顯示當前日期，面板3用來顯示當前時間。　　4.3 創(chuàng)建主窗體的菜單　　在如圖9-10所示的主窗體中，單擊鼠標右鍵，選擇彈出式菜單中的Menu Editor，創(chuàng)建如圖9-11所示的菜單結構：　　圖9-11 主窗體中的菜單結構　　4.4 創(chuàng)建公用模塊

49、;　　在Visual Basic中可以用公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量等。這樣可以極大地提高代碼的效率。在項目資源管理器中為項目添加一個Module，保存為Module1.bas。下面就可以開始添加需要的代碼了。　　由于系統(tǒng)中各個功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL

50、，代碼如下：　　Public Function ExecuteSQL(ByVal SQL _　　As String, MsgString As String) _　　As ADODB.Recordset　　'執(zhí)行SQL語句，并返回記錄集對象

51、　　‘聲明一個連接　　Dim cnn As ADODB.Connection　　‘聲明一個數(shù)據(jù)集對象　　Dim rst As ADODB.Recordset　　Dim sTokens() As String</

52、p>　　'異常處理　　On Error GoTo ExecuteSQL_Error　　'用Split函數(shù)產生一個包含各個子串的數(shù)組 　　sTokens = Split(SQL)<b

53、>　　‘創(chuàng)建一個連接　　Set cnn = New ADODB.Connection　　'打開連接　　cnn.Open ConnectString　　If InStr("INSERT,DEL

54、ETE,UPDATE", _　　UCase$(sTokens(0))) Then　　‘執(zhí)行查詢語句　　cnn.Execute SQL　　MsgString = sTokens(0) & _&l

55、t;p>　　" query successful"　　Else　　Set rst = New ADODB.Recordset　　rst.Open Trim$(SQL), cnn, _　　adOpenKeyse

56、t, _　　adLockOptimistic　　'rst.MoveLast 'get RecordCount　　'返回記錄集對象　　Set ExecuteSQL = rst<

57、;p>　　MsgString = "查詢到" & rst.RecordCount & _　　" 條記錄 "　　End If　　ExecuteSQL_Exit:

58、;　　Set rst = Nothing　　Set cnn = Nothing　　Exit Function 　　ExecuteSQL_Error:　　MsgString = "查詢錯誤: " & _

59、;　　Err.Description　　Resume ExecuteSQL_Exit　　End Function　　在ExecuteSQL函數(shù)中使用了Connect String函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫，代碼如下：　　Public Functio

60、n ConnectString() _　　As String　　'返回一個數(shù)據(jù)庫連接　　ConnectString = "FileDSN=ticket.dsn;UID=sa;PWD="　　End Funct

61、ion　　在錄入有關信息時，需要回車來進入下一個文本框，這樣對軟件使用者非常方便。在所有的功能模塊都需要這個函數(shù)，所以將它放在公用模塊中，代碼如下：　　Public Sub EnterToTab(Keyasc As Integer)　　'判斷是否為回車鍵</p&

62、gt;　　If Keyasc = 13 Then　　'轉換成Tab鍵　　SendKeys "{TAB}"　　End If　　En

63、d Sub　　Keyasc用來保存當前按鍵，SendKeys函數(shù)用來指定的按鍵。一旦按下回車鍵，將返回Tab鍵，下一個控件自動獲得輸入焦點。　　添加全局變量，用來記錄各個功能模塊的讀寫狀態(tài)，代碼如下：　　Public gintSmode As Integer '記載艙位等級功能模塊的讀

64、寫狀態(tài)　　Public gintPmode As Integer '記載客機信息模塊的讀寫狀態(tài)　　Public gintAmode As Integer '記載航線信息模塊的讀寫狀態(tài)　　Public gintTmode As Integer '記載客戶類型模塊的讀寫狀態(tài)

65、　　Public gintCmode As Integer '記載客戶信息模塊的讀寫狀態(tài)　　Public gintKmode As Integer '記載訂票信息模塊的讀寫狀態(tài)　　這些全局變量用來記錄是添加狀態(tài)還是修改狀態(tài)，賦值1為添加，賦值2為修改。　　由于航空公司管理信息

66、管理系統(tǒng)啟動后，需要對用戶進行判斷。如果登錄者是授權用戶，將進入系統(tǒng)，否則將停止程序的執(zhí)行。這個判斷需要在系統(tǒng)運行的最初進行，因此將代碼放在公用模塊中。　　5 系統(tǒng)用戶管理模塊的創(chuàng)建　　用戶管理模塊主要實現(xiàn)：　　用戶登錄。<b&

67、gt;　　添加用戶。　　修改用戶密碼。　　6 艙位信息管理模塊的創(chuàng)建　　艙位信息管理模塊主要實現(xiàn)如下功能：　　添加艙位信息。<b

68、>　　修改艙位信息。　　刪除艙位信息。　　6.1 顯示艙位信息窗體的創(chuàng)建　　選擇“航線信息管理|艙位信息”菜單，將出現(xiàn)如圖9-12所示的窗體。　　圖9-12 艙位等級信息窗體<p

69、>　　這個窗體用來顯示艙位等級信息，并且可以對各條記錄進行操作。在載入窗體時，程序將自動載入所有記錄，代碼如下：　　Private Sub menuCarbin_Click()　　frmService.txtSQL = "select * from serviceInfo"　　frmSe

70、rvice.Show 0　　End Sub　　窗體的Show方法后面加上0或者1，可以得到不同的窗體顯示方式。參數(shù)為0時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數(shù)為1時，顯示的窗體為有模式形式，窗體切換時必須進行相關操作。　　載入窗體時將自動顯示各條記錄，代

71、碼如下：　　Private Sub Form_Load()　　ShowTitle　　ShowData　　End Sub

72、;　　函數(shù)ShowTitle用來顯示表頭，代碼如下：　　Private Sub ShowTitle()　　Dim i As Integer　　With msgList　　.Cols = 12　　.TextMatrix(0, 1)

73、= "等級編號"　　.TextMatrix(0, 2) = "機艙等級"　　.TextMatrix(0, 3) = "是否有禮品"　　.TextMatrix(0, 4) = "是否有報紙"

74、.TextMatrix(0, 5) = "是否有飲料"　　.TextMatrix(0, 6) = "是否有午餐"　　.TextMatrix(0, 7) = "是否提供電影"　　.TextMatrix(0, 8) = "是否可以改簽"&

75、lt;/p>　　.TextMatrix(0, 9) = "是否可以退票"　　.TextMatrix(0, 10) = "是否可以打折"　　.TextMatrix(0, 11) = "備注信息"　　'固

76、定表頭　　.FixedRows = 1　　'設置各列的對齊方式　　For i = 0 To 11　　.ColAlignment(i) = 0　　Next i<

77、/p>　　'表頭項居中　　.FillStyle = flexFillRepeat　　.Col = 0　　.Row = 0

78、　.RowSel = 1　　.ColSel = .Cols - 1　　.CellAlignment = 4　　'設置單元大小　　.ColWidth(0) = 1000　　.ColWid

79、th(1) = 1000　　.ColWidth(2) = 2000　　.ColWidth(3) = 1000　　.ColWidth(4) = 1000　　.ColWidth(5) = 1000　　.ColWidth(6) = 10

80、00　　.ColWidth(7) = 1000　　.ColWidth(8) = 1000　　.ColWidth(9) = 1000　　.ColWidth(10) = 1000　　.ColWidth(11) = 1000</p

81、>　　.Row = 1　　End With　　End Sub　　函數(shù)ShowData把各條記錄加到表格中，并顯示出來，代碼如下：

82、　Private Sub ShowData()　　Dim j As Integer　　Dim i As Integer　　Dim MsgText As String　　‘獲得數(shù)據(jù)集　　Set

83、mrc = ExecuteSQL(txtSQL, MsgText)　　With msgList　　.Rows = 1　　‘判斷是否為空　　Do While Not mrc.EOF

84、;　　‘移動到下一行　　.Rows = .Rows + 1　　‘循環(huán)　　For i = 1 To mrc.Fields.Count　　‘判斷是否為空<

85、/b>　　If Not IsNull(Trim(mrc.Fields(i - 1))) Then　　‘根據(jù)數(shù)據(jù)類型顯示　　Select Case mrc.Fields(i - 1).Type　　Case adDBDate<

86、/p>　　.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")　　Case Else　　.TextMatrix(.Rows - 1, i) = mrc

87、.Fields(i - 1) & ""　　End Select　　End If　　Next I　　‘移動到下一條記錄</p&

88、gt;　　mrc.MoveNext　　Loop　　End With　　‘關閉數(shù)據(jù)集對象　　mrc.Close</

89、b>　　End Sub　　在窗體顯示時，可以控制窗體中各個控件按照要求的位置顯示。可以在窗體的Resize事件中加入代碼，代碼如下：　　Private Sub Form_Resize()　　‘判斷當前窗體所處的狀態(tài)，當前窗體不處

90、于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時進行后面的操作　　If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then　　'邊界處理　　If Me.

91、ScaleHeight < 10 * lblTitle.Height Then　　Exit Sub　　End If　　If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2

92、 Then　　Exit Sub　　End If　　'控制控件的位置　　lblTitle.Top = lblTitle.Height

93、　　lblTitle.Left = (Me.Width - lblTitle.Width) / 2　　‘控制表格控件的位置　　msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2　　msgList.Width =

94、 Me.ScaleWidth - 200　　msgList.Left = Me.ScaleLeft + 100　　msgList.Height = Me.ScaleHeight - msgList.Top - 1500　　‘控制按鈕位置

95、;　　Frame2.Top = msgList.Top + msgList.Height + 50　　Frame2.Left = Me.ScaleWidth / 2 - 3000　　End If　　End Sub&

96、lt;p>　　6.2 添加艙位信息窗體的創(chuàng)建　　在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖9-13所示的窗體。　　圖9-13 添加艙位等級信息窗體　　載入窗體時，首先根據(jù)標志變量判斷狀態(tài)，然后決定是添加還是修改，代碼如下：　　Private Sub Form_

97、Load()　　Dim intCount As Integer　　Dim MsgText As String　　Dim i As Integer　　‘判斷是否為添加　　If gintSmode

98、 = 1 Then　　Me.Caption = Me.Caption & "添加"　　For i = 0 To 7　　Combo1(i).AddItem "否"　　Combo1(i).AddItem "是"

99、;　　Combo1(i).ListIndex = 0　　Next I　　‘載入當前選擇記錄內容　　ElseIf gintSmode = 2 Then　　Set mrc = ExecuteSQL

100、(txtSQL, MsgText)　　‘判斷記錄是否為空　　If mrc.EOF = False Then　　With mrc　　For intCount = 0 To 1

101、　　txtItem(intCount) = .Fields(intCount)　　Next intCount　　txtItem(2) = .Fields(10)　　For i = 0 To 7　　Combo1(i).AddItem "否&quo

102、t;　　Combo1(i).AddItem "是"　　Combo1(i).ListIndex = 0　　Next i　　End With

103、;　　txtItem(0).Enabled = False　　End If　　Me.Caption = Me.Caption & "修改"　　End If　　mblCh

104、ange = False　　End Sub　　輸入內容完畢，單擊“保存”按鈕，將首先判斷輸入內容是否滿足要求，然后添加到數(shù)據(jù)庫中。代碼如下：　　Private Sub cmdSave_Click()　　Dim intCount As

105、Integer　　Dim sMeg As String　　Dim MsgText As String　　‘判斷輸入內容是否為空　　For intCount = 0 To 1　　If Trim(txtItem(intCount) &

106、amp; " ") = "" Then　　Select Case intCount　　Case 0　　sMeg = "機艙等級編號"　　Case 1<

107、/b>　　sMeg = "機艙等級名稱"　　End Select　　sMeg = sMeg & "不能為空！"　　MsgBox sMeg, vbOKOnly + vbExclamation, "警告"

108、;　　txtItem(intCount).SetFocus　　Exit Sub　　End If　　Next intCount　　‘判斷輸入內容是否為數(shù)字&

109、lt;/p>　　If Not IsNumeric(Trim(txtItem(0))) Then　　sMeg = "機艙等級編號"　　sMeg = sMeg & "請輸入數(shù)字！"　　MsgBox sMeg, vbOKOnly + vbExc

110、lamation, "警告"　　txtItem(0).SetFocus　　End If　　'添加判斷是否有相同的ID記錄　　If gintSmode = 1 Then

111、;　　txtSQL = "select * from serviceInfo where serviceNO='" & Trim(txtItem(0)) & "'"　　Set mrc = ExecuteSQL(txtSQL, MsgText)　　If mrc.EOF = False

112、Then　　MsgBox "已經存在此編號的記錄！", vbOKOnly + vbExclamation, "警告"　　txtItem(0).SetFocus　　Exit Sub

113、;　　End If　　mrc.Close　　End If　　'判斷是否有相同內容的記錄　　txtSQL = "select * from serviceInf

114、o where serviceNO<>'" & Trim(txtItem(0)) & "' and serviceName='" & Trim(txtItem(1)) & "'"　　Set mrc = ExecuteSQL(txtSQL, MsgText)</p&g

115、t;　　If mrc.EOF = False Then　　MsgBox "已經存在相同機艙等級的記錄！", vbOKOnly + vbExclamation, "警告"　　txtItem(1).SetFocus　　Exit Sub&l

116、t;/b>　　End If　　'先刪除已有記錄　　txtSQL = "delete from serviceInfo where serviceNO='" & Trim(txtItem(0

117、)) & "'"　　Set mrc = ExecuteSQL(txtSQL, MsgText)　　'再加入新記錄　　txtSQL = "select * from serviceInfo"

118、　　Set mrc = ExecuteSQL(txtSQL, MsgText)　　mrc.AddNew　　For intCount = 0 To 1　　mrc.Fields(intCount) = Trim(txtItem(intCount))　　Nex

119、t intCount　　For intCount = 0 To 7　　mrc.Fields(intCount + 2) = Trim(Combo1(intCount))　　Next intCount　　mrc.Fields(10) = Trim(txtItem(2))&l

120、t;/p>　　‘更新數(shù)據(jù)集內容　　mrc.Update　　‘關閉數(shù)據(jù)集內容　　mrc.Close　　If gintSmode =

121、1 Then　　MsgBox "添加記錄成功！", vbOKOnly + vbExclamation, "添加記錄"　　For intCount = 0 To 1　　txtItem(intCount) = ""

122、　Next intCount　　For intCount = 0 To 3　　Combo1(intCount).ListIndex = 0　　Next intCount　　txtItem(2) = ""　　mb

123、lChange = False　　Unload frmService　　frmService.txtSQL = "select * from serviceInfo"　　frmService.Show　　ElseIf gintSmode = 2 The

124、n　　Unload Me　　Unload frmService　　frmService.txtSQL = "select * from serviceInfo"　　frmService.Show

125、　　End If　　End Sub　　6.3 修改艙位等級信息　　在艙位等級信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，將出現(xiàn)如圖9-13所示的窗體。選擇記錄的內容將顯示在窗體中，可以進行修改，最后保存修改后

126、的記錄。代碼如下：　　Private Sub cmdModify_Click()　　Dim intCount As Integer　　判斷列表中是否有記錄　　If frmService.msgList.Rows > 1 Then<p&g

127、t;　　‘改變狀態(tài)變量　　gintSmode = 2　　‘記錄選擇記錄位置　　intCount = msgList.Row　　If intCount > 0 Then

128、　　frmService1.txtSQL = "select * from serviceInfo where serviceNO ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"　　frmService1.Show 1<p&g

129、t;　　Else　　MsgBox "警告", vbOKOnly + vbExclamation, "請首先選擇需要修改的記錄！"　　End If　　End If

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
6. 下載文件中如有侵權或不適當內容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

基于vb航空公司管理信息系統(tǒng)畢業(yè)設計

文檔簡介

溫馨提示

最新文檔

評論

基于vb航空公司管理信息系統(tǒng)畢業(yè)設計

文檔簡介

溫馨提示

最新文檔

評論

免費下載