第25套 一、 a' h4 S0 f" b( G
1. 打开数据库
1 s2 c- T/ d9 y( \# H OPEN DATABASE test_db
- v6 V( v# T) b C2 g5 G- H4 b 2. 使用命令建立主索引
8 r6 o5 O# u7 u+ H w' P ALTER TABLE sell ADD PRIMARY KEY 部门号+年度+月份 TAG pk, V% @1 d2 M& ~' a. d
1. 打开数据库
# y, d _, y: E9 L8 ^6 X OPEN DATABASE test_db4 R Y$ x. }& h+ H6 k) s
2. 添加表到数据库中
4 c6 X$ u* i, f' ^) [ ADD TABLE datatest# \3 \$ A4 ]& k; J0 s: J% _
ADD TABLE model
* w' o/ ]* c% P5 | R' Q$ f# }8 T8 x ADD TABLE tabc
* X4 z N" d \& M8 y7 U2 X( d ADD TABLE pass% y# f2 x* Q, u7 w+ q
CREATE TABLE test(部门号 C(2), 年份 C(4), 销售额合计 N(8,2)); @ n5 e: S; j! L
1. 单击“工具\向导\报表”菜单项,并显示“向导选取”对话框。# m/ q% c8 L( Z/ @; \' i
2. 在“向导选取”对话框中,选择“报表向导”并单击“确定”按钮,并显示“报表向导”对话框。* F6 L( i8 r- {, g9 q' [& p
3. 在“报表向导”对话框的“步骤1-字段选取”中,首先要选取表“sell”,在“数据库和表”列表框中,选择表“sell”,接着在“可用字段”列表框中显示表“sell”的所有字段名,并选定所有字段名至“选定字段”列表框中,单击“完成”按钮。
# d+ |/ A& Y8 U6 ]) Z; {+ q c: ` 4. 在“报表向导”对话框的“步骤6-完成”中,再单击“完成”。) m) C' ]' ?- G# S: c- `
5. 在“另存为”对话框中,输入保存报表名“two”,再单击“保存”按钮,最后报表就生成了。3 I4 p, ?2 W# E7 L. |6 s
二、% B* A8 [( y6 T) w5 ^5 L
1. 单击“工具\向导\报表”菜单项,并显示“向导选取”对话框。
( r- l/ ?0 ^- E/ t7 e 2. 在“向导选取”对话框中,选择“报表向导”并单击“确定”按钮,并显示“报表向导”对话框。
% V Z! F" i! C, A 3. 在“报表向导”对话框的“步骤1-字段选取”中,首先要选取表“sell”,在“数据库和表”列表框中,选择表“sell”,接着在“可用字段”列表框中显示表“sell”的所有字段名,并选定所有字段名至“选定字段”列表框中,单击“完成”按钮。% X3 h" a' ~) t7 P7 B# S0 G% j
4. 在“报表向导”对话框的“步骤6-完成”中,再单击“完成”。
: ]! {; R4 ?7 t. V 5. 在“另存为”对话框中,输入保存报表名“two”,再单击“保存”按钮,最后报表就生成了。# l: X1 l* b: l3 u, v
1. 打开并修改表单
# e( z( G7 k) W5 y MODIFY FORM testA
" `1 \% H9 { Z6 k$ f/ Y$ { 2. 选中Text2,在其“属性”的PasswordChar处输入“*”。
0 O1 T4 z; ~' L8 Z% U4 ^& F+ \ 3. 双击“确认”按钮,在“Command1.Click”编辑窗口中进行修改指定的行。
( e9 ^! g' a9 U7 k 第3行:取Text2文本框的值,所以应改为:Key2=ALLTRIM(ThisForm.Text2.Value)$ x; p5 h# n; Z; ^$ \" S; }
第4行:用查找方法检测用户名,所以应改为:LOCATE ALL FOR USER=Key1
! \ s6 M6 b% J/ M 第12行:不正确超过3次,也要退出表单,所以也应改为:ThisForm.Release3 e# z& n. A, y" ~
三、$ L7 x3 R( W' R# W9 H; k
1. 在命令窗口中输入建立表单命令
0 C; r4 R* j: U. J s! {- ~" J CREATE FORM myform6 r# w( ]) E1 A0 H
2. 在“表单设计器”中,在其“属性”的Name处输入“myform”。
; r. h0 q- X/ H* k. N 3. 在“表单设计器”中,分别添加一个文本框Text1和表格Grid1。
2 o. I$ s. P6 h; {& J/ Y: Y 4. 在“表单设计器”中,添加一个命令按钮Command1,在其命令按钮的“属性”的Caption处输入“确定”。
$ t6 ~. }3 I. N2 J6 e! P. f4 A) q 5. 双击“确定”按钮,在“Command1.Click”编辑窗口中输入下列程序1 ^( E7 q, g0 P3 m! K" s
dn=thisform.text1.value' I f/ l$ q6 H/ u6 c
SELECT Sell.年度, SUM(Sell.销售额) 销售额,;
5 e; }( C5 i5 R& p! p/ J SUM(Sell.销售额)- SUM(Sell.工资额) 利润;
* I2 T$ i8 ^- k( Y! t FROM sell where 部门号 in;
4 _2 f$ a# O7 T3 {, J. x (select 部门号 from dept where 部门名=dn);
1 @. d+ _0 A& _- n( m9 [ GROUP BY Sell.年度 into dbf &dn
* W7 H& b) F# ~, \5 U# b6 E) z thisform.grid1.recordsource=dn |