西工大软件技术实验六报告

软件技术实验报告

班级 学号 姓名 第 6 次实验： 数据控件及其应用 实验内容： 用Data控件建立与数据库的连接，并在连接的基础上在相应的绑定控件中实时显示数据库中的数据，通过操作实现数据库中数据追加、修改、删除和查询。 实验步骤： 1）用VB本身自带的可视化数据管理器建立student.mdb本地数据库，其中包含两个表，即基本情况表和学生成绩表，并录入本班学生数据。 2）根据实验设计需要在窗体上放上若干所需的标签控件、文本框控件、 命令按钮控件等，并设置各控件的必要属性值。 3）在窗体适当位置放置一个数据控件（Data控件）,设置该数据控件的Connect、DatabaseName和RecordSource等属性，建立与student.mdb数据库的连接。 4）设置界面上的控件与数据控件绑定，使之受数据控件约束，并可通过其显示数据库中数据。 5）设置数据控件Visible属性为不可见，通过命令按钮的单击事件过程实现数据库中数据的逐条浏览、增加、修改、删除和查询。 6）编写相关的事件过程程序代码，要求浏览时禁止一切增、删、改操作，而进行增、删、改操作时又禁止移动数据指针。 实验代码： Private Sub Command1_Click() On Error Resume Next Command2.Enabled = Not Command2.Enabled Command3.Enabled = Not Command3.Enabled Command4.Enabled = True Command5.Enabled = Not Command5.Enabled If Command1.Caption = \新增\ Command1.Caption = \确认\ Data1.Recordset.AddNew Text1.SetFocus Else Command4.Enabled = False Command1.Caption = \新增\ Data1.Recordset.Update Data1.Recordset.MoveLast End If End Sub Private Sub Command2_Click() On Error Resume Next Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub Private Sub Command3_Click() On Error Resume Next Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled Command4.Enabled = True Command5.Enabled = Not Command5.Enabled If Command3.Caption = \修改\ Command3.Caption = \确认\ Data1.Recordset.Edit Text1.SetFocus Else Command3.Caption = \修改\ Data1.Recordset.Update Command4.Enabled = False End If End Sub Private Sub Command4_Click() On Error Resume Next Command1.Caption = \新增\ Command3.Caption = \修改\ Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = True Data1.UpdateControls Data1.Recordset.MoveNext End Sub Private Sub Command5_Click() Dim mzy As String mzy = InputBox$(\请输入专业\查找窗\ Data1.RecordSource = \基本情况 Where 专业 ='\ Data1.Refresh If Data1.Recordset.EOF Then MsgBox \无此专业！\提示\ Data1.RecordSource = \基本情况\ Data1.Refresh End If End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) If Text1.Text = \ MsgBox \数据不完整,必须要有学号!\ Data1.UpdateControls End If If Action >= 1 And Action <= 4 Then Command1.Caption = \新增\ Command3.Caption = \修改\ Command1.Enabled = Ture Command2.Enabled = Ture Command3.Enabled = Ture Command4.Enabled = False End If End Sub Private Sub Picture1_Click() Picture1.Picture = Clipboard.GetData End Sub 创新亮点：（如果没有可以空缺） 完成情况和存在问题： 问题：在实验编码完成后，实验无法运行，过程声明与所描述事件不匹配。 原因：实验五的数据库设计不正确。 解决方法：重新建立一个数据库，再次连接，重新运行实验即可。 收获与体会： 通过实验操作学会了用Data控件建立与数据库的连接，并在连接的基础上在相应的绑定控件中实时显示数据库中的数据，通过操作实现数据库中数据追加、修改、删除和查询。 备注：

本文来源：https://www.bwwdw.com/article/mwro.html