设计一个名为mvsupply的表单,表单的控件名和文件名均为mvsupply。表单的形式如图1-1所示。
表单标题为“零件供应情况”,表格控件为Grid1,命令按钮“查询”为Command1、“退出”为Command2,标签控件Label1和文本框控件Text1(程序运行时用于输入工程号)。
运行表单时,在文本框中输入工程号,单击“查询”命令按钮后,表格控件中显示相应工程所使用的零件的零件名、颜色和重量(通过设置有关“数据”属性实现),并将结果按“零件名”升序排序存储到pp.dbf文件。
单击“退出”按钮关闭表单。
完成表单设计后运行表单,并查询工程号为“J4”的相应信息。
参考答案:
[操作步骤]
①选择[文件]→[新建]命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将Caption属性值修改为“零件供应情况”;表单中添加一个表格控件Grid1,两个命令按钮控件Command1、Command2,一个标签控件Label1和一个文本框控件Text1。
②在表单属性窗口中将Label1、Command1、Command2的Caption属性值修改为“工程号”、“查询”、“退出”。
③双击“查询”命令按钮,在Click事件中输入代码:
Select零件.零件名as零件名,零件.颜色as颜色,零件.重量as重量;
From供应,零件;
Where零件.零件号=供应.零件号and供应.工程号=thisform.text1.value;
Order By零件名;
Into dbf pp
This Form.Grid1.RecordSource="pp"
④双击“退出”命令按钮,在Click事件中输入代码:
thisform.release
⑤选择[表单]→[执行表单]命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“mysupply”,保存在考生文件夹下,然后运行表单。
解析:
本题主要考查的知识点是:通过表单设计器创建表单、表单控件及其属性的修改和通过SQL语句实现查询。