【文章內(nèi)容簡(jiǎn)介】 ion, 警告！ Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 請(qǐng)輸入報(bào)價(jià)！, vbOKOnly + vbExclamation, 警告！ Text1(3).SetFocus Exit Sub End If If = Then MsgBox 請(qǐng)輸入交通方式！, vbOKOnly + vbExclamation, 警告！ Exit Sub End If If Text1(5).Text = Then MsgBox 請(qǐng)輸入住宿標(biāo)準(zhǔn)！, vbOKOnly + vbExclamation, 警告！ Text1(5).SetFocus Exit Sub End If If Text1(6).Text = Then 39。以上均為在輸入為空的警告 MsgBox 請(qǐng)輸入行程安排！, vbOKOnly + vbExclamation, 警告！ Text1(6).SetFocus Exit Sub End If If flag = 1 Then 39。添加操作 sql = select * from 旅游線路表 where 名稱=39。 + Text1(0).Text + 39。 = adUseClient sql, conn, adOpenKeyset, adLockOptimistic If = False Then 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。修改操作 select * from 旅游線路表 where 名稱=39。 + Text1(0).Text + 39。, conn, 1, 3 If Then Exit Sub 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 IfEnd Sub退出按鈕過程代碼：Private Sub Command2_Click() Unload Me Exit SubEnd Sub窗體調(diào)用時(shí)加載信息的過程代碼：Private Sub Form_Load() If = False And = False Then For i = 0 To 7 Text1(i) = (i + 1) Next i If Not IsNull((5)) Then = (5) Else = Else For i = 0 To 7 Text1(i) = Next i = End If With Combo1 39。添加交通方式選項(xiàng) .AddItem 雙飛 .AddItem 單飛 .AddItem 雙臥 .AddItem 旅行大巴 End With If flag = 1 Then 39。判斷為添加信息 = 添加 + Call init = 0 ElseIf flag = 2 Then 39。判斷為修改信息 = 修改 + Else = amp。 詳細(xì)信息 39。判斷為查詢?cè)敿?xì)信息 = False = False = 返回 End IfEnd Sub 創(chuàng)建旅游線路查詢窗體，并將該窗體的名稱修改為lyxlcx。該窗體的主要目的是用于對(duì)旅游線路進(jìn)行條件查詢，設(shè)置該窗體的基本屬性，如下表所示：窗體lyxlcx的主要屬性屬性項(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)加載，其代碼如下：Private Sub Form_Load() = = adCmdUnknownsql = select * from 旅游線路表 = sql = False = False = FalseIf = False Then End IfSet = Adodc1Option1(0).Value = True = End Sub3．在窗體中放入一個(gè)表格控件DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption旅游線路管理表格AllowaddnewfalseAllowdeletefalseAllowupdatafalseDatasourceAdodc14. 在窗體中放入一個(gè)文本框，用于輸入查詢關(guān)鍵字；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；三個(gè)單選框，名稱分別為所有線路、按旅游線路、按行程天數(shù)，作用是為了提供查詢的條件；另外還放入一個(gè)標(biāo)簽用于說明文本框的作用。其過程代碼如下：Option ExplicitDim sql As String提交按鈕過程代碼：Private Sub Command1_Click()Dim str As Stringstr = If Option1(0).Value Then sql = select * from 旅游線路表 = ElseIf Option1(1).Value Then If = Then MsgBox 請(qǐng)輸入線路名稱!, vbCritical, 警告 Exit Sub End If str = 名稱=39。 amp。 Trim() + 39。 sql = select * from 旅游線路表 where amp。 str ElseIf Option1(2).Value Then If = Then MsgBox 請(qǐng)輸入行程天數(shù)!, vbCritical, 警告 Exit Sub End If str = 行程天數(shù)= amp。 Trim() sql = select * from 旅游線路表 where amp。 strEnd If = sql End Sub重置按鈕過程代碼：Private Sub Command2_Click() = End Sub詳細(xì)信息按鈕過程代碼：Private Sub Command3_Click() 1End Sub單選框過程代碼：Private Sub Option1_Click(Index As Integer)If Index = 1 Then = 旅游線路ElseIf Index = 2 Then = 行程天數(shù)Else = 關(guān)鍵字End IfEnd Sub 其中本窗體中的詳細(xì)信息按鈕單擊事件所調(diào)用的窗體lyxledit2布局和前一個(gè)管理窗口中詳細(xì)信息按鈕所調(diào)用的窗體lyxledit布局大致相同，但是少了一個(gè)組合框，少了一個(gè)確定按鈕，因?yàn)樵诓樵兡K中不提供數(shù)據(jù)的修改。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。 詳細(xì)信息End Sub 創(chuàng)建導(dǎo)游管理窗體導(dǎo)游管理是旅行社管理的一個(gè)重要方面，一個(gè)好的導(dǎo)游管理模塊對(duì)于導(dǎo)游數(shù)據(jù)的創(chuàng)建、更新、刪除、修改都是十分必要的，創(chuàng)建該管理窗體的基本方法如下：1．在工程中增加一個(gè)新的窗體，并將該窗體的名稱修改為dygl。設(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)行編輯，其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容NameDatagrid1Caption導(dǎo)游管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其CAPTION為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、