綜合應用題

　　11設計一個表單名和文件名均為“bd2”的表單，所有控件的屬性必須在表單設計器的屬性窗口中設置。表單的標題為“外幣市值情況”。表單中有一個文本框、一個表格和兩個命令按鈕“查詢”和“關閉”。

　　運行表單時，在文本框text1中輸入貨幣代碼，然后單擊“查詢”，則表格中會顯示出外匯賬戶相應的賬戶信息及持有外幣相當于人民幣的價值數量。注意，某種外幣相當于人民幣數量的計算公式：人民幣價值數量一該種外幣的“買入價”*該種外幣的“數量”。

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

　　參考解析：

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

　　【操作步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，將Caption屬性值修改為“外幣市值情況”;單擊表單控件工具欄上的“文本框”控件圖標，為表單添加l個文本框Textl，單擊表單控件工具欄上的“命令按鈕”

　　控件圖標，為表單添加兩個命令按鈕Command1和Command2，單擊表單控件工具欄上的“表格”控件圖標，再添加一個表格控件。

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

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

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

　　SELECT*，買入價*數量AS價值INTO CURSOR tmp FROM外匯賬戶WHERE貨幣代碼=ThisForm.Textl.Value

　　ThisForm.Grid1.RecordSourceType=1

　　ThisForm.Grid1.RecordSource="tmp"

　　ThisForm.Grid1.Refresh

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

　　12在考生文件夾下有“住宿管理”數據庫，其中包含表“宿舍”和表“學生”。這兩個表之間存在一對多的關系。對該數據庫建立表單文件，文件名為“bd2”，標題為“住宿管理”，完成如下要求：

　　(1)在表單中包含兩個表格控件，第一個用于顯示“宿舍”表中的記錄，第二個表格用于顯示與“宿舍”表中的當前記錄對應的學生表中的記錄。

　　(2)在表單中包含一個“關閉”命令按鈕，單擊該按鈕退出表單。

　　參考解析：

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

　　【操作步驟】

　　①選擇【文件】→【打開】命令，打開數據庫“住宿管理”。

　　②選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，在表單屬性窗口中將Caption屬性值修改為“住宿管理”。單擊表單控件工具欄上的“命令按鈕”控件圖標，為表單添加一個命令按鈕Command1，單擊表單控件工具欄上的“表格”控件圖標，再添加兩個表格控件“Grid1”和“Grid2”。

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

　　④在表單設計器中，鼠標右鍵單擊表單空白處，在彈出的快捷菜單中選擇“數據環境”命令，打開表單的數據環境，選擇數據庫“住宿管理”，將數據表文件“宿舍”和“學生”添加到數據環境中。

　　⑤選擇表格控件“Grid1”，在表格控件屬性窗口中將“RecordSource”屬性值修改為“宿舍”，將“RecordSourceType”屬性值修改為“0”，將“ReadOnly”屬性值修改為

　　“.T.”;選擇表格控件“Grid2”，在表格控件屬性窗口中將“RecordSource”屬性值修改為“〝〞”，將“RecordSourceType”屬性值修改為“1”。

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

　　SELECT學生.*INTO CURSOR trap FROM學生，宿舍WHERE學生.宿舍編號=宿舍.宿舍編號AND宿舍.宿舍編號=ThisForm.Grid1.columns(1).Text1.value

　　ThisForm.Grid2.RecordSourceType=0

　　ThisForm.Grid2.RecordSource=〝tmp〞

　　ThisForm.Grid2.Refresh

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

　　13(1)在考生文件夾下，將“books”表中所有書名中含有“計算機”3個字的圖書復制到“books_BAK”表中，以下操作均在“books_BAK”表中完成。

　　(2)復制后的圖書價格在原價格的基礎上降低5%。

　　(3)從圖書均價高于25元(含25)的出版社中，查詢并顯示圖書均價最低的出版社名稱及均價，查詢結果保存在‘new_table4”表中(字段名為出版單位和均價)。

　　參考解析：

　　【考點指引】本大題主要考查的知識點是：SQL語句的復制、修改和查詢功能。

　　【操作步驟】

　　在命令窗Vl中依次輸入以下代碼，分別完成題目中各個要求。

　　(1)SELECT*FROMB00KSBAKWHERE書名LIKE“%計算機%”INTOTABLEBOOKS_BAK

　　(2)UPDATEBOOKS_BAKSET價格=價格*(1-0.05)

　　(3)SELECTTOPlBOOKS_BAK.出版單位，avg(books_bak.價格)as均價FROMbooks_bakGroupByBooks_bak.出版社HAVING均價>=250RERBY2INTOTABLEnew_table4.dbf。

　　14(1)請編寫名稱為CX的程序并執行。該程序實現下面的功能：將工資表進行備份，備份文件名為“b_工資.dbf”。利用“人事部”向“財務部”提供的雇員工資調整表“c_工資”的“工資”，對工資表的‘'工資”進行調整(請注意：按“職員編號”相同進行調整，并且只是部分職員的工資進行了調整，其他職員的工資不動)。最后將工資表中的記錄存儲到“n_ 工資”表中(表結構與工資表完全相同)。

　　(2)設計一個文件名為“bd2”的表單，其中包含“調整工資”和“關閉”兩個命令按鈕。

　　單擊“調整工資”命令按鈕時，調用CX命令程序實現工資調整。

　　單擊“關閉”命令按鈕時，關閉表單。

　　注意：在兩個命令按鈕中均只有一條命令，不可以有多余命令。

　　參考解析：

　　【考點指引】本大題第1小題主要考查對數據表的操作，包括表的備份、數據的修改;第2小題考查表單的一些基本操作及按缸控件的使用。

　　(1)【操作步驟】

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

　　SELECT*INTO TABLE b_工資FROM工資

　　USE c_工資

　　Go TOP

　　DO WHILE.NOT.EOF()

　　aa=職員編號

　　bb=工資

　　UPDATE工資SET工資=bb WHERE職員編號=aa

　　SELECT C_工資

　　SKIP

　　ENDD0

　　SELECT*INTO TABLE n_工資FROM工資

　　CLOSE ALL

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

　　(2)【操作步驟】

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

　　②在按鈕屬性窗口中將命令按鈕Command1的Caption屬性值修改為“調整工資”，將命令按鈕Command2的Caption屬性值修改為“關閉”。

　　③雙擊“調整工資”命令按鈕，在Click事件中輸入代碼：DO CX，用來執行工資調整程序。

　　④雙擊“關閉”命令按鈕，在Click事件中輸入代碼：ThisForm.Release，用來關閉表單。

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

　　15設計一個名為“mysupply”的表單，表單的控件名和文件名均為“mysupp[y”。表單的形式如圖5—1所示。

　　圖5—1

　　表單標題為“零件供應情況”，表格控件為Gridl，命令按鈕“查詢”為Commandl、“退出”為Command2，標簽控件Labell和文本框控件Textl(程序運行時用于輸入工程號)。

　　運行表單時，在文本框中輸入工程號，單擊“查詢”命令按鈕后，表格控件中顯示相應工程所使用的零件的零件名、顏色和重量(通過設置有關“數據”屬性實現)，并將結果按“零件名”升序排序存儲到“PP.dbf”文件中。

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

　　完成表單設計后運行表單，并查詢工程號為“J4”的相應信息。

　　參考解析：

　　【考點指引】本大題主要考查的知識點是：通過表單設計器創建表單、表單控件及其屬性的修改和通過SQL語句實現查詢。

　　【操作步驟】

　　①選擇【文件】→【新建】命令，選擇“表單”，單擊“新建文件”按鈕打開表單設計器，在表單屬性窗口中將Caption屬性值修改為“零件供應情況”;表單中添加一個表格控件Grid1、兩個命令按鈕控件Command1、Command2，一個標簽控件Label1和一個文本框控件Text1。

　　②在表單屬性窗口中將Label1、Command1、Command2的Caption屬性值修改為“工程號”、“查詢”、“退出”。

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

　　Select零件.零件名as零件名，零件.顏色as顏色，零件.重量as重量

　　From供應，零件

　　Where零件.零件號=供應.零件號and供應.工程號=thisform.Text1.value

　　Order By零件名 ’

　　Into dbf PP

　　ThisForm.Grid1.RecordSource=〝PP〞

　　④雙擊“退出”命令按鈕，在Click事件中輸入代碼：thisform.release

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

　　相關推薦：

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

　　2016年計算機等級考試各級別報考適合專業類別

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

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