綜合應用題

　　11在考生文件夾中有“訂貨”表和“商品”表。商品表中的“單價”表與“訂貨”表的“數量”之積應等于訂貨表中的“金額”。

　　現在有部分“訂貨”表記錄的“金額”字段值不正確，請編寫程序挑出這些記錄，并將這些記錄存放到一個名為“修正訂貨”的表中(與訂貨表結構相同，自己建立)，根據商品表中的“單價”字段和“訂貨”表的“數量”字段修改“修正訂貨”表的“金額”字段(注意：一個修正記錄可能對應幾條訂貨記錄)。

　　編寫的程序最后保存為“CX.prg”。

　　參考解析：

　　【考點指引】本大題考查的是數據表數據的修改，注意要用到INTOTABLE和INTOCURSOR保存中間查詢結果。

　　【操作步驟】

　　①在命令窗口中輸人命令：MODI COMM cx(回車執行)，打開程序文件編輯窗口，在程序文件編輯窗口中輸入以下程序代碼：

　　SELECT訂貨.*INTO TABLE修正訂貨FROM訂貨，商品WHERE訂貨.商品編碼=商品.商品編碼AND金額<>單價*數量

　　USE修正訂貨

　　GO TOP

　　DO WHILE.NOT.EOF()

　　a1=商品編碼

　　bl=訂單編號

　　SELECT*INTO CURSOR aa FROM商品WHERE商品編碼=al

　　SELECT修正訂貨

　　REPLACE金額WITH aa.單價*數量

　　SKIP

　　ENDDO

　　USE

　　關閉程序文件編輯窗口并保存程序文件。

　　②在命令窗口中輸入命令：DO cx(回車執行)，執行程序文件。

　　12設計一個名為“bd2”的表單，表單的標題為“零件裝配情況”。表單中有一個表格控件和兩個命令按鈕“查詢”和“關閉”。運行表單時，單擊“查詢”命令按鈕后，要求表格中顯示產品編號“0003”所使用的零件的零件名稱、規格和數量。單擊“關閉”按鈕關閉表單。

　　參考解析：

　　【考點指引】本大題主要考查表單的建立和表格控件的使用，重點是表格控件數據源的設置。

　　【操作步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，將Caption屬性值修改為”零件裝配情況”;單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加兩個命令按鈕Command1、Command2;單擊表單控件工具欄上的“表格控件圖標，再添加一個表格控件。

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

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

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

　　SELECT零件名稱，規格，數量INTO CURSOR tmp FROM產品，零件WHERE產品.零件編號=零件.零件編號AND產品.產品編號=〝0003″

　　ThisForm.Grid1.ReeordSourceType=1

　　ThisForm.Grid1.RecordSource=〝tmp″

　　ThisForm.Grid1.ReFresh

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

　　13在考生文件夾下有數據庫“gz”，包括數據表文件：zgk(倉庫編號C(4)，職工編號C4)，工資N(4))。設計一個名為tj的菜單，菜單中有兩個菜單項“統計”和“退出”。

　　程序運行時，單擊“統計”菜單項應完成下列操作：檢索出工資大于或等于本倉庫職工平均工資的職工信息，并將這些職工信息按照倉庫編號升序排序，在倉庫號相同的情況下再按職工編號升序存放到“result”文件中，該數據表文l 件和“zgk”數據表文件具有相同的結構。

　　單擊“退出”菜單項，程序終止運行。

　　注意：相關數據表文件存在于考生文件夾下。

　　參考解析：

　　【考點指引】本大題主要考查利用SQL語句進行分組計算查詢，在本題應了解SQL中求平均值函數AVG的使用;在菜單的設計過程中主要應注意兩個菜單命令在“統計”下拉列表框中應選擇的類型。

　　【操作步驟】

　　①選擇【文件】→【新建】命令，選擇“菜單”，單擊“新建文件”按鈕，再單擊“菜單”按鈕，打開菜單設計器，在“菜單名稱”中輸入“統計”，在“結果”下拉列表框中選擇“過程”，單擊“創建”按鈕創建“統計”過程，在菜單過程代碼編輯窗口中輸入以下代碼：

　　SET TALK OFF

　　SET SAFETY OFF

　　0PEN DATABASE gz

　　SELECT倉庫編號，AVG(工資)AS pjgz FROM zgk GROUP BY倉庫編號INTO CURS OR curl

　　SELECT zgk.*INTO TABLE result FROM zgk，curl WHERE zgk.倉庫編號=curl.倉庫編號and工資>= pjgz ORDER BY zgk.倉庫編號，職工編號

　　CLOSEALL

　　SET SAFETY ON

　　SET TALK ON

　　關閉菜單過程代碼編輯窗口回到菜單設計器。

　　②單擊下一行，輸入菜單名稱“退出”，在“結果”下拉列表框中選擇“命令”，在右邊的“命令”文本框中編寫程序代碼：SET SYSMENU TO DEFAULT。

　　③選擇【菜單】→【生成】命令，將菜單保存為“tj”，生成一個菜單文件“tj.mpr”。關閉菜單設計窗口，在命令窗口輸入命令：DO tj.mpr，看到Visual FoxPr0的菜單欄被新建的菜單所代替，單擊“退}b”菜單命令將恢復系統菜單。

　　④執行“統計”菜單命令后，系統自動生成新數據表文件“result.dbf”用來保存查詢結果。

　　14對考生文件夾下的“學生住宿”管理數據庫設計一個表攀“bd2”，表單標題為“宿舍查詢”，表單中有一個標簽、3個文本框和兩個命令按鈕：“查詢”和“關閉”。

　　運行表單時，在第一個文本框里輸入某學生的學號，單擊查詢按鈕，則在第二個文本框內會顯示該學生的“姓名”，在第3個文本框里會顯示該學生的“宿舍名稱”。

　　如果輸入的某個學號對應的學生不存在，則在第二個文本框內顯示“該生不存在”，第三個文本框不顯示內容;如果輸入的某個學號對應的學生存在，但沒有該學號的宿舍編號，則在第二個文本框內顯示該生的“姓名”，第三個文本框顯示“該生不住校”。

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

　　參考解析：

　　【考點指引】本大題主要考查表單的設計及文本框和命令按鈕等控件的使用，在查詢的時候注意將查詢結果保存到CURSOR中。

　　【操作步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，在表單屬性窗口中將“Caption”屬性值修改為“宿舍查詢”;單擊表單控件工具欄上的“標簽”控件圖標，為表單添加一個標簽Label1;單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加兩個命令按鈕Command1和Command2;單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加兩個命令按鈕Command1和Command2。

　　②選擇標簽，在標簽屬性窗口中將標簽Label1的Cap-tion屬性值修改為“請輸入學號”;分別選擇命令按鈕，在按鈕屬性窗口中將命令按鈕Command1的Caption屬性值修改為“查詢”，將命令按鈕Command2的Caption屬性值修改為“關閉”，如圖94-1所示。雙擊命令按鈕，在Click事件中輸入代碼：ThisForm.Release，用來關閉表單。

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

　　SELECT*INTO CURSOR aa FROM學生WHERE學號=ALLTRIM(ThisForm.Textl.Value)

　　IF ISNULL(aa.學號)THEN

　　ThisForm.Text2.Value="該生不存在"

　　ThisForm.Text3.Value=""

　　ELSE

　　ThisForm.Text2.Value=ALLTRIM(aa.姓名)

　　IF EMPTY(aa.宿舍編號)THEN

　　ThisForm.Text3.Value="該生不住校"

　　ELSE

　　SELECT宿舍名稱INTO CURSOR bb FROM宿舍WHERE宿舍編號=ALLTRIM(aa.宿舍編號)

　　ThisForm.Text3.Value=ALLTRIM(bb.宿舍名稱)

　　ENDIF

　　ENDIF

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

　　15“銷售”數據庫中含有兩個數據庫表“商品信息”和“銷售匯總”。對“銷售”數據庫設計一個表單“bd3”，表單的標題為“商品銷售匯總”，表單中有標題為“請選擇商品”標簽和用于選擇“商品編號”的組合框及“查詢”和“關閉”兩個命令按鈕，表單中還有一個表格控件。

　　表單運行時，用戶在組合框中選擇“商品編號”，單擊“查詢”按鈕，在表單上的表格控件顯示查詢該商品的“商品編號”、“商品名稱”、“年度”、“數量”和“金額”。

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

　　參考解析：

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

　　【操作步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，在表單屬性窗口中將“Caption”屬性值修改為“商品銷售匯總”。單擊表單控件工具欄上的“標簽”控件圖標，為表單添加～個標簽Label1，單擊表單控件工具欄上的“組合框”控件圖標，為表單添加一個組合框Com-bol，單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加兩個命令按鈕Command1和Command2，單擊表單控件工具欄上的“表格”控件圖標，添加一個表格控件Grid1。

　　②選擇標簽Label1，在標簽屬性窗口中將Caption屬性值修改為“請選擇商品”，分別選擇命令按鈕，將Command1的Caption屬性值修改為“查詢”，將Command2的Caption屬性值修改為“關閉”，如圖90-1所示。雙擊“關閉”命令按鈕，在Click事件中輸入代碼：ThisForm.Release，用來關閉表單。

　　③選擇表格控件“Grid1”，在表格控件屬性窗口中將“ReeordSource”屬性值修改為“""”，將“RecordSourceType”屬性值修改為“1”。

　　④選擇組合框，在組合框屬性窗口中雙擊“Init Event”，打開Init事件代碼編輯窗口，輸入以下過程代碼：

　　SELECT*INTO ARRAY aa FROM商品信息

　　FOR i=1 TO ALEN(aa)/2

　　ThisForm.Comb01.Addltem(aa(i，1))

　　NEXT

　　⑤雙擊“查詢”命令按鈕，打開Click事件代碼編輯窗口，輸入以下過程代碼：

　　SELECT商品信息.商品編號，商品名稱，年度，數量，

　　金額INTO CURSOR tmp FROM商品信息，銷售匯總

　　WHERE商品信息.商品編號=銷售匯總.商品編號

　　AND商品信息.商品編號=ThisForm.Comb01.dis-

　　playvalue

　　ThisForm.Grid1.RecordSourceType=1

　　ThisForm.Grid1.RecordSource="trap"

　　ThisForm.Grid1.Refresh

　　⑥選擇【表單】→【執行表單】命令，系統首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名 “bd3”，保存在考生文件夾下，然后運行表單。第15題 筆記記錄我的筆記(0) | 精選筆記(0)選擇筆記標簽：試題內容(0)答案解析(0)

　　相關推薦：

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

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

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