Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Type InductoBTags
- K_indb_MINTEMP As Tag
- K_indb_TEMP As Tag
- K_rcp_bil_SIZE As Tag
- RcpGrade As Tag
- RcpID As Tag
- STD_CylConstant_RCP_RI_1 As Tag
- STD_CylConstant_RCP_RI_2 As Tag
- STD_CylConstant_RCP_RI_3 As Tag
- STD_CylConstant_RCP_RI_4 As Tag
- STD_CylConstant_RCP_RI_5 As Tag
- STD_CylConstant_RCP_RI_6 As Tag
- STD_CylConstant_RCP_RI_7 As Tag
- STD_CylConstant_RCP_RI_8 As Tag
- STD_CylConstant_RCP_RI_9 As Tag
- STD_CylConstant_RCP_RI_10 As Tag
- STD_CylConstantActual_RCP_RO_1 As Tag
- STD_CylConstantActual_RCP_RO_2 As Tag
- STD_CylConstantActual_RCP_RO_3 As Tag
- STD_CylConstantActual_RCP_RO_4 As Tag
- STD_CylConstantActual_RCP_RO_5 As Tag
- STD_CylConstantActual_RCP_RO_6 As Tag
- STD_CylConstantActual_RCP_RO_7 As Tag
- STD_CylConstantActual_RCP_RO_8 As Tag
- STD_CylConstantActual_RCP_RO_9 As Tag
- STD_CylConstantActual_RCP_RO_10 As Tag
- STD_SpareInt_RCP_RI_1 As Tag
- STD_SpareInt_RCP_RI_2 As Tag
- End Type
- Public Type InductoBGroup
- DB As InductoBTags
- PLC As InductoBTags
- EDIT As InductoBTags
- End Type
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * CREATING PATHS TO TAGS FOLDER * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- Public Function AddInductoBGroup()
- Dim strFolder As String
- 'HMI Tags
- strFolder = "RCP\Inducto_B\"
- AddInductoBTag (strFolder)
- 'PLC Tags
- strFolder = "PLC\Inducto_B\"
- AddInductoBTag (strFolder)
- ' Edit Tags
- ' strFolder = " RCP\Inducto_B"
- ' AllTags.DB = AddInductoBTag(strFolder)
- End Function
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * ADDING HMI TAGS TO THE GROUP * * * * * * * * * * * * * * *
- ' * * * * * * * * * * Function that adds all the tags to the tag group * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- Function AddInductoBTag(strFolder As String)
- With ThisDisplay.MyTagGroup
- .Add ("{" & strFolder & "RcpID}")
- .Add ("{" & strFolder & "K_indb_MINTEMP}")
- .Add ("{" & strFolder & "K_indb_MINTEMP}")
- .Add ("{" & strFolder & "K_rcp_bil_SIZE}")
- .Add ("{" & strFolder & "RcpGrade}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_1}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_2}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_3}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_4}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_5}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_6}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_7}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_8}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_9}")
- .Add ("{" & strFolder & "STD_CylConstant_RCP_RI_10}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_1}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_2}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_3}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_4}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_5}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_6}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_7}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_8}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_9}")
- .Add ("{" & strFolder & "STD_CylConstantActual_RCP_RO_10}")
- .Add ("{" & strFolder & "STD_SpareInt_RCP_RI_1}")
- .Add ("{" & strFolder & "STD_SpareInt_RCP_RI_2}")
- End With
- End Function
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * COPYING DB/EDIT/PLC TAGS * * * * * * * * * * * *
- 'This function will copy the contents of any sourch tag (DB/EDIT/PLC) to the required
- ' * * * * * * * * * * * * * * * destination tag (DB/EDIT/PLC) * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- Function TransferInductoB(strTagDest As String, strTagSrc As String)
- Dim AllTags As InductoBGroup
- Dim TagSrc As InductoBTags
- Dim TagDest As InductoBTags
- AllTags = TGroup.LoadInductoBGroup
- ' Getting Source Tag
- Select Case strTagSrc
- Case Is = "Tag"
- TagSrc = AllTags.DB
- Case Is = "edit"
- TagSrc = AllTags.EDIT
- Case Is = "PLC"
- TagSrc = AllTags.PLC
- End Select
- ' Getting Destination Tag
- Select Case strTagDest
- Case Is = "Tag"
- TagDest = AllTags.DB
- Case Is = "edit"
- TagDest = AllTags.EDIT
- Case Is = "PLC"
- TagDest = AllTags.PLC
- End Select
- 'Copying from source tag to desination tag for each individual tag
- TagDest.K_indb_MINTEMP.Value = TagSrc.K_indb_MINTEMP.Value
- TagDest.K_indb_TEMP.Value = TagSrc.K_indb_TEMP.Value
- TagDest.K_rcp_bil_SIZE.Value = TagSrc.K_rcp_bil_SIZE.Value
- TagDest.RcpGrade.Value = TagSrc.RcpGrade.Value
- TagDest.RcpID.Value = TagSrc.RcpID.Value
- TagDest.STD_CylConstant_RCP_RI_1.Value = TagSrc.STD_CylConstant_RCP_RI_1.Value
- TagDest.STD_CylConstant_RCP_RI_2.Value = TagSrc.STD_CylConstant_RCP_RI_2.Value
- TagDest.STD_CylConstant_RCP_RI_3.Value = TagSrc.STD_CylConstant_RCP_RI_3.Value
- TagDest.STD_CylConstant_RCP_RI_4.Value = TagSrc.STD_CylConstant_RCP_RI_4.Value
- TagDest.STD_CylConstant_RCP_RI_5.Value = TagSrc.STD_CylConstant_RCP_RI_5.Value
- TagDest.STD_CylConstant_RCP_RI_6.Value = TagSrc.STD_CylConstant_RCP_RI_6.Value
- TagDest.STD_CylConstant_RCP_RI_7.Value = TagSrc.STD_CylConstant_RCP_RI_7.Value
- TagDest.STD_CylConstant_RCP_RI_8.Value = TagSrc.STD_CylConstant_RCP_RI_8.Value
- TagDest.STD_CylConstant_RCP_RI_9.Value = TagSrc.STD_CylConstant_RCP_RI_9.Value
- TagDest.STD_CylConstant_RCP_RI_10.Value = TagSrc.STD_CylConstant_RCP_RI_10.Value
- TagDest.STD_CylConstantActual_RCP_RO_1.Value = TagSrc.STD_CylConstantActual_RCP_RO_1.Value
- TagDest.STD_CylConstantActual_RCP_RO_2.Value = TagSrc.STD_CylConstantActual_RCP_RO_2.Value
- TagDest.STD_CylConstantActual_RCP_RO_3.Value = TagSrc.STD_CylConstantActual_RCP_RO_3.Value
- TagDest.STD_CylConstantActual_RCP_RO_4.Value = TagSrc.STD_CylConstantActual_RCP_RO_4.Value
- TagDest.STD_CylConstantActual_RCP_RO_5.Value = TagSrc.STD_CylConstantActual_RCP_RO_5.Value
- TagDest.STD_CylConstantActual_RCP_RO_6.Value = TagSrc.STD_CylConstantActual_RCP_RO_6.Value
- TagDest.STD_CylConstantActual_RCP_RO_7.Value = TagSrc.STD_CylConstantActual_RCP_RO_7.Value
- TagDest.STD_CylConstantActual_RCP_RO_8.Value = TagSrc.STD_CylConstantActual_RCP_RO_8.Value
- TagDest.STD_CylConstantActual_RCP_RO_9.Value = TagSrc.STD_CylConstantActual_RCP_RO_9.Value
- TagDest.STD_CylConstantActual_RCP_RO_10.Value = TagSrc.STD_CylConstantActual_RCP_RO_10.Value
- TagDest.STD_SpareInt_RCP_RI_1.Value = TagSrc.STD_SpareInt_RCP_RI_1.Value
- TagDest.STD_SpareInt_RCP_RI_2.Value = TagSrc.STD_SpareInt_RCP_RI_2.Value
- End Function
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * INSERTING ON SAVE * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- Function InductoBInsert(RcpID As String, cnSrc As ADODB.Connection)
- Dim strSql As String
- Dim cmd As New ADODB.Command
- Dim rsSrc As New ADODB.Recordset
- Dim AllTags As InductoBGroup
- Dim TagSrc As InductoBTags
- AllTags = TGroup.LoadInductoBGroup
- TagSrc = AllTags.DB
- strSql = " INSERT INTO Inducto_B VALUES('"
- strSql = strSql & RcpID & "','" & TagSrc.RcpID.Value & "','" & TagSrc.K_indb_TEMP.Value & "','" & TagSrc.K_rcp_bil_SIZE.Value & "','" & TagSrc.RcpGrade.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_1.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_10.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_2 & "','" & TagSrc.STD_CylConstant_RCP_RI_3.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_4.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_5.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_6.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_7.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_8.Value & "','" & TagSrc.STD_CylConstant_RCP_RI_9.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_1.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_10.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_2.Value & "','"
- strSql = strSql & TagSrc.STD_CylConstantActual_RCP_RO_3.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_4.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_5.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_6.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_7.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_8.Value & "','" & TagSrc.STD_CylConstantActual_RCP_RO_9.Value & "','" & TagSrc.STD_SpareInt_RCP_RI_1.Value & "','" & TagSrc.STD_SpareInt_RCP_RI_2.Value & "')"
- cmd.ActiveConnection = cnSrc
- rsSrc.Open strSql, cnSrc
- '(RcpID. K_indb_TEMP , K_rcp_bil_SIZE, RcpGrade, STD_CylConstant_RCP_RI_1, STD_CylConstant_RCP_RI_10, STD_CylConstant_RCP_RI_2, STD_CylConstant_RCP_RI_3, STD_CylConstant_RCP_RI_4, STD_CylConstant_RCP_RI_5, STD_CylConstant_RCP_RI_6, STD_CylConstant_RCP_RI_7, STD_CylConstant_RCP_RI_8, STD_CylConstant_RCP_RI_9, STD_CylConstantActual_RCP_RO_1, STD_CylConstantActual_RCP_RO_10, STD_CylConstantActual_RCP_RO_2, STD_CylConstantActual_RCP_RO_3, STD_CylConstantActual_RCP_RO_4,STD_CylConstantActual_RCP_RO_5 , STD_CylConstantActual_RCP_RO_6, STD_CylConstantActual_RCP_RO_7, STD_CylConstantActual_RCP_RO_8, STD_CylConstantActual_RCP_RO_9, STD_SpareInt_RCP_RI_1, STD_SpareInt_RCP_RI_2)
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement