IFIX连接SQL读写数据和制作excel报表图文教程

IFIX连接SQL数据库、制作excel报 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 详细教程一、IFIX连接SQL数据库读写数据IFIX连接SQL数据库有多种方法，其中最为方便的两种方法是：（1）使用IFIX本身为SQL数据库提供的接口SQT和SQD；（2）VB+ADO。下面分别介绍着两种方法的实现步骤。1、使用SQT和SQD读写SQL数据库1.1安装SQL2008（只列出关键步骤，其余直接点击“下一步”或“安装”）打开SQL安装中心，点击“安装”；SQL2008简体中文版安装包下载链接：点击“全新SQLServer独立安装或向现有安装添加功能”；点击“输入产品密匙”，点击“下一步”：（根据版本选择）sqlserver2008密钥Developer:PTTFM-X467G-P7RH2-3Q6CG-4DMYBEnterprise:JD8Y6-HQG69-P9H84-XDTPG-34MBBMicrosoftSQLServer2008R2序列号密钥开发版32位：MC46H-JQR3C-2JRHY-XYRKY-QWPVM开发版64位：FTMGC-B2J97-PJ4QG-V84YB-MTXX8工组版：XQ4CB-VK9P3-4WYYH-4HQX3-K2R6QWEB版：FP4P7-YKG22-WGRVK-MKGMX-V9MTM数据中心版32位：PTTFM-X467G-P7RH2-3Q6CG-4DMYB数据中心版64位：DDT3B-8W62X-P9JD6-8MX7M-HWK38企业版32位：R88PF-GMCFT-KM2KR-4R7GB-43K4B企业版64位：GYF3T-H2V88-GRPPH-HWRJP-QRTYB标准版32位：CXTFT-74V4Y-9D48T-2DMFW-TX7CY标准版64位：B68Q6-KK2R7-89WGB-6Q9KR-QHFDW功能选择界面，选择安装全部功能，点击“下一步”；进入实例配置界面，选择默认实例，点击“下一步”；进入服务器配置界面，启动类型均选为“自动”；点击“对所有SQLServer服务使用相同的账户”，在弹出的界面中选择第一个账户，密码不用填；返回服务器配置界面点击下一步；进入数据库引擎配置界面，选择混合模式，输入自己设定的密码，点击“添加当前用户”，点击下一步，直至安装完成，关闭安装中心。1.2进入SQLserver新建SQL登录名和数据库打开SQL，以Windows身份验证登录；连接完后，点击“安全性”-“登录名”，右击选择“新建登录名”：在弹出的界面中，点击左上角的“常规”，输入登录名、密码，不要勾选强制密码过期，之后点击左上角“服务器角色”；在弹出的界面中，根据需要勾选所需权限，这里全部勾选，再点击“用户映射”；在弹出的界面中，“映射到此登录名的用户”内勾选所有数据库，并在每个数据库的“数据库角色成员身份”中勾选db_owner和public，而后点击“确定”，完成新建登录名。完成登录名创建后，断开当前连接或是退出SQL重新进入软件，以SQL身份验证登录，输入刚刚新建的登录名，点击“连接”；连接后，右击“数据库”，选择“新建数据库”，以默认配置完成新建，如这里新建数据库，取名为db1。进入db1，新建三张表，新建右击“表”，选择“新建表”，输入如下图的列名及数据类型；点击保存，输入表名为sqllib，用于保存SQL命令；新建第二张表，列名及数据类型如下图，取名为sqlerr，用于保存各类错误：新建第三张表，用于保存需要的工业历史数据，这里将表取名为data，添加两个列COL1和COL2，数据类型都为float。接下来为sqllib表添加SQL命令，这里添加一条向data表的COL1、COL2写入数据的语句，右击“abo.sqllib”，选择“编辑前200行”；写入如下图的 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 ，点击保存。注：如果要读取数据库内的数据，只要将该SQL命令换成相应的select语句。1.3创建ODBC数据源打开控制面板，依次点击“管理工具”-“数据源（ODBC）”，进入如下界面：在点击“系统DSN”-点击“添加”按钮，在如下界面中选择“SQLServer”，点击“完成”。在以下界面中填写名称命名数据源，服务器填写自己的计算机名（获取计算机名按照如下步骤：右击桌面的“计算机”-选择“属性”，在弹出的界面上就可以看到），点击“下一步”；按照下图配置，填入刚刚在SQL中新建的登陆名和密码，点击下一步；勾选“更改默认的数据库为”，在下拉框中选择刚刚新建的数据库名，点击下一步；直接点击“完成”按钮。之后你可以在弹出的界面中点击“测试数据源”，若测试成功，则可以进入下一步骤。1.4在SCU内配置SQL打开IFIX，点击“SCU”，进入配置界面；在如下界面中点击“配置”-选择“SQL”，在弹出的界面中点击“增加”按钮，填入相应信息，点击“确定”。选中刚刚添加的SQL账户，点击“配置SQL任务”；启用SQL支持，选择我们所创建的数据库ID，点击“确定”，完成配置。1.5在IFIX内创建SQT和SQD数据块打开IFIX的数据库管理器，创建数字量输入数据块DI1，当DI1的值发生变化时就触发SQT（当然也可以采用时间事件来触发SQT，下面也会有介绍），点击界面内的“高级”标签。进入高级标签，勾选“启用输出”和“手动”；一般要保存到关系数据库的历史数据都是模拟量，因此本教程以模拟量为例子，将其存入SQL数据库。创建模拟量寄存器数据块AR_1和AR_2：创建数据块SQT，在数据库管理器中新建数据块，选择SQT类型，如下图；进入如下的界面，若要采用DI1数值变化来触发SQT，则如下图填写信息。在刚刚创建的db1数据库中，我们建立了sqllib表，并在表内添加了sqlname为cmd1，sqlcmd为“Insertintodata……”这条语句。在如下界面中，SQL名填写“cmd1”，数据库ID填写“db1”（所建ODBC数据源名称），事件标签写入“DI1.F_CV”，事件类型勾选“值变化”，这样，当DI1的值变化时，SQT就会触发，找到db1数据库下的sqllib表内sqlname等于cmd1的这条语句，并执行。在上图中的“下一块”中填写SQD_1，构成数据链，此时会弹出如下界面，点击“yes”；创建SQD数据块，如下图填写，因为是向数据库添加数据，所以方向选为OUT。保存数据库管理器。这样，就建立了一个DI1值变化触发的SQT和SQD。如果我们希望以时间事件来触发SQT，应在建立SQT数据块的时候，设置触发时间，其余步骤相同。例如，我们希望每天晚上23：00至23:59这段时间内，每5分钟记录一次数据到SQL数据库，建立SQT数据块时应如下图填写：在IFIX主界面点“应用程序”，打开“任务控制”；验证SQL服务是否启动，如下图所示说明注册成功。作进一步验证，在数据库管理器内更改DI1的当前值，如将CLOSE改为OPEN,按Ctrl+R,观察到SQT_1的当前值增加1，意味着SQT被触发一次，打开SQL也可以发现data表增加了一行记录。以上就是使用SQT和SQD读写SQL数据库的详细步骤。2、使用ADO访问数据库2.1定时向数据库添加记录首先，参照1.1-1.3的内容建立数据库（只需建立data表，sqllib和sqlerr不需创建），创建ODBC数据源。打开IFIX，双击下图左下角的“数据定时写”，新建基于时间项；假设我们要在每晚23:00自动存数据，则如下图设置：点击“VB编辑器”，写入如下代码：填上代码后，一定要选择如下图这一步：点击“工具”-“引用”，在下图界面中，勾上microsoftactivexdataobjects2.1library，否则会报错。确定后保存。右键点击FIXTIME8这一条，选择“调度程序属性”，在如下画面中选择“后台运行”，点确定；在后续弹出的窗口中都选择“是”，直至完成，fixtimer8激活，时间一到，程序就会自动添加记录。2.2从数据库读数据从数据库读数据一般采用按钮触发，可以在ifix里新建一个画面，添加一个按钮，在按钮的脚本里添加代码，最后记得引用microsoftactivexdataobjects2.1library。代码基本和2.1相同，只是把相应的insert命令换成select语句。二、IFIX制作excel报表1、在建好数据库和数据源（参照1.1-1.3）后，新建一个ifix画面，添加一个ole对象，选择“MicrosoftWebBrowser”,用来显示报表；2、新建一张excel报表 模板 个人简介word模板免费下载关于员工迟到处罚通告模板康奈尔office模板下载康奈尔 笔记本 模板 下载软件方案模板免费下载 ，放到工程目录的APP文件夹下，如“人工数据日报表.xls”；3、新建一个按钮，为其编写脚本，粘贴如下代码（覆盖新建画面原有的代码）：OptionExplicitDimaAsSingle‘定义中间变量，用来暂存从数据库中取出的数据DimbAsSingleDimrsADOAsADODB.Recordset‘定义连接数据库的ADO变量DimconnAsNewADODB.ConnectionPublicCmdTruckAsNewADODB.CommandPublicdbUpdataAsNewADODB.CommandPublicrstUpdataAsNewRecordsetPrivateSubCommandButton3_Click()‘点击按钮的响应函数Callshowbb‘调用显示报表的函数showbbCallcloseDB1‘调用关闭数据库的函数closeDB1EndSubPrivateSubshowbb()DimRsAsNewADODB.Recordset'定义连接数据库的ADO变量openDB1‘打开DB1数据库，该函数在后面有定义CmdTruck.ActiveConnection=connCmdTruck.CommandText="selectmax(COL1)asCOL1,max(COL2)asCOL2fromdata"‘从data表读取COL1和COL2的最大值SetRs=CmdTruck.Execute‘执行SQL语句a=0b=0IfNot(Rs.BOFOrRs.EOF)Then‘将读出来的数据传给中间变量a、bIf(Rs!col1)Thena=Rs!col1b=Rs!col2EndIfEndIfDimxlAppAsObject'定义报表对象DimxlBookAsObjectDimxlSheetAsObjectOnErrorGoToerrorhandleSetxlApp=NewExcel.ApplicationSetxlBook=xlApp.Workbooks.Open(System.ProjectPath&"\app\人工数据日报表.xls")‘打开报表模板SetxlSheet=xlBook.Worksheets(1)xlApp.DisplayAlerts=False'警告禁用xlApp.Visible=False'EXCEL隐藏xlSheet.Cells(10,4)=a&""‘将中间变量的值写到对应excel的单元格xlSheet.Cells(11,4)=b&""xlSheet.SaveAsSystem.ProjectPath&"\app\人工数据日报表.htm",FileFormat:=xlHtml'工作表另存为xlApp.DisplayAlerts=True'警告使能xlApp.QuitMe.WebBrowser1.NavigateSystem.ProjectPath&"\app\人工数据日报表.htm"‘在WebBrowser控件上显示报表xlApp.QuitSetxlSheet=Nothing'释放内存SetxlBook=NothingSetxlApp=NothingSetCmdTruck=NothingSetRs=NothingExitSuberrorhandle:MsgBox"报表生成错误！",vbOKOnly+vbInformation,"信息..."SetxlSheet=Nothing'释放内存SetxlBook=NothingSetxlApp=NothingEndSubPublicSubopenDB1()'定义打开数据库的函数openDB1Ifconn.State<>adStateOpenThenWithconn.ConnectionString="Provider=SQLOLEDB;server=2C68LK83W2F62AZ;database=db1;uid=operation;pwd=123456;"‘连接数据源的相关信息.Mode=adModeReadWrite.OpenEndWithEndIfEndSubPublicSubcloseDB1()'定义关闭数据库的函数closeDB1Ifconn.State=adStateOpenThenconn.CloseEndIfEndSub4、添加代码后点击“工具”-“引用”，在下图界面中，勾上microsoftactivexdataobjects2.1library和Microsoftexcel12.0objectlibrary，否则会报错。5、最后保存代码。