基于AutoIt3和VBA的Access操作题的批量批改自动化_论文

基于AutoIt3和VBA的Access操作题的批量批改自动化_论文

2023年7月9日发(作者:)

第27卷第3期 盐城工学院学报(自然科学版) Vo1.27 No.3 2014年09月 Journal of Yancheng Institute of Technology(Natural Science Edition) Sep.2014 基于Autolt3和VBA的Access操作题的批量批改自动化 何 剑 (扬州职业大学师范学院,江苏扬州225000) 摘要:为了帮助教师及时、准确的批改大量Access操作题作业或试卷,基于Autolt3和VBA。设 计了一种针对Access操作题的自动批量批改程序框架。首先依据Access操作技能考核要求对 Access操作题各小题3t,j分评分点和对应分值,然后应用VBA实现单份Access操作题的自动批 改程序,最后应用AutoIt3实现多份Access操作题的批量批改自动化。实际运行结果表明,该 程序框架可以显著提高批改效率和批改质量。 关键词:应用程序自动化;Autolt3;VBA;Access操作题;批量批改自动化 中图分类号:TP3l1.52 文献标识码:A 文章编号:1671—5322(2014)03—0045—04 在计算机信息技术课程的实验教学中,为了 样操作顺序,最终的正确操作效果是一样的,因 切实提高学生实际操作Access的技能水平,要求 此,应该从操作效果人手来判断该题是否操作正 教师在短时间内人工重复批改大量的Access操 确。VBA具有寄生于Access数据库文件中读取 作题作业或试卷并给出准确的批改反馈。为帮助 各类对象的属性,应用VBA可实现对单份Access 教师提高批改效率和批改质量,本文基于应用程 操作题的自动批改,再结合Autolt3按学号顺序实 序自动化语言——AutoIt3和VBA,提出一种Ac— 现对多份Access操作题的自动批量批改。 cess操作题自动批量批改程序框架,然后,以一道 本文设计的Access操作题自动批量批改程 Access操作题为例,实际应用该程序框架 分步具 序框架如图1所示。特别注意,每打开一个Ac— 体实现该道Access操作题的自动批量批改程序。 eess数据库文件,就会进入该文件对应的VBA编 应用程序自动化,主要指应用软件的操作自 辑器窗口,创建Modulel模块,将用户预先指定的 动化,旨在代替人工自动实施对应用软件的预定 Access操作题自动批改宏代码粘贴进来、保存起 操作。Autolt3是基于Windows平台的应用程序 来,然后执行该宏过程,接着删除Modulel模块, 自动化语言,它是一种免费的BASIC风格的脚本 退出VBA编辑器窗口,关闭该文件。实际应用 语言,被设计用来自动化Windows图形用户界面 中,用户只需给出作业目录(课程&班级)、待批 和通用脚本编程…;它组合使用模拟击键、鼠标 改的某Access文件名、某Access操作题自动批改 移动和窗H/控件操作,以一种其他语言不可能或 宏代码3项,即可基于该框架轻便、快速开发出具 不可靠完成的方式实现任务自动化…。VBA L2 体某道Access操作题的自动批量批改程序。 是主要寄生在Microsoft Omce应用软件中的应用 2 Access操作题自动批量批改程序实现 程序自动化语言,目的是扩展Office程序功能、提 高Office应用效率。 本文从大学计算机信息技术课程教材 中 选取一道Access操作题。打开“test.mdb”数据 1 Access操作题自动批量批改程序设计 库,数据库包括院系、学生、图书和借阅表,按下列 学生作答同一Access操作题,无论采用何种 要求进行操作:(1)基于学生、图书及借阅表,查 操作方法(菜单、工具栏、快捷键、对话框等)、哪 询学号为“090030107”的学生所借阅的图书,要 收稿日期:2014—03—22 作者简介:何剑(1981一),男,江苏高邮人,讲师,硕士,主要研究方向为计算机程序设计、应用程序自动化、计算机辅 助教育。 ・46・ 盐城工学院学报(自然科学版) 第27卷 输入作业目录(课程&班级) 求输出学号、姓名、书编号、书名、作者,输出结果 输入待批改的某Access文件名 保存为CX1;(2)基于图书表,查询收藏的各出版 堡垒竺竺塑堡望堕堑塞壁 社图书均价,要求输出出版社及均价,输出结果保 =1 存为CX2;(3)保存数据库test.mdb。接下来以该 题为例,基于上述程序框架,分步实现这道Access 操作题的自动批量批改程序。 2.1 Access操作题的评分点和对应分值 依据Access操作技能考核要求对该Access === ;髋 操作题的每一小题划分评分点和对应分值。该题 总分2O分,若test.mdb不存在,则该题不得分; 打开文件,新建Modulel,将某Access操作题} I置成绩: 自动批改宏代码拷贝到Modulel中保存,执行l l0,保存 Access_01小题中,若CX1不存在,则该小题扣10 宏过程.删除Modulel,关闭文件的获取成绩I l批改意 分,只有CX1存在即Access一01—1正确,才可以判 断Access_01—2是否正确,同理,Access一02小题 学号必成绩写入Access操作题成绩表文 也是如此。下面列出Access操作题评分点及分 值如表1所示。 删除临时文件 2.2 Access操作题的自动批改程序 图1 Access操作题自动批量批改程序框架 针对该题,应用Access VBA和SQL 按评 Fig.1 Automatic batch correcting program 分点实现单份Access操作题的自动批改程序。 framework for Access operation subject 为方便调试及扩展,建议在程序开始处创建文本 表1 Access操作题评分点及分值 Table 1 Marking points and score of Access operation subject 文件以保存批改意见,在程序结束处弹出对话框 If MyDatabase.QueryDefs(i).SQL=MyStrSQL2 Then 以显示该题成绩。这里选取Access—AutoBatch— accessscore=access——score+9# CorrectReportElse —VBA.txt中Access一02小题的自动 批改宏代码: Print#1,”Access一02—2:””CX2””查询定义不正确 MyStrSQL2=”SELECT图书.出版社,Avg(图书.价 (SQL语句有误)一一[错误]扣9分” 格)AS均价”&Chr(13)&Chr(10)&一 EndⅡ ”FROM图书”&Chr(13)&Chr(10)&一 Else ”GROUP BY图书.出版社;”&Chr(13)&Chr(10) Print}}1,”Access_02:数据库中没有名为””CX2”” For i=0 To MyDatabase.QueryDefs.Count一1 的查询定义一一[错误]扣10分” If MyDatabase.QueryDefs(i).Name=”CX2”Then End If Exit For 2.3 Access操作题的自动批量批改程序 End If 应用Autolt3…实现多份Access操作题的自 Next i 动批量批改程序,最终程序源文件是Access—Au. fI i<MyDatabase.QueryDefs.Count Then toBatchCorrectReport.au3。程序文件清单如图2 access score=access score+1# 所示。 第3期 何剑:基于Autolt3和VBA的Access操作题的批量批改自动化 弛t。 Bl覆te olrr电c乇 ・l p rt \Acc{皋s嚣。_ 名称 h ^ j “~ 丈小 类塑  。 。 。t exe 《》Acce墨s. AntoB tc lcorr圣c・LRepor 曼曼蕊 寰 …ee 't…R a,p…or. t 猷 l  ̄toXt v3 Script 6“鼯t.y ̄A.txt 5硒国Aceess_AutoBat ̄ ̄Corree lRepor 图2程序文件清单 Fig.2 Program fries list 应用程序 文本文档 脚本文件Access—AutoBatchCorrectReport.au3 详细功能步骤有: (I)准备工作。设置作业目录(课程&班 级)(如c:\大学计算机信息技术\2013英教班 \),设置待批改的某Access文件名(如test. mdb),新建Access操作题成绩表文件(如大学计 算机信息技术_2013英教班一成绩.xls)。 (2)批量批改。按有效学号顺序,依次进入 每一个学号文件夹XX\,循环执行以下几步:(A) 创建XX批改报告.txt;(B)查询操作题\中是否 存在test.mdb,若存在,转到C,若不存在,转到D; (C)打开test.mdb,进入VBA编辑器,插入Mod— ulel模块,复制Access—AutoBatchCorrectReport— VBA.txt中的代码到Modulel模块中粘贴’、保存, 形成Access—AutoBatchCorrectReport—VBA宏过 程,运行该宏过程,生成成绩和批改意见,删除 Modulel模块,退出VBA编辑器,关闭test.mdb, 取出该题成绩,转到E;(D)置该题成绩为0,保存 批改意见,转到E;(E)将学号和成绩格式化写入 Access操作题成绩表文件。 (3)结束工作。删除临时文件,询问是否自 动打开Access操作题成绩表文件。 限于篇幅,这里列出该脚本文件第2一C步 骤功能代码: ¥oAccessApp ObjCreate(”Access.Applicstion”) ¥oAecessApp.Visible=1 ¥oAccessApP.OpenCurrentDatabase(¥WorkPath& ¥DirName&”\操作题\.t&¥Mdbl Name) send(”!{F11}.1) WinWaitActive(”Microsoft Visual Basic一”&Stirng- Left(¥Mdbl—Name,StirngLen(¥Mdbl—Name)一Stirng- eLn(”.mdb”))) send(”!i”) send(”{DOWN}”) send(”{ENTER}t1) WinWaitActive(”Microsoft Visual Basic一”&Stirng— eLft(¥Mdbl—Name,StringLen(¥Mdbl—Name)一Stirng- Len(”.mdb”))&”一[Modulel(Code)]t.) run(”notepad.exe”) WinWaitActive(”无标题一记事本”) send(” O”) WinWaitActive(”打开”) ContorlFocus(”打开”,”文件名”,1148) ControlSetText(”打开”,”文件名”,1148,@Script- Dir&”\”&¥AccessMacroName&”.txt” send(”{ENTER}”) WinWaitActive(¥AccessMacroName&”.txt一记事 苓”) send(” {SPACE}”) send(” a”、 send(” c”) WinActivatef”Microsoft Visual Basic一”&StringLeft (¥Mdbl—Name,StringLen(¥Mdbl—Name)一StringLen (”.mdb”))&”一[ModuMI(Code)]..) send(” v”) send(”…S) WinWaitActive(”Save As”,”Modu]e”) ControlClick(”Save As”,”Module”,1,”left”,1) ¥oAccessApp.run(¥AccessMacmName) send(”!f¨) send(”{DOWN}..) send(”{DOWN}-.) send(”{DOWN}t.) send(”{ENTER}..) WinWaitActive(”Microsoft Visual Basic”,”Do you want to export Modulel before removing it?”) send(”!n”) send(”!{F4}..) WinActivate(¥AccessMacroName&”.txt一记事 本”) WinClose(¥AccessMacroName&”.txt一记事本”) ¥oAccessApp.Quit 2.4 Access操作题的自动批量批改结果 以我校2013英教班28位学生所做Access操 作题为素材(作业目录如图3所示),以安装Win— dows XP SP2简体中文版、MS Ofifce 2003英文版 第3期 邱春阳,等:樊154区块水平井钻井液技术 ・71・ Drilling Fluid Technology of Horizontal Well in Fan 1 54 Block QIU Chunyang,ZHAO Hongxiang,ZHANG Haiqing (Drilling Engineer&Technology Corporation,Shengli Petroleum Engineering Corporation Limited of SINOPEC, Dongying Shandong 257064,China) Abstract:In order to increase the Success rate of drilling horizontal well in Fan 154 block,aluminium and amine inhibition and anti—caving drilling fluid was researched and devel1)ped.The evaluation experiment showed that the drilling fluid had hiigh inhi— bition capability,good formation sealing performance and lubrication property.The driling fluid was applied in Fan 154 block and the application effect was very good.These wells were driled smoothly,ROP was increased and drilling period was short— ened.Consequently,it provided technological supir)rt to dril wells with safety and high efiqciency in Fan 154 block. Keywords:Fan 154 block;borehole instability;faulted formation;slim hole;aluminium and amine (责任编辑:张英健) (上接第48页) Automation of Batch Correcting for Access Operation Subjects Based on Autolt3 and VBA HE Jian (Teachers College of Yangzhou Polytechnic Colege,Yangzhou Jiangsu 225000,China) Abstract:In order to help teachers duly and accurately correct massive school assignments or examination papers of Access opera- tion subjects,a kind of automatic batch correcting program framework for Access operation subjects is designed in this paper, which is based on Autolt3 and VBA.Firstly,according to the checking requirements for Access operating skills,each marking point and the corresponding score ofr every subject of Access operation subjects is clearly divided.Then,the automatic correcting program ofr single Access operation subject is achie ged by applying VBA.Finally,the automation of batch correcting for multiple Access operation subjects is implemented by applying Autolt3.The actual executed result shows that the efifciency and quality of correction can be singificantly improved through this program framework. Keywords:application automation;Autolt3;VBA;Access operation subjects;automation of batch corecting (责任编辑:张英健) 

发布者:admin,转转请注明出处:http://www.yc00.com/web/1688898000a181937.html

相关推荐

发表回复

评论列表(0条)

  • 暂无评论

联系我们

400-800-8888

在线咨询: QQ交谈

邮件:admin@example.com

工作时间:周一至周五,9:30-18:30,节假日休息

关注微信