【正文】 1) Next i Else For i = 0 To 7 Text1(i) = Next i End If = amp。 詳細信息End Sub（6）創(chuàng)建導(dǎo)游管理窗體導(dǎo)游管理是旅行社管理的一個重要方面，一個好的導(dǎo)游管理模塊對于導(dǎo)游數(shù)據(jù)的創(chuàng)建、更新、刪除、修改都是十分必要的，創(chuàng)建該管理窗體的基本方法如下：1．在工程中增加一個新的窗體，并將該窗體的名稱修改為dygl。設(shè)置該窗體的基本屬性，如下表所示：窗體dygl的主要屬性屬性項名屬性設(shè)置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal2．在窗體中放入一個ADODC1控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法，在窗體調(diào)用時，數(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．在窗體中放入一個表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項名屬性設(shè)置內(nèi)容NameDatagrid1Caption導(dǎo)游管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個按鈕控件，分別設(shè)置其CAPTION為，詳細信息、增加、刪除、修改、首記錄、前一個、下一個、尾記錄。其作用是為了對數(shù)據(jù)庫進行操作。其操作過程代碼與上一個旅游線路管理窗體的制作大致相同，此處不予以列出。5．其中，詳細信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個窗體，只是其變量FLAG的值不同，它們的單擊事件是通過判斷FLAG的值不同來對窗體dyedit進行查看詳細、修改記錄、增加記錄。而窗體dyedit創(chuàng)建步驟如下：1) 添加一個窗體，命名為dyedit；2) 在窗體中放入五個標簽控件，五個文本框控件，二個組合框控件，其中text1(1) text1(2)和兩個組合框是重合的，五個標簽控件是為了說明五個文本框控的作用；此外，再放入二個按鈕控件。其過程代碼與前一個旅游線路管理窗體lyxledit的過程代碼大致相同。此處不予列出。（7）創(chuàng)建導(dǎo)游查詢窗體，并將該窗體的名稱修改為dycx。導(dǎo)游查詢窗體的創(chuàng)建，使我們可以更快捷的根據(jù)復(fù)選框提供的條件對導(dǎo)游數(shù)據(jù)進行準確的查找。設(shè)置該窗體的基本屬性，如下表所示：窗體dycx的主要屬性屬性項名屬性設(shè)置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時，數(shù)據(jù)源就已經(jīng)加載。其代碼與前幾個窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。3．在窗體中放入一個表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不能對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項名屬性設(shè)置內(nèi)容NameDatagrid1Caption導(dǎo)游管理表格AllowaddnewFalseAllowdeleteFalseAllowupdataFalseDatasourceAdodc14．在窗體中再放入四個復(fù)選框控件，分別設(shè)置其CAPTION為按姓名、按年齡、按出生年月、按級別；再放入四個文本框控件用于接收查詢數(shù)據(jù)；再放入三個按鈕，分別設(shè)置其Caption為提交、重置、詳細信息。其中詳細信息所調(diào)用的窗體dyedit只是通過對變量FLAG的判斷將其兩個組合框設(shè)為隱藏，而用兩個文本框代替，因為在查詢信息時不提供信息的修改。此窗體各控件的過程代碼與上一窗體Lyxlcx大致相同，只是復(fù)選框的應(yīng)用在前面所涉及到的窗體中未出現(xiàn)，現(xiàn)給出它的過程代碼：Private Sub Command1_Click()Dim str As StringDim dd(4) As Booleanstr = If Check1(0).Value Then If Text1(0).Text = Then MsgBox 請輸入導(dǎo)游姓名!, vbCritical, 警告 Exit Sub End If dd(0) = True str = str amp。 姓名=39。 amp。 Trim(Text1(0).Text) + 39。 End IfIf Check1(1).Value Then If Text1(1).Text = Then MsgBox 請輸入性別!, vbCritical, 警告 Exit Sub End If dd(1) = True If dd(0) Then str = str amp。 and 別性=39。 amp。 Trim(Text1(1).Text) + 39。 Else str = str amp。 性別=39。 amp。 Trim(Text1(1).Text) + 39。 End IfEnd IfIf Check1(2).Value Then If Text1(2).Text = Then MsgBox 請輸入級別!, vbCritical, 警告 Exit Sub End If dd(2) = True If dd(0) Or dd(1) Then str = str amp。 and 級別=39。 amp。 Text1(2).Text amp。 39。 Else str = str amp。 級別=39。 amp。 Text1(2).Text amp。 39。 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。 and 出生年月= amp。 Text1(3).Text amp。 Else str = str amp。 出生年月= amp。 Text1(3).Text amp。 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。 str = sqlEnd Sub（8）創(chuàng)建旅游組團管理窗體，并將該窗體的名稱修改為lyztgl。該窗全主要實現(xiàn)的功能是對旅行社進行合理的組團管理，在該模塊中，用戶可以對組團數(shù)據(jù)進行創(chuàng)建、更新、刪除、修改等基本操作。設(shè)置該窗體的基本屬性，如下表所示：窗體lyztgl的主要屬性屬性項名屬性設(shè)置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時，數(shù)據(jù)源就已經(jīng)加載。其代碼與前幾個窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。3．在窗體中放入一個表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游組團管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個按鈕控件，分別設(shè)置其CAPTION為，詳細信息、增加、刪除、修改、首記錄、前一個、下一個、尾記錄。其作用是為了對數(shù)據(jù)庫進行操作。其操作過程代碼與上一個旅游線路管理窗體的制作大致相同，此處不予以列出。5．其中，詳細信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個窗體，只是其變量FLAG的值不同，它們的單擊事件是通過判斷FLAG的值不同來對窗體lyztedit進行查看詳細、修改記錄、增加記錄。而窗體lyzteidt創(chuàng)建步驟如下：1) 添加一個窗體，命名為lyztedit；2) 在窗體中放入八個標簽控件，八個文本框控件，二個組合框控件，其中text1(1) text1(4)和兩個組合框是重合的，八個標簽控件是為了說明八個文本框控的作用；此外，再放入二個按鈕控件。其過程代碼與前一個旅游線路管理窗體lyxledit的過程代碼大致相同。此處不予列出。（9）創(chuàng)建旅游組團查詢窗體，并將該窗體的名稱修改為lyztcx。在該窗體中，用戶可以根據(jù)窗體所提供的“按組團名稱、按線路名稱、按發(fā)出日期等等”的復(fù)選框進行選擇查詢。設(shè)置該窗體的基本屬性，如下表所示：窗體lyztcx的主要屬性屬性項名屬性設(shè)置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時，數(shù)據(jù)源就已經(jīng)加載，其代碼與上幾個數(shù)據(jù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。3．在窗體中放入一個表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游組團管理表格AllowaddnewFalseAllowdeleteFalseAllowupdataFalseDatasourceAdodc14．在窗體中放入五個復(fù)選框提供可選擇條件的查詢，五個文本框用于接收查詢的信息；三個按鈕，名稱分別為提交、重置、詳細信息；其過程代碼（包括對復(fù)選框的判斷）與上一個導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。本窗體中的詳細信息按鈕單擊事件所調(diào)用的窗體lyztedit2布局和前一個管理窗口中詳細信息按鈕所調(diào)用的窗體lyztedit布局大致相同，但是少了二個組合框，少了一個確定按鈕，因為在查詢模塊中不提供數(shù)據(jù)的修改。（10）創(chuàng)建游客管理窗體，并將該窗體的名稱修改為ykgl。在游客管理模塊中，對戶可根據(jù)窗體所提供的數(shù)據(jù)操作功能對旅游者的信息進行各式各樣的操作。設(shè)置該窗體的基本屬性，如下表所示：窗體ykgl的主要屬性屬性項名屬性設(shè)置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時，數(shù)據(jù)源就已經(jīng)加載。其代碼與前幾個窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。3．在窗體中放入一個表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進行編輯，其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項名屬性設(shè)置內(nèi)容NameDatagrid1Caption游客管理表格Allowaddnew