设计一个名为“bd2”的表单,表单的标题为“零件装配情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。运行表单时,单击“查询”命令按钮后,要求表格中显示产品编号“0003”所使用零件的零件名称、规格和数量。单击“关闭”按钮关闭表单。
【操作步骤】
①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,将Caption属性值修改为”零件装配情况”;单击表单控件工具栏上的“命令按钮”控件图标,为表单添加两个命令按钮Command1、Command2;单击表单控件工具栏上的“表格控件图标,再添加一个表格控件。
②分别选择两个命令按钮,在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”,将命令按钮Command2的Caption属性值修改为“关闭”。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。
③选择表格控件“Grid1”,在表格控件属性窗口中将“RecordSource”属性值修改为“〝″’,将“RecordSourceType”属性值修改为“1”。
④双击“查询”命令按钮,在Click事件中输入代码:
SELECT零件名称,规格,数量INTO CURSOR tmp FROM产品,零件WHERE产品.零件编号=零件.零件编号AND产品.产品编号=〝0003″
ThisForm.Grid1.ReeordSourceType=1
ThisForm.Grid1.RecordSource=〝tmp″
ThisForm.Grid1.ReFresh
⑤选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd2”,保存在考生文件夹下,然后运行表单。