西工大软件技术实验六报告
更新时间:2024-04-07 13:28:01 阅读量: 综合文库 文档下载
- 软件技术基础实验推荐度:
- 相关推荐
软件技术实验报告
班级 学号 姓名 第 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控件建立与数据库的连接,并在连接的基础上在相应的绑定控件中实时显示数据库中的数据,通过操作实现数据库中数据追加、修改、删除和查询。 备注:
正在阅读:
西工大软件技术实验六报告04-07
小学危险品自查报告03-26
高中-物质结构与性质01-04
江南大学2018年上半年信息检索与利用第3阶段参考_ss05-20
2013年上海市及全国木质家具月度产量数据统计报告08-19
2017-2018学年江苏省常州市溧阳市竹箦中学高考物理模拟试卷(9月份) Word版含解析11-11
初中英语听力资料03-08
五年级数学1+1社团活动资料05-04
实验三、线性分组码的编译码01-12
- 多层物业服务方案
- (审判实务)习惯法与少数民族地区民间纠纷解决问题(孙 潋)
- 人教版新课标六年级下册语文全册教案
- 词语打卡
- photoshop实习报告
- 钢结构设计原理综合测试2
- 2014年期末练习题
- 高中数学中的逆向思维解题方法探讨
- 名师原创 全国通用2014-2015学年高二寒假作业 政治(一)Word版
- 北航《建筑结构检测鉴定与加固》在线作业三
- XX县卫生监督所工程建设项目可行性研究报告
- 小学四年级观察作文经典评语
- 浅谈110KV变电站电气一次设计-程泉焱(1)
- 安全员考试题库
- 国家电网公司变电运维管理规定(试行)
- 义务教育课程标准稿征求意见提纲
- 教学秘书面试技巧
- 钢结构工程施工组织设计
- 水利工程概论论文
- 09届九年级数学第四次模拟试卷
- 西工大
- 软件技术
- 实验
- 报告
- 最新卫生资格外科考试题无忧 资料全整下载(包过关)
- 绿道规划设计导则
- 叔丁基过氧化氢技术与市场调研报告(2013简版)
- 2018高考语言得体练习题及答案
- 初中物理 - - 力和机械 - - 单元测试 - - 40道全面复习题 -
- 中国工具酶行业市场前景分析预测年度报告(目录) - 图文
- 汽车维修合同
- 六十甲子纳音五行巧算口诀
- 卓钦锐副市长在全市档案工作暨表彰会议上的讲话
- 部队两学一做个人个人问题清单例一
- 西安市人民政府关于进一步优化产业布局
- 第六届江西省中小学电脑制作活动南昌市赛区获奖学生名单
- 人民版高中历史必修三1.2《汉代儒学》教案完美版
- 农村污水管网设计说明
- 第一单元 变压器的分类、结构和原理习题
- 中阶主管的新定位心得
- 德江县实验中学先学后教-高效课堂导学案2014-2015九年级上仁爱英
- 硫磺卸船安全技术规定
- 学习做一个有素养的文明人 国旗下讲话
- 初中物理电学复习资料专题(1)