iFix报警记录Word文档格式.docx
《iFix报警记录Word文档格式.docx》由会员分享，可在线阅读，更多相关《iFix报警记录Word文档格式.docx（14页珍藏版）》请在冰豆网上搜索。
此OLE对象的属性对象名为TextBox1.
5、用相同办法建立“查询报警描述”OLE控件，其属性对象名为TextBox2。
6、插入“日历”，步骤为：
日历控件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'
（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
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.报警区域='
）"
IfMsgBox（"
是否确定要删除"
天前的报警历史记录"
vbYesNo）=vbYesThen
rs.Open
Setrs=Nothing
EndIf
CuoWu:
ExitSub
升级会员 