iFix报警记录

iFix报警记录PAGEPAGE13建立Ifix报警记录步骤说明在计算机D盘建立一Access文件，命名为IfixALM.mdb。在计算机控制面板中选择“管理工具”，打开“数据源（ODBC）选择添加，选择下图蓝色部分，出现下图，数据源名输入：IfixALMDB,选择数据库，选择D盘上面建立的Access文件名：建立一画面，取名almtest(可任意)建立“查询设备号设定”OLE控件，步骤为：在菜单栏选择“插入（I）”→OLE对象（0）…后出现“插入对象”对话框，这时选择MicrosoftForms2.0TextBox控制（此控件在计算机安装MicrosoftOffice后在此才可选择）。此OLE对象的属性对象名为TextBox1.用相同办法建立“查询报警描述”OLE控件，其属性对象名为TextBox2。插入“日历”，步骤为：在菜单栏选择“插入（I）”→OLE对象（0）…后出现“插入对象”对话框，这时选择日历控件11.0，（此控件在计算机安装MicrosoftOffice后在此才可选择）。这时出现：右击日历，右击选择“编辑脚本”，输入“Calendar1.Visible=False”，使日历平时处于隐藏状态。5、建立一“选择日期“按钮，右击选择“编辑脚本”，输入“Calendar1.Visible=True”，这样当点击按钮时使日历可视。用步骤2建立“查询日期设定”OLE控件，其属性对象名为TextBox3，右击点“动画…”,这时出现：：点击“高级动动画”后出现：点击“数据”，并且“数据转换”选择“对象”（因为日历为一对象），出现：点击“数据源”，出现“达式编辑器”，选择数据源：这样可将日历“Calendar1”的日期赋给“选择日期”OLE对象。此时，下列已完成：建立一“查询”按钮，其脚本为：vxData1.DBDisconnectvxData1.SQLCommand="SELECT*FROMFIXALARMSWHERE(FIXALARMS.结束日期="+"'"+TextBox3.Text+"'"+")AND(FIXALARMS.标签名Like'%"+TextBox1.Text+"%')AND((FIXALARMS.报警区域='G')or(FIXALARMS.报警区域='F')or(FIXALARMS.报警区域='E'))AND(FIXALARMS.消息描述Like'%"+TextBox2.Text+"%')ORDERBYFIXALARMS.结束日期DESC,FIXALARMS.结束时间DESC"vxData1.DBConnect。在ifix工具箱中选择“VisiconX数据控件”，插入此控件，右击VisiconX数据控件，选择属性，此时在“提供者”中选择下图中蓝色部分：在“数据库”中，输入DNS名，这个地方为IfixALMDB.（参考步骤2）在“记录源”中输入脚本：SELECT*FROMFIXALARMSWHERE(FIXALARMS.结束日期='QP1')AND(FIXALARMS.标签名Like'%QP2%')AND(FIXALARMS.报警区域='QP3')AND(FIXALARMS.消息描述Like'%QP4%')ORDERBYFIXALARMS.结束日期DESC,FIXALARMS.结束时间DESC插入按钮，，其脚本加入下例语句：PrivateSubCommandButton1_Click()ShanChuBaoJingSystem.CurrentDate,5EndSub在ifix工具栏中选择“VisiconX”控件此时出现：右击VisiconX控件，选择“动画”，出现下图，选择“高级动画”此时出现：数据转换选择“对象”点击“数据源”：点“确定”后，一切OK！点击脚本中加入下列初始化语句：PrivateSubCFixPicture_Initialize()Me.Calendar1.Value=System.CurrentDateCalendar1.Visible=FalsevxData1.DBDisconnectEndSubSubShanChuBaoJing(ShiJianAsDate,BaoCunTianShuAsInteger)DimrsAsADODB.RecordsetOnErrorGoToCuoWuSetrs=NewADODB.Recordsetrs.ActiveConnection="Provider=MSDASQL.1;ExtendedProperties="&"DSN=IFixALMDB;DBQ=D:\IfixALM.mdb;DriverId=25;FIL=MSAccess;MaxBufferSize=2048;PageTimeout=5;UID=admin;"rs.Source="delete*fromFIXALARMSwhereDateDiff("&"'"&"D"&"'"&",结束日期,"&"'"&ShiJian&"'"&")>"&BaoCunTianShu&"AND(FIXALARMS.报警区域='E')"IfMsgBox("是否确定要删除"&BaoCunTianShu&"天前的报警历史记录",vbYesNo)=vbYesThenrs.OpenSetrs=NothingEndIfCuoWu:ExitSubEndSub