在考生文件夹下,打开selldb数据库,完成如下综合应用: 创建一个标题名为“部门销售查询”,表单名为Form1,文件名为XS的表单,如图1-23所示。 表单要求如下: 在该表单中设计两个标签、两个文本框、一个表格和两个命令按钮。

admin2013-03-31  27

问题 在考生文件夹下,打开selldb数据库,完成如下综合应用:
    创建一个标题名为“部门销售查询”,表单名为Form1,文件名为XS的表单,如图1-23所示。

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

选项

答案步骤1:在命令窗口执行命令:CREATE FORN xs,打开表单设计器新建表单。从“表单控件”工具栏中依次向表单添加两个标签、两个文本框、一个表格控件和两个命令按钮。 步骤2:在“属性”面板的下拉框中选择表单对象,在 “全部”选项卡中修改对象属性值,见表2-26。 [*] 步骤3:双击命令按钮,编写各个命令按钮的Click事件代码。各按钮代码如下: *****“查询”按钮的Click事件代码(以下SQL查询语句通过查询设计器生成)***** bmh=ALLTRIM(THISFORM.TEXT1.VALUE) nf=ALLTRIM(THISFORM.TEXT2.VALUE) Ctable="xs"+bmh THISFOBM.GRID1.RECORDSOURCE="; SELECT商品代码表.*,销售表.一季度利润,销售表.=季度利润,; 销售表.三季度利润,销售表.四季度利润; FROM SELLDB!商品代码表 INNER JOIN SELLDB!销售表; ON 商品代码表.商品号=销售表.商品号; WHERE销售表.部门号=bmh; AND销售表.年度=nf; INTO TABLE &ctable" THISFORM.REFRESH *****“退出”按钮的Click事件代码***** THISFORM.RELEASE 步骤4:单击“常用”工具栏中的“运行”按钮查看结果,将表单文件保存到考生文件夹下。

解析 本大题主要考查了表单及控件的常用属性和方法的设置;SQL联接查询。本题的关键是程序代码的设计,其编程思想大致如下:
    首先定义两个变量分别等于两个文本框中的数据,然后再定义一个变量,变量值等于字符串“bmh”加上年份文本框中的数据,该变量主要用于指定保存表记录的表名。
    接着是将表格的数据源设置为一段SQL语句,该SQL查询语句基本功能如下:
    通过联接查询“商品代码表”和“销售表”的记录,输出题目所要求的各个字段,两个表的联接字段为“商品号”;建立两个表联接后,开始设置查询的筛选条件,根据题意,共有两个筛选条件,将这两个条件通过AND短语联接放到 WHERE短语后;最后是将结果输出到指定的数据表中,此时需要使用宏替换函数(&)将前面所定义的表名变量中的内容替换出来。
转载请注明原文地址:https://jikaoti.com/ti/mwZ0FFFM
0

最新回复(0)