【正文】 她無論在理論上還是在實(shí)踐中，都給與我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她耐心的輔導(dǎo)。在三個(gè)多月的時(shí)間里，我通過查閱資料又豐富了我的知識(shí)面，使我學(xué)到了很多課堂里沒有學(xué)到的新技術(shù)，并對(duì)課堂上所學(xué)的的東西又加以筑固。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份。4．在系統(tǒng)設(shè)置模塊中對(duì)使用者信息進(jìn)行添加、改密、數(shù)據(jù)備份等操作。 \ ‘備份后數(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。 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。其各個(gè)控件的過程代碼如下：確定按鈕的過程代碼：Private Sub Command1_Click() Dim sql As String If Trim() Trim() Then MsgBox 密碼不一致！, vbOKOnly + vbExclamation, = = Else sql = select * from 密碼表 where 用戶名=39。當(dāng)用戶發(fā)生重復(fù)時(shí) MsgBox 已經(jīng)存在這個(gè)用戶的記錄！, vbOKOnly + vbExclamation, 警告！ = = = = Exit Sub Else 39。將text2和text3的passwordchar的屬性設(shè)置為*，以防輸入密碼時(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ù)。5． 在頁(yè)標(biāo)頭帶區(qū)放入五個(gè)標(biāo)簽控件，分別用于顯示四個(gè)字段名：編號(hào)、名稱、主要景點(diǎn)、天數(shù)、報(bào)價(jià)。創(chuàng)建過程如下：1． 在創(chuàng)建的數(shù)據(jù)工程的工程管理器選擇“設(shè)計(jì)”選項(xiàng)，并雙擊datareport1出現(xiàn)報(bào)表設(shè)計(jì)器。3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。此處不予列出。其操作過程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。其代碼與前幾個(gè)窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。本窗體中的詳細(xì)信息按鈕單擊事件所調(diào)用的窗體lyztedit2布局和前一個(gè)管理窗口中詳細(xì)信息按鈕所調(diào)用的窗體lyztedit布局大致相同，但是少了二個(gè)組合框，少了一個(gè)確定按鈕，因?yàn)樵诓樵兡K中不提供數(shù)據(jù)的修改。在該窗體中，用戶可以根據(jù)窗體所提供的“按組團(tuán)名稱、按線路名稱、按發(fā)出日期等等”的復(fù)選框進(jìn)行選擇查詢。而窗體lyzteidt創(chuàng)建步驟如下：1) 添加一個(gè)窗體，命名為lyztedit；2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控件，二個(gè)組合框控件，其中text1(1) text1(4)和兩個(gè)組合框是重合的，八個(gè)標(biāo)簽控件是為了說明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游組團(tuán)管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其CAPTION為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。該窗全主要實(shí)現(xiàn)的功能是對(duì)旅行社進(jìn)行合理的組團(tuán)管理，在該模塊中，用戶可以對(duì)組團(tuán)數(shù)據(jù)進(jìn)行創(chuàng)建、更新、刪除、修改等基本操作。 出生年月= amp。 End If End IfIf Check1(3).Value Then If Text1(3).Text = Then MsgBox 請(qǐng)輸入出生年月!, vbCritical, 警告 Exit Sub End If dd(3) = True If dd(0) Or dd(1) Or dd(2) Then str = str amp。 級(jí)別=39。 amp。 amp。 amp。 amp。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption導(dǎo)游管理表格AllowaddnewFalseAllowdeleteFalseAllowupdataFalseDatasourceAdodc14．在窗體中再放入四個(gè)復(fù)選框控件，分別設(shè)置其CAPTION為按姓名、按年齡、按出生年月、按級(jí)別；再放入四個(gè)文本框控件用于接收查詢數(shù)據(jù)；再放入三個(gè)按鈕，分別設(shè)置其Caption為提交、重置、詳細(xì)信息。導(dǎo)游查詢窗體的創(chuàng)建，使我們可以更快捷的根據(jù)復(fù)選框提供的條件對(duì)導(dǎo)游數(shù)據(jù)進(jìn)行準(zhǔn)確的查找。而窗體dyedit創(chuàng)建步驟如下：1) 添加一個(gè)窗體，命名為dyedit；2) 在窗體中放入五個(gè)標(biāo)簽控件，五個(gè)文本框控件，二個(gè)組合框控件，其中text1(1) text1(2)和兩個(gè)組合框是重合的，五個(gè)標(biāo)簽控件是為了說明五個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption導(dǎo)游管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其CAPTION為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。 strEnd If = sql End Sub重置按鈕過程代碼：Private Sub Command2_Click() = End Sub詳細(xì)信息按鈕過程代碼：Private Sub Command3_Click() 1End Sub單選框過程代碼：Private Sub Option1_Click(Index As Integer)If Index = 1 Then = 旅游線路ElseIf Index = 2 Then = 行程天數(shù)Else = 關(guān)鍵字End IfEnd Sub 其中本窗體中的詳細(xì)信息按鈕單擊事件所調(diào)用的窗體lyxledit2布局和前一個(gè)管理窗口中詳細(xì)信息按鈕所調(diào)用的窗體lyxledit布局大致相同，但是少了一個(gè)組合框，少了一個(gè)確定按鈕，因?yàn)樵诓樵兡K中不提供數(shù)據(jù)的修改。 Trim() + 39。該窗體的主要目的是用于對(duì)旅游線路進(jìn)行條件查詢，設(shè)置該窗體的基本屬性，如下表所示：窗體lyxlcx的主要屬性屬性項(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)加載，其代碼如下：Private Sub Form_Load() = = adCmdUnknownsql = select * from 旅游線路表 = sql = False = False = FalseIf = False Then End IfSet = Adodc1Option1(0).Value = True = End Sub3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。判斷為添加信息 = 添加 + Call init = 0 ElseIf flag = 2 Then 39。修改操作 select * from 旅游線路表 where 名稱=39。添加操作 sql = select * from 旅游線路表 where 名稱=39。而窗體lyxledit創(chuàng)建步驟如下：1) 添加一個(gè)窗體，命名為lyxledit；2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控件，一個(gè)組合框控件，其中text(4)和組合框是重合的，八個(gè)標(biāo)簽控件是為了說明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。設(shè)置該窗體的基本屬性，如下表所示：窗體lyxlgl的主要屬性屬性項(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)加載，其代碼如下：Private Sub Form_Load() = = adCmdUnknownsql = select * from 旅游線路表 = sql = False = False = FalseIf = False Then End IfSet = Adodc1End Sub3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 \)If quanxian = system Then 39。2. 右鍵單窗體，出現(xiàn)彈出式菜單，選擇“菜單編輯器”菜單項(xiàng)，進(jìn)入菜單編輯對(duì)話框。 ‘查詢密碼和用戶是否與表中的相符Set rs = (sql)If Or Then ‘若其中至少有一個(gè)不相符，則不能登錄。 and 密碼= 39。, ) = Replace(, Chr(34), )sql = select * from 密碼表 where 用戶名=39。4．在窗體中放入兩個(gè)按鈕控件，分別設(shè)置其Caption屬性為“進(jìn)入”、“退出”。，設(shè)其Caption屬性為“退出系統(tǒng)”，用于退出系統(tǒng)，其過程代碼如下：Private Sub Label2_Click()end 39。保存工程和該窗體到磁盤路徑之中，接下來設(shè)計(jì)first_f，該窗體作為系統(tǒng)啟動(dòng)的封面。兩句為加載數(shù)據(jù)源connectionstring = Provider=。Data Source=。數(shù)據(jù)源是否連接成功，可以通過測(cè)試連接按鈕進(jìn)行檢驗(yàn)。數(shù)據(jù)工程的關(guān)鍵在于使用數(shù)據(jù)源，為數(shù)據(jù)工程創(chuàng)建數(shù)據(jù)源的方法如下：1. 在工程窗口中單擊設(shè)計(jì)器/數(shù)據(jù)環(huán)境條目，出現(xiàn)一個(gè)數(shù)據(jù)環(huán)境中的連接界面。創(chuàng)建系統(tǒng)啟動(dòng)封面也就意味著創(chuàng)建系統(tǒng)的開始，此處，我采用創(chuàng)建ＶＢ數(shù)據(jù)工程的方法創(chuàng)建本系統(tǒng)，創(chuàng)建系統(tǒng)啟動(dòng)界面的過程如下：1. 啟動(dòng)Visual Basic應(yīng)用程序，進(jìn)入開發(fā)平臺(tái)主界面。其中添加用戶模塊是對(duì)本系統(tǒng)軟件的操作者進(jìn)行增加操作，在登錄時(shí)使用權(quán)限為SYSTEM的才可以增加操作者，而USER權(quán)限不行操作。組團(tuán)管理功能模塊的作用是對(duì)組團(tuán)信息進(jìn)行增加、修改、刪除以及條件查詢等操作；其中，組團(tuán)管理子模塊的作用是對(duì)組團(tuán)信息進(jìn)行編輯，而組團(tuán)查詢子模塊的作用是對(duì)組團(tuán)信息進(jìn)行條件查詢，此操作適用于