【正文】 管理所無(wú)法比擬的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。使大家對(duì)旅行社的管理有一個(gè)了解。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面： ； ； 率； ，等等 ； 。 設(shè)計(jì)要求 綜合管理系統(tǒng)的設(shè)計(jì)要求： 1. 要使本管理系統(tǒng)的操作盡量簡(jiǎn)易化，使對(duì)計(jì)算機(jī)不太了解的人也可以方便的使用。 5. 本管理系統(tǒng)的界面要盡可能的作到美觀、大方，突出旅游這個(gè)重點(diǎn)。 4．使 sql 查詢語(yǔ)言進(jìn)行系統(tǒng)中的數(shù)據(jù)查詢。 數(shù)據(jù)庫(kù)結(jié)構(gòu)的創(chuàng)建 旅行社管理數(shù)據(jù)庫(kù)與數(shù)據(jù)表的創(chuàng)建 在創(chuàng)建該系統(tǒng)之前，我首先創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)（數(shù)據(jù)庫(kù)名是 ）。數(shù)據(jù)庫(kù)一經(jīng)創(chuàng)建，用戶就可以在數(shù)據(jù)庫(kù)中創(chuàng)建應(yīng)用系統(tǒng)制作所需要的數(shù)據(jù)表，在這里我們首先創(chuàng)建一個(gè)旅游線路數(shù)據(jù)表。導(dǎo)游數(shù)據(jù)表的結(jié)構(gòu)如下表所示： 表 導(dǎo)游數(shù)據(jù)表結(jié)構(gòu) 字段名稱 字段類型 字段大小 索引 編號(hào) 自動(dòng)編號(hào) 默認(rèn) 無(wú) 姓名 文本 20 有（無(wú)重復(fù)） 性別 文本 2 無(wú) 級(jí)別 文本 20 無(wú) 出生年月 日期 /時(shí)間 默認(rèn) 無(wú) 電話 文本 20 有（有重復(fù)） 在導(dǎo)游數(shù)據(jù)表中， 級(jí)別是為了說(shuō)明該導(dǎo)游所能帶的團(tuán)隊(duì)（有國(guó)內(nèi)和國(guó)際之分）。 表 旅客管理數(shù)據(jù)表結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 索引 編號(hào) 自動(dòng)編號(hào) 默認(rèn) 無(wú) 姓名 文本 20 無(wú) 性別 文本 2 有（有重復(fù)） 年齡 數(shù)字 3 無(wú) 工作單位 文本 50 無(wú) 電話 文本 20 有（有重復(fù)） 參加旅游團(tuán) 文本 50 無(wú) 創(chuàng)建密碼表 在本課程中，我將創(chuàng)建一個(gè)密碼數(shù)據(jù)表，專門用于管理用戶密碼。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開發(fā)的最通用的數(shù)據(jù)庫(kù)之一。 ADODC控件 在數(shù)據(jù)庫(kù)中的信息與將信息顯示給用戶看的 Visual Basic程序之間架起了一座橋梁。 ADODC 控件 還提供了用來(lái)瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。 開發(fā)所使用的工具： 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。 模塊說(shuō)明及程序流程設(shè)計(jì) 模塊說(shuō)明： 在本系統(tǒng)中，我將建立起旅行社管理系統(tǒng)的旅游線路管理模塊、導(dǎo)游管理模塊、組團(tuán)管理模塊、游客管理模塊、報(bào)表打印模塊、系統(tǒng)設(shè)置模塊，其中旅游線路管理模塊又分 為旅游線路管理和旅游線路查詢兩個(gè)子模塊，導(dǎo)游管理模塊又分為導(dǎo)游管理和導(dǎo)游查詢兩個(gè)子模塊，組團(tuán)管理模塊又分為組團(tuán)管理和組團(tuán)查詢兩個(gè)子模塊，報(bào)表打印模塊提供了四張功能報(bào)表的選擇打印，系統(tǒng)設(shè)置模塊分為添加用戶、修改密碼、備份數(shù)據(jù)三個(gè)子模塊其中： 旅游線路管理功能模塊的作用是對(duì)旅游線路進(jìn)行增加、修改、刪除以及條件查詢等操作； 其中，旅游線路管理子模塊的作用是對(duì)旅游線路進(jìn)行編輯，而旅游線路查詢子模塊的作用是對(duì)旅游線路進(jìn)行條件查詢。 報(bào)表功能模塊的作用是利用 Visual Basic 中的報(bào)表編輯器編輯各數(shù)據(jù)表的報(bào)表，這對(duì)一個(gè)旅行社分析旅游線路的開發(fā)數(shù)量、旅游組團(tuán)的各理性、導(dǎo)游信息的完善、游客信息的完善、游客所喜歡的旅行線路等是十分必要的。 數(shù)據(jù)備份模塊 在一個(gè)完整的管理系統(tǒng)不可缺少，數(shù)據(jù)的完整性、安全性都依賴于它的存在。 3. 在工程類型選擇面板中選擇“數(shù)據(jù)工程”。如圖 所示。 3. 單擊“確定”按鈕之后即成功引入數(shù)據(jù)源。 4. 我還添加了一個(gè) 模塊，其目的是為了在系統(tǒng)調(diào)用的時(shí)候自動(dòng)調(diào)入數(shù)據(jù)源以及調(diào)入一些公有的變量。Persist Security Info=False。據(jù)源之后，在屬性窗 其制作過程如下： first_f 的基本屬性如下表所示。用于退出系統(tǒng) End Sub 創(chuàng)建系統(tǒng)登錄界面 系統(tǒng)登錄界面是一個(gè)管理系統(tǒng)進(jìn)行 權(quán)限認(rèn)證中不可缺少的一環(huán)，它主要用來(lái)驗(yàn)證系統(tǒng)使用的合法身份。在具體制作中將密碼框的 passwordchar 的屬性改為 *，作用是為了保證輸入密碼時(shí)不被他人看見。用于系統(tǒng)登錄和退出啟動(dòng)界面之用。 amp。 amp。 MsgBox 帳號(hào)口令錯(cuò)誤 ,請(qǐng)檢查后重新進(jìn)入 !, vbOKOnly + vbExclamation, 警告 Else glymc = rs(用戶名 ) quanxian = rs(權(quán)限 ) Unload Me End If End Sub 返回按鈕的過程代碼如下： Private Sub Command2_Click() Unload Me 39。 3. 在菜單編輯器中添加系統(tǒng)各個(gè)模塊的信息，添加好后的系統(tǒng)界面如圖 所示。當(dāng)權(quán)限為 system 時(shí)，增加用戶可用 = True Else = False End If End Sub 其余菜單的過程代碼基本為打開其它窗體，在此不一一列出。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 NAME DATAGRID1 CAPTION 旅游線路管理表格 ALLOWADDNEW TRUE ALLOWDELETE TRUE ALLOWUPDATA TRUE DATASOURCE ADODC1 4．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其 CAPTION 為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其過程代碼如下： Option Explicit Dim i As Integer Dim sql As String 系統(tǒng)初始化過程代碼： Private Sub init() 39。 + Text1(0).Text + 39。 + Text1(0).Text + 39。判斷為修改信息 = 修改 + Else = amp。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 NAME DATAGRID1 CAPTION 旅游線路管理表格 ALLOWADDNEW FALSE ALLOWDELETE FALSE ALLOWUPDATA FALSE DATASOURCE ADODC1 4. 在窗體中放入一個(gè)文本框，用于輸入查詢關(guān)鍵字；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；三個(gè)單選框，名稱 分別為所有線路、按旅游線路、按行程天數(shù)，作用是為了提供查詢的條件；另外還放入一個(gè)標(biāo)簽用于說(shuō)明文本框的作用。 sql = select * from 旅游線路表 where amp。 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。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。其過程代碼與前一個(gè)旅游線路管理窗體 lyxledit 的過程代碼大致相同。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 dycx 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕 中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載。其中詳細(xì)信息所調(diào)用的窗體 dyedit 只是通過對(duì)變量 FLAG 的判斷將其兩個(gè)組合框設(shè)為隱藏，而用兩個(gè)文本框代替，因?yàn)樵诓樵冃畔r(shí)不提供信息的修改。 Trim(Text1(0).Text) + 39。 Trim(Text1(1).Text) + 39。 Trim(Text1(1).Text) + 39。 Text1(2).Text amp。 amp。 and 出生年月 = amp。 Text1(3).Text amp。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 lyztgl 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。其過程代碼與前一個(gè)旅游線路管理窗體 lyxledit 的過程代碼大致相同。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 lyztcx 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引 入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼與上幾個(gè)數(shù)據(jù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。 創(chuàng)建游客管理窗體 ，并將該窗體的名稱修改為 ykgl。 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來(lái)對(duì)窗體ykedit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 ykgl 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 NAME DATAGRID1 CAPTION 旅游組團(tuán)管理表格 ALLOWADDNEW FALSE ALLOWDELETE FALSE ALLOWUPDATA FALSE DATASOURCE ADODC1 4．在窗體中放入五個(gè)復(fù)選框提供可選擇條件的查詢，五個(gè)文本框用于接收查詢的信息；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；其過程代碼（包括對(duì)復(fù)選框的判斷）與上一個(gè)導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。 創(chuàng)建旅游組團(tuán)查詢窗體 ，并將該窗體的名稱修改為 lyztcx。 5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和 修改按鈕所打開的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來(lái)對(duì)窗體lyztedit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 str = sql End Sub 創(chuàng)建旅游組團(tuán)管理窗體 ，并將該窗體的名稱修改為 lyztgl。 Else str = str amp。 39。 Else str = str amp。 and 級(jí)別 =39。 性別 =39。 and 別性 =39。 姓名 =39。 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不能對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性 如下表所示。 創(chuàng)建導(dǎo)游查詢窗體 ，并將該窗體的名稱修改為 dycx。 5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來(lái)對(duì)