VB公司合同管理系统开发与设计(10)
（2）合同信息管理
图 3.8 合同信息管理
合同信息管理选项卡的设计如图3.8所示。在选项卡中添加一个ADO数据控件，名称为adoht，Visible=False，记录源为语句“SELECT * FROM 合同信息 WHERE 合同编号=’’”。DataGrid控件的名称为dgdht，Caption为合同信息，AllowUpdate=False，DataSource=adoht。添加或修改框架中两个文本框的名称分别为txthtbh和txthtmc，设置Datasource=adoht，分别与合同编号和合同名称。选择客户组合框中的客户姓名通过调用标准模块中的AddkhItem（cboX As ComboBox）过程填充。
（3）项目信息管理
图 3.9 项目信息管理
项目信息管理选项卡的设计如图3.9所示。在选项卡中添加一个ADO数据控件，名称为adoxm，Visible=False，记录源为语句“SELECT * FROM 项目信息 WHERE 项目编号=’’”。DataGrid控件的名称为dgdxm，Caption为项目信息，AllowUpdate=False，DataSource=adoxm。添加或修改框架中两个文本框的名称分别为txtxmbh和txtxmmc，设置Datasource=adoxm，分别与项目编号项目名称绑定。选择客户组合框的处理与合同信息管理选项卡相同。在该组合框中选择客户后调用标准模块中的AddxmItem(cboX As ComboBox, skhbh As String)过程填充。
3.2.5 信息查询模块
（1）客户信息查询
图 3.10 客户信息查询
查询客户信息的功能在客户信息查询窗口中实现。程序运行时，在查询方式框架中设置查询条件。单机查询以后，显示查询结果。界面设计如图3.10所示。
在窗体上添加一个ADO数据控件，名称为adoQuery，设置Visible=False，将其与数据库连接。添加一个DataGrid控件名称为DataGrid1，用于显示查询结果。设置其DataSouce=adoQuery，AllowUpdate=False。
在查询方式框架中添加3个复选框，名称分别为chkkhbh、chkkhxm和chkgsm，设置Caption分别为按客户编号、按客户姓名和按公司名。添加3个文本框，名称分别为txtkhbh、txtkhxm和txtgsm，用于输入客户编号、客户姓名和公司名。
（2）合同信息查询
图 3.11 合同信息查询
查询合同信息的功能在合同信息查询窗口中实现。程序运行时，在查询方式框架中设置查询条件。单机查询以后，显示查询结果。界面设计如图3.11所示。
在窗体上添加一个ADO数据控件，名称为adoQuery，设置Visible=False，将其与数据库连接。添加一个DataGrid控件名称为DataGrid1，用于显示查询结果。设置其DataSouce=adoQuery，AllowUpdate=False。
在查询方式框架中添加2个复选框，名称分别为chkhtbh和chhtmc，设置Caption分别为按合同编号、按合同名称。添加2个文本框，名称分别为txthtbh和txthtmc，用于输入合同编号和合同名称。
（3）项目信息查询
图 3.12 项目信息查询
查询项目信息的功能在项目信息查询窗口中实现。程序运行时，在查询方式框架中设置查询条件。单机查询以后，显示查询结果。界面设计如图3.12所示。
在窗体上添加一个ADO数据控件，名称为adoQuery，设置Visible=False，将其与数据库连接。添加一个DataGrid控件名称为DataGrid1，用于显示查询结果。设置其DataSouce=adoQuery，AllowUpdate=False。
在查询方式框架中添加2个复选框，名称分别为chkxmbh和chxmmc，设置Caption分别为按项目编号、按项目名称。添加2个文本框，名称分别为txtxmbh和txtxmmc，用于输入项目编号和项目名称。
3.2.6 帮助菜单
主窗体帮助菜单下仅含有一项菜单关于，在其单击事件中用MsgBox语句显示本程序的版本信息，如图3.13所示。
图 3.13 帮助信息
3.3 数据库设计