1数据读取
在进行系统培训演示的过程中，演示系统需向ERP提供一些实时数据，为了使用户可以自行编辑数据，培训演示系统设计从EXCEL表格中读取用户的输入参数，然后在培训演示的过程中将参数输入到ERP系统中，完成业务流程的演示工作。在编写代码的过程中，需要引入MicrosoftOffice14.0ObjectLibrary控件，以实现系统对EXCEL相关参数的读取工作。具体代码如下：Setddxlapp=CreateObject("Excel.Application")Setddxlbook=ddxlapp.Workbooks.Open(App.Path&"\参数.xlsx")ddxlapp.Visible=FalseSetddxlsheet=ddxlbook.Worksheets(1)gsdm=ddxlsheet.Cells(i,j)其中CreateObject("Excel.Application")是创建并返回一个对EXCEL对象的引用，ddxlapp.Workbooks.Open(App.Path&"\参数.xlsx")是打开演示系统所在目录下的EXCEL参数文件；ddxlapp.Visible=False是指定参数文件打开不可见，在打开参数文件后，就可以应用gsdm=ddxlsheet.Cells(i,j)来从EXCEL文件中读取相应的参数信息。
2模拟操作
各模块基于在用户电脑上模拟ERP系统相关操作来加强用户对于系统理解是整个培训系统的功能而设计。我们采用大漠插件提供的部分接口来实现该项功能。截取要查找文字的图片，根据图片背景和文字的颜色将其制作成点阵序列，调用大漠插件通过对屏幕上点阵信息来查找相应文字，来判断系统操作的进程是否正常。部分代码如下：dm_ret=dm.FindStr(0,0,2000,2000,"位置","000000-000000",1.0,intX,intY)IfintX>=0andintY>=0Thendm.MoveTointX,intYEndIf其中dm.FindStr(0,0,2000,2000,"位置","000000-000000",1.0,intX,intY)是在桌面坐标（0，0）点到（2000，2000）这个区间内查找颜色为黑色（000000-000000）的“位置”两个字，相似度为1.0完全相似。如果查找到则返回“位置”的坐标到intX,intY。代码IfintX>=0andintY>=0Then是判断intX和intY的值，如果大于0则表明查找到“位置”文字，然后调用dm.MoveTointX,intY，将鼠标移动至该段文字的左上角坐标，以实现对相应文字的定位工作。同时该培训系统还应用到了大漠控件提供的鼠标点击和键盘按下等相关操作，来模拟最终用户对系统的实际操作。
3结语
ERP培训演示系统提供了简易的输入参数设置，用户通过编辑EXCEL将演示所需要的参数提供给该培训系统。该培训系统借助于大漠控件可以自动的判断系统操作流程进展情况，不会出现由于系统操作错误而使流程出现无法流转的情况。且改变了以往观看文档和视频的培训方式，通过在用户电脑上的直接操作给最终用户以直观的印象。具有可扩展性，可以伴随着信息系统的升级而随之扩展，不需要重新录制，只在此基础上进行适当加工就可适用系统升级后的培训工作。该培训系统可以为最终用户演示ERP系统的相关操作，提高了与受培训人员的互动性。同时利用该课件制作工具，可以制作各种信息系统的培训课件，具有较强的通用性和推广价值。
作者：张涤秋 周雨田 李广翱
相关专题：仪器分析发展趋势论文 防灾科技学院学报
