2010年全國計算機(jī)等級考試二級VB模擬試題(20)

　　2.簡單應(yīng)用題

　　(1)設(shè)計一個類控件，類名為“移動記錄”，要求類中有“第一個”、“上一個”、“下一個”和“最后一個”4個命令按鈕，可以用此類控件來相應(yīng)地移動數(shù)據(jù)表中的記錄。

　　(2)在考生文件夾下的學(xué)生檔案管理數(shù)據(jù)庫中有“基本情況表”和“班級表”，新建一個名為Formgird的父子聯(lián)動表單文件，要求記錄指針在父表“班級表”中移動時，子表“基本情況表”中的記錄也相應(yīng)地改變。

　　【參考答案】

　　(1)具體步驟如下：

　�、� 打開“學(xué)生信息”項目，從“類”選項卡中單擊“新建”按鈕。

　�、� 彈出“新建類”對話框，命名為“移動記錄”，在“派生于”下拉列表框中選擇CommandGroup選項，以myvcx名存儲在考生文件夾中。

　�、� 進(jìn)入類設(shè)計器界面，在屬性面板中，將BottonCount的值改為4，然后依次修改每個命令按鈕的Caption屬性值為第一個、上一個、下一個和最后一個，將4個按鈕橫向排列。

　�、� 分別編寫每個命令按鈕的Click(鼠標(biāo)單擊)事件代碼：

　　****“第一個”按鈕的Click事件代碼****

　　GOTO TOP

　　This.Parent.Command2.Enabled=.F.

　　This.Parent.Command3.Enabled=.T.

　　ThisForm.Refresh

　　*************************************

　　****“上一個”按鈕的Click事件代碼****

　　SKIP-1

　　IF BOF()

　　=MESSAGEBOX(“已是第一個記錄!”,48,“信息窗口”)

　　This.Enabled=.F.

　　SKIP

　　ELSE

　　This.Enabled=.T.

　　ENDIF

　　This.Parent.Command3.Enabled=.T.

　　ThisForm.Refresh

　　*************************************

　　****“下一個”按鈕的Click事件代碼****

　　SKIP

　　IF EOF()

　　=MESSAGEBOX("已是最后一個記錄!",48,"信息窗口")

　　This.Enabled=.F.

　　SKIP-1

　　ELSE

　　This.Enabled=.T.

　　ENDIF

　　This.Parent.Command2.Enabled=.T.

　　ThisForm.Refresh

　　*************************************