三、 1. 新建表单
( W9 U1 f7 ^; t1 ]# [9 l CREATE FORM testb
6 G1 e# W/ L' @7 g 2. 在“表单设计器”中,在“属性”的Caption处输入“查询”,在AutoCenter处选择“.T. - 真”。4 f9 \4 m& R+ @: u. K9 S7 w
3. 单击“显示\数据环境”菜单项,在“打开”对话框中双击表“学生表”,再单击“关闭”来关闭“添加表或视图”对话框。 d: P( ], q4 f: ]" h
4. 在“表单设计器-testb.scx”中,添加一个标签Label1,在其“属性”的Caption处输入“学生注册日期”。1 z6 \* X% c$ r+ g# _1 K
5. 在“表单设计器-testb.scx”中,添加一个文本框Text1。
7 P6 r+ \7 Z n+ m1 e 6. 在“表单设计器-testb.scx”中,添加一个表格Grid1,在其“属性”的RecordSourceType处选择“4 - SQL 说明”。) l' k+ _" f4 z* s- ?" x. A& U
7. 在“表单设计器-testb.scx”中,添加两个命令按钮,在第1个命令按钮“属性”窗口的Caption处输入“查询”,在第2个命令按钮“属性”窗口的Caption处输入“退出”。
+ p% f) X5 `, I. d6 \ 8. 在“表单设计器”中,双击“查询”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。% k5 l+ b! _& i e# P) n1 n
ThisForm.Grid1.RecordSource = "SELECT 学号,姓名,年龄,性别,班级,注册日期 FROM 学生表;: t* H! a5 ?: `; L
WHERE 注册日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄 DESC INTO CURSOR lsb"0 {% f5 h% N Z- r( }! ?8 {4 Q9 _
SELECT 学号,姓名,年龄,性别,班级,注册日期;. }* l& L. [5 J" L. N2 o: {
FROM 学生表;
6 _; r ? k& K& z- J( ^: Y' A4 w WHERE 注册日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄 DESC INTO table ls, i- N2 I. r6 c9 _- E+ w, Y, T
USE TABE, u/ {9 H; O; t, N- {
ZAP# }$ x9 W$ h7 }
APPEND FROM ls: S) ~; T* s; k, x3 |
USE* B# u0 H1 J9 O
9. 在“表单设计器”中,双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”语句,接着关闭编辑窗口。 |