三、
1. 新建表單
CREATE FORM testb
2. 在“表單設計器”中,在“屬性”的Caption處輸入“查詢”,在AutoCenter處選擇“.T. - 真”。
3. 單擊“顯示\數(shù)據(jù)環(huán)境”菜單項,在“打開”對話框中雙擊表“學生表”,再單擊“關閉”來關閉“添加表或視圖”對話框。
4. 在“表單設計器-testb.scx”中,添加一個標簽Label1,在其“屬性”的Caption處輸入“學生注冊日期”。
5. 在“表單設計器-testb.scx”中,添加一個文本框Text1。
6. 在“表單設計器-testb.scx”中,添加一個表格Grid1,在其“屬性”的RecordSourceType處選擇“4 - SQL 說明”。
7. 在“表單設計器-testb.scx”中,添加兩個命令按鈕,在第1個命令按鈕“屬性”窗口的Caption處輸入“查詢”,在第2個命令按鈕“屬性”窗口的Caption處輸入“退出”。
8. 在“表單設計器”中,雙擊“查詢”命令按鈕,在“Command1.Click”編輯窗口中輸入下列語句,接著關閉編輯窗口。
ThisForm.Grid1.RecordSource = "SELECT 學號,姓名,年齡,性別,班級,注冊日期 FROM 學生表;
WHERE 注冊日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年齡 DESC INTO CURSOR lsb"
SELECT 學號,姓名,年齡,性別,班級,注冊日期;
FROM 學生表;
WHERE 注冊日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年齡 DESC INTO table ls
USE TABE
ZAP
APPEND FROM ls
USE
9. 在“表單設計器”中,雙擊“退出”命令按鈕,在“Command2.Click”編輯窗口中輸入“Release Thisform”語句,接著關閉編輯窗口。
相關鏈接:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |