【正文】 lseAllowupdatafalseDatasourceAdodc14. 在窗體中放入一個(gè)文本框，用于輸入查詢關(guān)鍵字；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；三個(gè)單選框，名稱分別為所有線路、按旅游線路、按行程天數(shù)，作用是為了提供查詢的條件；另外還放入一個(gè)標(biāo)簽用于說明文本框的作用。判斷為查詢詳細(xì)信息 = False = False = 返回 End IfEnd Sub（5）創(chuàng)建旅游線路查詢窗體，并將該窗體的名稱修改為lyxlcx。判斷為修改信息 = 修改 + Else = amp。添加交通方式選項(xiàng) .AddItem 雙飛 .AddItem 單飛 .AddItem 雙臥 .AddItem 旅行大巴 End With If flag = 1 Then 39。 + Text1(0).Text + 39。判斷是否已經(jīng)存在記錄 MsgBox 已經(jīng)存在這個(gè)旅游線路的記錄！, vbOKOnly + vbExclamation, 警告！ Text1(0).SetFocus Else rs!名稱 = Text1(0).Text rs!主要景點(diǎn) = Text1(1).Text rs!行程天數(shù) = Text1(2).Text rs!報(bào)價(jià) = Text1(3).Text rs!交通 = rs!住宿 = Text1(5).Text rs!行程安排 = Text1(6).Text rs!說明 = Text1(7).Text Set rs = Nothing MsgBox 記錄已經(jīng)成功添加！, vbOKOnly + vbExclamation, 添加結(jié)果！ = select * from 旅游線路表 Unload Me End If ElseIf flag = 2 Then 39。 + Text1(0).Text + 39。以上均為在輸入為空的警告 MsgBox 請輸入行程安排！, vbOKOnly + vbExclamation, 警告！ Text1(6).SetFocus Exit Sub End If If flag = 1 Then 39。其過程代碼如下：Option ExplicitDim i As IntegerDim sql As String系統(tǒng)初始化過程代碼：Private Sub init() 39。其操作過程代碼如下：詳細(xì)信息按鈕代碼：Private Sub Command1_Click()flag = 3 1End Sub增加按鈕代碼：Private Sub Command2_Click()flag = 1 1End Sub刪除按鈕代碼：Private Sub Command3_Click()If Then MsgBox 不能刪除空記錄!, vbCritical + vbExclamation, 警告ElseDim ok As Integerok = MsgBox(確認(rèn)刪除!, vbOKCancel + vbExclamation, 確認(rèn))If ok = 1 ThenEnd IfEnd IfEnd Sub修改按鈕代碼：Private Sub Command4_Click()flag = 2 1End Sub首記錄按鈕代碼：Private Sub Command5_Click()End Sub前一條按鈕代碼：Private Sub Command6_Click()If = True ThenMsgBox 已到文件首部！ElseEnd IfEnd Sub后一條按鈕代碼：Private Sub Command7_Click()If ThenMsgBox 已經(jīng)在文件尾部！ElseEnd IfEnd Sub尾記錄按鈕代碼：Private Sub Command8_Click()End Sub5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量FLAG的值不同，它們的單擊事件是通過判斷FLAG的值不同來對窗體lyxledit進(jìn)行查看詳細(xì)、修改記錄、增加記錄。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游線路管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其CAPTION為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。（4） 創(chuàng)建旅游線路管理窗體旅游線路管理是旅行社管理的一個(gè)重要的管理方面，該窗體主要用于對一個(gè)旅行社的旅游線路數(shù)據(jù)進(jìn)行增加、修改、刪除等操作，創(chuàng)建該管理窗體的基本方法如下：，并將該窗體的名稱修改為lyxlgl。當(dāng)權(quán)限為system時(shí)，增加用戶可用 = TrueElse = FalseEnd IfEnd Sub其余菜單的過程代碼基本為打開其它窗體，在此不一一列出。其認(rèn)證代碼如下：Private Sub MDIForm_Load() = LoadPicture( amp。3. 在菜單編輯器中添加系統(tǒng)各個(gè)模塊的信息。保存后創(chuàng)建系統(tǒng)主菜單。MsgBox 帳號口令錯(cuò)誤,請檢查后重新進(jìn)入!, vbOKOnly + vbExclamation, 警告Elseglymc = rs(用戶名)quanxian = rs(權(quán)限)Unload MeEnd IfEnd Sub返回按鈕的過程代碼如下：Private Sub Command2_Click()Unload Me 39。 39。 amp。 39。 amp。, ) = Replace(, Chr(34), ) = Replace(, 39。用于系統(tǒng)登錄和退出啟動(dòng)界面之用。用于說明兩個(gè)文本框的作用。在具體制作中將密碼框的passwordchar的屬性改為*，作用是為了保證輸入密碼時(shí)不被他人看見。其制作過程如下：；。用于退出系統(tǒng)End Sub（2） 創(chuàng)建系統(tǒng)登錄界面 系統(tǒng)登錄界面是一個(gè)管理系統(tǒng)進(jìn)行權(quán)限認(rèn)證中不可缺少的一環(huán)，它主要用來驗(yàn)證系統(tǒng)使用的合法身份。其過程代碼如下：Private Sub Label1_Click() End Sub，設(shè)其Caption屬性為“旅行社綜合管理系統(tǒng)”，用于說明該系統(tǒng)的名稱。據(jù)源之后，在屬性窗其制作過程如下：。 datanameEnd Sub接下來，我將創(chuàng)建系統(tǒng)啟動(dòng)封面，在工程管理器中打開數(shù)據(jù)工程已經(jīng)創(chuàng)建的第一個(gè)窗體first_f。Persist Security Info=False。 \ 39。4. 我還添加了一個(gè)模塊，其目的是為了在系統(tǒng)調(diào)用的時(shí)候自動(dòng)調(diào)入數(shù)據(jù)源以及調(diào)入一些公有的變量。Persist Security Info=False。3. 單擊“確定”按鈕之后即成功引入數(shù)據(jù)源。該數(shù)據(jù)庫即作為整個(gè)數(shù)據(jù)工程的數(shù)據(jù)源的數(shù)據(jù)庫。右擊連接條目Connection1,出現(xiàn)一個(gè)彈出式菜單，在彈出式菜單中單擊“屬性”菜單項(xiàng)，即出現(xiàn)數(shù)據(jù)源驅(qū)動(dòng)程序類型，也即數(shù)據(jù)源提供者類型選擇對話框。4. 單擊“打開”按鈕，出現(xiàn)一個(gè)數(shù)據(jù)工程，其中包括一個(gè)數(shù)據(jù)工程窗體，一個(gè)數(shù)據(jù)源環(huán)境和數(shù)據(jù)報(bào)表的設(shè)計(jì)器。2. 在開發(fā)平臺中，創(chuàng)建一個(gè)新的工程，此處我選擇創(chuàng)建數(shù)據(jù)工程。系統(tǒng)流程設(shè)計(jì)（1） 創(chuàng)建系統(tǒng)啟動(dòng)封面 系統(tǒng)啟動(dòng)封面是一個(gè)應(yīng)用系統(tǒng)開始的界面，通常是進(jìn)行系統(tǒng)介紹的，人們一看見封面就可以知道這個(gè)系統(tǒng)是干什么的。密碼更改模塊是對本系統(tǒng)的用戶操作密碼進(jìn)行修改，不斷的修改密碼對于系統(tǒng)的保密工作是十分有成效的。系統(tǒng)權(quán)限維護(hù)功能模塊是一個(gè)完整的管理系統(tǒng)中不可少的一部分，它起到了維護(hù)系統(tǒng)的安全性、保密性以及規(guī)范化等作用。游客管理功能模塊的作用是對游客信息進(jìn)行增加、修改、刪除以及條件查詢等操作；其中，游客管理子模塊的作用是對游客信息進(jìn)行編輯，而游客查詢子模塊的作用是對游客信息進(jìn)行條件查詢。導(dǎo)游管理功能模塊的作用是對導(dǎo)游數(shù)據(jù)進(jìn)行增加、修改、刪除以及條件查詢等操作；其中，導(dǎo)游管理子模塊的作用是對導(dǎo)游信息進(jìn)行編輯，而導(dǎo)游查詢子模塊的作用是對導(dǎo)游具體信息進(jìn)行條件查詢。在本系統(tǒng)中，我將采用visual basic ，以達(dá)到操作數(shù)據(jù)的目的。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。開發(fā)所需的軟件環(huán)境：windows98中文版或更高，visual basic ，microsoft access 2000。將ADODC控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。我們可以設(shè)置ADODC控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。Access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)Access2000 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。用戶可以在系統(tǒng)在使用密碼，也可以在系統(tǒng)中維護(hù)密碼。在本課程中，我創(chuàng)建了一個(gè)游客管理數(shù)據(jù)表，其數(shù)據(jù)庫結(jié)構(gòu)如下表所示。創(chuàng)建組團(tuán)管理數(shù)據(jù)表 組團(tuán)管理同樣是旅行社的一個(gè)重要管理內(nèi)容，在系統(tǒng)設(shè)計(jì)中，我們創(chuàng)建了一個(gè)組團(tuán)管理數(shù)據(jù)表，其數(shù)據(jù)結(jié)構(gòu)如下表所示：組團(tuán)管理數(shù)據(jù)表結(jié)構(gòu)字段名稱字段類型字段大小索引旅游團(tuán)號自動(dòng)編號默認(rèn)有（無重復(fù)）旅游團(tuán)名文本50無線路名稱文本50無發(fā)出日期日期/時(shí)間默認(rèn)無結(jié)束日期日期/時(shí)間默認(rèn)無負(fù)責(zé)導(dǎo)游文本20有（有重復(fù)）人數(shù)數(shù)字10無單價(jià)貸幣默認(rèn)無備注備注默認(rèn)無在該數(shù)據(jù)表結(jié)構(gòu)中，我為負(fù)責(zé)導(dǎo)游創(chuàng)建了一個(gè)有（有重復(fù)）的索引，因?yàn)樵谝粋€(gè)組團(tuán)管理數(shù)據(jù)庫中，有可能在時(shí)間不沖突的情況下，一個(gè)導(dǎo)游在帶完一個(gè)團(tuán)隊(duì)后仍將帶領(lǐng)下一個(gè)團(tuán)隊(duì)；而旅游團(tuán)號則不可以重復(fù)，所以我給旅游團(tuán)號加了一個(gè)有（無重復(fù)）的索引。導(dǎo)游數(shù)據(jù)表的創(chuàng)建： 在旅行社中，導(dǎo)游往往是不可缺少的，導(dǎo)游的管理是旅行社管理的一個(gè)重要方面，因此需要?jiǎng)?chuàng)建一個(gè)導(dǎo)游數(shù)據(jù)表，而且可以在系統(tǒng)中制作導(dǎo)游管理窗體，對導(dǎo)游進(jìn)行各種管理。數(shù)據(jù)表結(jié)構(gòu)就是對一個(gè)數(shù)據(jù)中的字段名稱、類型、大小等的定義，在數(shù)據(jù)表結(jié)構(gòu)創(chuàng)建對話框中，不僅可以定制表的結(jié)構(gòu)，還可以對數(shù)據(jù)表進(jìn)行各種操作，如顯示每一個(gè)字段的結(jié)構(gòu)、增加或刪除字段、建立索引、對每一字段進(jìn)行有效性輸入規(guī)劃的定制等。數(shù)據(jù)庫只是一個(gè)容器，它是數(shù)據(jù)表的集合。在該數(shù)據(jù)庫中，創(chuàng)建五張數(shù)據(jù)表，即旅游線路數(shù)據(jù)表、導(dǎo)游管理數(shù)據(jù)表、游客管理數(shù)據(jù)表、密碼表以及組團(tuán)管理數(shù)據(jù)表。（具體見圖４．１）其中，在幾個(gè)查詢模塊中，我要使用到SQL查詢語言對表格進(jìn)行條件查詢操作，在打印報(bào)表中，我使用了vb自帶的數(shù)據(jù)報(bào)表功能制作了四份報(bào)表供使用者選擇打印，在系統(tǒng)設(shè)置模塊中，我采用了利用權(quán)限等級進(jìn)行管理的方法，如你的登錄權(quán)限是user，你就不可以操作添加用戶模塊了。5．在具體使用中逐步的發(fā)現(xiàn)問題，解決問題。3．采用Visual Basic中的報(bào)表編輯器來完成報(bào)表的制作。第三章：設(shè)計(jì)中需要解決的幾個(gè)關(guān)鍵問題（一）研究中需要解決的幾個(gè)關(guān)鍵問題1. 數(shù)據(jù)庫和Visual Basic的連接；2. 數(shù)據(jù)查詢模塊的制作；3. 報(bào)表功能模塊的制作；4. 在實(shí)際應(yīng)用中數(shù)據(jù)查詢的準(zhǔn)確性，查詢速度；5. 旅行社綜合管理系統(tǒng)所涉及到的數(shù)據(jù)表是否合理；（二）具體實(shí)現(xiàn)中采用的關(guān)鍵技術(shù)1．在