【正文】 判斷的條件不同，在此處代碼不予以列出。 在系統(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ù)。 系統(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 退出系統(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第6章 系統(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é)束語(yǔ) 在三個(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)[1] Visual Basic 使用指南作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：電子工業(yè)出版社[2] 中文版Microsoft Office 97 自學(xué)通作者：Ned Snell出版社：機(jī)械工業(yè)出版社[3] Visual Basic 中文版控件大全作者：Microsoft出版社；電子工業(yè)出版社[4] 中文Access 2000 24學(xué)時(shí)教程 作者：Craig Eddy ，Timothy Buchanan出版社：機(jī)械工業(yè)出版社[5]Visual Basic程序設(shè)計(jì)作者：陳明出版社：中央廣播電視大學(xué)出版社[6] Visual Basic課程設(shè)計(jì)與系統(tǒng)開發(fā)案例作者：伍俊良出版社：清華大學(xué)出版社附錄所用程序清單：系統(tǒng)界面程序清單：Private Sub Label1_Click()End SubPrivate Sub Label2_Click()EndEnd Sub登錄窗體的程序清單Private Sub Command1_Click() = Replace(, 39。, ) = Replace(, Chr(34), ) = Replace(, 39。, ) = Replace(, Chr(34), )sql = select * from 密碼表 where 用戶名=39。 amp。 amp。 39。 and 密碼= 39。 amp。 amp。 39。Set rs = (sql)If Or ThenMsgBox 帳號(hào)口令錯(cuò)誤,請(qǐng)檢查后重新進(jìn)入!, vbOKOnly + vbExclamation, 警告Elseglymc = rs(用戶名)quanxian = rs(權(quán)限)Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() connectionstringEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set rs = NothingEnd Sub系統(tǒng)主程序窗體的程序清單Private Sub adduser_menu_Click() 1End SubPrivate Sub dycx_menu_Click() 1End SubPrivate Sub dygl_menu_Click() 1End SubPrivate Sub dygl_report_Click()End SubPrivate Sub exit_menu_Click() 1End SubPrivate Sub lyxl_report_Click()End SubPrivate Sub lyxlcx_menu_Click() 1End SubPrivate Sub lyxlgl_menu_Click() 1End SubPrivate Sub MDIForm_Load() = LoadPicture( amp。 \)If quanxian = system Then 39。當(dāng)權(quán)限為system時(shí)，增加用戶可用 = TrueElse = FalseEnd IfEnd SubPrivate Sub sjbf_menu_Click() 1End SubPrivate Sub xgmm_menu_Click() 1End SubPrivate Sub y