VB公司合同管理系统开发与设计(10)
时间:2017-03-31 18:46 来源:毕业论文 作者:毕业论文 点击:次
（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 数据库设计 (责任编辑：qin) |