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

　　二、简单应用(2小题，每题20分，计40分)

　　在考生文件夹下，完成如下简单应用：

　　1. 打开"TEST_DB"数据库，根据表DEPT和表SELL并使用查询设计器设计一个名称为THREE的查询，按年度统计各部门的月平均销售(通过销售额计算)、月平均工资(通过工资额计算)和月平均利润(通过"月平均销售-月平均工资"计算)。查询统计结果按部门号、年度升序排序，并将查询结果输出到表TABB中。表TABB的字段名依次为：部门号、部门名、年度、月平均销售、月平均工资、月平均利润。设计完成后，运行该查询。

　　2. 打开文件名为"testA"的表单。该表单完成如下功能：

　　每当用户输入用户名和口令并按"确认"按钮后，利用表PASS中记录检查其输入是否正确，若正确，就显示"欢迎使用本系统!"字样，并关闭表单;若不正确，则显示"用户名或口令不对，请重输入!"字样;如果三次输入不正确，就显示"用户名或口令不对，登录失败!"字样，并关闭表单。

　　(1) 修改口令输入文本框，使输入的口令显示为"*"。

　　(2) 修改该表单"确认"按钮的Click事件中的程序。请将第2、3、4、7和12行语句修改正确。修改时不允许增加或删除行，只能在错误行上进行修改。

　　本题主要考核点：建立查询及表单等知识点。

　　本题解题思路：

　　1、打开"TEST_DB"数据库,使用查询设计器建立查询：单击"新建"按钮，在弹出的对话框中选择"新建查询"->查询设计器打开，将"DEPT"和"SELL"表添加到查询设计器中(将两表之间通过"部门号"字段建立关联)->在查询设计器下方的"字段"选项卡中选中并添加字段"部门号"、"部门名"、"年度"，在"函数和表达式"的"表达式"中输入"AVG(Sell.销售额) AS 月平均销售"、 "AVG(Sell.工资额) AS 月平均工资"和"AVG(Sell.销售额-Sell.工资额) AS 月平均利润"并添加此字段->在"排序依据"选项卡中选择"部门号"和"年度"字段升序排列->在"分组依据"选项卡中选择"部门号"和"年度"字段分组->单击菜单栏上的"查询"->"查询去向"铵钮->在弹出的"查询去向"对话框中选择表，并在表名处输入表名TABB->单击工具栏上的运行铵钮->单击工具栏上的保存铵钮，输入查询文件名THREE.qpr，保存查询后关闭查询设计器，最后运行该查询。

　　2、(1)PasswordChar属性赋值为："*"，来使用户在输入口令时显示"*"。

　　(2)修改该表单"确认"按钮的Click事件中的程序如下：

　　USE pass

　　Key1 = ALLTRIM(ThisForm.Text1.Value)

　　Key2 = ALLTRIM(ThisForm.Text2.Value)

　　LOCATE ALL FOR USER = Key1

　　IF FOUND() AND PASS = Key2

　　WAIT "欢迎使用本系统!" WINDOW TIMEOUT 1

　　THISFORM.RELEASE

　　ELSE

　　num = num + 1

　　IF num = 3

　　WAIT "用户名或口令不对，登录失败!" WINDOW TIMEOUT 1

　　ThisForm.Release

　　ELSE

　　WAIT "用户名或口令不对，请重输入!" WINDOW TIMEOUT 1

　　ENDIF

　　ENDIF