【正文】 致相同，只是復(fù)選框的應(yīng)用在前面所涉及到的窗體中未出現(xiàn)，現(xiàn)給出它的過(guò)程代碼：Private Sub Command1_Click()Dim str As StringDim dd(4) As Booleanstr = If Check1(0).Value Then If Text1(0).Text = Then MsgBox 請(qǐng)輸入導(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 請(qǐng)輸入性別!, 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 請(qǐng)輸入級(jí)別!, vbCritical, 警告 Exit Sub End If dd(2) = True If dd(0) Or dd(1) Then str = str amp。 and 級(jí)別=39。 amp。 Text1(2).Text amp。 39。 Else str = str amp。 級(jí)別=39。 amp。 Text1(2).Text amp。 39。 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。 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 請(qǐng)?jiān)O(shè)置查詢方式, vbOKOnly + vbExclamation, 警告 Exit SubEnd Ifsql = select * from 導(dǎo)游數(shù)據(jù)表 where amp。 str = sqlEnd Sub 創(chuàng)建旅游組團(tuán)管理窗體，并將該窗體的名稱修改為 lyztgl。該窗全主要實(shí)現(xiàn)的功能是對(duì)旅行社進(jìn)行合理的組團(tuán)管理，在該模塊中，用戶可以對(duì)組團(tuán)數(shù)據(jù)進(jìn)行創(chuàng)建、更新、刪除、修改等基本操作。設(shè)置該窗體的基本屬性，如下表所示：窗體 lyztgl 的主要屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Borderstyle 1fixedStartupposition 2屏幕中心Windowsstate 0normal ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載。其代碼與前幾個(gè)窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。表格控件 DATAGIRD1 的基本屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Name Datagrid1Caption 旅游組團(tuán)管理表格Allowaddnew TrueAllowdelete TrueAllowupdata TrueDatasource Adodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其 CAPTION 為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。其操作過(guò)程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開(kāi)的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過(guò)判斷 FLAG 的值不同來(lái)對(duì)窗體 lyztedit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體 lyzteidt 創(chuàng)建步驟如下：1) 添加一個(gè)窗體，命名為 lyztedit；2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控件，二個(gè)組合框控件，其中 text1(1) text1(4)和兩個(gè)組合框是重合的，八個(gè)標(biāo)簽控件是為了說(shuō)明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其過(guò)程代碼與前一個(gè)旅游線路管理窗體 lyxledit 的過(guò)程代碼大致相同。此處不予列出。 創(chuàng)建旅游組團(tuán)查詢窗體，并將該窗體的名稱修改為 lyztcx。在該窗體中，用戶可以根據(jù)窗體所提供的“按組團(tuán)名稱、按線路名稱、按發(fā)出日期等等”的復(fù)選框進(jìn)行選擇查詢。設(shè)置該窗體的基本屬性，如下表所示：窗體 lyztcx 的主要屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Borderstyle 1fixedStartupposition 2屏幕中心Windowsstate 0normal ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼與上幾個(gè)數(shù)據(jù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。表格控件 DATAGIRD1 的基本屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Name Datagrid1Caption 旅游組團(tuán)管理表格Allowaddnew FalseAllowdelete FalseAllowupdata FalseDatasource Adodc14．在窗體中放入五個(gè)復(fù)選框提供可選擇條件的查詢，五個(gè)文本框用于接收查詢的信息；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；其過(guò)程代碼（包括對(duì)復(fù)選框的判斷）與上一個(gè)導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。本窗體中的詳細(xì)信息按鈕單擊事件所調(diào)用的窗體 lyztedit2 布局和前一個(gè)管理窗口中詳細(xì)信息按鈕所調(diào)用的窗體 lyztedit 布局大致相同，但是少了二個(gè)組合框，少了一個(gè)確定按鈕，因?yàn)樵诓樵兡K中不提供數(shù)據(jù)的修改。 創(chuàng)建游客管理窗體，并將該窗體的名稱修改為 ykgl。在游客管理模塊中，對(duì)戶可根據(jù)窗體所提供的數(shù)據(jù)操作功能對(duì)旅游者的信息進(jìn)行各式各樣的操作。設(shè)置該窗體的基本屬性，如下表所示：窗體 ykgl 的主要屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Borderstyle 1fixedStartupposition 2屏幕中心Windowsstate 0normal ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載。其代碼與前幾個(gè)窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。表格控件 DATAGIRD1 的基本屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Name Datagrid1Caption 游客管理表格Allowaddnew TrueAllowdelete TrueAllowupdata TrueDatasource Adodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其 CAPTION 為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。其操作過(guò)程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開(kāi)的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過(guò)判斷 FLAG 的值不同來(lái)對(duì)窗體 ykedit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體 ykedit 創(chuàng)建步驟如下：1) 添加一個(gè)窗體，命名為 ykedit；2) 在窗體中放入七個(gè)標(biāo)簽控件，七個(gè)文本框控件，二個(gè)組合框控件，其中 text1(2) text1(6)和兩個(gè)組合框是重合的，七個(gè)標(biāo)簽控件是為了說(shuō)明七個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其過(guò)程代碼與前一個(gè)旅游線路管理窗體 lyxledit 的過(guò)程代碼大致相同。此處不予列出。 游客查詢窗體的制作，并將該窗體的名稱修改為 ykcx。該窗體同樣用到了和上一個(gè)查詢窗體相同的用復(fù)選框進(jìn)行條件查詢的功能。設(shè)置該窗體的基本屬性，如下表所示：窗體 ykcx 的主要屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Borderstyle 1fixedStartupposition 2屏幕中心Windowsstate 0normal ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼與上幾個(gè)數(shù)據(jù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。表格控件 DATAGIRD1 的基本屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Name Datagrid1Caption 游客管理表格Allowaddnew FalseAllowdelete FalseAllowupdata FalseDatasource Adodc14．在窗體中放入四個(gè)復(fù)選框提供可選擇條件的查詢，四個(gè)文本框用于接收查詢的信息；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；其過(guò)程代碼（包括對(duì)復(fù)選框的判斷）與上一個(gè)導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。 數(shù)據(jù)報(bào)表的制作在系統(tǒng)的實(shí)際應(yīng)用中，需要對(duì)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中的一些數(shù)據(jù)產(chǎn)生報(bào)表并進(jìn)行打印或輸出，因此制作數(shù)據(jù)報(bào)表往往是數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中的一個(gè)重要內(nèi)容。本案例將在前面創(chuàng)建的數(shù)據(jù)環(huán)境中創(chuàng)建四張數(shù)據(jù)報(bào)表，因?yàn)樗膹垟?shù)據(jù)報(bào)表的創(chuàng)建方式大致相同，只是字段的選擇不同，在此我只介紹旅游線路管理數(shù)據(jù)報(bào)表的作法。創(chuàng)建過(guò)程如下：1． 在創(chuàng)建的數(shù)據(jù)工程的工程管理器選擇“設(shè)計(jì)”選項(xiàng)，并雙擊datareport1 出現(xiàn)報(bào)表設(shè)計(jì)器，如圖 所示。2． 設(shè)置報(bào)表的數(shù)據(jù)源屬性 datasource 為：DATAEnvironment1，即以最初引入的數(shù)據(jù)環(huán)境為數(shù)據(jù)源。3． 設(shè)置報(bào)表的啟動(dòng)位置 STARTPOSITION 為：屏幕中心。4． 在報(bào)表頭帶區(qū)放入一個(gè)標(biāo)簽控件，設(shè)置其 CAPTION 屬性為：旅游線路管理報(bào)表。5． 在頁(yè)標(biāo)頭帶區(qū)放入五個(gè)標(biāo)簽控件，分別用于顯示四個(gè)字段名：編號(hào)、名稱、主要景點(diǎn)、天數(shù)、報(bào)價(jià)。6． 右鍵點(diǎn)擊 connection1，選擇添加命令。見(jiàn)圖 7． 進(jìn)入命令 COMMAND1 的屬性窗口選擇表為旅游線路管理表，見(jiàn)圖。8． 在細(xì)節(jié)帶區(qū)放入四個(gè)文本框控件，分別設(shè)置它們的屬性，見(jiàn)下表。對(duì)象名稱 屬性項(xiàng)名 屬性設(shè)置內(nèi)容Dataformat 通用Text1Datafield 編號(hào)Dataformat 通用Text2Datafield 名稱Dataformat 通用 Text3Datafield 主要景點(diǎn)Dataformat 通用Text4Datafield 行程天數(shù)Dataformat 通用Text5Datafield 報(bào)價(jià)到此處，旅游線路管理報(bào)表就制作完成，其余的報(bào)表制作方法與之相同，此處不予以重復(fù)。系統(tǒng)設(shè)置模塊的制作系統(tǒng)設(shè)置模塊共分為三個(gè)子模塊，分別是添加用戶、修改密碼、數(shù)據(jù)備份。下面我們先介紹添加用戶窗體的制作過(guò)程：1．打開(kāi)工程，添加一個(gè)窗體，命名為 ADDUSER。2．在窗體中放入三個(gè)文本框；四個(gè)標(biāo)簽分別命名為用戶名、密碼、確認(rèn)密碼、用戶權(quán)限；一個(gè)組合框用于選擇用戶