二、 1. 单击“工具\向导\表单”菜单项,并显示“向导选取”对话框。
# X' h3 O! X( a/ u: X 2. 在“向导选取”对话框中,选择“表单向导”并单击“确定”按钮,并显示“表单向导”对话框。
+ S, `* R' a$ P% X- ~+ M 3. 在“表单向导”对话框的“步骤1-字段选取”中,首先要选取表“商品”,在“数据库和表”列表框中,选择表“商品”,接着在“可用字段”列表框中显示表“商品”的所有字段名,并选定所有字段名,再单击“下一步”按钮。: I" v/ P1 j. i* L3 p3 v
4. 在“表单向导”对话框的“步骤2-选择表单样式”中,在“样式”中选择“阴影式”,在“按钮类型”中选择“图片按钮”,再单击“下一步”按钮。
7 X. b+ i: ~2 G5 F 5. 在“表单向导”对话框的“步骤3-排序次序”中,选定“进货日期”字段并选择“升序”,再单击“添加”按钮,再单击“下一步”按钮。6 f0 o g3 d( M# a1 s
6. 在“表单向导”对话框的“步骤4-完成”中,在“请输入表单标题”文本框中输入“商品数据”,再单击“完成”。9 v+ A' Y- w/ @/ O" v& O# e" n
7. 在“另存为”对话框中,输入保存表单名“good_form”,再单击“保存”按钮,最后表单就生成了。/ p1 S( D9 C" e8 C- R: B
在文件cmd_ab.txt存放( l6 y% t; ]+ }& n; c9 N* Z8 x3 e
update 商品 set 销售价格=进货价格*(1+0.2268) where substr(商品编码,1,1)="3"
7 n: b( i! V* ^% e% i% \* k 三、
( T$ G: ~! f7 h9 | U' p: C( c 1. 建立表单0 c% F; E! {% g$ N* t( i+ w
CREATE FORM myform_a4 O6 N* J1 |0 j0 O6 f
2. 在“表单设计器”中,在“属性”的Caption处输入“商品浏览”,在Name处输入“myform_a”。( h/ [. U3 G7 a
3. 在“表单设计器”中,添加一个选项按钮组OptionGroup1,在“属性”的ButtonCount处输入“4”,并对其进行编辑,在Option1的Caption处输入“饮料”,在Option2的Caption处输入“调味品”,在Option3的Caption处输入“酒类”,在Option2的Caption处输入“小家电”。4 C4 B3 A! W2 A0 x& j: |
4. 在“表单设计器”中,添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入“退出”,在第2个命令按钮“属性”的Caption处输入“确定”。1 A% }# e/ t+ h; ?& g% y6 G
5. 在“表单设计器”中,双击“Command1”命令按钮,在“Command1.Click”编辑窗口中输入“Release Thisform”,接着关闭编辑窗口。
$ H; {* |, R1 W6 X3 W$ k$ R9 E 6. 在“表单设计器”中,双击“Command2”命令按钮,在“Command2.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。: ?7 a( P: N0 _5 g6 `
DO CASE
$ m' I5 ^7 Q2 q2 i2 E9 N CASE THISFORM.OPTIONGROUP1.VALUE=11 Q$ s5 W& p( T' ?/ S& k( `" i) }2 q: Q
SELECT * FROM 商品 WHERE 分类编码=ANY(SELECT 分类编码 FROM 分类 WHERE 分类名称="饮料")
, F! `, T: X/ d, h CASE THISFORM.OPTIONGROUP1.VALUE=2
' A1 v! G5 D' Z/ I SELECT * FROM 商品 WHERE 分类编码=ANY(SELECT 分类编码 FROM 分类 WHERE 分类名称="调味品")6 L# D p5 g- K5 N9 S
CASE THISFORM.OPTIONGROUP1.VALUE=3
6 X7 E& H" x% [2 s* Z7 ] SELECT * FROM 商品 WHERE 分类编码=ANY(SELECT 分类编码 FROM 分类 WHERE 分类名称="酒类")
5 D9 h6 D' n9 }2 q* b6 f+ E' o CASE THISFORM.OPTIONGROUP1.VALUE=4( e' T, n0 O7 @, j6 H/ t6 r* w. |
SELECT * FROM 商品 WHERE 分类编码=ANY(SELECT 分类编码 FROM 分类 WHERE 分类名称="小家电")
4 {# _! z9 C( j, |( m ENDCASE |