綜合應(yīng)用題

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

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

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

　　參考解析：

　　【考點(diǎn)指引】本大題考查的是數(shù)據(jù)表數(shù)據(jù)的修改，注意要用到INTOTABLE和INTOCURSOR保存中間查詢結(jié)果。

　　【操作步驟】

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

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

　　USE修正訂貨

　　GO TOP

　　DO WHILE.NOT.EOF()

　　a1=商品編碼

　　bl=訂單編號

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

　　SELECT修正訂貨

　　REPLACE金額WITH aa.單價*數(shù)量

　　SKIP

　　ENDDO

　　USE

　　關(guān)閉程序文件編輯窗口并保存程序文件。

　�、谠诿�令窗口中輸入命令：DO cx(回車執(zhí)行)，執(zhí)行程序文件。

　　12設(shè)計(jì)一個名為“bd2”的表單，表單的標(biāo)題為“零件裝配情況”。表單中有一個表格控件和兩個命令按鈕“查詢”和“關(guān)閉”。運(yùn)行表單時，單擊“查詢”命令按鈕后，要求表格中顯示產(chǎn)品編號“0003”所使用的零件的零件名稱、規(guī)格和數(shù)量。單擊“關(guān)閉”按鈕關(guān)閉表單。

　　參考解析：

　　【考點(diǎn)指引】本大題主要考查表單的建立和表格控件的使用，重點(diǎn)是表格控件數(shù)據(jù)源的設(shè)置。

　　【操作步驟】

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

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

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

　�、茈p擊“查詢”命令按鈕，在Click事件中輸入代碼：

　　SELECT零件名稱，規(guī)格，數(shù)量INTO CURSOR tmp FROM產(chǎn)品，零件WHERE產(chǎn)品.零件編號=零件.零件編號AND產(chǎn)品.產(chǎn)品編號=〝0003″

　　ThisForm.Grid1.ReeordSourceType=1

　　ThisForm.Grid1.RecordSource=〝tmp″

　　ThisForm.Grid1.ReFresh

　�、葸x擇【表單】→【執(zhí)行表單】命令，系統(tǒng)首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名“bd2”，保存在考生文件夾下，然后運(yùn)行表單。

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

　　程序運(yùn)行時，單擊“統(tǒng)計(jì)”菜單項(xiàng)應(yīng)完成下列操作：檢索出工資大于或等于本倉庫職工平均工資的職工信息，并將這些職工信息按照倉庫編號升序排序，在倉庫號相同的情況下再按職工編號升序存放到“result”文件中，該數(shù)據(jù)表文l 件和“zgk”數(shù)據(jù)表文件具有相同的結(jié)構(gòu)。

　　單擊“退出”菜單項(xiàng)，程序終止運(yùn)行。

　　注意：相關(guān)數(shù)據(jù)表文件存在于考生文件夾下。

　　參考解析：

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

　　【操作步驟】

　�、龠x擇【文件】→【新建】命令，選擇“菜單”，單擊“新建文件”按鈕，再單擊“菜單”按鈕，打開菜單設(shè)計(jì)器，在“菜單名稱”中輸入“統(tǒng)計(jì)”，在“結(jié)果”下拉列表框中選擇“過程”，單擊“創(chuàng)建”按鈕創(chuàng)建“統(tǒng)計(jì)”過程，在菜單過程代碼編輯窗口中輸入以下代碼：

　　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

　　關(guān)閉菜單過程代碼編輯窗口回到菜單設(shè)計(jì)器。

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

　�、圻x擇【菜單】→【生成】命令，將菜單保存為“tj”，生成一個菜單文件“tj.mpr”。關(guān)閉菜單設(shè)計(jì)窗口，在命令窗口輸入命令：DO tj.mpr，看到Visual FoxPr0的菜單欄被新建的菜單所代替，單擊“退}b”菜單命令將恢復(fù)系統(tǒng)菜單。

　　④執(zhí)行“統(tǒng)計(jì)”菜單命令后，系統(tǒng)自動生成新數(shù)據(jù)表文件“result.dbf”用來保存查詢結(jié)果。

　　14對考生文件夾下的“學(xué)生住宿”管理數(shù)據(jù)庫設(shè)計(jì)一個表攀“bd2”，表單標(biāo)題為“宿舍查詢”，表單中有一個標(biāo)簽、3個文本框和兩個命令按鈕：“查詢”和“關(guān)閉”。

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

　　如果輸入的某個學(xué)號對應(yīng)的學(xué)生不存在，則在第二個文本框內(nèi)顯示“該生不存在”，第三個文本框不顯示內(nèi)容;如果輸入的某個學(xué)號對應(yīng)的學(xué)生存在，但沒有該學(xué)號的宿舍編號，則在第二個文本框內(nèi)顯示該生的“姓名”，第三個文本框顯示“該生不住�！薄�

　　單擊“關(guān)閉”按鈕關(guān)閉表單。

　　參考解析：

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

　　【操作步驟】

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

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

　�、垭p擊“查詢”命令按鈕，在Click事件中輸入代碼：

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

　　IF ISNULL(aa.學(xué)號)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

　�、苓x擇【表單】→【執(zhí)行表單】命令，系統(tǒng)首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名 “bd2”，保存在考生文件夾下，然后運(yùn)行表單。

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

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

　　單擊“關(guān)閉”按鈕，關(guān)閉表單。

　　參考解析：

　　【考點(diǎn)指引】本大題考查的是表單的設(shè)計(jì)及表格控件和組合框的使用，主要注意表格控件數(shù)據(jù)源的設(shè)置。

　　【操作步驟】

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

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

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

　　④選擇組合框，在組合框?qū)傩源翱谥须p擊“Init Event”，打開Init事件代碼編輯窗口，輸入以下過程代碼：

　　SELECT*INTO ARRAY aa FROM商品信息

　　FOR i=1 TO ALEN(aa)/2

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

　　NEXT

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

　　SELECT商品信息.商品編號，商品名稱，年度，數(shù)量，

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

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

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

　　playvalue

　　ThisForm.Grid1.RecordSourceType=1

　　ThisForm.Grid1.RecordSource="trap"

　　ThisForm.Grid1.Refresh

　�、捱x擇【表單】→【執(zhí)行表單】命令，系統(tǒng)首先要求保存該表單文件，在彈出的“另存為”對話框中輸入表單文件名 “bd3”，保存在考生文件夾下，然后運(yùn)行表單。第15題 筆記記錄我的筆記(0) | 精選筆記(0)選擇筆記標(biāo)簽：試題內(nèi)容(0)答案解析(0)

　　相關(guān)推薦：

　　各地2016年全國計(jì)算機(jī)等級考試報(bào)名時間匯總

　　2016計(jì)算機(jī)等級考試復(fù)習(xí):如何更好地執(zhí)行學(xué)習(xí)計(jì)劃

　　2016年計(jì)算機(jī)二級《VB》基礎(chǔ)練習(xí)題及答案匯總