iFix报警记录文本文档格式.docx
- 文档编号:17271729
- 上传时间:2022-11-30
- 格式:DOCX
- 页数:14
- 大小:306.19KB
iFix报警记录文本文档格式.docx
《iFix报警记录文本文档格式.docx》由会员分享,可在线阅读,更多相关《iFix报警记录文本文档格式.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- iFix 报警 记录 文本