Access实验总结.docx

Access实验总结 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=NothingSet。