在考生文件夹下完成下列操作。 为了查询低价机票,请设计一个表单myform. scx,其界面如下图所示: 表单控件名为formone,表单的标题为“机票折扣查询”。表单左侧有1个标签控件Labelone用于显示内容“输入折扣”,1个文本框控件Text1用

admin2016-08-23  85

问题 在考生文件夹下完成下列操作。
为了查询低价机票,请设计一个表单myform. scx,其界面如下图所示:

表单控件名为formone,表单的标题为“机票折扣查询”。表单左侧有1个标签控件Labelone用于显示内容“输入折扣”,1个文本框控件Text1用于输入要查询的折扣,2个命令按钮Commanda和Commandb分别显示“查询”和“退出”,以及一个表格控件Gridone。
表单运行时,用户首先在文本框中输入折扣“5”,然后单击“查询”按钮,如果输入正确,在表单右侧以表格形式显示低于此折扣(含)的信息,显示字段包括航班、价格、折扣和当前价格(价格*折扣/10),按折扣升序排序,折扣相同时按价格升序排序,并将此信息存入t.dbf文件中。单击“退出”按钮将关闭表单。

选项

答案【操作步骤】 步骤1:单击工具栏中的“新建”按钮,选择“文件类型”中的“表单”,单击“新建文件”按钮;在表单上添加一个标签,一个文本框,两个命令按钮,一个表格控件。 步骤2:在“表单设计器”中单击鼠标右键,在弹出的快捷菜单中选择“数据环境”,将“机票打折”表和“机票价格”表添加到数据环境设计器中。 步骤3:通过属性窗口设置表单及各控件的属性。 [*] 步骤4:选中表格控件,单击鼠标右键,在弹出的快捷菜单中选择“编辑”命令;选中列标题,在属性窗口中,通过Caption属性将表格控件的列标题分别修改为“航班”“价格”“折扣”“当前价格”。 步骤5:双击“查询”按钮,在Click事件中输入以下查询语 句。 THISFORM. Gridone. RecordSource="SELECT航班,价格,折扣,价格*机票打折,折扣/10 AS当前价格; FROM机票价格,机票打折; WHERE机票价格.序号=机票打折.序号AND折扣<:val(thisform.text1.value); ORDER BY折扣,价格; INTO TABLEt" 然后关闭代码窗口。 步骤6:双击“退出”按钮,打开Click事件窗口,在窗口中输入以下语句。 Thisform.release 然后关闭代码窗口。 步骤6:保存表单为myform.scx。 步骤7:运行表单,在文本框中输入“5”,然后单击 “查询”按钮,再单击“退出”按钮关闭表单。

解析
转载请注明原文地址:https://kaotiyun.com/show/8BIp777K
0

最新回复(0)