Access实验总结

时间：2019-05-28 22:02:53 网站：公文素材库

Access实验总结

四、实验总结

1．简述三个表之间的联系；

SC表通过.Cno,Sno把student和course联系到一起。2．写出数据库查询中对应的SQL语句（实验内容5-6）；（1）查询有哪些学生选修了“001”号课程

SELECTSC.Cno,SC.Sno,Student.Sname

FROMStudentINNERJOINSCONStudent.Sno=SC.SnoWHERE(((SC.Cno)="001"));

（2）查询农学院每位同学的成绩信息，包括姓名、课程名和成绩SELECTStudent.Major,Student.Sname,Course.Cname,SC.Grade

FROMStudentINNERJOIN(CourseINNERJOINSCONCourse.Cno=SC.Cno)ONStudent.Sno=SC.Sno

WHERE(((Student.Major)="农学"));

3．总结本次实验完成情况和存在的问题。

在老师的严厉教导和自己的仔细耐心学习下，总算邹邹巴巴完成实验。问题是不能理解SQL语句，更别提自己直接书写SQL语句了。

扩展阅读：access实验报告(五)

实验项目五

实验项目名称：宏、模块的创建与操作教师评分：一、实验目的和要求：1、熟悉和掌握在宏设计器中设计简单宏。2、熟悉和掌握在宏设计器中设计宏组。3、熟悉和掌握在宏设计器中设计条件宏。4、熟悉和掌握在宏设计器中设计自动运行宏。5、熟悉和掌握VBA的常量、变量、运算符和表达式。6、熟悉和掌握常用的标准函数。7、熟悉和掌握VBA的程序结构：顺序结构、选择结构和循环结构。8、熟悉和掌握为窗体和控件事件编写VBA程序代码的方法。二、实验任务：1、为“出货信息”窗体中的“商品编号”和“客户编号”字段文本框控件分别创建“查看商品名称”宏和“查看客户名称”宏。当单击“商品编号”或“客户编号”字段文本框控件时，弹出消息框显示对应的“商品名称”或“客户名称”。2、为“退货信息窗体”中的“查看退货返款”命令按钮创建“查看退货返款”条件宏。当单击“查看退货返款”命令按钮时，根据“商品类别”确定不同商品的退货返款的比率，在弹出的信息框中显示“出货货款”和“退货返款”信息。具体规定如下：“商品类别”为“0001”和“0002”的商品退货返款的比率为：0.8“商品类别”为“0003”、“0004”、“0006”、“0007”、“0008”、“0009”的商品退货返款的比率为：0.9“商品类别”为“0005”的商品退货返款的比率为：0.953、首先在窗体设计视图中按照实践指导书p73页图7-13创建“窗体管理”窗体，然后为“窗体管理”窗体中的各命令按钮创建“窗体管理”宏组。当单击命令按钮时，打开相应的窗体功能。4、创建自动运行宏“autoexec”,使“窗体管理”窗体随着“进销存管理系统”数据库一起打开。5、创建“进货信息操作窗体”，为“清空记录”、“查询记录”、“添加记录”、“修改记录”、“删除记录”和“关闭窗体”等命令按钮编写VBA程序代码。三、实验原理：1.宏的功能是什么。调用方法有哪些。（学生自行总结）2.宏操作命令如下：分类宏操作OpenDataAccessPageOpenFormOpenModule打开OpenQueryOpenReportOpenTable焦点GoToControl功能学生自行总结学生自行总结学生自行总结学生自行总结学生自行总结学生自行总结学生自行总结学生自行总结GoToPage学生自行总结SelectObject学生自行总结SendKeys设置值学生自行总结SetValue学生自行总结RepaintObject更新学生自行总结Requery学生自行总结ApplyFilter学生自行总结FindRecord学生自行总结FindNext学生自行总结GoToRecord学生自行总结RunApp学生自行总结记录RunCode学生自行总结RunCommand学生自行总结RunMacro学生自行总结RunSQL学生自行总结StopAllMacro学生自行总结StopMacro学生自行总结Maximize学生自行总结Minimize窗口学生自行总结MoveSize学生自行总结Restore学生自行总结打印PrintOut学生自行总结Beep学生自行总结信息MsgBox学生自行总结SetWarnings学生自行总结复制CopyObject学生自行总结删除DeleteObect学生自行总结重命名rename学生自行总结保存save学生自行总结close关闭学生自行总结quit学生自行总结outputto学生自行总结TransferDatabase导入导出TransferSpreadsheet学生自行总结学生自行总结TransferText3.结构化程序设计思想是什么。包括哪些程序控制结构。不同的过程如何调用，参数如何传递。（学生自行总结）4.面向对象程序设计基本思想是什么。核心是什么。（学生自行总结）5.ADO的对象集合是什么。请写出VBA利用对象访问数据库的基本步骤。（学生自行总结）四、实验操作步骤（可略）（参考课本上过程）注意：1、宏的实验需要输入的表达式参考实验指导书的步骤部分，不要仅看图，图上的表达式未完整显示。2、vba和模块的实验代码中的控件名称需要自行改动，请不要生搬硬套。五、实验中遇到的问题（根据个人具体情况记载，选做)附：部分代码，需要根据实际情况调整，直接照搬有可能运行不了宏实验：查看商品名称:="商品编号："&[商品编号]&""&"商品名称："&DLookUp("商品名称","商品信息表","商品编号=[forms]![出货信息窗体]![商品编号]")“条件”列第一行：DLookUp("商品类别","商品信息表","商品编号=[forms]![退货信息窗体]![商品编号]")="0001"OrDLookUp("商品类别","商品信息表","商品编号=[forms]![退货信息窗体]![商品编号]")="0002"“消息”：="出货货款："&[Forms]![退货信息窗体]![退货数量]*DLookUp("出货单价","出货信息表","商品编号=[forms]![退货信息窗体]![商品编号]")&""&"退货货款："&[Forms]![退货信息窗体]![退货数量]*DLookUp("出货单价","出货信息表","商品编号=[forms]![退货信息窗体]![商品编号]")*.8“条件”列第二行：DLookUp("商品类别","商品信息表","商品编号=[forms]![退货信息窗体]![商品编号]")="0003"OrDLookUp("商品类别","商品信息表","商品编号=[forms]![退货信息窗体]![商品编号]")="0004"“消息”：="出货货款："&[Forms]![退货信息窗体]![退货数量]*DLookUp("出货单价","出货信息表","商品编号=[forms]![退货信息窗体]![商品编号]")&""&"退货货款："&[Forms]![退货信息窗体]![退货数量]*DLookUp("出货单价","出货信息表","商品编号=[forms]![退货信息窗体]![商品编号]")*.9VBA和模块实验：OptionCompareDatabasePrivateSub查询记录_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.Text16)Then""Text16"为本窗体中"请输入进货编号"文本框的"名称"属性值MsgBox"请输入进货编号，进货编号不能为空！",vbOKOnly+vbCritical,"提示"Me.Text16.SetFocusExitSubElsesqlstr="select*from进货信息表where进货编号=""&Me.Text16&"""rs.Opensqlstr,cn,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=NothingSetcn=NothingEndSubPrivateSub修改记录_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.进货编号)AndIsNull(Me.商品编号)AndIsNull(Me.进货单价)And_IsNull(Me.进货数量)AndIsNull(Me.供货单位)And_IsNull(Me.进货日期)AndIsNull(Me.存放位置)AndIsNull(Me.经手人)Then""Text16"为本窗体中"请输入进货编号"文本框的"名称"属性值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)=Trim(Me.存放位置)rs(7)=Trim(Me.经手人)rs.UpdateEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSubPrivateSub删除记录_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.Text16)Then""Text16"为本窗体中"请输入进货编号"文本框的"名称"属性值MsgBox"请输入进货编号，进货编号不能为空！",vbOKOnly+vbCritical,"提示"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关闭窗体_Click()DoCmd.CloseacForm,"实验8:进货信息操作窗体"EndSubPrivateSub清空记录_Click()Me.Text16=""Me.进货编号=""Me.商品编号=""Me.进货单价=""Me.进货数量=""Me.供货单位=""Me.进货日期=""Me.存放位置=""Me.经手人=""EndSubPrivateSub添加记录_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.进货编号)Then""Text16"为本窗体中"请输入进货编号"文本框的"名称"属性值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(6)=Trim(Me.存放位置)rs(7)=Trim(Me.经手人)rs.UpdateEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSub

友情提示：本文中关于《Access实验总结》给出的范例仅供您参考拓展思维使用，Access实验总结：该篇文章建议您自主创作。

　　来源：网络整理免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。

《Access实验总结》
由互联网用户整理提供,转载分享请保留原作者信息,谢谢!
http://m.bsmz.net/gongwen/625170.html