计算机等级考试二级VF题库75套上机试题(2)

会计考友

第2套　　一、 1. 打开并修改数据库
! y# ~& x0 J1 g# N! u! U　　MODIFY DATABASE SCORE_MANAGER
" l' z7 Z1 O/ D/ s8 \　　2. 选择“student”表中主索引键“学号”并按住不放，然后移动鼠标拖到“score1”表中的索引键为“学号”处，松开鼠标即可。
　　3. 选择“course”表中主索引键“课程号”并按住不放，然后移动鼠标拖到“score1”表中的索引键为“课程号”处，松开鼠标即可。
　　这样，三个表就建立了永久性联系。
　　方法一：
　　1. 打开并修改数据库
　　MODIFY DATABASE SCORE_MANAGER
　　2. 在“数据库设计器-SCORE_MANAGER”中，选择表“COURSE”并单击鼠标右键，选择“修改”命令项。
　　3. 在“表设计器-COURSE.dbf”中，在结构的最后处输入字段名为“开课学期”，然后选择类型为“数值型”并输入宽度2，并单击“确定”按钮即可。
　　方法二：
- i; X9 i6 n# \　　使用命令增加字段
　　ALTER TABLE course ADD COLUMN 开课学期 N(2,0)
! R8 r2 \1 a8 K3 g+ g/ u　　1. 打开并修改数据库
　　MODIFY DATABASE SCORE_MANAGER
　　2. 在“数据库设计器-SCORE_MANAGER”中，选择表“SCORE1”并单击鼠标右键，选择“修改”命令项。
　　3. 在“表设计器-SCORE1.dbf”中，选择“成绩”字段，在“字段有效性”标签的“规则”处输入“成绩>=0”，在“信息”处输入“"成绩必须大于或等于零"”，最后单击“确定”按钮即可。
$ P8 e) ~( E2 \& g# b　　如果已在“数据库设计器-SCORE_MANAGER”中，那么第1和2步可以不做。
　　1. 打开并修改数据库
　　MODIFY DATABASE SCORE_MANAGER
　　2. 在“数据库设计器-SCORE_MANAGER”中，选择表“SCORE1”并单击鼠标右键，选择“修改”命令项。
　　3. 在“表设计器-SCORE1.dbf”中，选择字段名为“成绩”，在NULL处进行打勾(允许空值)，最后单击“确定”按钮即可。
　　如果已在“数据库设计器-SCORE_MANAGER”中，那么第1和2步可以不做。
　　二、
; r( S. _1 p( s6 p; U6 C　　SELECT 姓名,2003-YEAR(出生日期) AS 年龄 FROM student INTO TABLE new_table1
7 {( R, ~* H% ^2 g; ?9 Z+ a　　1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。
　　2. 在“向导选取”对话框中，选择“报表向导”并单击“确定”按钮，并显示“报表向导”对话框。
" R7 N& l$ d" K6 n9 S! O　　3. 在“报表向导”对话框的“步骤1-字段选取”中，首先要选取表“NEW_TABLE1”，在“数据库和表”列表框中，选择表“NEW_TABLE1”，接着在“可用字段”列表框中显示表NEW_TABLE1的所有字段名，并选定所有字段名至“选定字段”列表框中，单击“完成”按钮。
　　4. 在“报表向导”对话框的“步骤6-完成”中，在“报表标题”文本框中输入“姓名-年龄”，单击“完成”。
8 T2 `/ R  C' @* ~8 H' w　　5. 在“另存为”对话框中，输入保存报表名“NEW_REPORT1”，再单击“保存”按钮，最后报表就生成了。
　　1. 输入建立菜单命令
　　CREATE MENU query_menu
9 K8 A- g- v( G9 I　　2. 在“新建菜单”对话框中，单击“菜单”按钮。
　　3. 在“菜单设计器 - query_menu.mnx”窗口中，分别建立两个菜单项“查询”和“退出”。
1 u  i% G  D! N3 u5 w　　4. 在“退出”菜单项的“结果”选择“命令”，并在“选项”处输入“set sysmenu to default”。
# i/ w, M9 g2 P6 g4 o　　三、
　　1. 在命令窗口中输入建立表单命令
$ ~" l2 v5 M- {! A# V　　CREATE FORM Myform1
, y# g" ]; ~+ c; t3 v, b　　2. 在“表单设计器”中，在“属性”的Caption处输入“成绩查询”。
　　3. 在“表单设计器”中，添加一个标签控件，在“属性”的Caption处输入“输入学号”。再在“学号”标签的后面添加一个文本框“Text1”。
　　4. 在“表单设计器”中，添加一个表格控件，在“属性”的RecordSourceType处选择“4 - SQL 说明”。
　　5. 在“表单设计器”中，添加两个命令按钮，单击第1个命令按钮在“属性”的Caption处输入“查询”，单击第2个命令按钮在“属性”的Caption处输入“退出”。
　　6. 双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入命令，接着关闭编辑窗口。
　　close all
* W! E) Y/ E. @+ T　　use score1
　　locate for 学号=alltrim(ThisForm.Text1.Value)
1 {: T7 b, U8 e/ K, T　　if .not.found()
　　WAIT "学号不存在，请重新输入" WINDOWS TIMEOUT 5
　　else
　　ThisForm.Grid1.Recordsource="sele 课程名,成绩 from score1,course where 学号=alltrim(ThisForm.Text1.Value) and score1.课程号=course.课程号 into cursor temp1"
　　select temp1
　　go top
  P$ {: H2 T6 T' ?　　endif
　　7. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。