第36套 一、
2 c1 G+ ]9 [# A/ ^ 1. 打开并修改表单. e. {: l0 z9 X X) j+ H6 s
MODIFY FORM one
0 `" A8 A! z' m$ `' t, |3 S* R9 x0 U 2. 在“表单设计器-one.scx”中,选择中“关闭”按钮,在其“属性”的TabIndex处输入“2”。
) O7 `- m+ s9 w 2. 在“表单设计器-one.scx”中,选择中“退出”按钮,在其“属性”的TabIndex处输入“3”。
, U( V' `/ O% m) S, T1 p" J k 1. 打开并修改表单
9 N8 C9 N0 I9 Q$ B9 X MODIFY FORM two
: h. B3 S) ?7 U' k+ |, N: D/ k C# D b 2. 在“表单设计器-two.scx”中,选按住Shift键,再依次选中三个命令按钮,在“属性”的TOP处输入一个数即可。! }* X; I6 F: B H) q5 |
在文件three.prg中存放
8 U* g* O+ c y4 P! m" O. K CREATE TABLE 分组情况表(组号 C(2),组名 C(10)); q' q! O/ C5 j$ n- n' L. F
在文件four.prg中存放:8 \' Q) {7 H& [2 k. u
INSERT INTO 分组情况表 VALUES ("01","通俗唱法") s6 X- o6 f0 k0 c5 m
二、* }2 L* U, G0 ]; g8 h+ {
第1处:DO WHILE NOT EOF()! L' M' Y. x( j1 x- q
第2处:SELECT COUNT(*) FROM 歌手表 WHERE LEFT(歌手表.歌手编号,2)=zuhao INTO ARRAY A( B! Y# U# A. T! l
第3处:REPLACE 歌手人数 WITH A[1]" ?4 q$ ]1 K% b
CREATE DATABASE 歌手大奖赛$ Y& L/ F3 J; l: s [' V* \8 ^2 L
ADD TABLE 歌手表- r7 p6 l/ Y& l, B; ~
ADD TABLE 评委表2 O, H S4 |1 j5 q
ADD TABLE 评分表
/ N1 w. @; I' |& p. V. ~: P 1. 打开并修改数据库
# V- |1 U$ j' J4 M( M MODIFY DATABASE 歌手大奖赛
! K& m! c* ]! @/ ~8 N { 2. 单击“文件\新建”菜单项,在“新建”对话框中选择“视图”单选钮,再单击“新建文件”。在“添加表或视图”对话框中,双击表“评分表”(或单击选中表“歌手表”,接着单击“添加”按钮),再双击表“评委表”,在“联接条件”对话框中直接单击“确定”按钮,再双击表“评委表”,在“联接条件”对话框中直接单击“确定”按钮,把这三个表文件添加到“视图设计器”中,接着单击“关闭”按钮,来关闭“添加表或视图”对话框。
& g" W) Z- K; t8 L5 q0 X8 g6 M 3. 单击“字段”选项卡,选择试题要求的字段添加到“选定字段”列表框中。% G( Q; s! T: l& n
5. 单击“排序依据”选项卡,选择“歌手姓名”并选择“升序”,接着单击“添加”按钮,选择“分数”并单击“添加”按钮,再选择“降序”单选钮。
% W6 N0 E$ p+ `; e: Z 6. 保存该视图,在“保存”对话框中输入视图名“songer_view”。
: e) ~/ e+ p6 Q( b5 C 三、7 Y* Z7 U8 F; V% m- u7 v
1. 建立表单
* X1 n& i/ H5 _" ^ CREATE FORM myform
1 Z$ N* K3 `7 K- L$ Z 2. 在“表单设计器”中,添加一个列表框List1,在其“属性”的RowSourceType处选择“1 - 值”,在RowSource处输入“01,02,03,04”。; m' `8 M: |# w, V
3. 在“表单设计器”中,添加一个文本框Text1。7 u$ S: w! O, \! F: a9 }
4. 在“表单设计器”中,添加两个命令按钮(Command1和Command2),在第1个命令按钮Command1“属性”窗口的Caption处输入“计算”,在第2个命令按钮Command2“属性”窗口的Caption处输入“退出”。% g; h. ~& n0 r: C* Z' c! n* b
5. 双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“ThisForm.Release”,接着关闭编辑窗口。
V0 k' b# |% u/ X6 v5 J) K8 j 6. 双击“查询”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。
! G Y# T" h5 y2 a+ H- t0 c num=ThisForm.list1.value6 i5 p: ]6 n6 R! ^
SELECT * FROM 评分表 WHERE left(歌手编号,2)=num;
! Y7 g% V; h- h: o' J4 G" b9 S Order by 歌手编号 desc,分数 into dbf two |