实验9VB数据库应用编程示例.doc.doc

实验9 VB数据库应用编程示例 一、目的与要求 掌握VB中开发数据库应用程序的过程。 二、实验准备 1．熟悉“学生管理”数据库中的用户表。 2．复习第15章中的数据访问接口技术。 3．复习第16章中的ADO以及数据绑定控件。 三、实验内容 1.进入SQL Server 2000企业管理器，并附加“学生管理”数据库。 2．进入VB6.0集成开发环境，添加ADO控件，并将FORM1窗体调整到合适的大小。 3．布局控件 对象名对象类型属性名属性值AdodcStudentADOConnectionString连接到 “学生管理”数据库CommandTypeadCmdTableRecordSourceStudentVisibleFalseLabel1LabelCaption学号TxtSnoTextDataSourceAdodcStudentDataFieldSnoLabel2LabelCaption姓名TxtSnameTextDataSourceAdodcStudentDataFieldSnameLabel3LabelCaption性别TxtSsexTextDataSourceAdodcStudentDataFieldSsexLabel4LabelCaption年龄TxtSageTextDataSourceAdodcStudentDataFieldSageLabel5LabelCaption所在系TxtSdeptTextDataSourceAdodcStudentDataFieldSdeptcmdAddCommandCaption添加cmdDelCommandCaption删除cmdUpdateCommandCaption更新cmdCancelCommandCaption取消cmdFirstCommandCaption第一条cmdPreviousCommandCaption上一条cmdNextCommandCaption下一条cmdLastCommandCaption末一条cmdExitCommandCaption退出 图15-3 示例2窗体布局 4．添加菜单 菜单结构为： 标题名称翻页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 Adodc