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

会计考友

第10套　　一、
  h) e. N' E3 g" h, z　　ALTER TABLE TABB ADD COLUMN 日期 D
　　在文件two.prg中存放：
& h: p+ a7 N2 @4 A6 [+ o3 N　　UPDATE TABB SET 日期 = {^2005.10.01}
　　在文件three.prg中存放：
5 Y" j) `9 C0 ?# p　　SELECT DISTINCT * FROM TABA INTO TABLE TABC
　　1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。
　　2. 在“向导选取”对话框中，选择“报表向导”并单击“确定”按钮，并显示“报表向导”对话框。
　　3. 在“报表向导”对话框的“步骤1-字段选取”中，首先要选取表“taba”，在“数据库和表”列表框中，选择表“taba”，接着在“可用字段”列表框中显示表taba的所有字段名，并选定所有字段名至“选定字段”列表框中，单击“下一步”按钮。
　　4. 在“报表向导”对话框的“步骤2-分组记录”中，单击“下一步”按钮。
( j  L! S4 c- v; }8 R" B　　5. 在“报表向导”对话框的“步骤3-选择报表样式”中，在“样式”中选择“随意式”，单击“下一步”按钮。
1 \( N# u, g) Z! F; Y! g　　6. 在“报表向导”对话框的“步骤4-定义报表布局”中，在“列数”处选择为“1”，在“方向”处选择“横向”，在“字段布局”处选择“列”，单击“下一步”按钮。
　　7. 在“报表向导”对话框的“步骤5-排序次序”中，选定“No”字段并选择“升序”，再单击“添加”按钮，单击“完成”按钮。
" J8 e4 z4 w$ V" k* N; l( a　　8. 在“报表向导”对话框的“步骤6-完成”中，在“报表标题”文本框中输入“计算结果一览表”，单击“完成”。
　　9. 在“另存为”对话框中，输入保存报表名“p_one”，再单击“保存”按钮，最后报表就生成了。
5 A% K  ?3 e; ?  I! r( E　　二、
; t/ v+ G) x. B: i6 u　　在文件four.prg中存放：
% @6 |, o' e1 L( W2 W. U) D　　USE TABA
) r1 ?  `3 j9 y: f6 I　　SCAN
( \* r! r' K. j5 R* I* v, V+ Z7 e　　X = B**2 - 4*A*C
2 c4 R$ Z7 I% Q+ c　　IF X >= 0
　　XX1 = (-B + SQRT(X))/(2*A)
　　XX2 = (-B - SQRT(X))/(2*A)
　　REPLACE x1 with xx1,x2 with xx2
, V8 G4 L$ Y, P: g* `2 L　　ELSE
9 G  ^0 R1 t" Z, T7 ^# E　　REPLACE x1 with .null.,x2 with .null.,NOTE WITH "无实数解"
　　ENDIF
　　ENDSCAN
- p1 R6 A8 w0 ^5 y　　1. 打开并修改表单
　　MODIFY FORM testA
, C" K# u: z4 E" T% O" ?5 H$ ^　　2. 先按住Shift键，同时选中“查询”和“退出”两个按钮，在其“属性”的Width处输入“80”，在Height处输入“30”，在Top处输入某一个数即可。
+ R! p1 @: k& @* N　　3. 双击“查询”按钮，在Command1.Click编辑窗口中输入“SELECT * FROM TABA WHERE note = "无实数解" into table TABD”语句，并关闭编辑窗口。
　　4. 双击“退出”按钮，在Command2.Click编辑窗口中输入“RELEASE THISFORM”语句，并关闭编辑窗口。

会计考友

　三、　　1. 新建表单
　　CREATE FORM testb
　　2. 在“表单设计器”中，在“属性”的Caption处输入“查询”，在AutoCenter处选择“.T. - 真”。
　　3. 单击“显示\数据环境”菜单项，在“打开”对话框中双击表“学生表”，再单击“关闭”来关闭“添加表或视图”对话框。
0 o1 z4 e% N$ J/ }" S　　4. 在“表单设计器-testb.scx”中，添加一个标签Label1，在其“属性”的Caption处输入“学生注册日期”。
1 q' S0 b$ [5 h! D) m" i　　5. 在“表单设计器-testb.scx”中，添加一个文本框Text1。
　　6. 在“表单设计器-testb.scx”中，添加一个表格Grid1，在其“属性”的RecordSourceType处选择“4 - SQL 说明”。
5 T" V% J* c4 N7 M& t8 a. p　　7. 在“表单设计器-testb.scx”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“查询”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。
5 N( M5 p0 F6 @　　8. 在“表单设计器”中，双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。
' x1 p) @* w3 D4 v9 A9 v1 M! F, J　　ThisForm.Grid1.RecordSource = "SELECT 学号,姓名,年龄,性别,班级,注册日期 FROM 学生表;
　　WHERE 注册日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄 DESC INTO CURSOR lsb"
+ p6 y4 n- B+ o1 F7 D' F1 z　　SELECT 学号,姓名,年龄,性别,班级,注册日期;
  H/ ~$ c2 W0 t6 e/ h/ H　　FROM 学生表;
　　WHERE 注册日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄 DESC INTO table ls
4 J) F" l8 Q6 j9 {　　USE TABE
6 f$ N( d' t0 W) U- B& R. V  F3 J# Y　　ZAP
　　APPEND FROM ls
　　USE
2 J  E/ b8 z( @" T$ }4 Q+ L　　9. 在“表单设计器”中，双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”语句，接着关闭编辑窗口。