《用VB开发数据库应用程序3实例.ppt》由会员分享，可在线阅读，更多相关《用VB开发数据库应用程序3实例.ppt（48页珍藏版）》请在三一办公上搜索。
1、C/SVB数据库应用系统开发,数据库应用系统结构Visual Basic快速入门开放数据库连接（ODBC）数据访问接口（ADO）VB数据库编程举例VB开发数据库应用系统实例分析,VB数据库编程举例,本节结合“学生管理数据库”以及其中的三张表，利用数据访问接口技术和ADO数据控件以及数据绑定控件，介绍在Visual Basic中开发数据库应用程序的过程。示例1 示例2 示例3,示例1,示例1说明 示例1控件的属性设置示例1程序代码示例1实现过程展示,示例1说明,本示例说明如何利用ADO数据控件实现对Student表中全部数据的浏览，以及如何实现按用户指定的系查找相应学生信息的功能。数据浏览方式采
2、用单行浏览方式，即一次查看一条记录。通过本示例我们可以看到，设置好ADO数据控件的属性后，用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了，用户只需要编写很少的代码就可以实现对数据源的重新查询。,示例1窗体布局,其中“学号”、“姓名”、“性别”、“年龄”、“所在系”及“查找系”用标签控件（Label）实现。对Student表中的各列数据用文本框控件（TextBox）实现，界面上各文本框控件内显示的内容为此文本框的对象名。ADO数据控件对象名AdodcStudent。“查找”命令按钮的对象名为“cmdSearch”，“退出”命令按钮的对象名为“cmdExit”。,示例1控件的属性
3、设置,示例1程序代码,“退出”按钮单击（Click）鼠标事件程序代码“查找”按钮单击（Click）鼠标事件程序代码窗体加载（Load事件）时初始化程序代码,“退出”按钮单击（Click）鼠标事件程序代码,Private Sub CmdExit_Click()退出按钮 End End Sub,“查找”按钮单击（Click）鼠标事件程序代码,Private Sub CmdSearch_Click()查找按钮If Len(TxtSearchDept.Text)0 Then 如果用户指定了系名 AdodcStudent.CommandType=adCmdText AdodcStudent.Record
4、Source=“select*from student where Sdept=“&Trim(TxtSearchDept.Text)&“AdodcStudent.Refresh 使所设置的属性生效 Else 若用户未指定列名 MsgBox(“请指定要查找的系”)则提示用户输入系名 End IfEnd Sub,窗体加载（Load事件）时初始化程序代码,Private Sub Form_Load()窗体加载时初始化查找系的内容 初始化要查找的系为空 TxtSearchDept.Text=End Sub,示例1实现过程展示,设置控件和属性,编写程序代码,执行程序观察结果,观察查找前后的结果,示例2,
5、示例2说明 示例2控件的属性设置示例2程序代码示例2实现过程展示,示例2说明,示例2在示例1的基础上增加了两组供用户操作的按钮。一组是为了说明如何实现数据更改操作，即如何使用Recordset对象的AddNew、Update、Delete和CancelUpdate方法；另一组是为了说明如何编程控制结果集中浏览记录的移动，即如何使用Recordset对象的Move方法组。在这个示例中我们不使用ADO数据库控件移动记录，而是使用四个命令按钮实现此功能，因此在运行时将ADO数据控件隐藏起来。,示例2窗体布局,新增各命令按钮控件的对象名分别为：“添加”命令按钮：cmdAdd“删除”命令按钮：cmdDe
6、l“更新”命令按钮：cmdUpdate“取消”命令按钮：cmdCancel“第一条”命令按钮：cmdFirst“上一条”命令按钮：cmdPrevious“下一条”命令按钮：cmdNext“末一条”命令按钮：cmdLast“退出”命令按钮：cmdExit,示例2控件的属性设置,示例2窗体上的ADO数据控件以及各文本框控件的属性设置同示例1。为了在运行时隐藏ADO数据控件，我们将AdodcStudent的Visible属性设置为：False。,示例2程序代码,窗体启动时的初始化代码数据操作按钮组代码“添加”命令按钮“取消”命令按钮“删除”命令按钮“更新”命令按钮 移动指针方法组代码“第一条”命令按
7、钮“末一条”命令按钮“下一条”命令按钮“上一条”命令按钮 结束程序代码,窗体启动时的初始化代码,Private Sub Form_Load()初始时使“取消”按钮为不可用状态 CmdCancel.Enabled=FalseEnd Sub,“添加”命令按钮,Private Sub CmdAdd_Click()“添加”命令按钮 使“添加”和“删除”按钮为不可用状态 CmdAdd.Enabled=False CmdDel.Enabled=False 使“更改”和“取消”按钮为可用状态 CmdUpdate.Enabled=True CmdCancel.Enabled=TrueEnd Sub,“取消”命
8、令按钮,Private Sub CmdCancel_Click()“取消”命令按钮 使“添加”和“删除”按钮为可用状态 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 如果确实
9、要删除 If AdodcStudent.Recordset.EOF=True Then End If End IfEnd Sub,“更新”命令按钮,Private Sub CmdUpdate_Click()“更新”命令按钮 将文本框中的当前值写入结果集相应字段中 AdodcStudent.Recordset.Fields(Sno)=Trim(TxtSno.Text)AdodcStudent.Recordset.Fields(Sname)=Trim(TxtSname.Text)AdodcStudent.Recordset.Fields(Ssex)=Trim(TxtSsex.Text)AdodcS
10、tudent.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 使“取消”按钮为不可用状态End Sub,“第一条”命令按钮,“第一条”命令按钮End Sub,“末一条”命令按钮,“末一条”命令按钮End Su
11、b,“下一条”命令按钮,“下一条”命令按钮 If AdodcStudent.Recordset.EOF=True Then 如果已经移到了最后一行之后，则将指针定位在最后一行 End IfEnd Sub,“上一条”命令按钮,“上一条”命令按钮 If AdodcStudent.Recordset.BOF=True Then 如果已经移到了第一行之前，则将指针定位在第一行 End IfEnd Sub,结束程序代码,“退出”命令按钮Private Sub CmdExit_Click()EndEnd Sub,示例2实现过程展示,设置控件和属性,编写程序代码,执行程序观察结果,示例3,示例3说明 示例3
12、控件的属性设置示例3程序代码示例3实现过程展示,示例3说明,示例3在示例1的基础上增加了一个窗体，这个窗体用DataGrid控件显示数据。示例3中的两个窗体的布局分别图1和图2所示。,图1 Form1布局,图2 Form2布局,在图所示的Form1上，当用户单击“查找”命令按钮时，显示Form2。Form2上DataGrid中的数据是根据Form1中当前显示的学号值去查找此学生的姓名、所修的课程名、课程的学分以及考试成绩。在Form2上单击“返回”命令按钮（对象名为cmdReturn），可以返回到Form1，并且同时卸载Form2。,示例3控件的属性设置,Form1窗体上各控件属性的设置同示例
13、1。Form2窗体DataGrid数据绑定控件的对象名为：dtgCondDtgCond控件的列属性在程序代码中设置。ADO数据控件名为：AdodcGridConnectionString属性的值同示例1的AdodcStudentCommandType和RecordSource属性我们在程序代码中设置。,示例3程序代码,Form1上的“查找”和“退出”命令按钮代码 Form2上的代码Form2上的初始化dtgCond控件代码Form2上的Load事件代码Form2上“返回”按钮代码,Form1上的“查找”和“退出”命令按钮代码,Private Sub CmdExit_Click()退出按钮 En
14、dEnd SubPrivate Sub CmdSearch_Click()查找按钮 Form2.Show 显示Form2窗体End Sub,Form2上的初始化dtgCond控件代码,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.
15、Columns(2).Width=800.Columns(3).Width=800 End WithEnd Sub,Form2上的Load事件代码,Private Sub Form_Load()Dim strSno As String Dim strSelect As String strSno=Trim(Form1.TxtSno.Text)得到Form1窗体上当前显示的学号的值 编写满足要求的查询语句，查找学号值等于给定值的学生的姓名、修的课程名、学分和成绩 strSelect=“select Sname,Cname,Ccredit,Grade from student s join sc“
16、_&“on s.sno=sc.sno join course c on o=o where“_&“sc.sno=“&strSno&“设置ADO数据控件相应的属性 AdodcGrid.CommandType=adCmdText AdodcGrid.RecordSource=strSelect AdodcGrid.Refresh 使ADO数据控件的新属性生效 设置DataGrid控件的数据源为ADO数据控件的结果集 Set DtgCond.DataSource=AdodcGrid Call InitGrid 调用DtgCond控件的初始化过程 End Sub,Form2上“返回”按钮代码,“返回”按钮Private Sub CmdReturn_Click()Unload MeEnd Sub,示例3实现过程展示,设置Form1控件和属性,编写Form1程序代码,添加Form2控件并设置属性,编写Form2程序代码,执行程序观察结果,
