用VB开发数据库应用程序3实例.ppt

C/S —— VB数据库应用系统开发 C/S —— VB数据库应用系统开发 z数据库应用系统结构 zVisual Basic 快速入门 z开放数据库连接( ODBC ) z数据访问接口( ADO ) zVB数据库编程举例 zVB开发数据库应用系统实例分析 VB数据库编程举例 VB数据库编程举例 z本节结合“学生管理数据库”以及其中的三张表,利用数据访问接口技术和 ADO 数据控件以及数据绑定控件,介绍在 Visual Basic 中开发数据库应用程序的过程。 z示例 1 z示例 2 z示例 3 示例 1 示例 1z示例 1说明 z示例 1控件的属性设置 z示例 1程序代码 z示例 1实现过程展示示例 1说明 z本示例说明如何利用 ADO 数据控件实现对 Student 表中全部数据的浏览,以及如何实现按用户指定的系查找相应学生信息的功能。数据浏览方式采用单行浏览方式,即一次查看一条记录。 z通过本示例我们可以看到,设置好 ADO 数据控件的属性后,用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了,用户只需要编写很少的代码就可以实现对数据源的重新查询。示例 1窗体布局 z其中“学号”、“姓名”、“性别”、“年龄”、“所在系”及“查找系”用标签控件( Label )实现。 z对 Student 表中的各列数据用文本框控件( TextBox )实现,界面上各文本框控件内显示的内容为此文本框的对象名。 z ADO 数据控件对象名 AdodcStudent 。 z“查找”命令按钮的对象名为“ cmdSearch ”, “退出”命令按钮的对象名为“ cmdExit ”。示例 1控件的属性设置对象名属性名属性值 AdodcStudent ConnectionString 连接到 SQL Server 的“学生管理”mandType 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程序代码 z“退出”按钮单击( Click )鼠标事件程序代码 z“查找”按钮单击( Click )鼠标事件程序代码 z窗体加载( Load 事件)时初始化程序代码“退出”按钮单击( Click )鼠标事件程序代码 z Private Sub CmdExit_Click() ' " 退出"按钮 z End z End Sub “查找”按钮单击( Click )鼠标事件程序代码 z Private Sub CmdSearch_Click() ' " 查找"按钮 z If Len() > 0 Then ' 如果用户指定了系名 z mandType = adCmdText z = “ select * from student where Sdept = ‘“ & Trim() & “‘“ z ' 使所设置的属性生效 z Else ' 若用户未指定列名 z MsgBox ( “请指定要查找的系”) ' 则提示用户输入系名 z End If z End Sub