</p> 三、
. ?% J& y, P' v 1. 新建表单- L7 z! k9 ?* i% h) D
CREATE FORM testb
0 {5 {; X: H$ a* G( E 2. 在“表单设计器”中,在“属性”的Caption处输入“查询”,在AutoCenter处选择“.T. - 真”。' b6 ^+ [+ U0 z2 F. ?. B ~# m$ b$ S
3. 单击“显示\数据环境”菜单项,在“打开”对话框中双击表“学生表”,再单击“关闭”来关闭“添加表或视图”对话框。
- c. E5 ?$ ^& t. P1 ]7 B 4. 在“表单设计器-testb.scx”中,添加一个标签Label1,在其“属性”的Caption处输入“学生注册日期”。
5 z' t" u) G. o. }0 Q 5. 在“表单设计器-testb.scx”中,添加一个文本框Text1。
: j% t/ C. l$ p U 6. 在“表单设计器-testb.scx”中,添加一个表格Grid1,在其“属性”的RecordSourceType处选择“4 - SQL 说明”。
9 V' F! M$ I0 \ H8 u1 z) W 7. 在“表单设计器-testb.scx”中,添加两个命令按钮,在第1个命令按钮“属性”窗口的Caption处输入“查询”,在第2个命令按钮“属性”窗口的Caption处输入“退出”。9 y# n/ c3 `7 }' `+ W9 O6 t1 N
8. 在“表单设计器”中,双击“查询”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。
# O- C# w# ?8 x ThisForm.Grid1.RecordSource = "SELECT 学号,姓名,年龄,性别,班级,注册日期 FROM 学生表;
# z3 U. ?7 S: i* K9 [, `: w WHERE 注册日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄 DESC INTO CURSOR lsb" R5 T8 o' b: @ J, p% V
SELECT 学号,姓名,年龄,性别,班级,注册日期;# s* B' |0 F' N1 a" I
FROM 学生表;
( i7 `. ]9 f6 n1 { P0 [- @; y" s WHERE 注册日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄 DESC INTO table ls1 u7 w9 t7 k* ]0 b( |: g
USE TABE' x. Y# L# Z3 P( i$ n% c+ `) `/ J
ZAP
+ d" h4 F, M1 e9 f" u$ t9 c; r' y APPEND FROM ls
9 N2 I- P, w7 M USE
, X- X) [0 Y/ z+ h 9. 在“表单设计器”中,双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”语句,接着关闭编辑窗口。 |