2011年计算机二级VFP上机考试冲刺模拟试题（25）

会计考友

　　第25套
　　一、
　　1. 打开数据库
) O) z1 S! j' f+ Q1 @9 L2 g5 p　　OPEN DATABASE test_db
8 C- t% v. u( w4 W, v　　2. 使用命令建立主索引
　　ALTER TABLE sell ADD PRIMARY KEY 部门号+年度+月份 TAG pk
　　1. 打开数据库
1 v# g* D: t  R2 R) }0 s' S8 u　　OPEN DATABASE test_db
! @; }0 @1 a% s7 q  M- n　　2. 添加表到数据库中
　　ADD TABLE datatest
& A& m; {( V& C　　ADD TABLE model
0 m' H/ u0 o8 Y- O1 ~7 m　　ADD TABLE tabc
; w# k% x$ A, r5 L5 t　　ADD TABLE pass
　　CREATE TABLE test(部门号 C(2), 年份 C(4), 销售额合计 N(8,2))
　　1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。
　　2. 在“向导选取”对话框中，选择“报表向导”并单击“确定”按钮，并显示“报表向导”对话框。
  ]: S7 @1 \- Y. C6 z* _　　3. 在“报表向导”对话框的“步骤1-字段选取”中，首先要选取表“sell”，在“数据库和表”列表框中，选择表“sell”，接着在“可用字段”列表框中显示表“sell”的所有字段名，并选定所有字段名至“选定字段”列表框中，单击“完成”按钮。
　　4. 在“报表向导”对话框的“步骤6-完成”中，再单击“完成”。
　　5. 在“另存为”对话框中，输入保存报表名“two”，再单击“保存”按钮，最后报表就生成了。
　　二、
6 D+ D" k7 w( e' P5 a' u2 _　　1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。
, w" R# G4 H3 b6 ^- N1 k( J1 u* ^* f5 Y　　2. 在“向导选取”对话框中，选择“报表向导”并单击“确定”按钮，并显示“报表向导”对话框。
7 z- K! [! N1 I" S- h　　3. 在“报表向导”对话框的“步骤1-字段选取”中，首先要选取表“sell”，在“数据库和表”列表框中，选择表“sell”，接着在“可用字段”列表框中显示表“sell”的所有字段名，并选定所有字段名至“选定字段”列表框中，单击“完成”按钮。
7 g2 H. i6 [; {2 `" z" A; `( e　　4. 在“报表向导”对话框的“步骤6-完成”中，再单击“完成”。
　　5. 在“另存为”对话框中，输入保存报表名“two”，再单击“保存”按钮，最后报表就生成了。
. D% b' J7 n0 E4 l2 O　　1. 打开并修改表单
# w! u/ t- U8 |! }/ H3 Y　　MODIFY FORM testA
　　2. 选中Text2，在其“属性”的PasswordChar处输入“*”。
4 Z& \2 p, D, C　　3. 双击“确认”按钮，在“Command1.Click”编辑窗口中进行修改指定的行。
- N6 Z. r; n6 S3 B　　第3行：取Text2文本框的值，所以应改为：Key2=ALLTRIM(ThisForm.Text2.Value)
　　第4行：用查找方法检测用户名，所以应改为：LOCATE ALL FOR USER=Key1
0 g0 i5 b, ~, R　　第12行：不正确超过3次，也要退出表单，所以也应改为：ThisForm.Release
　　三、
　　1. 在命令窗口中输入建立表单命令
　　CREATE FORM myform
" y2 J, L& Q, p& m1 E　　2. 在“表单设计器”中，在其“属性”的Name处输入“myform”。
　　3. 在“表单设计器”中，分别添加一个文本框Text1和表格Grid1。
　　4. 在“表单设计器”中，添加一个命令按钮Command1，在其命令按钮的“属性”的Caption处输入“确定”。
% E" }- R7 }9 m$ I　　5. 双击“确定”按钮，在“Command1.Click”编辑窗口中输入下列程序
　　dn=thisform.text1.value
9 a( ~; e5 E4 w2 U; I　　SELECT Sell.年度, SUM(Sell.销售额) 销售额,;
% `5 ]- s- S1 Z8 D# y7 z& s　　SUM(Sell.销售额)- SUM(Sell.工资额) 利润;
　　FROM sell where 部门号 in;
" i+ X# M1 M; ~/ s  }6 g8 @) o　　(select 部门号 from dept where 部门名=dn);
　　GROUP BY Sell.年度 into dbf &dn
　　thisform.grid1.recordsource=dn