数据库原理-课件-HAPTER.pps

《数据库原理-课件-HAPTER.pps》由会员分享，可在线阅读，更多相关《数据库原理-课件-HAPTER.pps（30页珍藏版）》请在装配图网上搜索。

1、第 15章 VB数据库应用编程示例 15.1 示例 1 15.2 示例 2 15.3 示例 3 15.4 数据窗体向导 示例 1 本示例说明如何利用 ADO数据控 件实现对 Student表中全部数据的浏 览，以及如何实现按用户指定的系 查找相应学生信息的功能。 通过本示例我们可以看到，设置 好 ADO数据控件的属性后，用户不需 要编制任何代码就可以实现对数据 的查询。如果查找条件变化了，用 户只需要编写很少的代码就可以实 现对数据源的重新查询。 本示例的窗体布局如图所示 . 图 15-1 各控件所设置的与数据操作有关的属性及属性值如表所示。 对象名 属性名 属性值 AdodcStudent

2、ConnectionString 连接到 SQL Server的“学生管理数据库” 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 AdodcS

3、tudent DataField Sdept 示例 1 示例 1 在这个界面中，用户可以通过单击 AdodcStudent数据控件的四个 按钮改变所浏览的记录。当用户单击“查找”按钮时，表示要按用户 在 txtSearchdept文本框中所指定的系进行查找。 程序代码如下： Private Sub CmdExit_Click() 退出 按钮 End End Sub 示例 1 Private Sub CmdSearch_Click() 查找 按钮 If Len(TxtSearchDept.Text) 0 Then 如果用户指定了系名 AdodcStudent.CommandType = adCm

4、dText AdodcStudent.RecordSource = select * from student where Sdept = & _ Trim(TxtSearchDept.Text) & AdodcStudent.Refresh 使所设置的属性生效 Else 若用户未指定列名 MsgBox (请指定要查找的系 ) 则提示用户输入系名 End If End Sub 示例 1 Private Sub Form_Load() 窗体加载时初始化查找系的内容 初始化要查找的系为空 TxtSearchDept.Text = End Sub 示例 2 示例 2在示例 1的基础上增加了两 组供用

5、户操作的按钮。一组是为了说 明如何实现数据更改操作，即如何使 用 Recordset对象的 AddNew、 Update 、 Delete和 CancelUpdate方法；另一 组是为了说明如何编程控制结果集中 浏览记录的移动，即如何使用 Recordset对象的 Move方法组。 示例 2的窗体布局如图所示。 示例 2 程序代码如下： (1).窗体启动时的初始化代码 Private Sub Form_Load() 初始时使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 示例 2 (2).数据操作按钮组代码 Private Sub CmdAdd_C

6、lick() “ 添加”命令按钮 AdodcStudent.Recordset.AddNew 使“添加”和“删除”按钮为不可用状态 CmdAdd.Enabled = False CmdDel.Enabled = False 使“更改”和“取消”按钮为可用状态 CmdUpdate.Enabled = True CmdCancel.Enabled = True End Sub 示例 2 Private Sub CmdCancel_Click() “ 取消”命令按钮 AdodcStudent.Recordset.CancelUpdate 使“添加”和“删除”按钮为可用状态 CmdAdd.Enable

7、d = True CmdDel.Enabled = True 使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 示例 2 Private Sub CmdDel_Click() “ 删除”命令按钮 Dim res As Integer res = MsgBox(确实要删除此行记录吗？ , _ vbExclamation + vbYesNo + vbDefaultButton2) 提示用户 If res = vbYes Then 如果确实要删除 AdodcStudent.Recordset.Delete AdodcStudent.Recordset.M

8、oveNext If AdodcStudent.Recordset.EOF = True Then AdodcStudent.Recordset.MoveLast End If End If End Sub 示例 2 Private Sub CmdUpdate_Click() “ 更新”命令按钮 将文本框中的当前值写入结果集相应字段中 AdodcStudent.Recordset.Fields(Sno) = Trim(TxtSno.Text) AdodcStudent.Recordset.Fields(Sname) = Trim(TxtSname.Text) AdodcStudent.Reco

9、rdset.Fields(Ssex) = Trim(TxtSsex.Text) AdodcStudent.Recordset.Fields(Sage) = CInt(Trim(TxtSage.Text) AdodcStudent.Recordset.Fields(Sdept) = Trim(TxtSdept.Text) 使更新生效 AdodcStudent.Recordset.Update 使“添加”和“删除”按钮为可用状态 CmdAdd.Enabled = True CmdDel.Enabled = True 使“取消”按钮为不可用状态 CmdCancel.Enabled = False E

10、nd Sub 示例 2 （ 3）移动指针方法组代码 Private Sub CmdFirst_Click() “ 第一条”命令按钮 AdodcStudent.Recordset.MoveFirst End Sub Private Sub CmdLast_Click() “ 末一条”命令按钮 AdodcStudent.Recordset.MoveLast End Sub 示例 2 Private Sub CmdNext_Click() “ 下一条”命令按钮 AdodcStudent.Recordset.MoveNext If AdodcStudent.Recordset.EOF = True T

11、hen 如果已经移到了最后一行之后，则将指针定位在最后一行 AdodcStudent.Recordset.MoveLast End If End Sub 示例 2 Private Sub CmdPrevious_Click() “ 上一条”命令按钮 AdodcStudent.Recordset.MovePrevious If AdodcStudent.Recordset.BOF = True Then 如果已经移到了第一行之前，则将指针定位在第一行 AdodcStudent.Recordset.MoveFirst End If End Sub 示例 2 （ 4）结束程序代码 Private S

12、ub CmdExit_Click() “ 退出”命令按钮 End End Sub 示例 2运行时的初始界面 如图所示。 示例 3 示例 3在示例 2基础上增加了一个窗体，这个窗体用 DataGrid控件显示 数据。在 form1上单击“查找”命令按钮时，显示 form2。 Form2中的 数据是根据 form1当前显示的学号值去查找此学生的姓名、修的课程 名、课程的学分以及考试成绩 . 示例 3 Form1上的“查找”和“退出”命令按钮的代码为： Private Sub CmdExit_Click() 退出 按钮 End End Sub Private Sub CmdSearch_Click(

13、) 查找 按钮 Form2.Show 显示 Form2窗体 End Sub Private Sub CmdReturn_Click() “ 返回”按钮 Unload Me End Sub 示例 3 Private Sub Form_Load() Dim strSno As String Dim strSelect As String 得到 form1窗体上当前显示的学号值 strSno = Trim(Form1.TxtSno.Text) 编写满足要求的查询语句，查找学号值等于给定值的学生的姓名、修的课程名、 学分和成绩 strSelect = select Sname, Cname,Ccred

14、it,Grade from student s join sc _ & on s.sno = sc.sno join course c on o = o where _ & sc.sno = & strSno & 示例 3 设置 ADO数据控件相应的属性 AdodcGrid.CommandType = adCmdText AdodcGrid.RecordSource = strSelect 使 ADO数据控件的新属性生效 AdodcGrid.Refresh 设置 DataGrid控件的数据源为 ADO数据控件的结果集 Set DtgCond.DataSource = AdodcGrid 调用

15、DtgCond控件的初始化过程 Call InitGrid End Sub 示例 3 Private Sub InitGrid() 初始化 dtgCond控件 With DtgCond 设置 DtgCond的列标题 .Columns(0).Caption = 学号 .Columns(1).Caption = 课程名 .Columns(2).Caption = 学分 .Columns(3).Caption = “ 成绩” 设置 DtgCond的列宽 .Columns(0).Width = 1000 .Columns(1).Width = 2000 .Columns(2).Width = 800

16、.Columns(3).Width = 800 End With End Sub 示例 3运行示例 15.4 数据窗体向导 15.4.1 添加数据窗体向导 15.4.2 使用数据窗体向导 使用数据窗体向导 添加数据窗体向导 VB提供了一个可以使此工作极大简化的工具：数据窗体向导（ Data Form Wizard）。在使用 ADO控件时，利用这个向导，可以轻松 的创建 ADO数据控件和数据绑定控件，并可实现数据的增、删、改 、查操作。 使用数据窗体向导的第一步就是要将它添加到 VB的系统菜单中 。添加数据窗体向导的方法是，选择 VB的“外接程序”菜单下的“ 外接程序管理器”命令，打开“外接程序

17、管理器”对话框。在“可 用外接程序”中选中的“ VB6数据窗体向导”，并在右下边的“加载 行为”中选择“在启动中加载”（在启动时就加入此向导）或“加 载 /卸载”（在使用时加入），然后单击“确定”按钮关闭此对话框 。 使用数据窗体向导 使用数据窗体向导 使用数据窗体向导的步骤如下： (1)在“外接程序”菜单中选择“数据 窗体向导”命令，启动数据窗体向导， 单击“下一步”按钮，弹出的对话框如 图所示。 (2) VB 6提供了两种数据库类型： Access和 Remote（ ODBC）。如果使用数 据窗体向导访问 SQL Server中的数据库 ，则可以选择 Remote（ ODBC）选项。单 击

18、“下一步”按钮弹出“连接信息”对 话框。 使用数据窗体向导 (3) 在“连接信息”对话 框中，用户需要输入连接数 据库的信息。在“ ODBC连接 数据”部分的 DSN下拉列表 框中选择一个已经建立好的 ODBC数据源，然后在 “ UID” 和“ PWD” 部分分别 输入用户名和密码，单击“ 下一步” 。 使用数据窗体向导 (4) 在“窗体名称”文本框输入要 创建的窗体的名字，然后在“窗体 布局”列表框中选择合适的布局方 式。 VB一共提供了五种布局方式： 单个记录 网格（数据表） 主表 /细表 MS HflexGrid MS Chart 有三种绑定方式： ADO数据控件 ADO代码 类 使用数

19、据窗体向导 (5)在设置记录源对话框中设置 ADO 数据控件的记录源属性。在“记 录源”下拉列表框中选择表，然 后在“可选字段”列表框中选择 所需的字段，选中字段名，在“ 列排序按”下拉列表框中可以选 择结果集中记录的排序方式。 假设我们这里选中的是 Student表中的全部字段。选完 字段后单击“下一步” 。 （ 1） 在 “ 控件选择 ” 对话框中 ， 选 择要添加到窗体上的控件 。 各控件的含义 为： 添加控件：运行在数据库中添加新记录 。 更新控件：立即把在当前记录中修改的 任何数据保存到数据库中 。 删除控件：删除当前记录 。 刷新按钮：重新查询数据库 ， 以便获得 从显示数据以来其

20、他人对数据库所做的任 何修改 。 该按钮仅对当数据源是多用户时 才有意义 。 关闭按钮：关闭窗体 。 显示数据控件：使 ADO数据控件可见 。 此选项仅可应用于使用 Grid布局的窗体 使用数据窗体向导 小结 本章我们介绍了在 Visual Basic 6.0环境下 ， 利用 ADO数据 控件和数据绑定控件开发数据库应用程序的方法 。 本章用三 个示例说明了数据库应用程序的开发 ， 从最简单的只查询数 据库数据 ， 到具有添加 、 删除 、 更新功能的数据库应用程序 ， 再到在多个窗体间有数据联系的应用程序的开发 。 最后我们介绍了 VB提供的数据窗体向导的使用 。 利用数 据窗体向导 ， 我们可以快速地开发数据库应用程序 ， 而且还 可以用多种方式显示结果数据 。