《西工大软件技术实验报告 实验六》由会员分享，可在线阅读，更多相关《西工大软件技术实验报告 实验六（7页珍藏版）》请在金锄头文库上搜索。
1、西北工业大学软件技术专用选取日期1软件技术实验报告实验序号 六 名称 Data 数据控件综合应用班级 09061201学号 2012302337姓名 刘昕实验内容及完成情况：用 Data 控件建立与数据库的连接，并在连接的基础上在相应的绑定控件中实时显示数据库中的数据，通过操作实现数据库中数据追加、修改、删除和查询。实验步骤：1）用 VB 本身自带的可视化数据管理器建立 student.mdb 本地数据库，其中包含两个表，即基本情况表和学生成绩表，并录入本班学生数据。2）根据实验设计需要在窗体上放上若干所需的标签控件、文本框控件、命令按钮控件等，并设置各控件的必要属性值。3）在窗体适当位置放置
2、一个数据控件（Data 控件）,设置该数据控件的 Connect、DatabaseName 和 RecordSource 等属性，建立与 student.mdb 数据库的连接。4）设置界面上的控件与数据控件绑定，使之受数据控件约束，并可通过其显示数据库中数据。5）设置数据控件 Visible 属性为不可见，通过命令按钮的单击事件过程实现数据库中数据的逐条浏览、增加、修改、删除和查询。6）编写相关的事件过程程序代码，要求浏览时禁止一切增、删、改操作，而进行增、删、改操作时又禁止移动数据指针。代码：Private Sub Command1_Click()Data1.Recordset.MoveFi
3、rst西北工业大学软件技术专用选取日期2Data2.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.MoveNex
4、tIf 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.E
5、nabled西北工业大学软件技术专用选取日期3Command7.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.Upd
6、ateData1.Recordset.MoveLastData2.Recordset.UpdateData2.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command6_Click()On Error Resume NextData1.Recordset.DeleteData1.Recordset.MoveLast西北工业大学软件技术专用选取日期4If Data1.Recordset.EOF Then Data1.Recordset.MoveLastData2.Recordset.DeleteData2.Recordset.MoveLastIf Da
7、ta2.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.Re
8、cordset.EditText1.SetFocusData2.Recordset.EditElseCommand7.Caption = 修改Data1.Recordset.UpdateData2.Recordset.UpdateCommand8.Enabled = False西北工业大学软件技术专用选取日期5End IfEnd SubPrivate Sub Command8_Click()On Error Resume NextCommand5.Caption = 新增Command7.Caption = 修改Command5.Enabled = TrueCommand6.Enabled =
9、 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 & 西北
10、工业大学软件技术专用选取日期6Data1.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.
11、MoveFirst 语句进行溢出解决在 Text 插件进行数据库连接时出现“这个数据源不支持”的错误弹窗，后发现是属性“DataFormate”未处于初始值而进行了关联，后经过删除并重新插入Text 插件解决编写程序代码时未注意到 Command 控件序号与实验代码的关联，导致显示错误，后在重新调整后改正关于 MsgBox 语句如何控制弹出窗体的标题栏方面，MsgBox 无此专业!,”提示：”该语句出现语法错误，通过删除， “提示”语句进行解决，但同时也丧失了该项功能关于 Data1 和 Data2 同时进行连接时，在代码中必须同时体现对两个控件的控制，并在数据库中输入数据时注意数据之间的相互
12、对应进行数据库链接时，必须注意数据库文件的具体保存位置西北工业大学软件技术专用选取日期7实验中所涉及的知识及技术：Data 控件连接数据库的方法关于绑定控件的相关设置，以及记录集的相关属性及方法利用 Data 控件连接数据库后，用 AddNew、Delete、Edit、Update 和Refresh 方法实现数据库基本操作对 Command 控件的相关语句的初步运用和了解实验中的创新及功能扩充：尝试了对 Data 控件的初步使用和属性认识，并用AddNew、Delete、Edit、Update 和 Refresh 方法的实现了数据库基本操作对自定义变量的定义和应用有了更进一步的认识，并运用了“Picture”控件和相关语句向数据库中插入了图片尝试并成功在一个窗体内同时进行对两个数据库的链接，并对相关的Command 语句进行了修改和控制尝试对 MsgBox 语句进行进一步的拓展，但最终失败了实验收获与体会： 了解了 Data 控件的功能，并进行了初步的链接尝试 了解了 AddNew、Delete、Edit、Update 和 Refresh 方法 学会了对 Picture 控件的使用，并成功将图片插入了数据库 对 MsgBox 语句有了进一步的了解备注：
