【正文】 另外，我還要感謝三明電大的所有領(lǐng)導(dǎo)和老師們，是你們?cè)谖胰甑膶W(xué)習(xí)中給予了我很大的幫助，并給我提供了很好的學(xué)習(xí)環(huán)境。孫老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。然而這也說明了僅僅依靠課堂上所學(xué)的知識(shí)是遠(yuǎn)遠(yuǎn)不夠的，我必須在今后的工作學(xué)中不斷的涉取新知識(shí)、新技術(shù)，這樣才能做好一個(gè)合格的畢業(yè)生。第七章 結(jié)束語 在三個(gè)多月的畢業(yè)論文制作和程序編寫中，我感受到我在課堂所學(xué)的知識(shí)可以和生活的實(shí)際相結(jié)合并加以應(yīng)用，這對(duì)于我三年來的學(xué)習(xí)是一個(gè)極好的肯定。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，用戶界面不夠美觀，查詢無法做到“模糊查詢”，系統(tǒng)數(shù)據(jù)庫備份較為簡單，缺乏大量的圖片信息來介紹旅游線路等。其功能基本符合用戶需求，能夠完成旅游線路、旅游組團(tuán)、導(dǎo)游信息、游客信息的管理和查詢以及各類相關(guān)報(bào)表的打印。測(cè)試結(jié)果：基本可以滿足操作需要，在系統(tǒng)運(yùn)行中無出錯(cuò)提示，查詢的準(zhǔn)確率比較高，使用者的信息操作也比較順利，數(shù)據(jù)備份模塊也運(yùn)行順利，并產(chǎn)生了備份文件。3．在各個(gè)查詢模塊中對(duì)數(shù)據(jù)庫進(jìn)行各種各樣的查詢操作。2． 在窗體中放入兩個(gè)按鈕分別命名為確定和取消，再放入一個(gè)標(biāo)簽，設(shè)其CAPTION屬性為你確認(rèn)要退出本系統(tǒng)嗎？兩個(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)中所涉及的所有表格的信息錄入。 \ ‘源數(shù)據(jù)庫dst = amp。2． 在窗體放入兩個(gè)按鈕分別命名為備份和取消，放入一個(gè)標(biāo)簽命名為本系統(tǒng)數(shù)據(jù)備份。 39。 amp。2． 在窗體中放入兩個(gè)文本框；兩個(gè)按鈕分別命名為確定和取消；兩個(gè)標(biāo)簽分別命名為輸入新密碼和確認(rèn)新密碼。將記錄添加到數(shù)據(jù)庫中 (0) = (1) = (2) = 39。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then 39。其各個(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。2． 在窗體中放入三個(gè)文本框；四個(gè)標(biāo)簽分別命名為用戶名、密碼、確認(rèn)密碼、用戶權(quán)限；一個(gè)組合框用于選擇用戶權(quán)限；兩個(gè)按鈕分別命名為確認(rèn)和取消。（13）系統(tǒng)設(shè)置模塊的制作系統(tǒng)設(shè)置模塊共分為三個(gè)子模塊，分別是添加用戶、修改密碼、數(shù)據(jù)備份。8． 在細(xì)節(jié)帶區(qū)放入四個(gè)文本框控件，分別設(shè)置它們的屬性，見下表。6． 右鍵點(diǎn)擊connection1，選擇添加命令。4． 在報(bào)表頭帶區(qū)放入一個(gè)標(biāo)簽控件，設(shè)置其CAPTION屬性為：旅游線路管理報(bào)表。2． 設(shè)置報(bào)表的數(shù)據(jù)源屬性datasource為：DATAEnvironment1，即以最初引入的數(shù)據(jù)環(huán)境為數(shù)據(jù)源。本案例將在前面創(chuàng)建的數(shù)據(jù)環(huán)境中創(chuàng)建四張數(shù)據(jù)報(bào)表，因?yàn)樗膹垟?shù)據(jù)報(bào)表的創(chuàng)建方式大致相同，只是字段的選擇不同，在此我只介紹旅游線路管理數(shù)據(jù)報(bào)表的作法。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption游客管理表格AllowaddnewFalseAllowdeleteFalseAllowupdataFalseDatasourceAdodc14．在窗體中放入四個(gè)復(fù)選框提供可選擇條件的查詢，四個(gè)文本框用于接收查詢的信息；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；其過程代碼（包括對(duì)復(fù)選框的判斷）與上一個(gè)導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。設(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ù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。（11）游客查詢窗體的制作，并將該窗體的名稱修改為ykcx。其過程代碼與前一個(gè)旅游線路管理窗體lyxledit的過程代碼大致相同。5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量FLAG的值不同，它們的單擊事件是通過判斷FLAG的值不同來對(duì)窗體ykedit進(jìn)行查看詳細(xì)、修改記錄、增加記錄。其作用是為了對(duì)數(shù)據(jù)庫進(jìn)行操作。3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。設(shè)置該窗體的基本屬性，如下表所示：窗體ykgl的主要屬性屬性項(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)加載。（10）創(chuàng)建游客管理窗體，并將該窗體的名稱修改為ykgl。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游組團(tuán)管理表格AllowaddnewFalseAllowdeleteFalseAllowupdataFalseDatasourceAdodc14．在窗體中放入五個(gè)復(fù)選框提供可選擇條件的查詢，五個(gè)文本框用于接收查詢的信息；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；其過程代碼（包括對(duì)復(fù)選框的判斷）與上一個(gè)導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。設(shè)置該窗體的基本屬性，如下表所示：窗體lyztcx的主要屬性屬性項(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ù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。（9）創(chuàng)建旅游組團(tuán)查詢窗體，并將該窗體的名稱修改為lyztcx。其過程代碼與前一個(gè)旅游線路管理窗體lyxledit的過程代碼大致相同。5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量FLAG的值不同，它們的單擊事件是通過判斷FLAG的值不同來對(duì)窗體lyztedit進(jìn)行查看詳細(xì)、修改記錄、增加記錄。其作用是為了對(duì)數(shù)據(jù)庫進(jìn)行操作。3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。設(shè)置該窗體的基本屬性，如下表所示：窗體lyztgl的主要屬性屬性項(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)加載。 str = sqlEnd Sub（8）創(chuàng)建旅游組團(tuán)管理窗體，并將該窗體的名稱修改為lyztgl。 Text1(3).Text amp。 Else str = str amp。 and 出生年月= amp。 39。 amp。 Else str = str amp。 Text1(2).Text amp。 and 級(jí)別=39。 Trim(Text1(1).Text) + 39。 性別=39。 Trim(Text1(1).Text) + 39。 and 別性=39。 Trim(Text1(0).Text) + 39。 姓名=39。其中詳細(xì)信息所調(diào)用的窗體dyedit只是通過對(duì)變量FLAG的判斷將其兩個(gè)組合框設(shè)為隱藏，而用兩個(gè)文本框代替，因?yàn)樵诓樵冃畔r(shí)不提供信息的修改。3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不能對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。設(shè)置該窗體的基本屬性，如下表所示：窗體dycx的主要屬性屬性項(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)加載。（7）創(chuàng)建導(dǎo)游查詢窗體，并將該窗體的名稱修改為dycx。其過程代碼與前一個(gè)旅游線路管理窗體lyxledit的過程代碼大致相同。5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量FLAG的值不同，它們的單擊事件是通過判斷FLAG的值不同來對(duì)窗體dyedit進(jìn)行查看詳細(xì)、修改記錄、增加記錄。其作用是為了對(duì)數(shù)據(jù)庫進(jìn)行操作。設(shè)置該窗體的基本屬性，如下表所示：窗體dygl的主要屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal2．在窗體中放入一個(gè)ADODC1控件，作為該窗體的數(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 導(dǎo)游數(shù)據(jù)表 = sql = False = False = FalseIf = False Then End IfSet = Adodc1End Sub3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。Lyxledit2中所采用的過程代碼如下：Option ExplicitDim i As Integer返回按鈕過程代碼：Private Sub Command2_Click() Unload Me Exit SubEnd SubPrivate Sub Form_Load() If = False And = False Then For i = 0 To 7 Text1(i) = (i + 1) Next i Else For i = 0 To 7 Text1(i) = Next i End If = amp。 Trim() sql = select * from 旅游線路表 where amp。 sql = select * from 旅游線路表 where amp。 amp。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游線路管理表格AllowaddnewfalseAllowdeletefa