【導(dǎo)讀】隨著國(guó)人生活水平的不斷提高，人們的生活方式不再僅限于普通的衣、食、住、行。人們不僅要在物質(zhì)方面得到提高，而且在精神方面也追求有一個(gè)質(zhì)的突變。于是，人們?cè)絹碓蕉嗟倪x擇在周末或假期間外出旅游，換個(gè)環(huán)境來陶冶一下自己的情操，享受旅游給自己帶來的樂趣，擴(kuò)展視野。針對(duì)大眾的這種需求，許許多多的旅行社就由此孕育而生，各種各樣豐富多彩的旅游景點(diǎn)則需要由一個(gè)合適的管理系統(tǒng)來規(guī)范，所以旅行社綜合管理系統(tǒng)的建立是十分必要的。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。本論文主要闡述旅行社綜合管理系統(tǒng)各個(gè)模塊的設(shè)計(jì)思想和實(shí)現(xiàn)的關(guān)鍵技術(shù)。1．在本系統(tǒng)中采用access2000數(shù)據(jù)庫(kù)與VisualBasic連接，通過ADODC控件所編寫的過程代碼來加載數(shù)據(jù)源。3．采用VisualBasic中的報(bào)表編輯器來完成報(bào)表的制作。

　　

【正文】 TrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其CAPTION為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。其操作過程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量FLAG的值不同，它們的單擊事件是通過判斷FLAG的值不同來對(duì)窗體ykedit進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體ykedit創(chuàng)建步驟如下：1) 添加一個(gè)窗體，命名為ykedit；2) 在窗體中放入七個(gè)標(biāo)簽控件，七個(gè)文本框控件，二個(gè)組合框控件，其中text1(2) text1(6)和兩個(gè)組合框是重合的，七個(gè)標(biāo)簽控件是為了說明七個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其過程代碼與前一個(gè)旅游線路管理窗體lyxledit的過程代碼大致相同。此處不予列出。（11）游客查詢窗體的制作，并將該窗體的名稱修改為ykcx。該窗體同樣用到了和上一個(gè)查詢窗體相同的用復(fù)選框進(jìn)行條件查詢的功能。設(shè)置該窗體的基本屬性，如下表所示：窗體ykcx的主要屬性屬性項(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)行編輯，其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption游客管理表格AllowaddnewFalseAllowdeleteFalseAllowupdataFalseDatasourceAdodc14．在窗體中放入四個(gè)復(fù)選框提供可選擇條件的查詢，四個(gè)文本框用于接收查詢的信息；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；其過程代碼（包括對(duì)復(fù)選框的判斷）與上一個(gè)導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。（12）數(shù)據(jù)報(bào)表的制作 在系統(tǒng)的實(shí)際應(yīng)用中，需要對(duì)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中的一些數(shù)據(jù)產(chǎn)生報(bào)表并進(jìn)行打印或輸出，因此制作數(shù)據(jù)報(bào)表往往是數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中的一個(gè)重要內(nèi)容。本案例將在前面創(chuàng)建的數(shù)據(jù)環(huán)境中創(chuàng)建四張數(shù)據(jù)報(bào)表，因?yàn)樗膹垟?shù)據(jù)報(bào)表的創(chuàng)建方式大致相同，只是字段的選擇不同，在此我只介紹旅游線路管理數(shù)據(jù)報(bào)表的作法。創(chuàng)建過程如下：1． 在創(chuàng)建的數(shù)據(jù)工程的工程管理器選擇“設(shè)計(jì)”選項(xiàng)，并雙擊datareport1出現(xiàn)報(bào)表設(shè)計(jì)器。2． 設(shè)置報(bào)表的數(shù)據(jù)源屬性datasource為：DATAEnvironment1，即以最初引入的數(shù)據(jù)環(huán)境為數(shù)據(jù)源。3． 設(shè)置報(bào)表的啟動(dòng)位置STARTPOSITION為：屏幕中心。4． 在報(bào)表頭帶區(qū)放入一個(gè)標(biāo)簽控件，設(shè)置其CAPTION屬性為：旅游線路管理報(bào)表。5． 在頁(yè)標(biāo)頭帶區(qū)放入五個(gè)標(biāo)簽控件，分別用于顯示四個(gè)字段名：編號(hào)、名稱、主要景點(diǎn)、天數(shù)、報(bào)價(jià)。6． 右鍵點(diǎn)擊connection1，選擇添加命令。7． 進(jìn)入命令COMMAND1的屬性窗口選擇表為旅游線路管理表。8． 在細(xì)節(jié)帶區(qū)放入四個(gè)文本框控件，分別設(shè)置它們的屬性，見下表。對(duì)象名稱屬性項(xiàng)名屬性設(shè)置內(nèi)容Text1Dataformat通用Datafield編號(hào)Text2Dataformat通用Datafield名稱Text3Dataformat通用 Datafield主要景點(diǎn)Text4Dataformat通用Datafield行程天數(shù)Text5Dataformat通用Datafield報(bào)價(jià)到此處，旅游線路管理報(bào)表就制作完成，其余的報(bào)表制作方法與之相同，此處不予以重復(fù)。（13）系統(tǒng)設(shè)置模塊的制作系統(tǒng)設(shè)置模塊共分為三個(gè)子模塊，分別是添加用戶、修改密碼、數(shù)據(jù)備份。下面我們先介紹添加用戶窗體的制作過程：1． 打開工程，添加一個(gè)窗體，命名為ADDUSER。2． 在窗體中放入三個(gè)文本框；四個(gè)標(biāo)簽分別命名為用戶名、密碼、確認(rèn)密碼、用戶權(quán)限；一個(gè)組合框用于選擇用戶權(quán)限；兩個(gè)按鈕分別命名為確認(rèn)和取消。將text2和text3的passwordchar的屬性設(shè)置為*，以防輸入密碼時(shí)被他人看到。其各個(gè)控件的過程代碼如下：確定按鈕過程代碼：Private Sub Command1_Click() Dim sql As String If Trim() = Then MsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit Sub ElseIf Trim() Trim() Then MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit Sub ElseIf Trim() system And Trim() user Then MsgBox 請(qǐng)選擇正確的用戶權(quán)限, vbOKOnly + vbExclamation, = Exit Sub End If sql = select * from 密碼表 where 用戶名=39。 + + 39。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then 39。當(dāng)用戶發(fā)生重復(fù)時(shí) MsgBox 已經(jīng)存在這個(gè)用戶的記錄！, vbOKOnly + vbExclamation, 警告！ = = = = Exit Sub Else 39。將記錄添加到數(shù)據(jù)庫(kù)中 (0) = (1) = (2) = 39。更新數(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。2． 在窗體中放入兩個(gè)文本框；兩個(gè)按鈕分別命名為確定和取消；兩個(gè)標(biāo)簽分別命名為輸入新密碼和確認(rèn)新密碼。其各個(gè)控件的過程代碼如下：確定按鈕的過程代碼：Private Sub Command1_Click() Dim sql As String If Trim() Trim() Then MsgBox 密碼不一致！, vbOKOnly + vbExclamation, = = Else sql = select * from 密碼表 where 用戶名=39。 amp。 glymc amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic (1) = Set rs = Nothing MsgBox 密碼修改成功, vbOKOnly + vbExclamation, Unload Me End IfEnd Sub取消按鈕的過程代碼：Private Sub Command2_Click() Unload MeEnd Sub最后，我們?cè)僦谱饕粋€(gè)系統(tǒng)備份窗體，其制作過程如下：1． 打開工程，添加一個(gè)窗體，命名為BACKUP。2． 在窗體放入兩個(gè)按鈕分別命名為備份和取消，放入一個(gè)標(biāo)簽命名為本系統(tǒng)數(shù)據(jù)備份。兩個(gè)按鈕的過程代碼如下：確認(rèn)按鈕的過程代碼：Private Sub Command1_Click()Dim src As StringDim dst As Stringsrc = amp。 \ ‘源數(shù)據(jù)庫(kù)dst = amp。 \ ‘備份后數(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（14）退出系統(tǒng)模塊的制作1． 打開工程，新建一個(gè)窗體，命名為exit_f。2． 在窗體中放入兩個(gè)按鈕分別命名為確定和取消，再放入一個(gè)標(biāo)簽，設(shè)其CAPTION屬性為你確認(rèn)要退出本系統(tǒng)嗎？?jī)蓚€(gè)按鈕的過程代碼如下：確認(rèn)按鈕的過程代碼：Private Sub Command1_Click()EndEnd Sub取消按鈕的過程代碼：Private Sub Command2_Click()Unload MeEnd Sub第六章 系統(tǒng)運(yùn)行效果及改進(jìn)意見實(shí)例測(cè)試：1．進(jìn)行在本系統(tǒng)中所涉及的所有表格的信息錄入。2．在系統(tǒng)各個(gè)模塊中調(diào)用數(shù)據(jù)庫(kù)進(jìn)行數(shù)據(jù)的操作。3．在各個(gè)查詢模塊中對(duì)數(shù)據(jù)庫(kù)進(jìn)行各種各樣的查詢操作。4．在系統(tǒng)設(shè)置模塊中對(duì)使用者信息進(jìn)行添加、改密、數(shù)據(jù)備份等操作。測(cè)試結(jié)果：基本可以滿足操作需要，在系統(tǒng)運(yùn)行中無出錯(cuò)提示，查詢的準(zhǔn)確率比較高，使用者的信息操作也比較順利，數(shù)據(jù)備份模塊也運(yùn)行順利，并產(chǎn)生了備份文件。自我總體評(píng)價(jià)：旅行社綜合管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成旅游線路、旅游組團(tuán)、導(dǎo)游信息、游客信息的管理和查詢以及各類相關(guān)報(bào)表的打印。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，用戶界面不夠美觀，查詢無法做到“模糊查詢”，系統(tǒng)數(shù)據(jù)庫(kù)備份較為簡(jiǎn)單，缺乏大量的圖片信息來介紹旅游線路等。改進(jìn)意見： 在系統(tǒng)的實(shí)際應(yīng)用中，不斷的將發(fā)現(xiàn)的問題予以解決，這需要大量的搜索相關(guān)信息、圖片信息，還應(yīng)進(jìn)一步完善查詢模塊的制作，使之可以做到“模糊查詢”等等。第七章 結(jié)束語 在三個(gè)多月的畢業(yè)論文制作和程序編寫中，我感受到我在課堂所學(xué)的知識(shí)可以和生活的實(shí)際相結(jié)合并加以應(yīng)用，這對(duì)于我三年來的學(xué)習(xí)是一個(gè)極好的肯定。在三個(gè)多月的時(shí)間里，我通過查閱資料又豐富了我的知識(shí)面，使我學(xué)到了很多課堂里沒有學(xué)到的新技術(shù)，并對(duì)課堂上所學(xué)的的東西又加以筑固。然而這也說明了僅僅依靠課堂上所學(xué)的知識(shí)是遠(yuǎn)遠(yuǎn)不夠的，我必須在今后的工作學(xué)中不斷的涉取新知識(shí)、新技術(shù)，這樣才能做好一個(gè)合格的畢業(yè)生。致謝在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師孫紅梅老師身上學(xué)到了很多東西。孫老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。她無論在理論上還是在實(shí)踐中，都給與我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她耐心的輔導(dǎo)。另外，我還要感謝三明電大的所有領(lǐng)導(dǎo)和老師們，是你們?cè)谖胰甑膶W(xué)習(xí)中給予了我很大的幫助，并給我提供了很好的學(xué)習(xí)環(huán)境。參考文獻(xiàn)Visual Basic 使用指南作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：電子工業(yè)出版社 中文版Microsoft Office 97 自學(xué)通作者：Ned Snell出版社：機(jī)械工業(yè)出版社 Visual Basic 中文版控件大全作者：Microsoft出版社；電子工業(yè)出版社 中文Access 2000 24學(xué)時(shí)教程 作者：Craig Eddy ，Timothy Buchanan出版社：機(jī)械工業(yè)出版社Visual Basic程序設(shè)計(jì)作者：陳明出版社：中央廣播電視大學(xué)出版社 Visual Basic課程設(shè)計(jì)與系統(tǒng)開發(fā)案例作者：伍俊良出版社：清華大學(xué)出版社43