【正文】 游線路數(shù)據(jù)表。 表 旅客管理數(shù)據(jù)表結構 字段名稱 數(shù)據(jù)類型 字段大小 索引 編號 自動編號 默認 無 姓名 文本 20 無 性別 文本 2 有（有重復） 年齡 數(shù)字 3 無 工作單位 文本 50 無 電話 文本 20 有（有重復） 參加旅游團 文本 50 無 創(chuàng)建密碼表 在本課程中，我將創(chuàng)建一個密碼數(shù)據(jù)表，專門用于管理用戶密碼。 Access 是一種關系數(shù)據(jù)庫工具，關系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。 ADODC 控件 還提供了用來瀏覽不同記錄的各種跳轉按鈕。 模塊說明及程序流程設計 模塊說明： 在本系統(tǒng)中，我將建立起旅行社管理系統(tǒng)的旅游線路管理模塊、導游管理模塊、組團管理模塊、游客管理模塊、報表打印模塊、系統(tǒng)設置模塊，其中旅游線路管理模塊又分 為旅游線路管理和旅游線路查詢兩個子模塊，導游管理模塊又分為導游管理和導游查詢兩個子模塊，組團管理模塊又分為組團管理和組團查詢兩個子模塊，報表打印模塊提供了四張功能報表的選擇打印，系統(tǒng)設置模塊分為添加用戶、修改密碼、備份數(shù)據(jù)三個子模塊其中： 旅游線路管理功能模塊的作用是對旅游線路進行增加、修改、刪除以及條件查詢等操作； 其中，旅游線路管理子模塊的作用是對旅游線路進行編輯，而旅游線路查詢子模塊的作用是對旅游線路進行條件查詢。 數(shù)據(jù)備份模塊 在一個完整的管理系統(tǒng)不可缺少，數(shù)據(jù)的完整性、安全性都依賴于它的存在。如圖 所示。 4. 我還添加了一個 模塊，其目的是為了在系統(tǒng)調用的時候自動調入數(shù)據(jù)源以及調入一些公有的變量。據(jù)源之后，在屬性窗 其制作過程如下： first_f 的基本屬性如下表所示。在具體制作中將密碼框的 passwordchar 的屬性改為 *，作用是為了保證輸入密碼時不被他人看見。 amp。 MsgBox 帳號口令錯誤 ,請檢查后重新進入 !, vbOKOnly + vbExclamation, 警告 Else glymc = rs(用戶名 ) quanxian = rs(權限 ) Unload Me End If End Sub 返回按鈕的過程代碼如下： Private Sub Command2_Click() Unload Me 39。當權限為 system 時，增加用戶可用 = True Else = False End If End Sub 其余菜單的過程代碼基本為打開其它窗體，在此不一一列出。其過程代碼如下： Option Explicit Dim i As Integer Dim sql As String 系統(tǒng)初始化過程代碼： Private Sub init() 39。 + Text1(0).Text + 39。 表格控件 DATAGIRD1 的基本屬性 屬性項名 屬性設置內容 NAME DATAGRID1 CAPTION 旅游線路管理表格 ALLOWADDNEW FALSE ALLOWDELETE FALSE ALLOWUPDATA FALSE DATASOURCE ADODC1 4. 在窗體中放入一個文本框，用于輸入查詢關鍵字；三個按鈕，名稱分別為提交、重置、詳細信息；三個單選框，名稱 分別為所有線路、按旅游線路、按行程天數(shù)，作用是為了提供查詢的條件；另外還放入一個標簽用于說明文本框的作用。 Lyxledit2中所采用的過程代碼如下： Option Explicit Dim i As Integer 返回按鈕過程代碼： Private Sub Command2_Click() Unload Me Exit Sub End Sub Private Sub Form_Load() If = False And = False Then For i = 0 To 7 Text1(i) = (i + 1) Next i Else For i = 0 To 7 Text1(i) = Next i End If = amp。其過程代碼與前一個旅游線路管理窗體 lyxledit 的過程代碼大致相同。其中詳細信息所調用的窗體 dyedit 只是通過對變量 FLAG 的判斷將其兩個組合框設為隱藏，而用兩個文本框代替，因為在查詢信息時不提供信息的修改。 Trim(Text1(1).Text) + 39。 Text1(2).Text amp。 and 出生年月 = amp。 設置該窗體的基本屬性，如下表所示： 窗體 lyztgl 的主要屬性 屬性項名 屬性設置內容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調用時，數(shù)據(jù)源就已經加載。其過程代碼與前一個旅游線路管理窗體 lyxledit 的過程代碼大致相同。 創(chuàng)建游客管理窗體 ，并將該窗體的名稱修改為 ykgl。 5．其中，詳細信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對窗體ykedit 進行查看詳細、修改記錄、增加記錄。 設置該窗體的基本屬性，如下表所示： 窗體 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ù)源就已經加載。 創(chuàng)建旅游組團查詢窗體 ，并將該窗體的名稱修改為 lyztcx。 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。 Else str = str amp。 Else str = str amp。 性別 =39。 姓名 =39。 創(chuàng)建導游查詢窗體 ，并將該窗體的名稱修改為 dycx。 設置該窗體的基本屬性，如下表所示： 窗體 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ù)源就已經加載，其代碼如下： 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ù)進行編輯，其表格控件的基本屬性如下表所示。 amp。添加交通方式選項 .AddItem 雙飛 .AddItem 單飛 .AddItem 雙臥 .AddItem 旅行大巴 End With If flag = 1 Then 39。以上均為在輸入為空的警告 MsgBox 請輸入行程安排！ , vbOKOnly + vbExclamation, 警告！ Text1(6).SetFocus Exit Sub End If If flag = 1 Then 39。 創(chuàng)建旅游線路管理窗體 旅游線路管理是旅行社管理的一個重要的管 理方面，該窗體主要用于對一個旅行社的旅游線路數(shù)據(jù)進行增加、修改、刪除等操作，創(chuàng)建該管理窗體的基本方法如下： ，并將該窗體的名稱修改為 lyxlgl。保存后創(chuàng)建系統(tǒng)主菜單。 39。用于說明兩個文本框的作用。其過程代碼如下： Private Sub Label1_Click() End Sub ，設其 Caption 屬性為“旅行社綜合管理系統(tǒng)”，用于說明該系統(tǒng)的名稱。 \ 39。該數(shù)據(jù)庫即作為整個數(shù)據(jù)工程的數(shù)據(jù)源的數(shù)據(jù)庫。創(chuàng)建系統(tǒng)啟動封面也就意味著創(chuàng)建系統(tǒng)的開始，此處，我采用創(chuàng)建ＶＢ數(shù)據(jù)工程的方法創(chuàng)建本系統(tǒng)，創(chuàng)建系統(tǒng)啟動界面的過程如下： 1. 啟動 Visual Basic 應用程序，進入開發(fā)平臺主界面。 組團管理功能模塊的作用是對組團信息進行增加、修改、刪除以及條件查詢等操作； 其中，組團管理子模塊的作用是對組團信息進行編輯，而組團查詢子模塊的作用是對組團信息進行條件查詢，此操作適用于游客選擇旅游線路。 第 5 章：系統(tǒng)的實現(xiàn) 開發(fā)環(huán)境及工具 開發(fā)所需的硬件環(huán)境：奔騰 III450, 內存 64M 以上，硬盤空間 800M 以上。 微軟的 JET 數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及Visual Basic 來訪問數(shù)據(jù)庫并對其進行各種操作。密碼數(shù)據(jù)表結構如下表所示： 表 密碼數(shù)據(jù)表結構 字段名稱 字段類型 字段大小 索引 用戶名 文本 20 無 密碼 文本 20 有（無重復） 權限 文本 20 無 其中，我對密碼創(chuàng)建了 有（無重復） ，因為一個用戶只能有一個密碼 。 在旅行社管理數(shù)據(jù)庫中我們將創(chuàng)建“旅游線路數(shù)據(jù)表”，其結構如下： 表 旅游線路數(shù)據(jù)表結構 字段名稱 字段類型 字段大小 索引 編號 自動編號 默認 無 名稱 文本 20 有（無重復） 主要景點 文本 100 無 行程天數(shù) 數(shù)字 整型 無 報價 貸幣 默認 無 交通 文本 50 無 住宿 文本 50 無 行程安排 備注 默認 無 說明 備注 默認 無 在旅游線路表中，主要景點是對景名中幾個重要分景點的說明；而交通 則是說明了交通方式的選擇；住宿同樣是說明住宿的檔次；而行程安排則說明了在旅游中每一天的日程安排，以方便旅客們知道在每一天將做些什么。 第 4 章：系統(tǒng)設計 系統(tǒng)模塊的劃分 在本系統(tǒng)中，我將建立起旅行社管理系統(tǒng)的旅游線路管理模塊、導游管理模塊、組團管理模塊、游客管理模塊、報表打印模塊、系統(tǒng)設置模塊，其中旅游線路管理模塊又分為旅游線路管理和旅游線路查詢兩個子模塊，導游管理模塊又分為導游管理和導游查詢兩個子模塊，組團管理模塊又分為組團管理和組團查詢兩個子模塊， 報表打印模塊提供了四張功能報表的選擇打印，系統(tǒng)設置模塊分為添加用戶、修改密碼、備份數(shù)據(jù)三個子模塊。 3. 本管理系統(tǒng)的數(shù)據(jù)安全性要得到加強，盡可能避免外來因素對數(shù)據(jù)的破壞。 第 2 章：課題來源及設計要求 課題來源 為什么要開發(fā)一個 旅行社綜合 管理系統(tǒng)？ 計算機已成為我們生活、工作中不可缺少一部分。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點 ,如 :效率低、保密性差 ,另外時間一長 ,將產生大量的文件和數(shù)據(jù) ,這對于查找、更新和維護都帶來了不少的困難。 旅行社綜合管 理系統(tǒng)是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要 包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。針對大眾的這種需求，許許多多的旅行社就由此孕育而生，各種各樣豐富多彩的旅游景點則需要由一個合適的管理系統(tǒng)來規(guī)范，所以旅行社綜合管理系統(tǒng)的建立是十分必要的。s lifestyle is no longer limited to ordinary clothing, food, acmodation and transportation. It is not only to improve the material, but also in the spirit of the pursuit of a qualitative mutation. Thus, more and more people choose to go out during weekend