【正文】 設置該窗體的基本屬性，如下表所 示： 窗體 ykgl 的主要屬性 屬性項名 屬性設置內容 Borderstyle 1fixed Startupposition 2屏幕中心 Windowsstate 0normal ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調用時，數(shù)據(jù)源就已經(jīng)加載。 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。 Else str = str amp。 姓名 =39。 設置該窗體的基本屬性，如下表所示： 窗體 dygl 的主要屬性 屬性項名 屬性設置內容 Borderstyle 1fixed Startupposition 2屏幕中心 Windowsstate 0normal 2．在窗體中放入一個 ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數(shù)據(jù)源的方法，在窗體調用時，數(shù)據(jù)源就已經(jīng)加載，其代碼如下： Private Sub Form_Load() = = adCmdUnknown sql = select * from 導游數(shù)據(jù)表 = sql = False = False = False If = False Then End If Set = Adodc1 End Sub 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。添加交通方式選項 .AddItem 雙飛 .AddItem 單飛 .AddItem 雙臥 .AddItem 旅行大巴 End With If flag = 1 Then 39。 創(chuàng)建旅游線路管理窗體 旅游線路管理是旅行社管理的一個重要的管 理方面，該窗體主要用于對一個旅行社的旅游線路數(shù)據(jù)進行增加、修改、刪除等操作，創(chuàng)建該管理窗體的基本方法如下： ，并將該窗體的名稱修改為 lyxlgl。 39。其過程代碼如下： Private Sub Label1_Click() End Sub ，設其 Caption 屬性為“旅行社綜合管理系統(tǒng)”，用于說明該系統(tǒng)的名稱。該數(shù)據(jù)庫即作為整個數(shù)據(jù)工程的數(shù)據(jù)源的數(shù)據(jù)庫。 組團管理功能模塊的作用是對組團信息進行增加、修改、刪除以及條件查詢等操作； 其中，組團管理子模塊的作用是對組團信息進行編輯，而組團查詢子模塊的作用是對組團信息進行條件查詢，此操作適用于游客選擇旅游線路。 微軟的 JET 數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及Visual Basic 來訪問數(shù)據(jù)庫并對其進行各種操作。 在旅行社管理數(shù)據(jù)庫中我們將創(chuàng)建“旅游線路數(shù)據(jù)表”，其結構如下： 表 旅游線路數(shù)據(jù)表結構 字段名稱 字段類型 字段大小 索引 編號 自動編號 默認 無 名稱 文本 20 有（無重復） 主要景點 文本 100 無 行程天數(shù) 數(shù)字 整型 無 報價 貸幣 默認 無 交通 文本 50 無 住宿 文本 50 無 行程安排 備注 默認 無 說明 備注 默認 無 在旅游線路表中，主要景點是對景名中幾個重要分景點的說明；而交通 則是說明了交通方式的選擇；住宿同樣是說明住宿的檔次；而行程安排則說明了在旅游中每一天的日程安排，以方便旅客們知道在每一天將做些什么。 3. 本管理系統(tǒng)的數(shù)據(jù)安全性要得到加強，盡可能避免外來因素對數(shù)據(jù)的破壞。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點 ,如 :效率低、保密性差 ,另外時間一長 ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對于查找、更新和維護都帶來了不少的困難。人們不僅要在物質方面得到提高，而且在精神方面也追求有一個質的突變。 本論文的編寫主要為了使大家了解旅行社管理系統(tǒng)中各項管理的具體操作、各功能模塊 的詳細介紹、數(shù)據(jù)獲取的方式、如何進行數(shù)據(jù)的維護等等。 3．采用 Visual Basic 中的報表編輯器來完成報表的制作。在本課程中， 我創(chuàng)建了一個游客管理數(shù)據(jù)表，其數(shù)據(jù)庫結構如下表所示。一個記錄集合是動態(tài)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。 密碼更改模塊是對本系統(tǒng)的用戶操作密碼進行修改，不斷的修改密碼對于系統(tǒng)的保密工作是十分有成效的。Data Source= 這樣整個數(shù)據(jù)工程將使用該數(shù)據(jù)連接和數(shù)據(jù)庫。 Login_f 窗體中放入兩個文本框控件用來接收用戶名和密碼信息。 ‘查詢密碼和用戶是否與表中的相符 Set rs = (sql) If Or Then ‘若其中至少有一個不相符，則不能登錄。而窗體 lyxledit 創(chuàng)建步驟如下： 1) 添加一個窗體，命名為 lyxledit； 2) 在窗體中放入八個標簽控件，八個文本框控 件，一個組合框控件，其中text(4)和組合框是重合的，八個標簽控件是為了說明八個文本框控的作用；此外，再放入二個按鈕控件。該窗體的主要目的是用于對旅游線路進行條件查詢，設置該窗體的基本屬性，如下表所示： 窗體 lyxlcx 的主要屬性 屬性項名 屬性設置內容 Borderstyle 1fixed Startupposition 2屏幕中心 Windowsstate 0normal 入一個 ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調用時，數(shù)據(jù)源就已經(jīng)加載，其代碼如下： Private Sub Form_Load() = = adCmdUnknown sql = select * from 旅游 線路表 = sql = False = False = False If = False Then End If Set = Adodc1 Option1(0).Value = True = End Sub 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。而窗體 dyedit 創(chuàng)建步驟如下： 1) 添加一個窗體，命名為 dyedit； 2) 在窗體中放入五個標簽控件，五個文本框控件，二個組合框控件，其中text1(1) text1(2)和兩個組合框是重合的，五個標簽控件是為了說明五個文本框控的作用；此外，再放入二個按鈕控件。 amp。 End If End If If Check1(3).Value Then If Text1(3).Text = Then MsgBox 請輸入出生年月 !, vbCritical, 警告 Exit Sub End If dd(3) = True If dd(0) Or dd(1) Or dd(2) Then str = str amp。而窗體 lyzteidt 創(chuàng)建步驟如下： 1) 添加一個窗體，命名為 lyztedit； 2) 在窗體中放入八個標簽控件，八個文本框控件，二 個組合框控件，其中text1(1) text1(4)和兩個組合框是重合的，八個標簽控件是為了說明八個文本框控的作用；此外，再放入二個按鈕控件。其操作過程代碼與上一個旅游線路管理窗體的制作大致相同，此處不予以列出。 3．在窗體中放入一個表格控件 DataGrid1， 該控件的主要作用是顯示數(shù)據(jù)，不對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。 End If End If If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then MsgBox 請設置查詢方式 , vbOKOnly + vbExclamation, 警告 Exit Sub End If sql = select * from 導游數(shù)據(jù)表 where amp。 End If End If If Check1(2).Value Then If Text1(2).Text = Then MsgBox 請輸入級別 !, vbCritical, 警告 Exit Sub End If dd(2) = True If dd(0) Or dd(1) Then str = str amp。其代碼與前幾個窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。 str ElseIf Option1(2).Value Then If = Then MsgBox 請輸入行程天數(shù) !, vbCritical, 警告 Exit Sub End If str = 行程天數(shù) = amp。 = adUseClient sql, conn, adOpenKeyset, adLockOptimistic If = False Then 39。 4．在系統(tǒng)使用中，若你登錄時的權限選擇為 USER，你就不可以使用添加用戶菜單，只有當你的選擇權限為 SYSTEM 時，你才可使用。登錄按鈕的過程代碼如下： 進入按鈕的過程代碼如下： Private Sub Command1_Click() = Replace(, 39。Data Source= amp。 4. 單 擊“打開”按鈕，出現(xiàn)一個數(shù)據(jù)工程，其中包括一個數(shù)據(jù)工程窗體，一個數(shù)據(jù)源環(huán)境和數(shù)據(jù)報表的設計器。 Visual Basic 提供了大量的控件，這些控件 可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。在該 數(shù)據(jù)庫中，創(chuàng)建 五張 數(shù)據(jù)表，即旅游 線路 數(shù)據(jù)表、 導游管理數(shù)據(jù)表 、游客 管理數(shù)據(jù)表、密碼表 以及組團管理數(shù)據(jù)表 。 在旅行社中使 用計算機管理 旅行社各種數(shù)據(jù) 的 實際 意義 ： 在目前國內的旅游市場中，大部分的旅行社都借助于計算機來進行管理，但管理軟件的版本較為陳舊且達不到圖文并茂，大部分的管理軟件都編寫于基于ＤＯＳ系統(tǒng)下的 foxbase 及 foxpro 所開發(fā)的，不太符合當今旅游市場的需求。 本論文主要闡述旅行社綜合管理系統(tǒng)各個模塊的設計思想和實現(xiàn)的關鍵技術。而對于后者則要求應用程序功能完備 ,易使用等特點。它已經(jīng)被應用于許多領域，計算機之所以如此流行的原因主要有以下幾個方面： ； ； 率； ，等等 ； 。 數(shù)據(jù)庫結構的創(chuàng)建 旅行社管理數(shù)據(jù)庫與數(shù)據(jù)表的創(chuàng)建 在創(chuàng)建該系統(tǒng)之前，我首先創(chuàng)建一個數(shù)據(jù)庫（數(shù)據(jù)庫名是 ）。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 開發(fā)所使用的工具： 微軟公司的 Visual Basic 是 Windows 應用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向對象的開發(fā)工具。 3. 在工程類型選擇面板中選擇“數(shù)據(jù)工程”。Persist Security Info=False。用于系統(tǒng)登錄和退出啟動界面之用。 3. 在菜單編輯器中添加系統(tǒng)各個模塊的信息，添加好后的系統(tǒng)界面如圖 所示。 + Text1(0).Text + 39。 sql = select * from 旅游線路表 where amp。 設置該窗體的基本屬性，如下表所示： 窗體 dycx 的主要屬性 屬性項名 屬性設置內容 Borderstyle 1fixed Startupposition 2屏幕中心 Windowsstate 0normal ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調用時，數(shù)據(jù) 源就已經(jīng)加載。 Trim(Text1(1).Text) + 39。 Text1(3).Text amp