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

《西工大软件技术实验报告 实验六》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、西北工业大学软件技术专用[选取日期]软件技术实验报告实验序号六名称Data数据控件综合应用班级09061201学号2012302337姓名刘昕实验内容及完成情况：用Data控件建立与数据库的连接，并在连接的基础上在相应的绑定控件中实时显示数据库中的数据，通过操作实现数据库中数据追加、修改、删除和查询。实验步骤：1）用VB本身自带的可视化数据管理器建立student.mdb本地数据库，其中包含两个表，即基本情况表和学生成绩表，并录入本班学生数据。2）根据实验设计需要在窗体上放上若干所需的标签控件、文本框控件、命令按钮控件等，并设置各控件的必要属性值。3）在窗体适当位置放置一个数据控件（Data控

2、件）,设置该数据控件的Connect、DatabaseName和RecordSource等属性，建立与student.mdb数据库的连接。4）设置界面上的控件与数据控件绑定，使之受数据控件约束，并可通过其显示数据库中数据。5）设置数据控件Visible属性为不可见，通过命令按钮的单击事件过程实现数据库中数据的逐条浏览、增加、修改、删除和查询。6）编写相关的事件过程程序代码，要求浏览时禁止一切增、删、改操作，而进行增、删、改操作时又禁止移动数据指针。代码：PrivateSubCommand1_Click()Data1.Recordset.MoveFirst7西北工业大学软件技术专用[选取日期]D

3、ata2.Recordset.MoveFirstEndSubPrivateSubCommand2_Click()Data1.Recordset.MovePreviousData2.Recordset.MovePreviousIfData1.Recordset.BOFThenData1.Recordset.MoveFirstIfData2.Recordset.BOFThenData2.Recordset.MoveFirstEndSubPrivateSubCommand3_Click()Data1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.R

4、ecordset.MoveLastData2.Recordset.MoveNextIfData2.Recordset.EOFThenData2.Recordset.MoveLastEndSubPrivateSubCommand4_Click()Data1.Recordset.MoveLastData2.Recordset.MoveLastEndSubPrivateSubCommand5_Click()OnErrorResumeNextCommand6.Enabled=NotCommand6.Enabled7西北工业大学软件技术专用[选取日期]Command7.Enabled=NotComman

5、d7.EnabledCommand8.Enabled=TrueCommand9.Enabled=NotCommand9.EnabledIfCommand5.Caption="新增"ThenCommand5.Caption="确认"Data1.Recordset.AddNewData2.Recordset.AddNewText1.SetFocusElseCommand8.Enabled=FalseCommand1.Caption="新增"Data1.Recordset.UpdateData1.Recordset.MoveLastData2.Recordset.UpdateData2.Record

6、set.MoveLastEndIfEndSubPrivateSubCommand6_Click()OnErrorResumeNextData1.Recordset.DeleteData1.Recordset.MoveLast7西北工业大学软件技术专用[选取日期]IfData1.Recordset.EOFThenData1.Recordset.MoveLastData2.Recordset.DeleteData2.Recordset.MoveLastIfData2.Recordset.EOFThenData2.Recordset.MoveLastEndSubPrivateSubCommand7_

7、Click()OnErrorResumeNextCommand5.Enabled=NotCommand5.EnabledCommand6.Enabled=NotCommand6.EnabledCommand8.Enabled=TrueCommand9.Enabled=NotCommand9.EnabledIfCommand7.Caption="修改"ThenCommand7.Caption="确认