iFix报警记录.docx
《iFix报警记录.docx》由会员分享,可在线阅读,更多相关《iFix报警记录.docx(14页珍藏版)》请在冰豆网上搜索。
![iFix报警记录.docx](https://file1.bdocx.com/fileroot1/2022-12/1/9f34587a-efc5-435c-867f-47a92c996aa4/9f34587a-efc5-435c-867f-47a92c996aa41.gif)
iFix报警记录
iFix报警记录
建立Ifix报警记录步骤说明
1、在计算机D盘建立一Access文件,命名为IfixALM.mdb。
2、在计算机控制面板中选择“管理工具”,打开“数据源(ODBC)
选择添加,选择下图蓝色部分,
出现下图,数据源名输入:
IfixALMDB,
选择数据库,选择D盘上面建立的Access文件名:
3、建立一画面,取名almtest(可任意)
4、建立“查询设备号设定”OLE控件,步骤为:
在菜单栏选择“插入(I)”→OLE对象(0)…后出现“插入对象”对话框,这时选择
MicrosoftForms2.0TextBox控制(此控件在计算机安装MicrosoftOffice后在此才可选择)。
此OLE对象的属性对象名为TextBox1.
5、用相同办法建立“查询报警描述”OLE控件,其属性对象名为TextBox2。
6、插入“日历”,步骤为:
在菜单栏选择“插入(I)”→OLE对象(0)…后出现“插入对象”对话框,这时选择
日历控件11.0,(此控件在计算机安装MicrosoftOffice后在此才可选择)。
这时出现:
右击日历,右击选择“编辑脚本”,输入“Calendar1.Visible=False”,使日历平时处于隐藏状态。
5、建立一“选择日期“按钮,右击选择“编辑脚本”,输入“Calendar1.Visible=True”,
这样当点击按钮时使日历可视。
6、用步骤2建立“查询日期设定”OLE控件,其属性对象名为TextBox3,右击点“动画…”,
这时出现:
:
点击“高级动动画”后出现:
点击“数据”,并且“数据转换”选择“对象”(因为日历为一对象),出现:
点击“数据源”,出现“表达式编辑器”,选择数据源:
这样可将日历“Calendar1”的日期赋给“选择日期”OLE对象。
此时,下列已完成:
7、建立一“查询”按钮,其脚本为:
vxData1.DBDisconnect
vxData1.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。
8、在ifix工具箱中选择“VisiconX数据控件”,插入此控件,
右击VisiconX数据控件,选择属性,
此时在“提供者”中选择下图中蓝色部分:
在“数据库”中,输入DNS名,这个地方为IfixALMDB.(参考步骤2)
在“记录源”中输入脚本:
SELECT
*
FROM
FIXALARMS
WHERE
(FIXALARMS.结束日期='QP1')AND
(FIXALARMS.标签名Like'%QP2%')AND
(FIXALARMS.报警区域='QP3')AND
(FIXALARMS.消息描述Like'%QP4%')
ORDERBY
FIXALARMS.结束日期DESC,
FIXALARMS.结束时间DESC
插入按钮,
,其脚本加入下例语句:
PrivateSubCommandButton1_Click()
ShanChuBaoJingSystem.CurrentDate,5
EndSub
9、在ifix工具栏中选择“VisiconX”控件
此时出现:
右击VisiconX控件,选择“动画”,出现下图,选择“高级动画”
此时出现:
数据转换选择“对象”
点击“数据源”:
点“确定”后,一切OK!
10、点击脚本中加入下列初始化语句:
PrivateSubCFixPicture_Initialize()
Me.Calendar1.Value=System.CurrentDate
Calendar1.Visible=False
vxData1.DBDisconnect
EndSub
SubShanChuBaoJing(ShiJianAsDate,BaoCunTianShuAsInteger)
DimrsAsADODB.Recordset
OnErrorGoToCuoWu
Setrs=NewADODB.Recordset
rs.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)=vbYesThen
rs.Open
Setrs=Nothing
EndIf
CuoWu:
ExitSub
EndSub