【正文】 當權(quán)限為system時，增加用戶可用 = TrueElse = FalseEnd IfEnd SubPrivate Sub sjbf_menu_Click() 1End SubPrivate Sub xgmm_menu_Click() 1End SubPrivate Sub ykcx。Set rs = (sql)If Or ThenMsgBox 帳號口令錯誤,請檢查后重新進入!, 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。 amp。 and 密碼= 39。 amp。, ) = Replace(, Chr(34), )sql = select * from 密碼表 where 用戶名=39。參考文獻[1] Visual Basic 使用指南作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：電子工業(yè)出版社[2] 中文版Microsoft Office 97 自學(xué)通作者：Ned Snell出版社：機械工業(yè)出版社[3] Visual Basic 中文版控件大全作者：Microsoft出版社；電子工業(yè)出版社[4] 中文Access 2000 24學(xué)時教程 作者：Craig Eddy ，Timothy Buchanan出版社：機械工業(yè)出版社[5]Visual Basic程序設(shè)計作者：陳明出版社：中央廣播電視大學(xué)出版社[6] Visual Basic課程設(shè)計與系統(tǒng)開發(fā)案例作者：伍俊良出版社：清華大學(xué)出版社附錄所用程序清單：系統(tǒng)界面程序清單：Private Sub Label1_Click()End SubPrivate Sub Label2_Click()EndEnd Sub登錄窗體的程序清單Private Sub Command1_Click() = Replace(, 39。她無論在理論上還是在實踐中，都給與我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，使我得到不少的提高這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她耐心的輔導(dǎo)。致謝在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師孫紅梅老師身上學(xué)到了很多東西。在三個多月的時間里，我通過查閱資料又豐富了我的知識面，使我學(xué)到了很多課堂里沒有學(xué)到的新技術(shù)，并對課堂上所學(xué)的的東西又加以筑固。改進意見： 在系統(tǒng)的實際應(yīng)用中，不斷的將發(fā)現(xiàn)的問題予以解決，這需要大量的搜索相關(guān)信息、圖片信息，還應(yīng)進一步完善查詢模塊的制作，使之可以做到“模糊查詢”等等。并提供部分系統(tǒng)維護功能,使用戶方便進行數(shù)據(jù)備份。自我總體評價：旅行社綜合管理系統(tǒng)基本開發(fā)完畢。4．在系統(tǒng)設(shè)置模塊中對使用者信息進行添加、改密、數(shù)據(jù)備份等操作。2．在系統(tǒng)各個模塊中調(diào)用數(shù)據(jù)庫進行數(shù)據(jù)的操作。 \ ‘備份后數(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 退出系統(tǒng)模塊的制作1． 打開工程，新建一個窗體，命名為exit_f。兩個按鈕的過程代碼如下：確認按鈕的過程代碼：Private Sub Command1_Click()Dim src As StringDim dst As Stringsrc = amp。 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。 glymc amp。其各個控件的過程代碼如下：確定按鈕的過程代碼：Private Sub Command1_Click() Dim sql As String If Trim() Trim() Then MsgBox 密碼不一致！, vbOKOnly + vbExclamation, = = Else sql = select * from 密碼表 where 用戶名=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。當用戶發(fā)生重復(fù)時 MsgBox 已經(jīng)存在這個用戶的記錄！, vbOKOnly + vbExclamation, 警告！ = = = = Exit Sub Else 39。 + + 39。將text2和text3的passwordchar的屬性設(shè)置為*，以防輸入密碼時被他人看到。下面我們先介紹添加用戶窗體的制作過程：1． 打開工程，添加一個窗體，命名為ADDUSER。對象名稱屬性項名屬性設(shè)置內(nèi)容Text1Dataformat通用Datafield編號Text2Dataformat通用Datafield名稱Text3Dataformat通用 Datafield主要景點Text4Dataformat通用Datafield行程天數(shù)Text5Dataformat通用Datafield報價到此處，旅游線路管理報表就制作完成，其余的報表制作方法與之相同，此處不予以重復(fù)。7． 進入命令COMMAND1的屬性窗口選擇表為旅游線路管理表。5． 在頁標頭帶區(qū)放入五個標簽控件，分別用于顯示四個字段名：編號、名稱、主要景點、天數(shù)、報價。3． 設(shè)置報表的啟動位置STARTPOSITION為：屏幕中心。創(chuàng)建過程如下：1． 在創(chuàng)建的數(shù)據(jù)工程的工程管理器選擇“設(shè)計”選項，并雙擊datareport1出現(xiàn)報表設(shè)計器。 在系統(tǒng)的實際應(yīng)用中，需要對數(shù)據(jù)庫應(yīng)用系統(tǒng)中的一些數(shù)據(jù)產(chǎn)生報表并進行打印或輸出，因此制作數(shù)據(jù)報表往往是數(shù)據(jù)庫應(yīng)用系統(tǒng)中的一個重要內(nèi)容。3．在窗體中放入一個表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。該窗體同樣用到了和上一個查詢窗體相同的用復(fù)選框進行條件查詢的功能。此處不予列出。而窗體ykedit創(chuàng)建步驟如下：1) 添加一個窗體，命名為ykedit；2) 在窗體中放入七個標簽控件，七個文本框控件，二個組合框控件，其中text1(2) text1(6)和兩個組合框是重合的，七個標簽控件是為了說明七個文本框控的作用；此外，再放入二個按鈕控件。其操作過程代碼與上一個旅游線路管理窗體的制作大致相同，此處不予以列出。表格控件DATAGIRD1的基本屬性屬性項名屬性設(shè)置內(nèi)容NameDatagrid1Caption游客管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個按鈕控件，分別設(shè)置其CAPTION為，詳細信息、增加、刪除、修改、首記錄、前一個、下一個、尾記錄。其代碼與前幾個窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。在游客管理模塊中，對戶可根據(jù)窗體所提供的數(shù)據(jù)操作功能對旅游者的信息進行各式各樣的操作。本窗體中的詳細信息按鈕單擊事件所調(diào)用的窗體lyztedit2布局和前一個管理窗口中詳細信息按鈕所調(diào)用的窗體lyztedit布局大致相同，但是少了二個組合框，少了一個確定按鈕，因為在查詢模塊中不提供數(shù)據(jù)的修改。3．在窗體中放入一個表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。在該窗體中，用戶可以根據(jù)窗體所提供的“按組團名稱、按線路名稱、按發(fā)出日期等等”的復(fù)選框進行選擇查詢。此處不予列出。而窗體lyzteidt創(chuàng)建步驟如下：1) 添加一個窗體，命名為lyztedit；2) 在窗體中放入八個標簽控件，八個文本框控件，二個組合框控件，其中text1(1) text1(4)和兩個組合框是重合的，八個標簽控件是為了說明八個文本框控的作用；此外，再放入二個按鈕控件。其操作過程代碼與上一個旅游線路管理窗體的制作大致相同，此處不予以列出。表格控件DATAGIRD1的基本屬性屬性項名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游組團管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個按鈕控件，分別設(shè)置其CAPTION為，詳細信息、增加、刪除、修改、首記錄、前一個、下一個、尾記錄。其代碼與前幾個窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。該窗全主要實現(xiàn)的功能是對旅行社進行合理的組團管理，在該模塊中，用戶可以對組團數(shù)據(jù)進行創(chuàng)建、更新、刪除、修改等基本操作。 End IfEnd IfIf Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then MsgBox 請設(shè)置查詢方式, vbOKOnly + vbExclamation, 警告 Exit SubEnd Ifsql = select * from 導(dǎo)游數(shù)據(jù)表 where amp。 出生年月= amp。 Text1(3).Text amp。 End If End IfIf Check1(3).Value Then If Text1(3).Text = Then MsgBox 請輸入出生年月!, vbCritical, 警告 Exit Sub End If dd(3) = True If dd(0) Or dd(1) Or dd(2) Then str = str amp。 Text1(2).Text amp。 級別=39。 39。 amp。 End IfEnd IfIf Check1(2).Value Then If Text1(2).Text = Then MsgBox 請輸入級別!, vbCritical, 警告 Exit Sub End If dd(2) = True