亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

綜合應用（1小題，計30分）

SCORE_MANAGER數據庫中含有三個數據庫表STUDENT、SCORE1和COURSE。為了對SCORE_MANAGER數據庫數據進行查詢，設計一個如圖所示的表單Myform1(控件名為form1,表單文件名Myform1.scx)。表單的標題為"成績查詢"。表單左側有文本"輸入學號(名稱為Label1的標簽)"和用于輸入學號的文本框(名稱為Text1)以及"查詢"(名稱為Command1)和"退出"(名稱為Command2)兩個命令按鈕以及1個表格控件。

表單運行時，用戶首先在文本框中輸入學號,然后單擊"查詢"按鈕，如果輸入學號正確,在表單右側以表格(名稱為Grid1)形式顯示該生所選課程名和成績，否則提示"學號不存在，請重新輸入學號"。單擊"退出"按鈕，關閉表單。

解題思路：

點擊新建按鈕，新建一個表單。在“表單設計器”中，在“屬性”的Caption處輸入“成績查詢”。在“表單設計器”中，添加一個標簽控件，在“屬性”的Caption處輸入“輸入學號”。再在“學號”標簽的后面添加一個文本框“Text1”。在“表單設計器”中，添加一個表格控件，在“屬性”的RecordSourceType處選擇“4 -SQL 說明”。在“表單設計器”中，添加兩個命令按鈕，單擊第1個命令按鈕在“屬性”的Caption處輸入“查詢”，單擊第2個命令按鈕在“屬性”的Caption處輸入“退出”。雙擊“查詢”命令按鈕，在編輯窗口中輸入命令，接著關閉編輯窗口。

close all

use score1

locate for 學號=alltrim(ThisForm.Text1.Value)

if .not.found()

WAIT "學號不存在，請重新輸入" WINDOWS TIMEOUT 5

else

ThisForm.Grid1.Recordsource="select 課程名,成績 from score1,course where 學號;

=alltrim(ThisForm.Text1.Value) and score1.課程號=course.課程號 into cursor temp1"

endif

雙擊“退出”命令按鈕，輸入：Thisform.Release.