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