【正文】 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)容 BORDERSTYLE 1FIXED STARTUPPOSITION 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í)，數(shù)據(jù)源就已經(jīng)加載。 創(chuàng)建游客管理窗體 ，并將該窗體的名稱修改為 ykgl。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 NAME DATAGRID1 CAPTION 旅游組團(tuán)管理表格 ALLOWADDNEW FALSE ALLOWDELETE FALSE ALLOWUPDATA FALSE DATASOURCE ADODC1 4．在窗體中放入五個(gè)復(fù)選框提供可選擇條件的查詢，五個(gè)文本框用于接收查詢的信息；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；其過程代碼（包括對(duì)復(fù)選框的判斷）與上一個(gè)導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 lyztcx 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 BORDERSTYLE 1FIXED STARTUPPOSITION 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í)，數(shù)據(jù)源就已經(jīng)加載，其代碼與上幾個(gè)數(shù)據(jù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。 創(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)容 BORDERSTYLE 1FIXED STARTUPPOSITION 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í)，數(shù)據(jù)源就已經(jīng)加載。 str = sql End Sub 創(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)容 BORDERSTYLE 1FIXED STARTUPPOSITION 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í)，數(shù)據(jù)源就已經(jīng)加載。 創(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)容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL 2．在窗體中放入一個(gè) ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法，在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼如下： Private Sub Form_Load() = = adCmdUnknown sql = select * from 導(dǎo)游數(shù)據(jù)表 = sql = False = False = False If = False Then End If Set = Adodc1 End Sub 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 Lyxledit2中所采用的過程代碼如下： Option Explicit Dim i As Integer 返回按鈕過程代碼： Private Sub Command2_Click() Unload Me Exit Sub End Sub Private 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)容 NAME DATAGRID1 CAPTION 旅游線路管理表格 ALLOWADDNEW FALSE ALLOWDELETE FALSE ALLOWUPDATA FALSE DATASOURCE ADODC1 4. 在窗體中放入一個(gè)文本框，用于輸入查詢關(guān)鍵字；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；三個(gè)單選框，名稱 分別為所有線路、按旅游線路、按行程天數(shù)，作用是為了提供查詢的條件；另外還放入一個(gè)標(biāo)簽用于說明文本框的作用。判斷為查詢?cè)敿?xì)信息 = False = False = 返回 End If End Sub 創(chuàng)建旅游線路查詢窗體 ，并將該窗體的名稱修改為 lyxlcx。判斷為修改信息 = 修改 + Else = amp。添加交通方式選項(xiàng) .AddItem 雙飛 .AddItem 單飛 .AddItem 雙臥 .AddItem 旅行大巴 End With If flag = 1 Then 39。 + Text1(0).Text + 39。判斷是否已經(jīng)存在記錄 MsgBox 已經(jīng)存在這個(gè)旅游線路的記錄！ , vbOKOnly + vbExclamation, 警告！ Text1(0).SetFocus Else rs!名稱 = Text1(0).Text rs!主要景點(diǎn) = Text1(1).Text rs!行程天數(shù) = Text1(2).Text rs!報(bào)價(jià) = Text1(3).Text rs!交通 = rs!住宿 = Text1(5).Text rs!行程安排 = Text1(6).Text rs!說明 = Text1(7).Text Set rs = Nothing MsgBox 記錄已經(jīng)成功添加！ , vbOKOnly + vbExclamation, 添加結(jié)果！ = select * from 旅游線路表 Unload Me End If ElseIf flag = 2 Then 39。 + Text1(0).Text + 39。以上均為在輸入為空的警告 MsgBox 請(qǐng)輸入行程安排！ , vbOKOnly + vbExclamation, 警告！ Text1(6).SetFocus Exit Sub End If If flag = 1 Then 39。其過程代碼如下： Option Explicit Dim i As Integer Dim sql As String 系統(tǒng)初始化過程代碼： Private Sub init() 39。其操作過程代碼如下： 詳細(xì)信息按鈕代碼： Private Sub Command1_Click() flag = 3 1 End Sub 增加按鈕代碼： Private Sub Command2_Click() flag = 1 1 End Sub 刪除按鈕代碼： Private Sub Command3_Click() If Then MsgBox 不能刪除空記錄 !, vbCritical + vbExclamation, 警告 Else Dim ok As Integer ok = MsgBox(確認(rèn)刪除 !, vbOKCancel + vbExclamation, 確認(rèn) ) If ok = 1 Then End If End If End Sub 修改按鈕代碼： Private Sub Command4_Click() flag = 2 1 End Sub 首記錄按鈕代碼： Private Sub Command5_Click() End Sub 前一條按鈕代碼： Private Sub Command6_Click() If = True Then MsgBox 已到文件首部！ Else End If End Sub 后一條按鈕代碼： Priva