实验四word文 (最终作业).docVIP

实验四 数据库编程 一、实验目的： 熟悉并使用数据库访问接口技术实现对数据库的访问。 二、实验要求： 熟悉使用嵌入式SQL编程访问数据库，熟悉VB中开发数据库应用程序的过程。 三、实验步骤： 1、开始→程序→Microsoft Visual Studio→Visual Basic 6.0。 2、建立一个 vb 工程，要求包含一个窗体，在窗体上添加两个 ADO 数据控件、一 个 datagrid 控件、一个 datalist 控件，和两个命令按钮，（可参考教材图 14-22）， 完成下面功能： （1）设置 ADO 控件的有关属性，一个连接到 student 数据库的选课表，一个连接 到课程表， （2）构造实现根据 SC 表中当前显示的课程号的值，在 datalist 列表中相应的选中 的此课程号对应的课程名， （3）两个按钮分别为“隐藏学号”和“显示全部列”，当用户单击隐藏学号按钮时， 隐藏结果集中的学号列；当用户单击显示全部列时，显示结果集中的全部列。 3、设计一个小型的数据库应用程序： （1）可利用现有的数据库，也可重新设计数据库。 （2）要求实现数据的增、删、改、查。 （3）在报告中描述清楚使用的数据库、数据表及实现的功能（要求截图，并附代 码）。 使用的是student course sc 表。实现的功能是增、删、改、查。 窗体布局： 示例1窗体布局 对象名 属性名 属性值 AdodcStudent ConnectionString 连接到Access的“学生管理数据库.mdb” CommandType adCmdTable RecordSource Student TxtSno DataSource AdodcStudent DataField Sno TxtSname DataSource AdodcStudent DataField Sname TxtSsex DataSource AdodcStudent DataField Ssex TxtSage DataSource AdodcStudent DataField Sage TxtSdept DataSource AdodcStudent DataField Sdept 目的：不用编写代码就可实现对数据的浏览 各控件所设置的属性及属性值 ： 1.“退出”按钮 Private Sub CmdExit_Click() End End Sub 2.窗体加载时初始化查找 Private Sub Form_Load() TxtSearchDept.Text = End Sub 3.“查找”按钮 Private Sub CmdSearch_Click() If Len(TxtSearchDept.Text) 0 Then AdodcStudent.CommandType = adCmdText AdodcStudent.RecordSource = select * from student where Sdept = Trim(TxtSearchDept.Text) AdodcStudent.Refresh Else MsgBox (请指定要查找的系) End If End Sub 窗体布局： 目的：编写代码实现对数据的操作和浏览。 “添加”命令按钮：cmdAdd “删除”命令按钮：cmdDel “更新”命令按钮：cmdUpdate “取消”命令按钮：cmdCancel “第一条”命令按钮：cmdFirst “上一条”命令按钮：cmdPrevious “下一条”命令按钮：cmdNext “末一条”命令按钮：cmdLast “退出”命令按钮：cmdExit 窗体启动时的初始化代码 Private Sub Form_Load() 初始时使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 1.“添加”命令按钮 Private Sub CmdAdd_Click() AdodcStudent.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdUpdate.Enabled = True CmdCancel.Enabled = True End Sub 2. “取消”命令按钮 Private Sub CmdCancel_Click()