软件源程序

最新推荐文章于 2024-05-10 10:11:38 发布
最新推荐文章于 2024-05-10 10:11:38 发布
阅读量1k 收藏 1
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_43144370/article/details/82456690
版权

Sub ProcessLog (Byval pid,Byval batchcode,Byval username)
Dim sCon1
Dim sSql1
Dim oRs1
Dim oCom1
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim count
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql1=”select count(*) from processlog”
Set oRs1 = CreateObject(“ADODB.Recordset”)
Set oCom1 = CreateObject(“ADODB.Command”)
Set oCom1.ActiveConnection = conn
oCom1.CommandType = 1
oCom1.CommandText = sSql1
Set oRs1 = oCom1.Execute
count = oRs1.Fields(0).Value + 1
sSql=”insert into PROCESSLOG(PROCESSLOGID,PROCESSID,BATCHCODE,STARTTIME,STARTUSERNAME,ENDTIME,ENDUSERNAME,FINISH) VALUES (‘”&count&”’,N’”&pid&”’,N’”&batchcode&”’,getdate(),N’”&username&”’,’1900-1-1’,N’无’,0)”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
Set oRs = Nothing
Set oRs1 = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub SETPOST (Byval a,Byval b,Byval c)
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”select “&c&” from USERPOST where USERNAME = ‘”&b&”’”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
tt = oRs.Fields(0).Value
HMIRuntime.Tags(“”&a&”“).Write tt
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub StartBatch (Byval STARTUSERNAME,Byval BATCHID)
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”UPDATE BATCH SET STARTTIME = getdate(),STARTUSERNAME = N’”&STARTUSERNAME&”’,FINISH = 1 WHERE BATCHID = ‘”&BATCHID&”’”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub Text(Byval a)
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=a
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Dim oCom
Dim Con
Dim tt
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”select “&c&” from text where ID = “&b&””
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
tt = oRs.Fields(0).Value
HMIRuntime.Tags(“”&a&”“).Write tt
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub TextRead (Byval a)
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
tt = HMIRuntime.Tags(“”&a&”“).Read
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”insert into text(NAME) VALUES (‘”&tt&”’)”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
tt = oRs.Fields(0).Value
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub OperateLog (Byval description,Byval equipcode,Byval ymid)
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim processid
Dim batch
Dim username
username = HMIRuntime.Tags(“@NOTP::@CurrentUserName”).Read
Select Case ymid
Case “1”
processid = HMIRuntime.Tags(“@NOTP::TQNowProcess”).Read
batch = HMIRuntime.Tags(“@NOTP::BatchTQ”).Read
Case “2”
processid = HMIRuntime.Tags(“@NOTP::CCNowProcess”).Read
batch = HMIRuntime.Tags(“@NOTP::BatchChunChen”).Read
Case “3”
processid = HMIRuntime.Tags(“@NOTP::SQNowProcess”).Read
batch = HMIRuntime.Tags(“@NOTP::BatchShangQing”).Read
Case “4”
processid = HMIRuntime.Tags(“@NOTP::TMNowProcess”).Read
batch = HMIRuntime.Tags(“@NOTP::BatchTotalMix”).Read
Case “0”
processid = 24
batch = “无”
End Select
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”insert into OPERATELOG(OPERATETIME,USERNAME,DESCRIPTION,REMARK,BITCHCODE,EQUIPCODE,PROCESSID) VALUES (getdate(),N’”&username&”’,N’”&description&”’,N’无’,N’”&batch&”’,N’”&equipcode&”’,”&processid&”)”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim a
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim h
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”select USERNAME from USERPOST where POSTID < 5”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
oRs.MoveFirst
Set a = ScreenItems(“列表框1”)
a.NumberLines = oRs.RecordCount
For h = 1 To oRs.RecordCount
tt = oRs.Fields(0).Value
a.SelIndex = h
a.SelText = tt
oRs.MoveNext
Next
a.SelIndex = 1
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim a
Dim c
Dim d
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim ts
Dim h
Dim p
Dim v
Set v = ScreenItems(“k2”)
p = v.Text
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”select USERNAME,POSTID from USERPOST WHERE USERNAME = N’”&p&”’ AND POSTID < 5”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
If oRs.RecordCount = 0 Then
MsgBox “未找到该用户”,0,”警告”
Else
tt = oRs.Fields(0).Value
ts = oRs.Fields(1).Value
Set c = ScreenItems(“静态文本3”)
c.Text = tt
Set d = ScreenItems(“静态文本4”)
Select Case ts
Case “1”
d.Text = “操作员”
Case “2”
d.Text = “维护员”
Case “3”
d.Text = “工程师”
Case “4”
d.Text = “管理员”
End Select
End If
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub

include “apdefap.h”

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)
{

pragma option(mbcs)

char * strTagPrefix;
char * strPictureName;
strPictureName=”pic1”;
SetVisible(“UserMain.pdl”,strPictureName,0); //Return-Type: BOOL
SetPictureName(“UserMain.pdl”,strPictureName,”UserAdd.pdl”); //Return-Type: BOOL
SetVisible(“UserMain.pdl”,strPictureName,1); //Return-Type: BOOL
}

include “apdefap.h”

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)
{

pragma option(mbcs)

char * strTagPrefix;
char * strPictureName;
strPictureName=”pic1”;
SetVisible(“UserMain.pdl”,strPictureName,0); //Return-Type: BOOL
SetPictureName(“UserMain.pdl”,strPictureName,”UserSet.pdl”); //Return-Type: BOOL
SetVisible(“UserMain.pdl”,strPictureName,1); //Return-Type: BOOL
SetText(“UserSet.pdl”,”静态文本3”,GetText(“UserMain.pdl”,”静态文本3”)); //Return-Type: BOOL
SetPropWord(“UserSet.pdl”,”组合框1”,”SelIndex”,GetPropWord(“UserMain.pdl”,”组合框1”,”SelIndex”));
}

include “apdefap.h”

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)
{

pragma option(mbcs)

pragma code(“UseGen.dll”)

include “USEGENAP.H”

pragma code()

LPCMN_ERROR err; //定义的LPCMN_ERROR型变量,在函数调用中需使用
if (PWGENConnect(“CC_OS-FDA_11_07_29_16_42_11”,err)) //建立与数据库的联接
{
if (PWGENDeleteUser(GetPropChar(“UserMain.pdl”,”静态文本3”,”Text”),1,err)) //删除用户
{//密码修改成功后的操作,如给用户提示等
}
}
PWGENDisconnect(err); //断开与数据库的联接
}
Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim a
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim bkval
Dim p
Dim ts
Dim hh
Dim aa
Set a = ScreenItems(“静态文本3”)
p = a.Text
bkval = MsgBox (“是否要删除用户”+”“&p&”“,1,”警告”)
If bkval=1 Then
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”delete from USERPOST where USERNAME = N’”&p&”’”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
MsgBox “成功删除用户”+”“&p&”“,0,”提示”
End If
sSql=”select USERNAME from USERPOST”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
oRs.MoveFirst
Set aa = ScreenItems(“列表框1”)
a.Text = “”
aa.NumberLines = oRs.RecordCount
For h = 1 To oRs.RecordCount
ts = oRs.Fields(0).Value
a.SelIndex = hh
a.SelText = ts
oRs.MoveNext
Next
aa.SelIndex = 1
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub

include “apdefap.h”

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)
{

pragma option(mbcs)

pragma code(“UseGen.dll”)

include “USEGENAP.H”

pragma code()

LPCMN_ERROR err; //定义的LPCMN_ERROR型变量,在函数调用中需使用
if (PWGENConnect(“CC_OS-FDA_11_07_29_16_42_11”,err)) //建立与数据库的联接
{
if (PWGENAddUser(GetPropChar(“UserAdd.pdl”,”n1”,”Text”),GetPropChar(“UserAdd.pdl”,”m1”,”Text”),”Administrator-Group”,0,err)) //修改密码,user,oldpassword,password分别为存贮用户名,原密码,新密码的内部变量,类型为文本变量8位字符集
{
//密码修改成功后的操作,如给用户提示等
}
}
PWGENDisconnect(err); //断开与数据库的联接
}
Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim a
Dim b
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim bkval
Dim p
Dim v
Set a = ScreenItems(“n1”)
Set b = ScreenItems(“组合框1”)
p = a.Text
v = b.SelIndex
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”insert into USERPOST(USERNAME,POSTID) VALUES (N’”&p&”’,”&v&”)”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
MsgBox “成功创建用户”+”“&p&”“,0,”提示”
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim a
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim t
Dim h
Dim b
Set a = ScreenItems(“静态文本3”)
t = a.Text
Set h = ScreenItems(“组合框1”)
b = h.SelIndex
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”Update USERPOST SET POSTID = “&b&” where USERNAME = N’”&t&”’”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
MsgBox “成功修改用户”+”“&t&”“+”权限”,0,”提示”
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub

include “apdefap.h”

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)
{

pragma option(mbcs)

pragma code(“UseGen.dll”)

include “USEGENAP.H”

pragma code()

LPCMN_ERROR err; //定义的LPCMN_ERROR型变量,在函数调用中需使用
if (PWGENConnect(“CC_OS-FDA_11_07_29_16_42_11”,err)) //建立与数据库的联接
{
if (PWGENChangePassword(GetPropChar(“UserSet.pdl”,”静态文本3”,”Text”),GetPropChar(“UserSet.pdl”,”控件1”,”Text”),GetPropChar(“UserSet.pdl”,”控件2”,”Text”),err)) //修改密码,user,oldpassword,password分别为存贮用户名,原密码,新密码的内部变量,类型为文本变量8位字符集
{
//密码修改成功后的操作,如给用户提示等
}
}
PWGENDisconnect(err); //断开与数据库的联接
}
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim a
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim h
Con=HMIRuntime.Tags(“SQL”).Read
‘MsgBox(Con)
‘“Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_OS-FDA_13_06_19_21_24_37R;Data Source=.\WINCC”
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”select BATCHCODE from BATCH where FINISH < 2”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
oRs.MoveFirst
Set a = ScreenItems(“列表框1”)
a.NumberLines = oRs.RecordCount + 1
For h = 2 To oRs.RecordCount + 1
tt = oRs.Fields(0).Value
a.SelIndex = h
a.SelText = tt
oRs.MoveNext
Next
a.SelIndex = 1
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim o
Set o = ScreenItems(“列表框1”)
o.SelIndex = 1
End Sub

include “apdefap.h”

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName,
Select Case ymid
Case “1”
processid = HMIRuntime.Tags(“@NOTP::TQNowProcess”).Read
batch = HMIRuntime.Tags(“@NOTP::BatchTQ”).Read
Case “2”
processid = HMIRuntime.Tags(“@NOTP::CCNowProcess”).Read
batch = HMIRuntime.Tags(“@NOTP::BatchChunChen”).Read
Case “3”
processid = HMIRuntime.Tags(“@NOTP::SQNowProcess”).Read
batch = HMIRuntime.Tags(“@NOTP::BatchShangQing”).Read
Case “4”
processid = HMIRuntime.Tags(“@NOTP::TMNowProcess”).Read
batch = HMIRuntime.Tags(“@NOTP::BatchTotalMix”).Read
Case “0”
processid = 24
batch = “无”
End Select
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”insert into OPERATELOG(OPERATETIME,USERNAME,DESCRIPTION,REMARK,BITCHCODE,EQUIPCODE,PROCESSID) VALUES (getdate(),N’”&username&”’,N’”&description&”’,N’无’,N’”&batch&”’,N’”&equipcode&”’,”&processid&”)”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim a
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim h
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”select USERNAME from USERPOST where POSTID < 5”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
oRs.MoveFirst
UINT nFlags, int x, int y)
{

pragma option(mbcs)

char * strTagPrefix;
char * strPictureName;
strPictureName=”pic1”;
SetVisible(“BatchMain.pdl”,strPictureName,0); //Return-Type: BOOL
SetPictureName(“BatchMain.pdl”,strPictureName,”BatchAdd.pdl”); //Return-Type: BOOL
SetVisible(“BatchMain.pdl”,strPictureName,1); //Return-Type: BOOL
}
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim bcm
Dim bz
Dim ts
Dim RW1
Dim RW1W
Dim RW1P
Dim RW2
Dim RW2W
Dim RW2P
Dim RW3
Dim RW3W
Dim RW3P
Dim RW4
Dim RW4W
Dim RW4P
Dim RW5
Dim RW5W
Dim RW5P
Set bcm = ScreenItems(“n1”)
Set bz = ScreenItems(“D1”)
ts = HMIRuntime.Tags(“@CurrentUserName”).Read
Set RW1 = ScreenItems(“RW1”)
Set RW1W = ScreenItems(“RW1W”)
Set RW1P = ScreenItems(“RW1P”)
Set RW2 = ScreenItems(“RW2”)
Set RW2W = ScreenItems(“RW2W”)
Set RW2P = ScreenItems(“RW2P”)
Set RW3 = ScreenItems(“RW3”)
Set RW3W = ScreenItems(“RW3W”)
Set RW3P = ScreenItems(“RW3P”)
Set RW4 = ScreenItems(“RW4”)
Set RW4W = ScreenItems(“RW4W”)
Set RW4P = ScreenItems(“RW4P”)
Set RW5 = ScreenItems(“RW5”)
Set RW5W = ScreenItems(“RW5W”)
Set RW5P = ScreenItems(“RW5P”)
‘MsgBox(“”&bcm.Text&”“+”“&RW1.Text&”“+”“&RW1W.Text&”“+”“&RW1P.Text&”“+”“&ts&”“+”“&bz.Text&”“)
‘InsertBatch “”&bcm.Text&”“,”“&RW1.Text&”“,”“&RW1W.Text&”“,”“&RW1P.Text&”“, “”&ts&”“,”“&bz.Text &””
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
‘判断 BATCHCODE 是否有重复
oCom.CommandType = 1
sSql=”select * from BATCH WHERE BATCHCODE=N’”&bcm.Text&”’”
oCom.CommandText = sSql
Set oRs = oCom.Execute
If oRs.RecordCount = 0 Then
sSql=”insert into BATCH (BATCHCODE,STARTTIME,ENDTIME,STARTUSERNAME,ENDUSERNAME,REMARK,FINISH) VALUES (N’”&bcm.Text&”’,’1900-1-1’,’1900-1-1’,N’无’,N’无’,N’”&bz.Text&”’,0)”
oCom.CommandText = sSql
Set oRs = oCom.Execute
sSql=”update BATCH set rm1=N’”&rw1.text&”’,rm1_price=N’”&rw1w.Text&”’,rm1_weight=N’”&rw1p.Text&”’ WHERE BATCHCODE=N’”&bcm.Text&”’”
oCom.CommandText = sSql
Set oRs = oCom.Execute
sSql=”update BATCH set rm2=N’”&rw2.text&”’,rm2_price=N’”&rw2w.Text&”’,rm2_weight=N’”&rw2p.Text&”’ WHERE BATCHCODE=N’”&bcm.Text&”’”
oCom.CommandText = sSql
Set oRs = oCom.Execute
sSql=”update BATCH set rm3=N’”&rw3.text&”’,rm3_price=N’”&rw3w.Text&”’,rm3_weight=N’”&rw3p.Text&”’ WHERE BATCHCODE=N’”&bcm.Text&”’”
oCom.CommandText = sSql
Set oRs = oCom.Execute
sSql=”update BATCH set rm4=N’”&rw4.text&”’,rm4_price=N’”&rw4w.Text&”’,rm4_weight=N’”&rw4p.Text&”’ WHERE BATCHCODE=N’”&bcm.Text&”’”
oCom.CommandText = sSql
Set oRs = oCom.Execute
sSql=”update BATCH set rm5=N’”&rw5.text&”’,rm5_price=N’”&rw5w.Text&”’,rm5_weight=N’”&rw5p.Text&”’ WHERE BATCHCODE=N’”&bcm.Text&”’”
oCom.CommandText = sSql
Set oRs = oCom.Execute
Else
MsgBox “批次代码已有”,0,”警告”
End If
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub OnClick(ByVal Item)
Dim a
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim tt
Dim h
Con=HMIRuntime.Tags(“SQL”).Read
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
‘sSql=”select BATCHCODE from BATCH where FINISH = 1”
sSql=”select BATCHCODE from BATCH ”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
oRs.MoveFirst
Set a = ScreenItems(“Z1”)
a.NumberLines = oRs.RecordCount
‘MsgBox oRs.RecordCount
For h = 1 To oRs.RecordCount
tt = oRs.Fields(0).Value
a.SelIndex = h
a.SelText = tt
oRs.MoveNext
Next
a.SelIndex = 1
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim a
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim t1
Dim t2
Dim t3
Dim t4
Dim t5
Dim t6
Dim t7
Dim t8
Dim t9
Dim t10
Dim t11
Dim h
Dim bc
Dim bc1
Dim bc2
Dim gx
Dim gx1
Set a = ScreenItems(“控件11”)
Set bc = ScreenItems(“Z1”)
If bc.SelText = “” Then
MsgBox(“请选择批次”)
Else
bc1 = “= N’”&bc.SelText&”’”
HMIRuntime.Tags(“BatchDY”).Write bc.SelText
Set gx = ScreenItems(“Z2”)
If gx.SelIndex = 1 Then
gx1 = “is not null”
Else
gx1 = “= N’”&gx.SelIndex-1&”’”
End If
a.TextMatrix(0,0) = “序号”
a.TextMatrix(0,1) = “ID”
a.TextMatrix(0,2) = “批次号”
a.TextMatrix(0,3) = “工序”
a.TextMatrix(0,4) = “开始时间”
a.TextMatrix(0,5) = “变量名”
‘a.TextMatrix(0,6) = “备注”
a.TextMatrix(0,6) = “最大值”
a.TextMatrix(0,7) = “最小值”
a.TextMatrix(0,8) = “平均值”
a.TextMatrix(0,9) = “差值”
a.TextMatrix(0,10) = “结束时间”
a.ColWidth (1) = 1000
a.ColWidth (2) = 1000
a.ColWidth (3) = 1000
a.ColWidth (4) = 2000
a.ColWidth (5) = 5000
a.ColWidth (6) = 1000
a.ColWidth (7) = 1000
a.ColWidth (8) = 1000
a.ColWidth (9) = 1000
a.ColWidth (10) =2000
‘a.ColWidth (11) = 3000
Dim RTDBName
RTDBName=HMIRuntime.Tags(“@DatasourceNameRT”).Read
Con =”Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=”&RTDBName&”;Data Source=.\WINCC”
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”select * FROM BATCH_PARA WHERE BATCHCODE “&bc1&” and gx “&gx1&” order by ID DESC ”
MsgBox sSql
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
If oRs.RecordCount = 0 Then
MsgBox “没有此记录”,0,”警告”
Else
a.Rows = oRs.RecordCount + 1
a.Cols = oRs.Fields.Count + 1
oRs.MoveFirst
‘MsgBox oRs.RecordCount
For h = 1 To oRs.RecordCount
t1 = oRs.Fields(0).Value
t2 = oRs.Fields(1).Value
t3 = oRs.Fields(2).Value
t4 = oRs.Fields(3).Value
t5 = oRs.Fields(4).Value
’ t6 = oRs.Fields(5).Value
t6 = oRs.Fields(6).Value
t7 = oRs.Fields(7).Value
t8 = oRs.Fields(8).Value
t9 = oRs.Fields(9).Value
t10 = oRs.Fields(10).Value
’ t12 = oRs.Fields(11).Value
a.TextMatrix(h,0) = h
a.TextMatrix(h,1) = t1
a.TextMatrix(h,2) = t2
a.TextMatrix(h,3) = t3
a.TextMatrix(h,4) = t4
a.TextMatrix(h,5) = t5
a.TextMatrix(h,6) = t6
a.TextMatrix(h,7) = t7
a.TextMatrix(h,8) = t8
a.TextMatrix(h,9) = t9
a.TextMatrix(h,10) = t10
’ a.TextMatrix(h,11) = t11
oRs.MoveNext
Next
End If
Set oRs = Nothing
conn.Close
Set conn = Nothing
End if
End Sub

pragma option(mbcs)

define N 81

void ACCMenuText(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “AI.”, *Borland = “Pro/DB“;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic1”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_ACC.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic1”,500); //Return-Type: BOOL
SetTop(lpszPictureName,”pic1”,240); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_ACC.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“fp_ACC.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“ACCMain.Pdl”,”静态文本99”,ValueName); //Return-Type: BOOL
SetText(“ACCMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL
}

pragma option(mbcs)

define N 81

void ACSMenuText(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “DATA.”, *Borland = “Pro/DB“;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic12”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_ACSMain.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic12”,560); //Return-Type: BOOL
SetTop(lpszPictureName,”pic12”,340); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_ACSMain.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“fp_ACSMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“ACSMain.Pdl”,”静态文本24”,GetText(“fp_ACSMain.Pdl”,”静态文本19”)); //Return-Type: char*
SetText(“ACSMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL

pragma option(mbcs)

define N 81

void ACSPIDText(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “.”, *Borland = “Pro/DB_”;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic12”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_ACSNew.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic12”,560); //Return-Type: BOOL
SetTop(lpszPictureName,”pic12”,340); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_ACSNew.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“ACSMainNew.Pdl”,”静态文本24”,GetText(“fp_ACSNew.Pdl”,”静态文本19”)); //Return-Type: char*
SetText(“fp_ACSNew.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“ACSMainNew.Pdl”,”ymid”,YMID); //Return-Type: BOOL
}

pragma option(mbcs)

void Confirm(char* TagName)
{
int B;
B=MessageBox(NULL,”是否确认该操作”,”警告”,MB_OKCANCEL|MB_ICONEXCLAMATION|MB_SETFOREGROUND|MB_SYSTEMMODAL);
if(B==1)
SetTagBit(TagName,1);
}

pragma option(mbcs)

void ConfirmZero(char* TagName)
{
int B;
B=MessageBox(NULL,”是否确认该操作”,”警告”,MB_OKCANCEL|MB_ICONEXCLAMATION|MB_SETFOREGROUND|MB_SYSTEMMODAL);
if(B==1)
SetTagBit(TagName,0);
}

pragma option(mbcs)

define N 81

void ManualMenuText(char* lpszPictureName,char* ValueName,int x,int y,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “.”;
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic6”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_Manual.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic6”,x); //Return-Type: BOOL
SetTop(lpszPictureName,”pic6”,y); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_Manual.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“fp_Manual.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“ManualMain.Pdl”,”静态文本99”,ValueName); //Return-Type: BOOL
SetText(“ManualMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL
}

pragma option(mbcs)

void MeterBack(char* lpszPictureName)
{
if(GetTagDouble(“LimAlarmEnable”)==0)
{
SetProcess(lpszPictureName,”A1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==1)
{
SetProcess(lpszPictureName,”A1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==2)
{
SetProcess(lpszPictureName,”A1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==3)
{
SetProcess(lpszPictureName,”A1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==4)
{
SetProcess(lpszPictureName,”A1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==5)
{
SetProcess(lpszPictureName,”A1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==6)
{
SetProcess(lpszPictureName,”A1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,0); //Return-Type: BOOL
}
else
{

{
if(GetTagDouble(“LimAlarmEnable”)==8)
{
SetProcess(lpszPictureName,”A1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==9)
{
SetProcess(lpszPictureName,”A1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==10)
{
SetProcess(lpszPictureName,”A1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==11)
{
SetProcess(lpszPictureName,”A1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==12)
{
SetProcess(lpszPictureName,”A1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==13)
{
SetProcess(lpszPictureName,”A1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==14)
{
SetProcess(lpszPictureName,”A1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimAlarmEnable”)==15)
{
SetProcess(lpszPictureName,”A1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}

‘a.ColWidth (11) = 3000
Dim RTDBName
RTDBName=HMIRuntime.Tags(“@DatasourceNameRT”).Read
Con =”Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=”&RTDBName&”;Data Source=.\WINCC”
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql=”select * FROM BATCH_PARA WHERE BATCHCODE “&bc1&” and gx “&gx1&” order by ID DESC ”
MsgBox sSql
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
If oRs.RecordCount = 0 Then
MsgBox “没有此记录”,0,”警告”
Else
a.Rows = oRs.RecordCount + 1
a.Cols = oRs.Fields.Count + 1
oRs.MoveFirst
‘MsgBox oRs.RecordCount
For h = 1 To oRs.RecordCount
t1 = oRs.Fields(0).Value
t2 = oRs.Fields(1).Value
t3 = oRs.Fields(2).Value
t4 = oRs.Fields(3).Value
t5 = oRs.Fields(4).Value
’ t6 = oRs.Fields(5).Value
t6 = oRs.Fields(6).Value
t7 = oRs.Fields(7).Value
t8 = oRs.Fields(8).Value
t9 = oRs.Fields(9).Value
t10 = oRs.Fields(10).Value
’ t12 = oRs.Fields(11).Value
a.TextMatrix(h,0) = h
a.TextMatrix(h,1) = t1
a.TextMatrix(h,2) = t2
a.TextMatrix(h,3) = t3
a.TextMatrix(h,4) = t4
a.TextMatrix(h,5) = t5
a.TextMatrix(h,6) = t6
a.TextMatrix(h,7) = t7
a.TextMatrix(h,8) = t8
a.TextMatrix(h,9) = t9
a.TextMatrix(h,10) = t10
’ a.TextMatrix(h,11) = t11
oRs.MoveNext
Next
End If
Set oRs = Nothing
conn.Close
Set conn = Nothing
End if
End Sub

pragma option(mbcs)

define N 81

void ACCMenuText(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “AI.”, *Borland = “Pro/DB“;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic1”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_ACC.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic1”,500); //Return-Type: BOOL
SetTop(lpszPictureName,”pic1”,240); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_ACC.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“fp_ACC.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“ACCMain.Pdl”,”静态文本99”,ValueName); //Return-Type: BOOL
SetText(“ACCMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL
}

pragma option(mbcs)

define N 81

void ACSMenuText(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “DATA.”, *Borland = “Pro/DB“;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic12”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_ACSMain.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic12”,560); //Return-Type: BOOL
SetTop(lpszPictureName,”pic12”,340); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_ACSMain.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“fp_ACSMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“ACSMain.Pdl”,”静态文本24”,GetText(“fp_ACSMain.Pdl”,”静态文本19”)); //Return-Type: char*
SetText(“ACSMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL

pragma option(mbcs)

define N 81

void ACSPIDText(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “.”, *Borland = “Pro/DB_”;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic12”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_ACSNew.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic12”,560); //Return-Type: BOOL
SetTop(lpszPictureName,”pic12”,340); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_ACSNew.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“ACSMainNew.Pdl”,”静态文本24”,GetText(“fp_ACSNew.Pdl”,”静态文本19”)); //Return-Type: char*
SetText(“fp_ACSNew.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“ACSMainNew.Pdl”,”ymid”,YMID); //Return-Type: BOOL
}

pragma option(mbcs)

void Confirm(char* TagName)
{
int B;
B=MessageBox(NULL,”是否确认该操作”,”警告”,MB_OKCANCEL|MB_ICONEXCLAMATION|MB_SETFOREGROUND|MB_SYSTEMMODAL);
if(B==1)
SetTagBit(TagName,1);
}

pragma option(mbcs)

void ConfirmZero(char* TagName)
{
int B;
B=MessageBox(NULL,”是否确认该操作”,”警告”,MB_OKCANCEL|MB_ICONEXCLAMATION|MB_SETFOREGROUND|MB_SYSTEMMODAL);
if(B==1)
SetTagBit(TagName,0);
}

pragma option(mbcs)

pragma option(mbcs)

void MeterBackWarn(char* lpszPictureName)
{
if(GetTagDouble(“LimWarnEnable”)==0)
{
SetProcess(lpszPictureName,”W1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==1)
{
SetProcess(lpszPictureName,”W1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==2)
{
SetProcess(lpszPictureName,”W1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==3)
{
SetProcess(lpszPictureName,”W1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==4)
{
SetProcess(lpszPictureName,”W1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==5)
{
SetProcess(lpszPictureName,”W1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==6)
{
SetProcess(lpszPictureName,”W1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==7)
{
SetProcess(lpszPictureName,”W1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,0); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==8)
{
SetProcess(lpszPictureName,”W1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==9)
{
SetProcess(lpszPictureName,”W1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==10)
{
SetProcess(lpszPictureName,”W1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==11)
{
SetProcess(lpszPictureName,”W1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==12)
{
SetProcess(lpszPictureName,”W1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==13)
{
SetProcess(lpszPictureName,”W1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==14)
{
SetProcess(lpszPictureName,”W1”,0); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,1); //Return-Type: BOOL
}
else
{
if(GetTagDouble(“LimWarnEnable”)==15)
{
SetProcess(lpszPictureName,”W1”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W2”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W3”,1); //Return-Type: BOOL
SetProcess(lpszPictureName,”W4”,1); //Return-Type: BOOL
}

pragma option(mbcs)

define N 81

void MeterMenuPT(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “.”, *Borland = “Pro/DB_”;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic1”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_MeterPT.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic1”,500); //Return-Type: BOOL
SetTop(lpszPictureName,”pic1”,240); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_MeterPT.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“fp_MeterPT.Pdl”,”BC1”,”无”); //Return-Type: BOOL
SetText(“fp_MeterPT.Pdl”,”UN1”,GetTagChar(“@CurrentUserName”)); //Return-Type: BOOL
SetText(“fp_MeterPT.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“MeterMainPT.Pdl”,”静态文本99”,ValueName); //Return-Type: BOOL
SetText(“MeterMainPT.Pdl”,”UN1”,GetTagChar(“@CurrentUserName”)); //Return-Type: BOOL
SetText(“MeterMainPT.Pdl”,”BC1”,”无”); //Return-Type: BOOL
SetText(“MeterMainPT.Pdl”,”ymid”,YMID); //Return-Type: BOOL
}

pragma option(mbcs)

define N 81

void MeterMenuText(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “.”, *Borland = “Pro/DB_”;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic1”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_Meter.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic1”,500); //Return-Type: BOOL
SetTop(lpszPictureName,”pic1”,240); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_Meter.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“fp_Meter.Pdl”,”BC1”,”无”); //Return-Type: BOOL
SetText(“fp_Meter.Pdl”,”UN1”,GetTagChar(“@CurrentUserName”)); //Return-Type: BOOL
SetText(“fp_Meter.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“MeterMain.Pdl”,”静态文本99”,ValueName); //Return-Type: BOOL
SetText(“MeterMain.Pdl”,”UN1”,GetTagChar(“@CurrentUserName”)); //Return-Type: BOOL
SetText(“MeterMain.Pdl”,”BC1”,”无”); //Return-Type: BOOL
SetText(“MeterMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL
}

pragma option(mbcs)

void PIDBack(char* lpszPictureName)
{
if(GetTagBit(“P_SEL”)==0)
{
SetProcess(lpszPictureName,”A4”,0); //Return-Type: BOOL
}
else
{
SetProcess(lpszPictureName,”A4”,1); //Return-Type: BOOL
}
if(GetTagBit(“I_SEL”)==0)
{
SetProcess(lpszPictureName,”A3”,0); //Return-Type: BOOL
}
else
{
SetProcess(lpszPictureName,”A3”,1); //Return-Type: BOOL
}
if(GetTagBit(“D_SEL”)==0)
{
SetProcess(lpszPictureName,”A2”,0); //Return-Type: BOOL
}
else
{
SetProcess(lpszPictureName,”A2”,1); //Return-Type: BOOL
}
}

pragma option(mbcs)

define N 81

void ACCMenuText(char* lpszPictureName,char* ValueName,char* YMID)
{
char * strTagPrefix;
char * strPictureName;
char destination[25];
char *blank = ValueName, *c = “AI.”, *Borland = “Pro/DB“;
strcpy(destination, Borland);
strcat(destination, blank);
strcat(destination, c);
strPictureName=”pic1”;
SetVisible(lpszPictureName,strPictureName,0); //Return-Type: BOOL
SetPropChar(lpszPictureName,strPictureName,”TagPrefix”,destination); //Return-Type: BOOL
SetPictureName(lpszPictureName,strPictureName,”fp_ACC.Pdl”); //Return-Type: BOOL
SetLeft(lpszPictureName,”pic1”,500); //Return-Type: BOOL
SetTop(lpszPictureName,”pic1”,240); //Return-Type: BOOL
SetVisible(lpszPictureName,strPictureName,1); //Return-Type: BOOL
strTagPrefix=GetTagPrefix(lpszPictureName,strPictureName); //Return-Type: char*
SetTagPrefix(lpszPictureName,strPictureName,strTagPrefix); //Return-Type: BOOL
SetText(“fp_ACC.Pdl”,”静态文本19”,ValueName); //Return-Type: BOOL
SetText(“fp_ACC.Pdl”,”ymid”,YMID); //Return-Type: BOOL
SetText(“ACCMain.Pdl”,”静态文本99”,ValueName); //Return-Type: BOOL
SetText(“ACCMain.Pdl”,”ymid”,YMID); //Return-Type: BOOL
}

include “apdefap.h”

void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)
{

pragma option(mbcs)

char * strTagPrefix;
char * strPictureName;
strPictureName=”pic1”;
SetVisible(“UserMain.pdl”,strPictureName,0); //Return-Type: BOOL
SetPictureName(“UserMain.pdl”,strPictureName,”UserAdd.pdl”); //Return-Type: BOOL
SetVisible(“UserMain.pdl”,strPictureName,1); //Return-Type: BOOL
}

include “apdefap.h”

void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)
{

pragma option(mbcs)

if(GetTagBit(“topmenu3”)==1)
SetTagBit(“topmenu3”,0);
if(GetTagBit(“topmenu4”)==1)
SetTagBit(“topmenu4”,0);
if(GetTagBit(“topmenu5”)==1)
SetTagBit(“topmenu5”,0);
if(GetTagBit(“topmenu6”)==1)
SetTagBit(“topmenu6”,0);
if(GetTagBit(“topmenu7”)==1)
SetTagBit(“topmenu7”,0);
if(GetTagBit(“topmenu8”)==1)
SetTagBit(“topmenu8”,0);
if(GetTagBit(“topmenu9”)==1)
SetTagBit(“topmenu9”,0);
if(GetTagBit(“topmenu10”)==1)
SetTagBit(“topmenu10”,0);
if(GetTagBit(“topmenu1”)==1)
SetTagBit(“topmenu1”,0);
if(GetTagBit(“topmenu2”)==1)
SetTagBit(“topmenu2”,0);
}

窝妮塔
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
C/JAVA /串口——中使用 prop（getprop，setprop）
唯爱丶卡卡西的博客
03-09 2145
在开发Framework 中，prop属性的设定是很常用的一种方式，作为和java中的 SharedPreference 算是有点相似把，但是有肯定是不一样的。这个用来在编译Android系统的时候 版本控制用的多一点把，具体的作用可以自行百度，本文章只讲使用： C/C++: ①getprop 使用的比较频繁： 该代码是实例，写在system/vold/NetlinkHandler.cpp 下 在...
软件
LM
12-16 377
软件发展 程序设计阶段--50至60年代 机器语言，汇编语言，受硬件控制，软件具有不通用的缺点 程序系统阶段--60至70年代 作坊式开发 1968年提出软件工程的概念 软件工程阶段--70年代以后 面向对象 软件 计算机系统是通过运行程序来实现各种不同的应用。而这些程序称为软件 组成： 程序（预先设计好的指令序列）指令集数据及其相关文档（图文材料）正确运行的数据结构
数据库读取(wincc)V1.0.rar
03-04
wincc与SQL数据的通讯，实现功能包括：通过VBS脚本在组态画面中读取和写入数据到SQL数据库。SQL数据库为2014，wincc版本为7.4SP1
C脚本实现Wincc画面切换
最新发布
laohei026的博客
05-10 841
函数，传入了三个字符串参数。这个函数可能是用来设置或改变某个图片名称属性的。，这些参数分别代表主画面文件名、窗口对象名和要在主画面上显示的新图片文件名。添加一个按钮，右键属性，事件选择单击鼠标，添加C脚本。
SCADA系统常用VB\VC语言大全
donglongbao的博客
04-28 1936
可以用来作为非周期事件驱动 int New_Function_1() { int i; tag=GetTagWord(“tag1”); if(i>10) {return 1;} else{return 0;} } 1、变量自加1（C) int tag; tag=GetTagByte(“tag1”); tag=tag+1; SetTagByte(“tag1”,tag); 2、变量自减1（C) int tag; tag=GetTagByte(“tag1”); tag=tag-1; SetTagByte(
WINCC获取项目路径和打开子画面C脚本
weixin_37928884的博客
01-01 3359
WINCC获取项目路径和打开子画面C脚本
西门子wincc图形编辑器PDL文件密码保护
ipqchase博客
04-23 6460
西门子wincc页面编辑器页面中设置密码保护后，计算密码及密码清除
网络监控软件 源程序.源代码
11-20
《网络监控软件源程序解析与应用》 网络监控软件在当今信息化社会中扮演着至关重要的角色，它能够帮助网络管理员实时监测网络流量、检测异常行为、优化网络性能以及保障网络安全。"vc网络监控软件附带源程序.zip"是...
软件著作权源程序模板.docx
01-18
源程序是软件的核心部分，包含了实现特定功能的指令序列。在申请软件著作权时，源程序是评估创新性和独特性的关键依据。下面将详细阐述如何准备和编辑符合要求的软件著作权源程序模板。 首先，源程序文件的开头应...
自制的杀毒软件源程序-Antivirus
11-20
自制的杀毒软件源代码-Antivirus
VB版的图片浏览软件源程序
05-16
内容索引:VB源码,图形处理,图片工具,ACDSEE　VB版的图片浏览软件源程序，可以打开ICO格式的图标，可以像ACDSEE一样显示缩略图，可以以幻灯模式播放图片，只不过如果图片目录过大的话，加载起来有点慢，学习一下还是...
PDL-Stats-开源
04-24
Perl数据语言中的统计模块，以及针对非PDL人员的快速入门指南。 它们使PDL外壳像R一样工作，但是具有PDL线程化（快速自动迭代）过程，包括t检验，线性回归和k均值聚类。
VB小财迷——家庭理财软件源程序
05-18
内容索引:VB源码,数据库应用,理财,管理系统　VB小财迷——家庭理财软件源程序，功能还相当不错，虽然小，但挺多的功能，主要是对日常 的一些收支、活期死期存款、借入、借出款等做些登记，方便查询，同时对自己的...
WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL
qq_25209523的博客
03-02 9363
** WINCC7.3/7.4通过VBS脚本链接数据库查询数据库显示并导出EXCEL Wincc作为西门子可视化系统，可以用于数据追溯功能。本文将讲述PLC设备数据存储到SQL数据库，并用于日后查询与导出。 查询SQL数据库，将数据显示到MSFlexGrid控件上 打开数据库： Con=&quot;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persi...
wincc与数据库sql server之间的数据存储
weixin_46429259的博客
01-29 3539
实现目标：1、把wincc中变量，存储到SQL数据库中2、查询数据库内容，在控件中显示步骤：1、软件wincc 7.3、wincc安装自带的sql server 2008 R22、新建数据库3、新建wincc项目--变量建立4、所用到的控件5、画面打开脚本：主要实现最新数据显示、连接数据库、控件设置等SubOnOpen()DimDimQRDim'对应表格控件名称DimDimDimzxy1'查询当天全部数据，除了控件名称要注意修改外，以上其他为标准Set。
WINCC SQL报警记录和变量记录数据读取查询
longking110的专栏
09-05 9196
WINCC SQL报警记录和变量记录数据读取查询 按时间查询报警记录 用到控件为listView,textbox,progctrl,ImageComboCtrl Sub X6309X94AE1X0000X59CB_X6309X94AE1X0000X0000_X6309X94AE1X0000X0058_X6309X94AE1X00009_OnClick(ByVal It
WINCC读写SQL数据库的示例
热门推荐
bazzihong的博客
03-21 3万+
一、在数据库中建立数据库文件，文件名为“读写数据库”，在数据库中建立新的表，命名为“个人信息”分别建立编号、姓名、年龄。 二、数据库中建立表后，在wincc中建立与数据库中类型相同的变量，变量类型相同在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加三个输入输出域，并连接变量。 三、添加两个按钮控件，分别命名为写数据、读数据。 1.在写数据中写入如下脚本 Dim sSql Dim
Wincc常用C脚本
kobe_okok的博客
04-25 2万+
文章目录1 set/get相关2 用户登录/注册3 操作项目4 弹窗5 操作元素6 WINCC中制作一个保持型按钮7 声光报警8 动画脚本电机风扇旋转（几何---起始角度）：9 物料水平右移动（几何---位置X）（停车后，物料回到原点）10 时间静态文本 1 set/get相关 SetTagPrefix(lpszPictureName, "huamian1","电机1.");//设置变量前缀 SetPictureName(lpszPictureName,"huamian1","BENG");//给画面窗口绑
WINCC中使用ADO对象连接数据库 例子 常用属性 方法 原创
weixin_30851867的博客
04-27 638
在WINCC中连接数据库可以使用ADO控件进行连接数据库，但是通常都不是用的ADO控件进行连接数据库，以下讲讲winccZ中使用ADO对象连接查询数据库。以下以报警记录为例。 一、了解ADO对象 1.1ADO对象操作数据库是微软提供的一种接口。 1.2对ADO对象的访问使用CreateObject函数（详情请参看CreateObject函数资料） ADO...
openjtag源程序
01-26
OpenJTAG源程序是一种用于嵌入式系统的开源调试程序。它主要用于测试和调试芯片上的硬件和软件功能。OpenJTAG源程序是基于JTAG（Joint Test Action Group）标准开发的，它提供了一种通用的调试接口，可以连接到芯片...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值