问答题 在考生文件夹下完成如下综合应用(所有控件的属性必须在表单设计器的属性窗口中设置): 设计一个名称为myform的表单(文件名和表单名均为myform),其中有一个标签Lable1(日期)、一个文本框Text1和两个命令按钮command1(“查询”)和command2(“退出”),如下图所示。 然后在表单设计器环境下进行如下操作: (1)将表单的标题设置为“综合应用”。 (2)将文本框的初始值设置为表达式date()。 (3)设置“查询”命令按钮的Click事件代码,其功能是根据文本框Text1中的输入日期查询各会员在指定日期后(大于等于指定日期)签订的各商品总金额,查询结果的字段包括“会员号”(来自Customer表)、“姓名”和“总金额”3项,其中“总金额”为各商品的数量(来自Orderitem表)乘以单价(来自Article表)的总和;查询结果的各记录按总金额升序排序;查询结果存放到表dbfa.dbf中。 (4)设置“退出”命令按钮的Click事件代码,其功能是关闭并释放表单。最后运行表单,在文本框中输入“2003/03/08”,并单击“查询”命令按钮。
【正确答案】步骤1:通过“新建”对话框新建一个表单,文件名为myform,并向其中添加一个标签控件、一个文本框控件和两个命令按钮控件。 步骤2:设置表单的Name属性为myform,Caption属性为“综合应用”;设置命令按钮1的Caption属性为“查询(/<R)”,命令按钮2的Caption属性为“退出”;标签的Caption属性为“日期”;文本框的Value属性为“=date()”。 步骤3:在“查询”命令按钮的Click事件中输入如下代码: ******“查询”按钮的Click事件代码****** SELECT Customer.会员号, Customer.姓名,; (Orderitem.数量*Aarticle.单价)AS总金额; FROM article,orderitem,customer; WHERE Orderitem.会员号=Customer.会员号; AND Article.商品号=Orderitem.商品号; AND Orderitem.日期>=ThisForm.Text1.Value; ORDER BY 3; INTO TABLE dbfa.dbf ************************************ 在“关闭”命令按钮的Click事件中输入如下代码。 ThisForm.Release 步骤4:保存并运行表单,在文本框中输入题目要求的日期后查询。 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
【答案解析】