9VB数据库应用编程示例.DOCVIP

实验9 VB数据库应用编程示例 一、目的与要求 掌握VB中开发数据库应用程序的过程。 二、实验准备 1．熟悉“学生管理”数据库中的用户表。 2．复习第15章中的数据访问接口技术。 3．复习第16章中的ADO以及数据绑定控件。 三、实验内容 1.进入SQL Server 2000企业管理器，并附加“学生管理”数据库。 2．进入VB6.0集成开发环境，添加ADO控件，并将FORM1窗体调整到合适的大小。 3．布局控件 对象名 对象类型 属性名 属性值 AdodcStudent ADO ConnectionString 连接到 “学生管理”数据库 CommandType adCmdTable RecordSource Student Visible False Label1 Label Caption 学号 TxtSno Text DataSource AdodcStudent DataField Sno Label2 Label Caption 姓名 TxtSname Text DataSource AdodcStudent DataField Sname Label3 Label Caption 性别 TxtSsex Text DataSource AdodcStudent DataField Ssex Label4 Label Caption 年龄 TxtSage Text DataSource AdodcStudent DataField Sage Label5 Label Caption 所在系 TxtSdept Text DataSource AdodcStudent DataField Sdept cmdAdd Command Caption 添加 cmdDel Command Caption 删除 cmdUpdate Command Caption 更新 cmdCancel Command Caption 取消 cmdFirst Command Caption 第一条 cmdPrevious Command Caption 上一条 cmdNext Command Caption 下一条 cmdLast Command Caption 末一条 cmdExit Command Caption 退出 图15-3 示例2窗体布局4．添加菜单 图15-3 示例2窗体布局 菜单结构为： 标题 名称 翻页 menu1 第一条 menuFirst 上一条 menuPrevious 下一条 menuNext 末一条 menuLast 操作 menu2 添加 menu Add 删除 menuDel 更新 menuUpdate 取消 menuCancel 退出 menuExit 5．编写并输入代码 程序代码如下： 窗体启动时的初始化代码 Private Sub Form_Load() 初始时使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 数据操作按钮组代码 Private Sub CmdAdd_Click() “添加”命令按钮 AdodcStudent.Recordset.AddNew 使“添加”和“删除”按钮为不可用状态 CmdAdd.Enabled = False CmdDel.Enabled = False 使“更改”和“取消”按钮为可用状态 CmdUpdate.Enabled = True CmdCancel.Enabled = True End Sub Private Sub CmdCancel_Click() “取消”命令按钮 AdodcStudent.Recordset.CancelUpdate 使“添加”和“删除”按钮为可用状态 CmdAdd.Enabled = True CmdDel.Enabled = True 使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub Private Sub CmdDel_Click() “删除”命令按钮 Dim res As Integer res = MsgBox(确实要删除此行记录吗？, _ vbExclamation + vbYesNo + vbDefaultButton2) 提示用户 If res = vbYes Then 如果确实要删除 AdodcStudent.Recordset.Delete AdodcStudent.Recordset.MoveNext If AdodcStudent