打开考生文件夹下的SELLDB数据库,完成如下综合应用: 创建一个标题名为"部门销售查询"、表单名为Form1、文件名为XS的表单,如下图所示。 表单要求如下: 向该表单中添加两个标签、两个文本框、一个表格和两个命令按钮。 (1)两个标签对象标

admin2013-10-25  47

问题 打开考生文件夹下的SELLDB数据库,完成如下综合应用:
创建一个标题名为"部门销售查询"、表单名为Form1、文件名为XS的表单,如下图所示。
   
表单要求如下:
向该表单中添加两个标签、两个文本框、一个表格和两个命令按钮。
(1)两个标签对象标题文本分别为"部门号"(Label1)和"年度"(Label2);两个文本框分别用于输入部门号(Text1)和年度(Text2);表格控件用于显示查询结果(Grid1)。
(2)两个命令按钮的功能如下:
① "查询"按钮(Command1)的功能是在该按钮的Click事件中编写程序代码,根据输入的部门号和年度,在表格中显示该部门销售的"商品号"、"商品名"、"一季度利润"、"二季度利润"、"三季度利润"和"四季度利润",将查询结果存储到以"xs+部门号"为名称的表中(例如,部门号为02,则相应的表名为xs02.dbf)。注意:表的字段名分别为:"商品号"、"商品名"、"一季度利润"、"二季度利润"、"三季度利润"和"四季度利润"。
② "退出"按钮(Command2)的功能是关闭并释放表单。
注意:需将表格控件的RecordSourceType属性值设置为"4-SQL说明"。
表单设计完成后,运行该表单,输入部门号:02,年度:2006,单击"查询"按钮进行查询。

选项

答案【操作步骤】 步骤1:打开考生文件夹下的"SELLDB"数据库。 步骤2:通过"新建"对话框新建一个表单。 步骤3:按照题目的要求为表单添加控件,设置命令按钮1的Caption属性为"查询",命令按钮2的Caption属性为"退出";标签1的Caption属性为"部门号",标签2的Caption属性为"年度";表格控件的ColumnCount属性为"6",RecordSourceType属性为"4-SQL语句"。 步骤4:右键单击表格空白处,执行"编辑"命令,分别设置表头(Header)的Caption为"商品号"、"商品名"、"一季度利润"、"二季度利润"、"三季度利润"、"四季度利润"。 步骤5:设置"查询"按钮的Click事件代码如下。 ******"查询"按钮的Click事件代码******* x=’xs’+ThisForm.TEXT1.Value SELECT 商品代码表.*,销售表.一季度利润,销售表.二季度利润,销售表.三季度利润, 销售表.四季度利润; FROM 销售表,商品代码表; WHERE 商品代码表.商品号 = 销售表.商品号; AND 销售表.部门号=alltrim(ThisForm.Text1.Value) AND 销售表.年度=alltrim(ThisForm.Text2.Value); INTO TABLE &X ThisForm.Grid1.RecordSource="select * from " + x ************************************* 设置"退出"按钮的Click事件代码如下。 ThisForm.Release 步骤6:以XS为文件名对表单进行保存并运行。在"部门号"文本框中输入"02",在"年度"文本框中输入"2006",单击"查询"按钮查看表格中的显示结果,最后单击"退出"按钮结束表单的运行。

解析 按要求新建一个表单,修改属性和方法,写入命令按钮的代码。
转载请注明原文地址:https://kaotiyun.com/show/ZNop777K
0

最新回复(0)