设计一个名为“mysupply”的表单,表单的控件名和文件名均为“mysupply”。表单的形式如图105—1所示。 表单标题为“零件供应情况”,表格控件为Grid1,命令按钮“查询”为Command1、“退出”为Command2,标签控件Lab

admin2010-08-26  34

问题 设计一个名为“mysupply”的表单,表单的控件名和文件名均为“mysupply”。表单的形式如图105—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 ThisForm.Grid1.RecordSource="pp" ④双击“退出”命令按钮,在Click事件中输入代码: thisform.release ⑤选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“mysupply”,保存在考生文件夹下,然后运行表单。

解析
转载请注明原文地址:https://jikaoti.com/ti/2te0FFFM
0

随机试题
最新回复(0)