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

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

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

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

　　【參考答案】

　　(1)具體步驟如下：

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

　�、� 彈出“新建類”對(duì)話框，命名為“移動(dòng)記錄”，在“派生于”下拉列表框中選擇CommandGroup選項(xiàng)，以myvcx名存儲(chǔ)在考生文件夾中。

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

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

　　****“第一個(gè)”按鈕的Click事件代碼****

　　GOTO TOP

　　This.Parent.Command2.Enabled=.F.

　　This.Parent.Command3.Enabled=.T.

　　ThisForm.Refresh

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

　　****“上一個(gè)”按鈕的Click事件代碼****

　　SKIP-1

　　IF BOF()

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

　　This.Enabled=.F.

　　SKIP

　　ELSE

　　This.Enabled=.T.

　　ENDIF

　　This.Parent.Command3.Enabled=.T.

　　ThisForm.Refresh

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

　　****“下一個(gè)”按鈕的Click事件代碼****

　　SKIP

　　IF EOF()

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

　　This.Enabled=.F.

　　SKIP-1

　　ELSE

　　This.Enabled=.T.

　　ENDIF

　　This.Parent.Command2.Enabled=.T.

　　ThisForm.Refresh

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