綜合應(yīng)用(1小題,計(jì)30分)
在考生文件夾下,打開SDB數(shù)據(jù)庫,完成如下應(yīng)用:
創(chuàng)建一個(gè)標(biāo)題名為"查詢"、文件名為testb的表單,如下圖所示。
表單要求如下:
1. 為表單建立數(shù)據(jù)環(huán)境,向數(shù)據(jù)環(huán)境添加"學(xué)生表"。
2. 表單啟動(dòng)后自動(dòng)居中。
3. 在該表單中設(shè)計(jì)一個(gè)標(biāo)簽、一個(gè)文本框、一個(gè)表格和兩個(gè)命令按鈕。
1) 標(biāo)簽對象標(biāo)題文本為"學(xué)生注冊日期"(Label1);文本框用于輸入學(xué)生注冊日期(Text1);表格控件用于顯示結(jié)果(Grid1)。
2) 命令按鈕的功能如下:
①"查詢"按鈕(Command1):在該按鈕的Click事件中使用SQL的SELECT命令從"學(xué)生表"中查詢學(xué)生注冊日期等于文本框中指定的注冊日期的學(xué)生的學(xué)號、姓名、年齡、性別、班級和注冊日期,查詢結(jié)果按年齡降序排序,并將查詢結(jié)果在表格控件中顯示,同時(shí)將查詢結(jié)果存儲(chǔ)到表TABE中。
注意:查詢結(jié)果存儲(chǔ)到表TABE之前,應(yīng)將表TABE中記錄清空。TABE表是已經(jīng)建立好的表,它與學(xué)生表的結(jié)構(gòu)不完全一樣,多兩個(gè)字段。
②"退出"按鈕(Command2):的功能是"關(guān)閉和釋放表單"。
注意:表格控件的RecordSourceType屬性設(shè)置為"4-SQL說明";表單設(shè)計(jì)完成后,運(yùn)行該表單,查詢注冊日期等于2005年9月2日的學(xué)生信息。
解題思路:
1. 新建表單。 在“表單設(shè)計(jì)器”中,在“屬性”的Caption處輸入“查詢”,在AutoCenter處選擇“.T.- 真”。單擊“顯示\數(shù)據(jù)環(huán)境”菜單項(xiàng),在“打開”對話框中雙擊表“學(xué)生表”,再單擊“關(guān)閉”來關(guān)閉“添加表或視圖”對話框。在“表單設(shè)計(jì)器-testb.scx”中,添加一個(gè)標(biāo)簽Label1,在其“屬性”的Caption處輸入“學(xué)生注冊日期”。在“表單設(shè)計(jì)器-testb.scx”中,添加一個(gè)文本框Text1。在“表單設(shè)計(jì)器-testb.scx”中,添加一個(gè)表格Grid1,在其“屬性”的RecordSourceType處選擇“4 - SQL 說明”。在“表單設(shè)計(jì)器-testb.scx”中,添加兩個(gè)命令按鈕,在第1個(gè)命令按鈕“屬性”窗口的Caption處輸入“查詢”,在第2個(gè)命令按鈕“屬性”窗口的Caption處輸入“退出”。在“表單設(shè)計(jì)器”中,雙擊“查詢”命令按鈕,在“Command1.Click”編輯窗口中輸入下列語句,接著關(guān)閉編輯窗口。
ThisForm.Grid1.RecordSource = "SELECT 學(xué)號,姓名,年齡,性別,班級,注冊日期 FROM 學(xué)生表;
WHERE 注冊日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年齡 DESC INTO CURSOR lsb"
SELECT 學(xué)號,姓名,年齡,性別,班級,注冊日期 FROM 學(xué)生表;
WHERE 注冊日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年齡 DESC INTO table ls
USE TABE
ZAP
APPEND FROM ls
USE
9. 在“表單設(shè)計(jì)器”中,雙擊“退出”命令按鈕,在“Command2.Click”編輯窗口中輸入
“Release Thisform”語句,接著關(guān)閉編輯窗口。
![]() | ![]() .. 定價(jià):¥45 優(yōu)惠價(jià):¥42 更多書籍 |
![]() | ![]() .. 定價(jià):¥225 優(yōu)惠價(jià):¥213 更多書籍 |