第10套 一、/ `$ y9 m* I @; \! }& g
ALTER TABLE TABB ADD COLUMN 日期 D
4 \3 Q+ \7 C6 q9 a: O$ T 在文件two.prg中存放:
; q* J1 n% s* ]. p UPDATE TABB SET 日期 = {^2005.10.01}
2 y6 g0 A# X; L5 V 在文件three.prg中存放:
0 D3 }9 Y! m0 `% H; k+ e, C1 [ SELECT DISTINCT * FROM TABA INTO TABLE TABC6 g# B/ D, T% A8 J
1. 单击“工具\向导\报表”菜单项,并显示“向导选取”对话框。
- o! w5 o6 L! e 2. 在“向导选取”对话框中,选择“报表向导”并单击“确定”按钮,并显示“报表向导”对话框。
6 r+ V3 W$ g+ }9 ` 3. 在“报表向导”对话框的“步骤1-字段选取”中,首先要选取表“taba”,在“数据库和表”列表框中,选择表“taba”,接着在“可用字段”列表框中显示表taba的所有字段名,并选定所有字段名至“选定字段”列表框中,单击“下一步”按钮。* \# B' g4 N( o5 ?3 e
4. 在“报表向导”对话框的“步骤2-分组记录”中,单击“下一步”按钮。0 |% _$ A( ?, N. g# ], T. q a
5. 在“报表向导”对话框的“步骤3-选择报表样式”中,在“样式”中选择“随意式”,单击“下一步”按钮。
- s0 `! |- O! G4 V4 I0 q/ r8 G7 C 6. 在“报表向导”对话框的“步骤4-定义报表布局”中,在“列数”处选择为“1”,在“方向”处选择“横向”,在“字段布局”处选择“列”,单击“下一步”按钮。
3 V" D) t+ T0 i' [5 | 7. 在“报表向导”对话框的“步骤5-排序次序”中,选定“No”字段并选择“升序”,再单击“添加”按钮,单击“完成”按钮。2 } ]0 z- Q7 ^; |3 H/ Q2 M
8. 在“报表向导”对话框的“步骤6-完成”中,在“报表标题”文本框中输入“计算结果一览表”,单击“完成”。
7 ?# Q; ]5 X3 g" b) b4 m" n 9. 在“另存为”对话框中,输入保存报表名“p_one”,再单击“保存”按钮,最后报表就生成了。, [5 r" C- K+ f% @( U& F
二、+ {5 v) I/ u- p7 C
在文件four.prg中存放:4 c4 O8 M5 I+ g r$ t! `2 H' U7 R0 t$ j
USE TABA+ ^( b+ G1 p, `5 L( b8 \, u
SCAN5 @) Z' x: J- _6 X5 `% |4 r2 m
X = B**2 - 4*A*C
# k4 K5 n8 x4 O! e IF X >= 02 r6 e: ]+ Z4 Q% f+ ?4 w' d& W
XX1 = (-B + SQRT(X))/(2*A)
3 z1 v& P+ n: V9 F XX2 = (-B - SQRT(X))/(2*A)1 r+ M: S" R* u1 E+ E7 m$ c
REPLACE x1 with xx1,x2 with xx2
1 T, H+ ~' s% {3 j+ c2 E7 B! u ELSE9 s r4 ~% p3 E& R; v: b& B
REPLACE x1 with .null.,x2 with .null.,NOTE WITH "无实数解"" U: E+ v0 p! t: z
ENDIF1 u( H- w" E9 s
ENDSCAN
3 t E2 k1 s0 L: N 1. 打开并修改表单! ^2 f+ }- ~; h; B$ w' J7 P
MODIFY FORM testA
9 `0 \! F0 Q) ]2 V; c 2. 先按住Shift键,同时选中“查询”和“退出”两个按钮,在其“属性”的Width处输入“80”,在Height处输入“30”,在Top处输入某一个数即可。: u" C% E9 k, g3 C/ ?! ^6 Y; l
3. 双击“查询”按钮,在Command1.Click编辑窗口中输入“SELECT * FROM TABA WHERE note = "无实数解" into table TABD”语句,并关闭编辑窗口。
0 D* I! w; x' q+ y" D l% O% ^0 J0 Y, M' g$ z' N/ I
4. 双击“退出”按钮,在Command2.Click编辑窗口中输入“RELEASE THISFORM”语句,并关闭编辑窗口。 |