dd(3) = True

If dd(0) Or dd(1) Or dd(2) Then

str = str & \出生年月=#\ Else

str = str & \出生年月=#\ End If End If

If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then

MsgBox \请设置查询方式\警告\ Exit Sub End If

sql = \导游数据表 where \Adodc1.RecordSource = sql Adodc1.Refresh DataGrid1.Refresh End Sub

（8）创建旅游组团管理窗体

1.在工程中增加一个新的窗体，并将该窗体的名称修改为lyztgl。该窗全主要实现的功能是对旅行社进行合理的组团管理，在该模块中，用户可以对组团数据进行创建、更新、删除、修改等基本操作。 设置该窗体的基本属性，如下表所示：

窗体lyztgl的主要属性

属性项名 Borderstyle Startupposition 属性设置内容 1-fixed 2-屏幕中心

Windowsstate 0-normal 2.在窗体中放入一个ADODC1控件，作为该窗体的数据源，注意该工程完全可以直接引入由数据环境引入的数据源，但使用数据环境往往需要通过编制命令后再进行各种使用，比较麻烦，因此我们仍采用使用adodc1控件引入数据源的方法,在窗体调用时，数据源就已经加载。其代码与前几个窗体的数据源加载代码大致相同，只是表格选择的不同而以，这里不予以列出。

3．在窗体中放入一个表格控件DataGrid1，该控件的主要作用是显示数据，对数据进行编辑，其表格控件的基本属性如下表所示。

表格控件DATAGIRD1的基本属性

属性项名 Name Caption Allowaddnew Allowdelete Allowupdata Datasource 属性设置内容 Datagrid1 旅游组团管理表格 True True True Adodc1 4．在窗体中再放入八个按钮控件，分别设置其CAPTION为，详细信息、增加、删除、修改、首记录、前一个、下一个、尾记录。其作用是为了对数据库进行操作。其操作过程代码与上一个旅游线路管理窗体的制作大致相同，此处不予以列出。

5．其中，详细信息按钮、数据的增加和修改按钮所打开的都是同一个窗体，只是其变量FLAG的值不同，它们的单击事件是通过判断FLAG的值不同来对窗体lyztedit进行查看详细、修改记录、增加记录。而窗体lyzteidt创建步骤如下：

1) 添加一个窗体，命名为lyztedit；

2) 在窗体中放入八个标签控件，八个文本框控件，二个组合框控件，其中text1(1) text1(4)和两个组合框是重合的，八个标签控件是为了说明八个文本框控的作用；此外，再放入二个按钮控件。其过程代码与前一个旅游线路管理窗体lyxledit的过程代码大致相同。此处不予列出。

（9）创建旅游组团查询窗体

1.在工程中增加一个新的窗体，并将该窗体的名称修改为lyztcx。在该窗体中，用户可以根据窗体所提供的“按组团名称、按线路名称、按发出日期等等”的复选框进行选择查询。 设置该窗体的基本属性，如下表所示：

窗体lyztcx的主要属性

属性项名 Borderstyle Startupposition Windowsstate 属性设置内容 1-fixed 2-屏幕中心 0-normal 2.在窗体中放入一个ADODC1控件，作为该窗体的数据源，注意该工程完全可以直接引入由数据环境引入的数据源，但使用数据环境往往需要通过编制命令后再进行各种使用，比较麻烦，因此我们仍采用使用adodc1控件引入数据源的方法,在窗体调用时，数据源就已经加载，其代码与上几个数据源加载的代码大致相同，只是表格选择不同，此处不予以列出。

3．在窗体中放入一个表格控件DataGrid1，该控件的主要作用是显示数据，不对数据进行编辑，其表格控件的基本属性如下表所示。

表格控件DATAGIRD1的基本属性

属性项名 属性设置内容

Name Caption Allowaddnew Allowdelete Allowupdata Datasource

Datagrid1 旅游组团管理表格 False False False Adodc1 4．在窗体中放入五个复选框提供可选择条件的查询，五个文本框用于接收查询的信息；三个按钮，名称分别为提交、重置、详细信息；其过程代码（包括对复选框的判断）与上一个导游查询窗体中所涉及到的代码大致相同，只是一些选择判断的条件不同，在此处代码不予以列出。本窗体中的详细信息按钮单击事件所调用的窗体lyztedit2布局和前一个管理窗口中详细信息按钮所调用的窗体lyztedit布局大致相同，但是少了二个组合框，少了一个确定按钮，因为在查询模块中不提供数据的修改。 （10）创建游客管理窗体

1.在工程中增加一个新的窗体，并将该窗体的名称修改为ykgl。在游客管理模块中，对户可根据窗体所提供的数据操作功能对旅游者的信息进行各式各样的操作。

设置该窗体的基本属性，如下表所示：

窗体ykgl的主要属性

属性项名 Borderstyle Startupposition Windowsstate 属性设置内容 1-fixed 2-屏幕中心 0-normal 2.在窗体中放入一个ADODC1控件，作为该窗体的数据源，注意该工程