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

西北工业大学软件技术专用选取日期软件技术实验报告实验序号六名称Data数据控件综合应用班级09061201学号2012302337姓名刘昕实验内容及完成情况：用Data控件建立与数据库的连接，并在连接的基础上在相应的绑定控件中实时显示数据库中的数据，通过操作实现数据库中数据追加、修改、删除和查询。实验步骤： 1）用VB本身自带的可视化数据管理器建立student.mdb本地数据库，其中包含两个表，即基本情况表和学生成绩表，并录入本班学生数据。 2）根据实验设计需要在窗体上放上若干所需的标签控件、文本框控件、 命令按钮控件等，并设置各控件的必要属性值。 3）在窗体适当位置放置一个数据控件（Data控件）,设置该数据控件的Connect、DatabaseName和RecordSource等属性，建立与student.mdb数据库的连接。4）设置界面上的控件与数据控件绑定，使之受数据控件约束，并可通过其显示数据库中数据。5）设置数据控件Visible属性为不可见，通过命令按钮的单击事件过程实现数据库中数据的逐条浏览、增加、修改、删除和查询。6）编写相关的事件过程程序代码，要求浏览时禁止一切增、删、改操作，而进行增、删、改操作时又禁止移动数据指针。代码：Private Sub Command1_Click()Data1.Recordset.MoveFirstData2.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click()Data1.Recordset.MovePreviousData2.Recordset.MovePreviousIf Data1.Recordset.BOF Then Data1.Recordset.MoveFirstIf Data2.Recordset.BOF Then Data2.Recordset.MoveFirstEnd SubPrivate Sub Command3_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastData2.Recordset.MoveNextIf Data2.Recordset.EOF Then Data2.Recordset.MoveLastEnd SubPrivate Sub Command4_Click()Data1.Recordset.MoveLastData2.Recordset.MoveLastEnd SubPrivate Sub Command5_Click()On Error Resume NextCommand6.Enabled = Not Command6.EnabledCommand7.Enabled = Not Command7.EnabledCommand8.Enabled = TrueCommand9.Enabled = Not Command9.EnabledIf Command5.Caption = 新增 ThenCommand5.Caption = 确认Data1.Recordset.AddNewData2.Recordset.AddNewText1.SetFocusElseCommand8.Enabled = FalseCommand1.Caption = 新增Data1.Recordset.UpdateData1.Recordset.MoveLastData2.Recordset.UpdateData2.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command6_Click()On Error Resume NextData1.Recordset.DeleteData1.Recordset.MoveLastIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastData2.Recordset.DeleteData2.Recordset.MoveLastIf Data2.Recordset.EOF Then Data2.Recordset.MoveLastEnd SubPrivate Sub Command7_Click()On Error Resume NextCommand5.Enabled = Not Command5.EnabledCommand6.Enabled = Not Command6.EnabledCommand8.Enabled = TrueCommand9.Enabled = Not Command9.EnabledIf Command7.Caption = 修改 ThenCommand7.Caption = 确认Data1.Recordset.EditText1.SetFocusData2.Recordset.EditElseCommand7.Caption = 修改Data1.Recordset.UpdateData2.Recordset.UpdateCommand8.Enabled = FalseEnd IfEnd SubPrivate Sub Command8_Click()On Error Resume NextCommand5.Caption = 新增Command7.Caption = 修改Command5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand9.Enabled = TrueData1.UpdateControlsData1.Recordset.MoveLastData2.UpdateControlsData2.Recordset.MoveLastEnd SubPrivate Sub Command9_Click()Dim mzy As Stringmzy = InputBox$(请输入专业, 查找窗)Data1.RecordSource = select*from 基本情况 where 专业= & mzy & Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox 无此专业!Data1.RecordSource = 基本情况Data1.RefreshEnd IfEnd SubPrivate Sub Picture1_Click()Picture1.Picture = Clipboard.GetDataEnd Sub实验中遇到的问题及解决方法：在处于显示数据库第一条记录时继续执行“上一条”指令，运行时弹出“实时错误3021”的错误窗口，后通过添加If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst 语句进行溢出解决在Text插件进行数据库连接时出现“这个数据源不支持”的错误弹窗，后发现是属性“DataFormate”未处于初始值而进行了关联，后经过删除并重新插入Text插件解决编写程序代码时未注意到Command控件序号与实验代码的关联，导致显示错误，后在重新调整后改正关于MsgBox语句如何控制弹出窗体的标题栏方面，MsgBox 无此专业!,”提示：”该语句出现语法错误，通过删除，“提示”语句进行解决，但同时也丧失了该项功能关于Data1和Data2同时进行连接时，在代码中必须同时体现对两个控件的控制，并在数据库中输入数据时注意数据之间的相互对应进行数据库链接时，必须注意数据库文件的具体保存位置实验中所涉及的知识及技术：Data控件连接数据库的方法关于绑定控件的相关设置，以及记录集的相关属性及方法利用Data控件连接数据库后，用AddNew、Delete、Edit、Update和Refresh方法实现数据库基本操作对Command控件的相关语句的初步运用和了解实验中的创新及功能扩充：尝试了对Data控件的初步使用和属性认识，并用AddNew、Delete、Edit、Update和Refresh方法的实现了数据库基本操作对自定义变量的定义和应用有了更进一步的认识，并运用了“Picture”控件和相关语句向数据库中插入了图片尝试并成功在一个窗体内同时进