綜合應用題

　　11對“school”數據庫中的表“course”、“student”和“score”，建立文件名為“bd1”的表單，標題為“成績瀏覽”，表單上有三個命令按鈕即“學院成績”、“個人平均成績”和“關閉”。

　　單擊“學院成績”按鈕，查詢“計算機學院”所有學生的“考試成績”，結果中含“學號”、“課程編號”和“成績”等字段，查詢結果保存在表“result1”中。

　　單擊“個人平均成績”按鈕，查詢“成績”表中各人的“平均成績”，結果中包括字段“學號”、“姓名”和“平均成績”，查詢結果保存在表“result2”中。

　　單擊“關閉”按鈕，關閉表單。

　　參考解析：

　　【考點指引】本大題主要考查表單的建立，重點是命令按鈕事件代碼的編寫，在多表查詢中注意字段的關聯，這里還要用到AVG函數和GROUP BY分組命令。

　　【解題步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，將Caption屬性值修改為“成績瀏覽”，單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加3個命令按鈕Command1、Command2和Command3。

　　②分別選擇3個命令按鈕，在按鈕屬性窗口中將命令按鈕Command1的Caption屬性值修改為“學院成績”，將命令按鈕Command2的Caption屬性值修改為“個人平均成績”，將命令按鈕Command3的Caption屬性值修改為“關閉”，如圖53-1中輸入代碼：ThisForm.Release，用來關閉表單。

　　③雙擊“學院成績”命令按鈕，在Click事件中輸入以下代碼：

　　SELECTstudent.學號，課程編號，成績INTO TABLE result1 FROM student，score WHERE student.學號=score.學號AND院系=”計算機學院”

　　④雙擊“個人平均成績”命令按鈕，在Click事件中輸入以下代碼：SELECTstudent.學號，姓名，AVG(成績)AS平均成績INTO TABLE result2 FROM student，score WHERE student.學號=score.學號GROUP BY student.學號

　　⑤選擇【表單】→【執行表單】命令，系統首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名“bd1”，保存在考生文件夾下，然后運行表單。

　　12設計名為“bd2”的表單，表單的標題為：“股票持有情況”。表單中有一個文本框、一個表格和兩個命令鈕“查詢”和“關閉”。

　　運行表單時，在文本框中輸入某個股票的漢語拼音，然后單擊“查詢”，則表格中會顯示出所有賬戶相應股票的持有數量。

　　單擊“關閉”按鈕關閉表單。

　　參考解析：

　　【考點指引】本大題主要考查表單的設計，重點是文本框和表格控件的使用及命令按鈕事件代碼的編寫。

　　【解題步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，將Caption屬性值修改為“股票持有情況”，單擊表單控件工具欄上的“文本框”控件圖標，為表單添加1個文本框Textl，單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加兩個命令按鈕Commandl和Command2，單擊表單控件工具欄上的“表格”控件圖標，再添加一個表格控件。

　　②分別選擇兩個命令按鈕，在按鈕屬性窗口中將命令按鈕Commandl的Caption屬性值修改為“關閉”，如圖45-1所示。雙擊“關閉”命令按鈕，在Click事件中輸入代碼：ThisForm.Release，用來關閉表單。

　　③選擇表格控件“Gridl”，在表格控件屬性窗口中將“RecordSouree”屬性值修改為“〝〞”，將“RecordSourceType”屬性值修改為“1”。

　　④雙擊“查詢”命令按鈕，在Click事件中輸入代碼：

　　SELECT股票賬戶，持有數量INTOCURSORtmp　FROM股票賬戶，股票信息WHERE股票賬戶.股票代碼一股票信息.股票代碼AND漢語拼音=ThisForm.Textl.Value

　　ThisForm.Gridl.RecordSourceType=l

　　ThisForm.Gridl.RecordSource=〝trap〞

　　ThisForm.Gridl.Refresh

　　⑤選擇【表單】→【執行表單】命令，系統首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名“bd2”，保存在考生文件夾下，然后運行表單。

　　13在考生文件夾下完成如下綜合應用：

　　設計一個表單“bdl”，表單標題名為“部門年度數據查詢”，要求如下：

　　(1)為表單建立數據環境，向數據環境添加部門銷售表。

　　(2)當在“年度”標簽微調控件中選擇年度并單擊“查詢”按鈕，則會在下面的表格控件內顯示該年度各部門的“銷售額”和“利潤”。指定微調控件上箭頭按鈕(Spinner—HighValue屬性)與下箭頭按鈕(SpinnerLowValue屬性)值分別為“2008”和“2003”，缺省值(Value屬性)為“2007”，增量(Increment屬性)為“1”。

　　(3)單擊“關閉”按鈕，關閉表單。

　　參考解析：

　　【考點指引】本大題主要考查表單的設計，重點是微調控件和表格控件的使用。

　　【操作步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，在表單屬性窗口中將Caption屬性值修改為“部門年度數據查詢”，單擊表單控件工具欄上的“標簽”控件圖標，為表單添加一個標簽Label1，單擊表單控件工具欄上的“微調控件”控件圖標，為表單添加一個微調控件Spinner1，單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加兩個命令按鈕Command1和Com–mand2，單擊表單控件工具欄上的“表格”控件圖標，再添加一個表格控件Grid1。

　　②選擇標簽Label1，在標簽屬性窗口中將標簽Label1的Caption屬性值修改為“年度”。

　　③選擇微調控件Spinner1，在微調控件屬性窗口中將SpinnerHighValue屬性值修改為“2008”，將Spinner–LowValue屬性值修改為“2003”，將Value屬性值修改為“2007”。

　　④分別選擇兩個命令按鈕，在按鈕屬性窗口中將命令按鈕Command1的Caption屬性值修改為“查詢”，Command2的Caption屬性值修改為“關閉”，如圖29–1所示。雙擊“關閉”命令按鈕，在Click事件中輸入代碼：ThisForm.Release，用來關閉表單。

　　⑤在表單設計器中，用鼠標右鍵單擊表單空白處，在彈出的快捷菜單中選擇【數據環境】命令，打開表單的數據環境，選擇數據表文件“部門銷售”添加到數據環境中。

　　⑥選擇表格控件“Grid1”，在表格控件屬性窗口中將“RecordSource”屬性值修改為“〝″”，將“RecordSourceType”屬性值修改為“1”。

　　⑦雙擊“查詢”命令按鈕，在Click事件中輸入代碼：

　　SELECT*INTO CURSOR tmp FROM部門銷售WHERE年度=ALLTRIM(STR(INT(ThisForm.Spin–ner1.Value)))

　　ThisForm.Grid1.RecordSourceType=1

　　ThisForm.Grid1.RecordSource=〝trap″

　　ThisForm.Grid1.Refresh

　　⑧選擇【表單】→【執行表單】命令，系統首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名“bd1”，保存在考生文件夾下，然后運行表單。

　　14考生文件夾下存在數據庫“產品”，其中包含表“零件”和表“產品”，這兩個表存在一對多的聯系。對數據庫建立文件名為“bd3”的表單。

　　其中包含兩個表格控件。第一個表格控件用于顯示表“零件”的記錄，第二個表格控件用于顯示與表“零件”當前記錄對應的“產品”表中的記錄。

　　表單中還包含一個標題為“關閉”的命令按鈕，要求單擊此按鈕退出表單。

　　參考解析：

　　【考點指引】本大題考查的是表單的設計及表格控件的使用，注意表格控件數據源的設置。

　　【操作步驟】

　　①選擇【文件】→【打開】命令打開數據庫“產品”。

　　②選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加一個命令按鈕Command1;單擊表單控件工具欄上的“表格”控件圖標，再添加兩個表格控件“Grid1”和“Grid2”。

　　③選擇命令按鈕，在按鈕屬性窗口中將命令按鈕Command1的Name屬性值修改為“emdClose”，將Caption屬性值修改為“關閉”。雙擊“關閉”命令按鈕，在Click事件中輸入代碼：ThisForm.Release，用來關閉表單。

　　④在表單設計器中，用鼠標右鍵單擊表單空白處，在彈出的快捷菜單中選擇“數據環境”命令，打開表單的數據環境，選擇數據庫“產品”，將數據表文件“產品”和“零件”添加到數據環境中，如圖110-1所示。

　　⑤選擇表格控件“Grid1”，在表格控件屬性窗口中將“RecordSource”屬性值修改為“零件”，將“RecordSource-Type”屬性值修改為“0”，將“ReadOnly”屬性值修改為“.T.”;選擇表格控件“Grid2”，在表格控件屬性窗口中將“ReeordSource”屬性值修改為“""”，將“RecordSourceType”屬性值修改為“1”。

　　⑥在表單設計器中，選擇“Grid1”，在屬性窗口中雙擊“AfterRowColChange Event”，彈出事件過程代碼編輯窗口，輸入以下代碼：

　　SELECT產品.*INTO CURSOR tmp FROM產品

　　WHERE產品{零件編號=ThisForm.Grid1.columns(1).

　　textl.value

　　ThisForm.Grid2.RecordSourceType=1

　　ThisForm.Grid2.RecordSource="tmp"

　　ThisForm.Grid2.Refresh

　　⑦選擇【表單】→【執行表單】命令，系統首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名“bd3”，保存在考生文件夾下，然后運行表單。

　　15對“倉庫管理”數據庫中的表“倉庫”、“庫存”和“工作單”，建立文件名為“bd]”的表單，標題為“倉庫庫存瀏覽”，表單上有3個命令按鈕“商品進出倉瀏覽”、“庫存瀏覽”和“關閉”。

　　單擊“商品進出倉瀏覽”按鈕，查詢“001”號倉庫所有商品的進出倉情況(數據取自工作單)，結果中含“商品編號”、“日期”、“類型”和“數量”等字段，查詢結果保存在表“tablel”中。

　　單擊“庫存瀏覽”按鈕，查詢所有倉庫的庫存情況，結果中包括字段“倉庫編號”、“倉庫名稱”、“商品編號”、“期初數量”和“庫存數”，查詢結果保存在表“table2”中。

　　單擊“關閉”按鈕，關閉表單。

　　參考解析：

　　【考點指引】本大題主要考查表單的建立，重點是命令按鈕事件代碼的編寫，在多表查詢中注意字段的關聯，這里還要用到AVG函數和GR()UP BY分組命令。

　　【操作步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，將Caption屬性值修改為“倉庫庫存瀏覽”，單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加3個命令按鈕Command1、Command2和Command3。

　　②分別選擇3個命令按鈕，在按鈕屬性窗口中將Command1的Caption屬性值修改為“商品進出倉瀏覽”，Command2的Caption屬性值修改為“庫存瀏覽”，Command3的Caption屬性值修改為“關閉”，如圖78-1所示。雙擊“關閉”命令按鈕，在其Click事件中輸入代碼：ThisForm.Release，用來關閉表單。

　　③雙擊“商品進出倉瀏覽”命令按鈕，在其Click事件中輸入以下代碼：

　　SELECT商品編號，日期，類型，數量INTO TABLE table1 FROM工作單WHERE倉庫編號=〝001〞

　　④雙擊“庫存瀏覽”命令按鈕，在Click事件中輸入以下代碼：

　　SELECT倉庫編號，商品編號，SUM(數量)INTO ARRAY al FROM工作單WHERE類型=〝進倉〞GROUP BY商品編號

　　SELECT倉庫編號，商品編號，SUM(數量)INTO ARRAY a2 FROM工作單WHERE類型=〝出倉〞GROUP BY商品編號

　　FOR i=1 TO ALEN(a1)/3

　　UPDATE庫存SET入倉數量=al(i，3)WHERE倉庫編號=al(i，1)AND商品編號=al(i，2)

　　NEXT

　　FOR i=1 TO ALEN(a2)/3

　　UPDATE庫存SET出倉數量=a2(i，3)WHERE倉庫編號=a2(i，1)AND商品編號=a2(i，2)

　　NEXT

　　SELECT倉庫.倉庫編號，倉庫名稱，商品編號，期初數量，期初數量+人倉數量一出倉數量AS庫存數INTO

　　TABLE table2 FROM倉庫，庫存WHERE倉庫.倉庫

　　編號=庫存.倉庫編號

　　⑤選擇【表單】→【執行表單】命令，系統首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名“bd1”，保存在考生文件夾下，然后運行表單。

　　相關推薦：

　　各地2016年全國計算機等級考試報名時間匯總

　　2016計算機等級考試復習:如何更好地執行學習計劃

　　分享：全國計算機等級考試二級復習及應試方法

　　2016年計算機二級《VB》基礎練習題及答案匯總