模拟题六：
参考答案：
为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表的复制：
USE ACR
COPY TO ANEW FIELDS 学号,姓名 FOR LEFT(姓名,2)=\陈\ *或COPY TO ANEW FIELDS 学号,姓名 FOR SUBSTR(姓名,1,2)=\陈\2.分类汇总：
USE ACR
INDEX ON 籍贯 TAG JG
TOTAL ON 籍贯 FIELDS 笔试成绩,上机成绩 TO AHZ CLOSE INDEX
3.数据库的建立、添加数据表、有效性规则： CREATE DATABASE AXSXJ
MODI DATABASE AXSXJ
ADD TABLE ACER &&或利用数据库设计器添加
打开数据库表设计器为“性别”字段设置有效性规则：性别=\男\性别=\女\，提示信息：\只能输入男或女\。
第 16 页 共 28 页
操作步骤如下：
1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；
2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；
3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“成绩管理系统登录”，Height设置为165，Width设置为290； 5.选择标签控件，在表单的适当位置拖放形成Label1，在该控件的属性窗口中，将Caption设置为“用户名”；
6.选择标签控件，在表单的适当位置拖放形成Label2，在该控件的属性窗口中，将Caption设置为“密码”； 7.选择文本框控件，在表单的适当位置拖放形成Text1；在该控件的属性窗口中，将MaxLength设置为8； 8.选择文本框控件，在表单的适当位置拖放形成Text2，在该控件的属性窗口中，将PasswordChar设置为“*”,将MaxLength设置为10；
9.选择选项按钮组控件，在表单的适当位置拖放，在该控件的属性窗口中，将ButtonCount设置为3，Value设置为2，右击选项按钮组，选择“编辑”，将其中三个选项按钮的Caption分别设置为“管理员”、“教师”和“学生”；
10.选择命令按钮控件，在表单的适当位置拖放，在该控件的属性窗口中，将Caption设置为“确定”，其Click事件参考代码如下：
IF alltrim(THISFORM.TEXT1.VALUE)==\ALUE)==\AND THISFORM.Optiongroup1.VALUE=1
MESSAGEBOX(\欢迎使用成绩管理系统\系统提示\ ELSE
MESSAGEBOX(\输入错误\系统提示\
ENDIF
11.选择命令按钮控件，在表单的适当位置拖放，在该控件的属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下： THISFORM.RELEASE
第 17 页 共 28 页
12.选择“文件/保存”命令，在弹出的对话框中将其保存到考生文件夹中，文件名为SCRE1； 13.单击工具栏中的“运行”按钮运行该表单，调试通过后关闭表单设计窗口； 14.单击“连编”按钮，在“连编选项”对话框中选中“连编可执行文件”； 15.单击“确定”按钮，在“另存为”对话框的应用程序名处输入“PROJ1”； 16.单击“保存”按钮，完成连编。
操作步骤：
1.使用MODI COMM PROG1 命令进入编程窗口。 参考程序： SET TALK OFF SELECT 2 USE SBB SELECT 1 USE DW COPY TO TJ USE TJ
SCAN DWBH=单位编号
SELECT 2
COUNT ALL TO A FOR 单位编号=DWBH SUM ALL 单价 TO B FOR 单位编号=DWBH SELECT 1
REPLACE 设备数量 WITH A,资产总值 WITH B
ENDSCAN CLOSE ALL SET TALK ON 2.使用CREATE MENU MENU1命令创建菜单，建立菜单项“文件”，再建立子菜单项“统计”、“\\-”和“退出”。
“统计”项中结果选“命令”，选项中填写“DO PROG1.PRG”或“DO PROG1”； “退出”项中结果选“命令”，选项中填写“QUIT”或“RETURN”或“CANCEL”； 生成菜单程序，运行菜单并执行“统计”项。
第 18 页 共 28 页
模拟题七：
参考答案：
为确保考试数据保存在考生文件夹下，建议启动VFP后，首先执行： SET DEFAULT TO 考生文件夹 1.数据表的建立：
可以通过命令（CREATE）或菜单方式建立，然后录入记录 2.数据表的合并： 解法1： SELE 1 USE ABM SELE 2
USE ABK
JOIN WITH A TO ATS FOR A.书类号=B.书类号 FIELDS A.书类号,A.书名,B.出版单位,B.单价 解法2：
SELE ABM.书类号,书名,出版单位,单价 FROM ABM,ABK WHERE ABM.书类号=ABK.书类号 INTO TABLE ATS CLOSE ALL 3.单索引的建立：
USE ABK
INDEX ON 书类号+出版单位 TO ASY.IDX CLOSE ALL
第 19 页 共 28 页
操作步骤如下：
1.选择“文件/新建”命令，新建一个项目，项目文件名为PROJ1；
2.单击“代码”列表，并选中“程序”项，单击“添加”按钮，并选中考生文件夹下MAIN.PRG，将该程序添加到项目中；
3.单击“文档”列表，并选中“表单”项，单击“新建”按钮，新建一个新表单； 4.在表单属性窗口中，Caption设置为“控件设置”，Height设置为150，Width设置为280；
5.选择标签控件，在表单上添加控件Label1，在该控件的属性窗口中，将Caption设置为“演示文本”，FontSize设置为14，FontBold设置为.T.，FontName设置为“楷体_GB2312”； 6.选择编辑框控件，在表单上添加控件Edit1，在该控件的属性窗口中，将Value设置为“篮球新星林书豪”； 7.在控件窗口中选择复选框控件，在表单上添加控件Check1，在该控件的属性窗口中，将Caption设置为“编辑框前景为红色”，将Value设置为.F.，其Click事件参考代码如下： IF THISFORM.CHECK1.VALUE=.T.
THISFORM.Edit1.FORECOLOR=RGB(255,0,0)
ELSE
THISFORM.Edit1.FORECOLOR=RGB(0,0,0) ENDIF
8.选择复选框控件，在表单上添加控件Check2，在该控件的属性窗口中，将Caption设置为“编辑框背景为黄色”，将Value设置为.F.，其Click事件代码如下： IF THISFORM.CHECK2.VALUE=.T.
THISFORM.Edit1.BACKCOLOR=RGB(255,255,0) ELSE
THISFORM.Edit1.BACKCOLOR=RGB(255,255,255)
ENDIF
9.选择命令按钮控件，在表单上添加控件Command1，在该控件的属性窗口中，将Caption设置为“关闭”，其Click事件参考代码如下： THISFORM.RELEASE
第 20 页 共 28 页