MsgBox \记录已经成功修改！\vbOKOnly + vbExclamation, \修改结果！\
lyxlgl.Adodc1.RecordSource = \旅游线路表\
lyxlgl.Adodc1.Refresh Unload Me End If End Sub
退出按钮过程代码：
Private Sub Command2_Click() Unload Me Exit Sub End Sub
窗体调用时加载信息的过程代码： Private Sub Form_Load() If
lyxlgl.Adodc1.Recordset.EOF
=
False
And
lyxlgl.Adodc1.Recordset.BOF = False Then For i = 0 To 7
Text1(i) = lyxlgl.Adodc1.Recordset.Fields(i + 1) Next i
If Not IsNull(lyxlgl.Adodc1.Recordset.Fields(5)) Then Combo1.Text
=
lyxlgl.Adodc1.Recordset.Fields(5)
Else
Combo1.Text = \
lyxlgl.Adodc1.Refresh
Else
For i = 0 To 7 Text1(i) = \ Next i
Combo1.Text = \ End If
With Combo1 '添加交通方式选项
.AddItem \双飞\ .AddItem \单飞\ .AddItem \双卧\ .AddItem \旅行大巴\ End With
If flag = 1 Then '判断为添加信息 Me.Caption = \添加\ Call init
Combo1.ListIndex = 0
ElseIf flag = 2 Then '判断为修改信息 Me.Caption = \修改\ Else
Me.Caption = Me.Caption & \详细信息\判断为查询详细信息
Command1.Enabled = False
Command1.Visible = False Command2.Caption = \返回\ End If End Sub
（5）创建旅游线路查询窗体
1.在工程中增加一个新的窗体，并将该窗体的名称修改为lyxlcx。该窗体的主要目的是用于对旅游线路进行条件查询，设置该窗体的基本属性，如下表所示：
窗体lyxlcx的主要属性
属性项名 Borderstyle Startupposition Windowsstate
2.在窗体中放入一个ADODC1控件，作为该窗体的数据源，注意该工程完全可以直接引入由数据环境引入的数据源，但使用数据环境往往需要通过编制命令后再进行各种使用，比较麻烦，因此我们仍采用使用adodc1控件引入数据源的方法,在窗体调用时，数据源就已经加载，其代码如下：
Private Sub Form_Load()
Adodc1.connectionstring = conn.connectionstring Adodc1mandType = adCmdUnknown sql = \旅游线路表\Adodc1.RecordSource = sql Adodc1.Refresh
DataGrid1.AllowAddNew = False
属性设置内容 1-fixed 2-屏幕中心 0-normal
DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveFirst End If
Set DataGrid1.DataSource = Adodc1 Option1(0).Value = True Text1.Text = \End Sub
3．在窗体中放入一个表格控件DataGrid1，该控件的主要作用是显示数据，对数据进行编辑，其表格控件的基本属性如下表所示。
表格控件DATAGIRD1的基本属性
属性项名 Name Caption Allowaddnew Allowdelete Allowupdata Datasource 属性设置内容 Datagrid1 旅游线路管理表格 false false false Adodc1 4. 在窗体中放入一个文本框，用于输入查询关键字；三个按钮，名称分
别为提交、重置、详细信息；三个单选框，名称分别为所有线路、按旅游线路、按行程天数，作用是为了提供查询的条件；另外还放入一个标签用于说明文本框的作用。其过程代码如下： Option Explicit Dim sql As String