计算机等级考试二级VFP上机试题及解题思路(62)

　　三、综合应用(1小题，计30分)

　　在考生文件夹下，先打开"宾馆"数据库，然后创建一个文件名为test的表单，如图所示。

　　该表单完成如下综合应用：

　　在该表单中设计一个标签(Label1)、一个文本框(Text1)和两个命令按钮。

　　标签的标题文本为"退房日期大于或等于"。

　　文本框用于输入退房日期。

　　两个命令按钮的功能如下：

　　⑴ "查询"按钮(Command1)：在该按钮的Click事件中使用SQL的SELECT命令查询退房日期大于或等于输入日期的客户号、身份证、姓名、工作单位和该客户入住的客房号、类型名、价格信息，查询结果按价格降序排序，并将查询结果存储到表TABD中。表TABD的字段为客户号、身份证、姓名、工作单位、客房号、类型名、价格。

　　⑵ "退出"按钮(Command2)的功能是"关闭和释放表单"。

　　表单设计完成后，运行该表单，查询退房日期大于或等于2005-04-01的顾客信息。

　　本题的主要考核点是表单的创建、表单控件的添加、表单控件属性的设置以及控件代码等。

　　1.利用"文件"菜单下的"新建"命令可创建新的表单文件，在"显示"菜单中打开表单控件工具栏，通过表单控件工具栏向表单中添加各控件。

　　2.通过属性窗口设置表单及相关各控件的属性，表单及相关各控件的属性值如下：

　　对象 属性名 值

　　Lable1 Caption 退房日期大于或等于

　　Command1 Caption 查询

　　Command2 Caption 退出

　　3.为"查询"命令按钮的Click事件编写程序代码：

　　SELECT 客户.客户号, 客户.身份证, 客户.姓名, 客户.工作单位, 客房.客房号,;

　　房价.类型名, 房价.价格;

　　FROM 宾馆!客户,宾馆!房价,宾馆!入住,宾馆!客房 ;

　　WHERE 客户.客户号 = 入住.客户号 ;

　　AND 客房.客房号 = 入住.客房号 ;

　　AND 房价.类型号 = 客房.类型号;

　　AND 入住.退房日期>=ctod(thisform.text1.text);

　　ORDER BY 房价.价格 DESC;

　　INTO TABLE tabd.dbf

　　4.为"退出"命令按钮的Click事件编写程序代码：THISFORM.RELEASE

　　5.最后以test为文件名将表单保存在考生文件夹下，并运行该表单。