问答题
设计名为mysupply的表单(表单的控件名和文件名均为mysupply)。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”(名称为Command1)和“退出” (名称为Command2)。
运行表单时，单击“查询”命令按钮后，表格控件(名称grid1)中显示了工程号“J4”所使用的零件的零件名、颜色和重量。
单击“退出”按钮关闭表单。
【正确答案】
【答案解析】在命令窗口输入命令：CREATE FORM mysupply，打开表单设计器，通过“常用工具栏”向表单添加一个表格和两个命令按钮。
选中表单(Form1)，在属性面板中修改Name 的属性值为mysupply，将Caption 的属性值改为“零件供应情况”，然后在属性面板顶端的下拉框中选择Command1，修改该命令按钮控件的Caption 属性值为“查询”，以同样的方法将第二个命令按钮设置Caption 属性值改为“退出”，如图3-84所示。
图3-84
双击命令按钮Command1(查询)，编写该控件的Click 事件，程序代码如下：
******命令按钮Command1(查询)的Click 事件代码*****
SELECT 零件.零件名，零件.颜色，零件.重量；
FROM 供应零件!零件 INNER JOIN 供应零件!供应；
ON 零件.零件号=供应.零件号；
WHERE供应.工程号=”J4”；
IMTO CURSOR temp
Thiaform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
***************************************************
以同样的方法为“退出”命令按钮编写Click事件代码：
****命令按钮Command2(退出)的Click 事件代码****
Thisform. Release
****************************************************
保存表单完成设计。表单运行结果如图3-85所示。
图3-84
双击命令按钮Command1(查询)，编写该控件的Click 事件，程序代码如下：
******命令按钮Command1(查询)的Click 事件代码*****
SELECT 零件.零件名，零件.颜色，零件.重量；
FROM 供应零件!零件 INNER JOIN 供应零件!供应；
ON 零件.零件号=供应.零件号；
WHERE供应.工程号=”J4”；
IMTO CURSOR temp
Thiaform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
***************************************************
以同样的方法为“退出”命令按钮编写Click事件代码：
****命令按钮Command2(退出)的Click 事件代码****
Thisform. Release
****************************************************
保存表单完成设计。表单运行结果如图3-85所示。