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