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

1、C/SC/SVBVB数据库应用系统开发数据库应用系统开发z数据库应用系统结构数据库应用系统结构zVisual BasicVisual Basic快速入门快速入门z开放数据库连接（开放数据库连接（ODBCODBC）z数据访问接口（数据访问接口（ADOADO）zVBVB数据库编程举例数据库编程举例zVBVB开发数据库应用系统实例分析开发数据库应用系统实例分析VBVB数据库编程举例数据库编程举例z本节结合本节结合 “ “学生管理数据库学生管理数据库”以及其中的三张以及其中的三张表，利用数据访问接口技术和表，利用数据访问接口技术和ADO数据控件以及数据控件以及数据绑定控件，介绍在数据绑定控件，介绍在V

2、isual Basic中开发数据库中开发数据库应用程序的过程。应用程序的过程。 z示例示例1 z示例示例2 z示例示例3 示例示例1 1z示例示例1 1说明说明 z示例示例1 1控件的属性设置控件的属性设置z示例示例1 1程序代码程序代码z示例示例1 1实现过程展示实现过程展示 示例示例1 1说明说明z本示例说明如何利用本示例说明如何利用ADO数据控件实现对数据控件实现对Student表中全部数据的浏览，以及如何实现按用表中全部数据的浏览，以及如何实现按用户指定的系查找相应学生信息的功能。数据浏览户指定的系查找相应学生信息的功能。数据浏览方式采用单行浏览方式，即一次查看一条记录。方式采用单行浏

3、览方式，即一次查看一条记录。z通过本示例我们可以看到，设置好通过本示例我们可以看到，设置好ADO数据控件数据控件的属性后，用户不需要编制任何代码就可以实现的属性后，用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了，用户只需对数据的查询。如果查找条件变化了，用户只需要编写很少的代码就可以实现对数据源的重新查要编写很少的代码就可以实现对数据源的重新查询。询。 示例1窗体布局z其中其中“学号学号”、“姓名姓名”、“性别性别”、“年龄年龄”、“所在系所在系”及及“查找系查找系”用标用标签控件（签控件（Label）实现。）实现。z对对Student表中的各列数据用文本框控件表中的各列数据

4、用文本框控件（TextBox）实现，界面上各文本框控件内）实现，界面上各文本框控件内显示的内容为此文本框的对象名。显示的内容为此文本框的对象名。zADO数据控件对象名数据控件对象名AdodcStudent。 z“查找查找”命令按钮的对象名为命令按钮的对象名为“cmdSearch”，“退出退出”命令按钮的对象命令按钮的对象名为名为“cmdExit”。 示例示例1 1控件的属性设置控件的属性设置对象名对象名属性名属性名属性值属性值AdodcStudentConnectionString连接到连接到SQL Server的的“学生管理学生管理”数据数据库库CommandTypeadCmdTableRe

5、cordSourceStudentTxtSnoDataSourceAdodcStudentDataFieldSnoTxtSnameDataSourceAdodcStudent DataFieldSnameTxtSsexDataSourceAdodcStudentDataFieldSsexTxtSageDataSourceAdodcStudentDataFieldSageTxtSdeptDataSourceAdodcStudentDataFieldSdept示例示例1 1程序代码程序代码z“退出退出”按钮单击（按钮单击（ClickClick）鼠标事件程序代码）鼠标事件程序代码z“查找查找”按钮单

6、击（按钮单击（ClickClick）鼠标事件程序代码）鼠标事件程序代码z窗体加载（窗体加载（LoadLoad事件）时初始化程序代码事件）时初始化程序代码“退出退出”按钮单击（按钮单击（ClickClick）鼠标事件程序代）鼠标事件程序代码码Private Sub CmdExit_Click() 退出退出按钮按钮 End End Sub “查找查找”按钮单击（按钮单击（ClickClick）鼠标事件程序代）鼠标事件程序代码码Private Sub CmdSearch_Click() 查找查找 按钮按钮If Len(TxtSearchDept.Text) 0 Then 如果用户指定了系名如果用户指

7、定了系名 AdodcStudent.CommandType = adCmdText AdodcStudent.RecordSource = “ select * from student where Sdept = “ & Trim(TxtSearchDept.Text) & “ “ AdodcStudent.Refresh 使所设置的属性生效使所设置的属性生效 Else 若用户未指定列名若用户未指定列名 MsgBox (“请指定要查找的系请指定要查找的系”) 则提示用户输入系名则提示用户输入系名 End IfEnd Sub 窗体加载（窗体加载（LoadLoad事件）时初始化程

8、序代码事件）时初始化程序代码Private Sub Form_Load() 窗体加载时初始化查找系的内容窗体加载时初始化查找系的内容 初始化要查找的系为空初始化要查找的系为空 TxtSearchDept.Text = End Sub示例示例1 1实现过程展示实现过程展示设置控件和属性设置控件和属性编写程序代码编写程序代码执行程序观察结果执行程序观察结果观察查找前后的结果观察查找前后的结果示例示例2 2z示例示例2 2说明说明 z示例示例2 2控件的属性设置控件的属性设置z示例示例2 2程序代码程序代码z示例示例2 2实现过程展示实现过程展示示例示例2 2说明说明z 示例示例2在示例在示例1的基

9、础上增加了两组供用户操作的按钮。的基础上增加了两组供用户操作的按钮。z 一组是为了说明如何实现数据更改操作，即如何使用一组是为了说明如何实现数据更改操作，即如何使用Recordset对象的对象的AddNew、Update、Delete和和CancelUpdate方法；方法；z 另一组是为了说明如何编程控制结果集中浏览记录的移动，另一组是为了说明如何编程控制结果集中浏览记录的移动，即如何使用即如何使用Recordset对象的对象的Move方法组。方法组。 z 在这个示例中我们不使用在这个示例中我们不使用ADO数据库控件移动记录，而数据库控件移动记录，而是使用四个命令按钮实现此功能，因此在运行时将

10、是使用四个命令按钮实现此功能，因此在运行时将ADO数据控件隐藏起来。数据控件隐藏起来。 示例示例2窗体布局窗体布局z新增各命令按钮控件的对象名分别为：新增各命令按钮控件的对象名分别为：y “添加添加”命令按钮：命令按钮：cmdAddy “删除删除”命令按钮：命令按钮：cmdDely “更新更新”命令按钮：命令按钮：cmdUpdatey “取消取消”命令按钮：命令按钮：cmdCancely “第一条第一条”命令按钮：命令按钮：cmdFirsty “上一条上一条”命令按钮：命令按钮：cmdPreviousy “下一条下一条”命令按钮：命令按钮：cmdNexty “末一条末一条”命令按钮：命令按钮：

11、cmdLasty“退出退出”命令按钮：命令按钮：cmdExit 示例示例2 2控件的属性设置控件的属性设置z示例示例2窗体上的窗体上的ADO数据控件以及各文本数据控件以及各文本框控件的属性设置同示例框控件的属性设置同示例1。z为了在运行时隐藏为了在运行时隐藏ADO数据控件，我们将数据控件，我们将AdodcStudent的的Visible属性设置为：属性设置为：False。 示例示例2 2程序代码程序代码z 窗体启动时的初始化代码窗体启动时的初始化代码z 数据操作按钮组代码数据操作按钮组代码y“添加添加”命令按钮命令按钮y“取消取消”命令按钮命令按钮 y“删除删除”命令按钮命令按钮 y“更新更新

12、”命令按钮命令按钮 z 移动指针方法组代码移动指针方法组代码 y“第一条第一条”命令按钮命令按钮 y“末一条末一条”命令按钮命令按钮y“下一条下一条”命令按钮命令按钮 y“上一条上一条”命令按钮命令按钮 z 结束程序代码结束程序代码 窗体启动时的初始化代码窗体启动时的初始化代码Private Sub Form_Load() 初始时使初始时使“取消取消”按钮为不可用状态按钮为不可用状态 CmdCancel.Enabled = FalseEnd Sub“添加添加”命令按钮命令按钮Private Sub CmdAdd_Click() “ “添加添加”命令按钮命令按钮 AdodcStudent.Rec

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

14、按钮为可用状态 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 如

15、果确实要删除如果确实要删除 AdodcStudent.Recordset.Delete AdodcStudent.Recordset.MoveNext If AdodcStudent.Recordset.EOF = True Then AdodcStudent.Recordset.MoveLast End If End IfEnd Sub“更新更新”命令按钮命令按钮Private Sub CmdUpdate_Click() “更新更新”命令按钮命令按钮 将文本框中的当前值写入结果集相应字段中将文本框中的当前值写入结果集相应字段中 AdodcStudent.Recordset.Fields(Sn

16、o) = Trim(TxtSno.Text) AdodcStudent.Recordset.Fields(Sname) = Trim(TxtSname.Text) AdodcStudent.Recordset.Fields(Ssex) = Trim(TxtSsex.Text) AdodcStudent.Recordset.Fields(Sage) = CInt(Trim(TxtSage.Text) AdodcStudent.Recordset.Fields(Sdept) = Trim(TxtSdept.Text) AdodcStudent.Recordset.Update 使更新生效使更新生效

17、 使使“添加添加”和和“删除删除”按钮为可用状态按钮为可用状态 CmdAdd.Enabled = True CmdDel.Enabled = True CmdCancel.Enabled = False 使使“取消取消”按钮为不可用状态按钮为不可用状态End Sub“第一条第一条”命令按钮命令按钮 “ “第一条第一条”命令按钮命令按钮Private Sub CmdFirst_Click() AdodcStudent.Recordset.MoveFirstEnd Sub“末一条末一条”命令按钮命令按钮 “ “末一条末一条”命令按钮命令按钮Private Sub CmdLast_Click() A

18、dodcStudent.Recordset.MoveLastEnd Sub“下一条下一条”命令按钮命令按钮 “ “下一条下一条”命令按钮命令按钮Private Sub CmdNext_Click() AdodcStudent.Recordset.MoveNext If AdodcStudent.Recordset.EOF = True Then 如果已经移到了最后一行之后，则将指针定位在最后一行如果已经移到了最后一行之后，则将指针定位在最后一行 AdodcStudent.Recordset.MoveLast End IfEnd Sub“上一条上一条”命令按钮命令按钮 “ “上一条上一条”命令按

19、钮命令按钮Private Sub CmdPrevious_Click() AdodcStudent.Recordset.MovePrevious If AdodcStudent.Recordset.BOF = True Then 如果已经移到了第一行之前，则将指针定位在第一行如果已经移到了第一行之前，则将指针定位在第一行 AdodcStudent.Recordset.MoveFirst End IfEnd Sub 结束程序代码结束程序代码 “ “退出退出”命令按钮命令按钮Private Sub CmdExit_Click() EndEnd Sub示例示例2 2实现过程展示实现过程展示设置控件和

20、属性设置控件和属性编写程序代码编写程序代码执行程序观察结果执行程序观察结果示例示例3 3z示例示例3 3说明说明 z示例示例3 3控件的属性设置控件的属性设置z示例示例3 3程序代码程序代码z示例示例3 3实现过程展示实现过程展示示例示例3 3说明说明z示例示例3在示例在示例1的基础上增加了一个窗体，这个窗的基础上增加了一个窗体，这个窗体用体用DataGrid控件显示数据。控件显示数据。z示例示例3中的两个窗体的布局分别图中的两个窗体的布局分别图1和图和图2所示。所示。图图1 Form1布局布局图图2 Form2布局布局z在图所示的在图所示的Form1上，当用户单击上，当用户单击“查找查找”命

21、令按钮时，显示命令按钮时，显示Form2。zForm2上上DataGrid中的数据是根据中的数据是根据Form1中当前显示的学号值去查找此学生的姓名、中当前显示的学号值去查找此学生的姓名、所修的课程名、课程的学分以及考试成绩。所修的课程名、课程的学分以及考试成绩。z在在Form2上单击上单击“返回返回”命令按钮（对象命令按钮（对象名为名为cmdReturn），可以返回到），可以返回到Form1，并，并且同时卸载且同时卸载Form2。 示例示例3 3控件的属性设置控件的属性设置zForm1窗体上各控件属性的设置同示例窗体上各控件属性的设置同示例1。zForm2窗体窗体yDataGrid数据绑定数

22、据绑定控件的对象名为：控件的对象名为：dtgCondxDtgCond控件的列属性在程序代码中设置。控件的列属性在程序代码中设置。yADO数据控件名为：数据控件名为：AdodcGridxConnectionString属性的值同示例属性的值同示例1的的AdodcStudentxCommandType和和RecordSource属性我们在程序代码属性我们在程序代码中设置。中设置。示例示例3 3程序代码程序代码zForm1上的上的“查找查找”和和“退出退出”命令按钮命令按钮代码代码z Form2上的代码上的代码yForm2上上的的初始化初始化dtgCond控件代码控件代码yForm2上的上的Load

23、事件代码事件代码yForm2上上“返回返回”按钮代码按钮代码Form1Form1上的上的“查找查找”和和“退出退出”命令按钮代命令按钮代码码Private Sub CmdExit_Click() 退出退出 按钮按钮 EndEnd Sub Private Sub CmdSearch_Click() 查找查找 按钮按钮 Form2.Show 显示显示Form2Form2窗体窗体End SubForm2Form2上上的的初始化初始化dtgConddtgCond控件代码控件代码Private Sub InitGrid() 初始化初始化dtgConddtgCond控件控件 With DtgCond 设置

24、设置DtgCondDtgCond的列标题的列标题 .Columns(0).Caption = 学号学号 .Columns(1).Caption = 课程名课程名 .Columns(2).Caption = 学分学分 .Columns(3).Caption = 成绩成绩 设置设置DtgCondDtgCond的列宽的列宽 .Columns(0).Width = 1000 .Columns(1).Width = 2000 .Columns(2).Width = 800 .Columns(3).Width = 800 End WithEnd SubForm2Form2上的上的LoadLoad事件代码事件代码Private Sub Form_Load() Dim strSno As String Dim strSelect As String strSno = Tri