1、iFix报警记录建立Ifix报警记录步骤说明1、 在计算机D盘建立一Access文件,命名为IfixALM.mdb。2、 在计算机控制面板中选择“管理工具”,打开“数据源(ODBC)选择添加,选择下图蓝色部分,出现下图,数据源名输入:IfixALMDB,选择数据库,选择D盘上面建立的Access文件名:3、 建立一画面,取名almtest(可任意)4、 建立“查询设备号设定”OLE控件,步骤为:在菜单栏选择“插入(I)”OLE对象(0)后出现“插入对象”对话框,这时选择Microsoft Forms 2.0 TextBox控制(此控件在计算机安装Microsoft Office后在此才可选择)
2、。此OLE对象的属性对象名为TextBox1.5、 用相同办法建立“查询报警描述”OLE控件,其属性对象名为TextBox2。6、 插入“日历”,步骤为:在菜单栏选择“插入(I)”OLE对象(0)后出现“插入对象”对话框,这时选择日历控件11.0,(此控件在计算机安装Microsoft Office后在此才可选择)。这时出现:右击日历,右击选择“编辑脚本”,输入“Calendar1.Visible = False”,使日历平时处于隐藏状态。5、建立一“选择日期“按钮,右击选择“编辑脚本”,输入“Calendar1.Visible = True”,这样当点击按钮时使日历可视。6、 用步骤2建立“
3、查询日期设定”OLE控件,其属性对象名为TextBox3,右击点“动画”,这时出现:点击“高级动动画”后出现:点击“数据”,并且“数据转换”选择“对象”(因为日历为一对象),出现:点击“数据源”,出现“表达式编辑器”,选择数据源:这样可将日历“Calendar1”的日期赋给“选择日期”OLE对象。此时,下列已完成:7、 建立一“查询”按钮,其脚本为:vxData1.DBDisconnect vxData1.SQLCommand = SELECT * FROM FIXALARMS WHERE (FIXALARMS.结束日期 = + + TextBox3.Text + + ) AND (FIXAL
4、ARMS.标签名 Like % + TextBox1.Text + %) AND (FIXALARMS.报警区域 = G)or(FIXALARMS.报警区域 = F) or (FIXALARMS.报警区域 = E) AND (FIXALARMS.消息描述 Like % + TextBox2.Text + %) ORDER BY FIXALARMS.结束日期 DESC, FIXALARMS.结束时间 DESC vxData1.DBConnect。8、 在ifix工具箱中选择“VisiconX数据控件”,插入此控件,右击VisiconX数据控件,选择属性,此时在“提供者”中选择下图中蓝色部分:在“
5、数据库”中,输入DNS名,这个地方为IfixALMDB.(参考步骤2)在“记录源”中输入脚本:SELECT * FROM FIXALARMS WHERE (FIXALARMS.结束日期 = QP1) AND (FIXALARMS.标签名 Like %QP2%) AND (FIXALARMS.报警区域 = QP3) AND (FIXALARMS.消息描述 Like %QP4%) ORDER BY FIXALARMS.结束日期 DESC, FIXALARMS.结束时间 DESC插入按钮,其脚本加入下例语句:Private Sub CommandButton1_Click()ShanChuBaoJi
6、ng System.CurrentDate, 5End Sub9、 在ifix工具栏中选择“VisiconX”控件此时出现:右击VisiconX控件,选择“动画”,出现下图,选择“高级动画”此时出现:数据转换选择“对象”点击“数据源”:点“确定”后,一切OK!10、 点击脚本中加入下列初始化语句: Private Sub CFixPicture_Initialize() Me.Calendar1.Value = System.CurrentDate Calendar1.Visible = False vxData1.DBDisconnectEnd SubSub ShanChuBaoJing(S
7、hiJian As Date, BaoCunTianShu As Integer) Dim rs As ADODB.Recordset On Error GoTo CuoWu Set rs = New ADODB.Recordset rs.ActiveConnection = Provider=MSDASQL.1;Extended Properties= & DSN=IFixALMDB;DBQ=D:IfixALM.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin; rs.Source = delete * from FIXALARMS where DateDiff( & & D & & ,结束日期, & & ShiJian & & ) & BaoCunTianShu & AND (FIXALARMS.报警区域 =E ) If MsgBox(是否确定要删除 & BaoCunTianShu & 天前的报警历史记录, vbYesNo) = vbYes Then rs.Open Set rs = Nothing End IfCuoWu: Exit SubEnd Sub
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1