access实验报告(五).doc
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《access实验报告(五).doc》由会员分享,可在线阅读,更多相关《access实验报告(五).doc(19页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、access实验报告(五)access实验报告(五)实验项目五实验项目名称:宏、模块的创建与操作教师评分:一、实验目的和要求:1、熟悉和掌握在宏设计器中设计简单宏。2、熟悉和掌握在宏设计器中设计宏组。3、熟悉和掌握在宏设计器中设计条件宏。4、熟悉和掌握在宏设计器中设计自动运行宏。5、熟悉和掌握VBA的常量、变量、运算符和表达式。6、熟悉和掌握常用的标准函数。7、熟悉和掌握VBA的程序结构:顺序结构、选择结构和循环结构。8、熟悉和掌握为窗体和控件事件编写VBA程序代码的方法。二、实验任务:1、为“出货信息”窗体中的“商品编号”和“客户编号”字段文本框控件分别创建“查看商品名称”宏和“查看客户名称
2、”宏。当单击“商品编号”或“客户编号”字段文本框控件时,弹出消息框显示对应的“商品名称”或“客户名称”。2、为“退货信息窗体”中的“查看退货返款”命令按钮创建“查看退货返款”条件宏。当单击“查看退货返款”命令按钮时,根据“商品类别”确定不同商品的退货返款的比率,在弹出的信息框中显示“出货货款”和“退货返款”信息。具体规定如下:“商品类别”为“0001”和“0002”的商品退货返款的比率为:0.8“商品类别”为“0003”、“0004”、“0006”、“0007”、“0008”、“0009”的商品退货返款的比率为:0.9“商品类别”为“0005”的商品退货返款的比率为:0.953、首先在窗体设计
3、视图中按照实践指导书p73页图7-13创建“窗体管理”窗体,然后为“窗体管理”窗体中的各命令按钮创建“窗体管理”宏组。当单击命令按钮时,打开相应的窗体功能。4、创建自动运行宏“autoexec”,使“窗体管理”窗体随着“进销存管理系统”数据库一起打开。5、创建“进货信息操作窗体”,为“清空记录”、“查询记录”、“添加记录”、“修改记录”、“删除记录”和“关闭窗体”等命令按钮编写VBA程序代码。三、实验原理:1.宏的功能是什么。调用方法有哪些。(学生自行总结)2.宏操作命令如下:分类宏操作OpenDataAccessPageOpenFormOpenModule打开OpenQueryOpenRep
4、ortOpenTable焦点GoToControl功能学生自行总结学生自行总结学生自行总结学生自行总结学生自行总结学生自行总结学生自行总结学生自行总结GoToPage学生自行总结SelectObject学生自行总结SendKeys设置值学生自行总结SetValue学生自行总结RepaintObject更新学生自行总结Requery学生自行总结ApplyFilter学生自行总结FindRecord学生自行总结FindNext学生自行总结GoToRecord学生自行总结RunApp学生自行总结记录RunCode学生自行总结RunCommand学生自行总结RunMacro学生自行总结RunSQL学生
5、自行总结StopAllMacro学生自行总结StopMacro学生自行总结Maximize学生自行总结Minimize窗口学生自行总结MoveSize学生自行总结Restore学生自行总结打印PrintOut学生自行总结Beep学生自行总结信息MsgBox学生自行总结SetWarnings学生自行总结复制CopyObject学生自行总结删除DeleteObect学生自行总结重命名rename学生自行总结保存save学生自行总结close关闭学生自行总结quit学生自行总结outputto学生自行总结TransferDatabase导入导出TransferSpreadsheet学生自行总结学生自
6、行总结TransferText3.结构化程序设计思想是什么。包括哪些程序控制结构。不同的过程如何调用,参数如何传递。(学生自行总结)4.面向对象程序设计基本思想是什么。核心是什么。(学生自行总结)5.ADO的对象集合是什么。请写出VBA利用对象访问数据库的基本步骤。(学生自行总结)四、实验操作步骤(可略)(参考课本上过程)注意:1、宏的实验需要输入的表达式参考实验指导书的步骤部分,不要仅看图,图上的表达式未完整显示。2、vba和模块的实验代码中的控件名称需要自行改动,请不要生搬硬套。五、实验中遇到的问题(根据个人具体情况记载,选做)附:部分代码,需要根据实际情况调整,直接照搬有可能运行不了宏实
7、验:查看商品名称:=商品编号:&商品编号&商品名称:&DLookUp(商品名称,商品信息表,商品编号=forms!出货信息窗体!商品编号)“条件”列第一行:DLookUp(商品类别,商品信息表,商品编号=forms!退货信息窗体!商品编号)=0001OrDLookUp(商品类别,商品信息表,商品编号=forms!退货信息窗体!商品编号)=0002“消息”:=出货货款:&Forms!退货信息窗体!退货数量*DLookUp(出货单价,出货信息表,商品编号=forms!退货信息窗体!商品编号)&退货货款:&Forms!退货信息窗体!退货数量*DLookUp(出货单价,出货信息表,商品编号=forms
8、!退货信息窗体!商品编号)*.8“条件”列第二行:DLookUp(商品类别,商品信息表,商品编号=forms!退货信息窗体!商品编号)=0003OrDLookUp(商品类别,商品信息表,商品编号=forms!退货信息窗体!商品编号)=0004“消息”:=出货货款:&Forms!退货信息窗体!退货数量*DLookUp(出货单价,出货信息表,商品编号=forms!退货信息窗体!商品编号)&退货货款:&Forms!退货信息窗体!退货数量*DLookUp(出货单价,出货信息表,商品编号=forms!退货信息窗体!商品编号)*.9VBA和模块实验:OptionCompareDatabasePrivate
9、Sub查询记录_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.Text16)ThenText16为本窗体中请输入进货编号文本框的名称属性值MsgBox请输入进货编号,进货编号不能为空!,vbOKOnly+vbCritical,提示Me.Text16.SetFocusExitSubElsesqlstr=select*from进货信息表where进货编号=&Me.Text16&rs.Opensqlstr,cn,
10、adOpenDynamic,adLockOptimistic,adCmdTextIfNotrs.EOFThenMe.进货编号=Trim(rs(0)Me.商品编号=Trim(rs(1)Me.进货单价=Trim(rs(2)Me.进货数量=Trim(rs(3)Me.供货单位=Trim(rs(4)Me.进货日期=Trim(rs(5)Me.存放位置=Trim(rs(6)Me.经手人=Trim(rs(7)ElseMsgBox该进货编号不存在,请重新输入!,vbOKOnly+vbInformation,提示Me.Text16=EndIfEndIfrs.Closecn.CloseSetrs=NothingSe
11、tcn=NothingEndSubPrivateSub修改记录_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.进货编号)AndIsNull(Me.商品编号)AndIsNull(Me.进货单价)And_IsNull(Me.进货数量)AndIsNull(Me.供货单位)And_IsNull(Me.进货日期)AndIsNull(Me.存放位置)AndIsNull(Me.经手人)ThenText16为本窗体中请输入
12、进货编号文本框的名称属性值MsgBox每个字段都不能为空!,vbOKOnly+vbCritical,提示Me.进货编号.SetFocusExitSubElsesqlstr=select*from进货信息表where进货编号=&Me.Text16&rs.Opensqlstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextrs(0)=Trim(Me.进货编号)rs(1)=Trim(Me.商品编号)rs(2)=Trim(Me.进货单价)rs(3)=Trim(Me.进货数量)rs(4)=Trim(Me.供货单位)rs(5)=Trim(Me.进货日期)rs(6)=
13、Trim(Me.存放位置)rs(7)=Trim(Me.经手人)rs.UpdateEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSubPrivateSub删除记录_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.Text16)ThenText16为本窗体中请输入进货编号文本框的名称属性值MsgBox请输入进货编号,进货编号不能为空!,vbOKOnly+vbC
14、ritical,提示Me.Text16.SetFocusExitSubElsesqlstr=select*from进货信息表where进货编号=&Me.Text16&rs.Opensqlstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextIfNotrs.EOFThenrs.DeleteElseMsgBox该进货编号不存在,请重新输入!,vbOKOnly+vbInformation,提示Me.Text16=EndIfEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSubPrivateSub关闭窗体_Cl
15、ick()DoCmd.CloseacForm,实验8:进货信息操作窗体EndSubPrivateSub清空记录_Click()Me.Text16=Me.进货编号=Me.商品编号=Me.进货单价=Me.进货数量=Me.供货单位=Me.进货日期=Me.存放位置=Me.经手人=EndSubPrivateSub添加记录_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.进货编号)ThenText16为本窗体中请输入进货
16、编号文本框的名称属性值MsgBox请输入进货编号,进货编号不能为空!,vbOKOnly+vbCritical,提示Me.进货编号.SetFocusExitSubElsesqlstr=select*from进货信息表rs.Opensqlstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextrs.MoveLastrs.AddNewrs(0)=Trim(Me.进货编号)rs(1)=Trim(Me.商品编号)rs(2)=Trim(Me.进货单价)rs(3)=Trim(Me.进货数量)rs(4)=Trim(Me.供货单位)rs(5)=Trim(Me.进货日期)rs
17、(6)=Trim(Me.存放位置)rs(7)=Trim(Me.经手人)rs.UpdateEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSub扩展阅读:实验报告 ACCESS数据库及其应用实验报告实验序号:B0901000-02实验项目名称:数据库设计和创建、表的创建与相关设置学号实验地点1007010153现教中心姓名指导教师专业、班时间2021年3-4月一、实验目的及要求1熟悉Access中数据库及表的概念。了解并掌握建立数据库、表和关系的过程。2熟悉数据库窗口的界面特点,掌握数据库窗口几种设置方法。3理解并掌握关系数据库完整性基本概念。
18、掌握完整性的设置方法。4掌握字段属性的概念和一些属性的用途。并掌握一些字段属性的设置方法。5了解Access数据表视图的一些基本功能。6了解在数据表视图中进行操作时的不同特点。二、实验设备(环境)及要求PC机,WindowsXP,Access2021三、实验内容要求(实验操作内容和步骤可写在表格后面)(一)数据库与表的设计与创建1给定如下数据分析,进行概念设计与逻辑设计。即设计系统的E-R模型并转换为关系模型。(数据参见附表)。某学校设计学生教学管理系统。学生实体包括学号、姓名、性别、生日、民族、籍贯、简历、登记照,每名学生选择一个主修专业,专业包括专业编号和名称,一个专业属于一个学院,一个学
19、院可以有若干个专业。学院信息要存储学院号、学院名、院长。教学管理还要管理课程表和学生成绩。课程表包括课程号、课程名、学分,每门课程由一个学院开设。学生选修的每门课程获得一个成绩。2.数据库结构设计指定数据库文件的名称,并为设计好的关系模型设计表结构。数据库文件保存在“E:教学管理”文件夹中。3定义数据库文件定义存放路径,和数据库文件。写出操作步骤。可包括必要的截图。4定义数据库中各表根据事先设计好的结构,分别定义各表、字段名、字段属性。重复的步骤可简化。5定义表之间的关系当所有表都定义好后,定义各表之间的关系。6输入表记录当所有表建立好后,可开始输入记录。简要说明输入的操作。(二)Access
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- access 实验 报告
![提示](https://www.deliwenku.com/images/bang_tan.gif)
限制150内