【正文】 。本窗體中的詳細(xì)信息按鈕單擊事件所調(diào)用的窗體lyztedit2布局和前一個(gè)管理窗口中詳細(xì)信息按鈕所調(diào)用的窗體lyztedit布局大致相同，但是少了二個(gè)組合框，少了一個(gè)確定按鈕，因?yàn)樵诓樵兡K中不提供數(shù)據(jù)的修改。其操作過程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。5． 在頁(yè)標(biāo)頭帶區(qū)放入五個(gè)標(biāo)簽控件，分別用于顯示四個(gè)字段名：編號(hào)、名稱、主要景點(diǎn)、天數(shù)、報(bào)價(jià)。將text2和text3的passwordchar的屬性設(shè)置為*，以防輸入密碼時(shí)被他人看到。其各個(gè)控件的過程代碼如下：確定按鈕的過程代碼：Private Sub Command1_Click() Dim sql As String If Trim() Trim() Then MsgBox 密碼不一致！, vbOKOnly + vbExclamation, = = Else sql = select * from 密碼表 where 用戶名=39。 \ ‘備份后數(shù)據(jù)庫(kù)If Len(Dir$(dst)) 0 Then ‘當(dāng)有前一次備份的數(shù)據(jù)庫(kù)存在時(shí)刪除它 Kill dstEnd IfFileCopy src, dstMsgBox 數(shù)據(jù)庫(kù)備份成功！, , 提示 connectionstringEnd Sub取消按鈕的過程代碼：Private Sub Command2_Click()Unload MeEnd Sub 退出系統(tǒng)模塊的制作1． 打開工程，新建一個(gè)窗體，命名為exit_f。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份。她無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她耐心的輔導(dǎo)。 and 密碼= 39。當(dāng)權(quán)限為system時(shí)，增加用戶可用 = TrueElse = FalseEnd IfEnd SubPrivate Sub sjbf_menu_Click() 1End SubPrivate Sub xgmm_menu_Click() 1End SubPrivate Sub ykcx。 amp。致謝在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師孫紅梅老師身上學(xué)到了很多東西。自我總體評(píng)價(jià)：旅行社綜合管理系統(tǒng)基本開發(fā)完畢。兩個(gè)按鈕的過程代碼如下：確認(rèn)按鈕的過程代碼：Private Sub Command1_Click()Dim src As StringDim dst As Stringsrc = amp。更新數(shù)據(jù)庫(kù) Set rs = Nothing MsgBox 添加用戶成功, vbOKOnly + vbExclamation, = = = = End IfEnd Sub取消按鈕過程代碼：Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() system userEnd Sub下面，我們繼續(xù)制作一個(gè)修改密碼窗體，其制作過程如下：1． 打開工程，添加一個(gè)窗體，命名為xgmima。下面我們先介紹添加用戶窗體的制作過程：1． 打開工程，添加一個(gè)窗體，命名為ADDUSER。3． 設(shè)置報(bào)表的啟動(dòng)位置STARTPOSITION為：屏幕中心。該窗體同樣用到了和上一個(gè)查詢窗體相同的用復(fù)選框進(jìn)行條件查詢的功能。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption游客管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其CAPTION為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。其操作過程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。 End IfEnd IfIf Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then MsgBox 請(qǐng)?jiān)O(shè)置查詢方式, vbOKOnly + vbExclamation, 警告 Exit SubEnd Ifsql = select * from 導(dǎo)游數(shù)據(jù)表 where amp。 Text1(2).Text amp。 End IfEnd IfIf Check1(2).Value Then If Text1(2).Text = Then MsgBox 請(qǐng)輸入級(jí)別!, vbCritical, 警告 Exit Sub End If dd(2) = True If dd(0) Or dd(1) Then str = str amp。 End IfIf Check1(1).Value Then If Text1(1).Text = Then MsgBox 請(qǐng)輸入性別!, vbCritical, 警告 Exit Sub End If dd(1) = True If dd(0) Then str = str amp。其代碼與前幾個(gè)窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。其操作過程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。 str ElseIf Option1(2).Value Then If = Then MsgBox 請(qǐng)輸入行程天數(shù)!, vbCritical, 警告 Exit Sub End If str = 行程天數(shù)= amp。 詳細(xì)信息 39。 = adUseClient sql, conn, adOpenKeyset, adLockOptimistic If = False Then 39。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。4．在系統(tǒng)使用中，若你登錄時(shí)的權(quán)限選擇為USER，你就不可以使用添加用戶菜單，只有當(dāng)你的選擇權(quán)限為SYSTEM時(shí)，你才可使用。 amp。登錄按鈕的過程代碼如下：進(jìn)入按鈕的過程代碼如下：Private Sub Command1_Click() = Replace(, 39。保證系統(tǒng)的安全運(yùn)行。Data Source= amp?？梢园l(fā)現(xiàn)成功連接數(shù)口的連接字符屬性中，出現(xiàn)它的字符串 Provider=。3. 在工程類型選擇面板中選擇“數(shù)據(jù)工程”。報(bào)表功能模塊的作用是利用Visual Basic中的報(bào)表編輯器編輯各數(shù)據(jù)表的報(bào)表，這對(duì)一個(gè)旅行社分析旅游線路的開發(fā)數(shù)量、旅游組團(tuán)的各理性、導(dǎo)游信息的完善、游客信息的完善、游客所喜歡的旅行線路等是十分必要的。 開發(fā)所使用的工具：微軟公司的Visual Basic ，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具?！?ADODC控件在數(shù)據(jù)庫(kù)中的信息與將信息顯示給用戶看的Visual Basic程序之間架起了一座橋梁。Access 的優(yōu)點(diǎn)在于它能使用數(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í)別是為了說明該導(dǎo)游所能帶的團(tuán)隊(duì)（有國(guó)內(nèi)和國(guó)際之分）。 在創(chuàng)建該系統(tǒng)之前，我首先創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)（）。5. 本管理系統(tǒng)的界面要盡可能的作到美觀、大方，突出旅游這個(gè)重點(diǎn)。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：；；；，等等；。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)旅行社的各類信息進(jìn)行管理,:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。 旅行社綜合管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。針對(duì)大眾的這種需求，許許多多的旅行社就由此孕育而生，各種各樣豐富多彩的旅游景點(diǎn)則需要由一個(gè)合適的管理系統(tǒng)來規(guī)范，所以旅行社綜合管理系統(tǒng)的建立是十分必要的。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。4. 本管理系統(tǒng)的查詢模塊要盡量做到方便、高效、準(zhǔn)確率高。（具體見圖４．１）其中，在幾個(gè)查詢模塊中，我要使用到SQL查詢語(yǔ)言對(duì)表格進(jìn)行條件查詢操作，在打印報(bào)表中，我使用了vb自帶的數(shù)據(jù)報(bào)表功能制作了四份報(bào)表供使用者選擇打印，在系統(tǒng)設(shè)置模塊中，我采用了利用權(quán)限等級(jí)進(jìn)行管理的方法，如你的登錄權(quán)限是user，你就不可以操作添加用戶模塊了。： 在旅行社中，導(dǎo)游往往是不可缺少的，導(dǎo)游的管理是旅行社管理的一個(gè)重要方面，因此需要?jiǎng)?chuàng)建一個(gè)導(dǎo)游數(shù)據(jù)表，而且可以在系統(tǒng)中制作導(dǎo)游管理窗體，對(duì)導(dǎo)游進(jìn)行各種管理。 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)Access2000 就是關(guān)系數(shù)據(jù)庫(kù)開發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫(kù)引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。：windows98中文版或更高，visual basic ，microsoft access 2000。游客管理功能模塊的作用是對(duì)游客信息進(jìn)行增加、修改、刪除以及條件查詢等操作；其中，游客管理子模塊的作用是對(duì)游客信息進(jìn)行編輯，而游客查詢子模塊的作用是對(duì)游客信息進(jìn)行條件查詢。2. 在開發(fā)平臺(tái)中，創(chuàng)建一個(gè)新的工程，此處我選擇創(chuàng)建數(shù)據(jù)工程。3. 單擊“確定”按鈕之后即成功引入數(shù)據(jù)源。Persist Security Info=False。用于退出系統(tǒng)End Sub 創(chuàng)建系統(tǒng)登錄界面 系統(tǒng)登錄界面是一個(gè)管理系統(tǒng)進(jìn)行權(quán)限認(rèn)證中不可缺少的一環(huán)，它主要用來驗(yàn)證系統(tǒng)使用的合法身份。用于系統(tǒng)登錄和退出啟動(dòng)界面之用。 amp。3. 在菜單編輯器中添加系統(tǒng)各個(gè)模塊的信息。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游線路管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其CAPTION為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。 + Text1(0).Text + 39。判斷為修改信息 = 修改 + Else = amp。 sql = select * from 旅游線路表 where amp。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。設(shè)置該窗體的基本屬性，如下表所示：窗體dycx的主要屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載。 Trim(Text1(0).Text) + 39。 Trim(Text1(1).Text) + 39。 amp。 Text1(3).Text amp。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。設(shè)置該窗體的基本屬性，如下表所示：窗體lyztcx的主要屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼與上幾個(gè)數(shù)據(jù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。，并將該窗體的名稱修改為ykcx。2． 設(shè)置報(bào)表的數(shù)據(jù)源屬性datasource為：DATAEnvironment1，即以最初引入的數(shù)據(jù)環(huán)境為數(shù)據(jù)源。 系統(tǒng)設(shè)置模塊的制作系統(tǒng)設(shè)置模塊共