ebr脚本常用函数

###参数输入输出

输入的type选择tag value;输出的type选择tag NAME;

'实例
mData.InsertData ousNAME,0,straaa    '输出文本
mData.InsertData ousAGE,1,age       '输出数字

html直接输出

mRecordText.WriteHTML str_htmlr 可直接输出html内容

'实例'
DIM str_htmlr
str_htmlr = "<h2>测试一哈html标题</h2>"  
str_htmlr  =  str_htmlr & "<p>测试一哈p标签</p>"
'支持所有html标签，除了js'
mRecordText.WriteHTML str_htmlr 

数据库操作

mglob.DB.conData.Execute(sql) 可将sql执行后的结果返回到一个对象

'实例'
DIM sql,Rst
sql= "select * from XFP_ARTICLES t"  '支持所有sql语句' 
Set Rst = mglob.DB.conData.Execute(sql)
If Rst.RecordCount > 0 Then
i = 0
dim strCODE(Rst.RecordCount)
do while Rst.EOF = False 
'循环取出字段'
strCODE(i) = Rst.Fields("codeart").Value
i = i+1
Rst.MoveNext   
loop 
THEN
msgbox "没有数据！"
END IF

脚本常用对象取值

mRecordText.WriteHTML str_htmlr 可直接输出html内容

strClientName = mGlob.Client.name   '客户端环境，如7105TST'      
PICode = mData.PICode 'PI编码'
opter = mGlob.User.Name  '当前登录的用户'
mData.ReadData(insEQPID) '获取tag name的值'
WOCode = mData.ManCode  '工单号'
Set OpManager = CreateObject("E2S_PFC_Business.claOpManager")  
sWORKCENTER = OpManager.FindCurrentWorkCenter '工作中心'