2010年全国计算机等级考试二级VB模拟试题(20)

　　2.简单应用题

　　(1)设计一个类控件，类名为“移动记录”，要求类中有“第一个”、“上一个”、“下一个”和“最后一个”4个命令按钮，可以用此类控件来相应地移动数据表中的记录。

　　(2)在考生文件夹下的学生档案管理数据库中有“基本情况表”和“班级表”，新建一个名为Formgird的父子联动表单文件，要求记录指针在父表“班级表”中移动时，子表“基本情况表”中的记录也相应地改变。

　　【参考答案】

　　(1)具体步骤如下：

　　① 打开“学生信息”项目，从“类”选项卡中单击“新建”按钮。

　　② 弹出“新建类”对话框，命名为“移动记录”，在“派生于”下拉列表框中选择CommandGroup选项，以myvcx名存储在考生文件夹中。

　　③ 进入类设计器界面，在属性面板中，将BottonCount的值改为4，然后依次修改每个命令按钮的Caption属性值为第一个、上一个、下一个和最后一个，将4个按钮横向排列。

　　④ 分别编写每个命令按钮的Click(鼠标单击)事件代码：

　　****“第一个”按钮的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

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