可视化程序设计（VB）之数据窗体设计器的使用实例

可视化程序设计（VB）之数据窗体设计器的使用实例 数据窗体设计器的使用步骤如下: (1)首先执行“文件”菜单中的“打开数据库”菜单项，打开“使用可视化数据管理器步骤实例”帖子中建立的“student.MDB”数据库，这时在“实用程序”菜单中的“数据窗体设计器”菜单项变为可用的。 2)执行“实用程序”菜单中的“数据窗体设计器”菜单项，出现“数据窗体设计器”( 对话框。在“窗体名称(不带扩展名)”框中输入“stud”，在“源”组合框中选择“学生表”，这时“可用的字段”列表框中列出学生表的所有字段，单击“>>”按钮将其全部移到“包括的字段”列表框中。 (3)单击“生成窗体”按钮，当所有字段消失后，数据窗体被加入到当前的工程中。 (4)单击“关闭”按钮，关闭“数据窗体设计器”对话框。此时在工程中生成的数据窗体如图1所示。以“frmstud”文件名保存该窗体。 图1 自动生成的窗体 实际上，该窗体是VB自动生成的，其中包括5个标签(分别为对应字段的字段名)、5个文本框(分别用于输入各字段的值)、5个命令按钮(标题分别为“添加”、“删除”、“刷新”、“更新”和“关闭”，对应的命令按钮名字分别是cmdAdd，cmdDelete，cmdRefresh，cmdUpdate和cmdClose)和一个Data控件(名字为Data1，Data控件在下节中介绍)。在这些命令按钮上分别设计以下Click事件过程: Private Sub cmdAdd_Click() Data1.Recordset.AddNew End Sub Private Sub cmdDelete_Click() '如果删除记录集的最后一条记录 '记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNext End Sub Private Sub cmdRefresh_Click() '这仅对多用户应用程序才是需要的 Data1.Refresh End Sub Private Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified End Sub Private Sub cmdClose_Click() Unload Me End Sub (5)单击“工程”菜单中的“工程1属性”菜单项，出现“工程属性”对话框。在“启 所示，可以通过命令按动对象”组合框中选择“frmstud”，然后运行工程。这时窗体如图2 钮执行相应的数据表操作。 图2 运行后的数据窗体 我们可以对生成的窗体进行修改，使之更美观，操作更方便，如图3所示，是对上面自动生成的窗体进行修改的结果，其中将“性别”文本框和“民族”文本框改为组合框，便于数据输入。 图3 改进后的数据窗体