vba代码.docVIP

Public QF_G As Boolean Public ILK_G As Boolean Public TYPE_G As Integer Public KMF_G As Boolean Public KMR_G As Boolean Public DEV_G As String 设备编号全局变量 Public DEV_DES As String 设备名称 Public KF_G As Boolean Public KR_G As Boolean Public ACT_G As String Public Conn As ADODB.Connection Public Rs As ADODB.Recordset Public Function Sendopmes(Saction As String, Sequipment As String) As Boolean Dim Linkstr, sqlstr As String Dim XHUserID As String Dim XHUserName As String Dim XHGroupName As String Dim Nowtime As Date On Error Resume Next Nowtime = Now System.FixGetUserInfo XHUserID, XHUserName, XHGroupName Set Conn = New ADODB.Connection 写到本地ACCESS Linkstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\GE Fanuc\Proficy iFIX\PDB\Ifixidiograph.mdb;Persist Security Info=False Conn.Open Linkstr sqlstr = select * from Operaterecord Set Rs = New ADODB.Recordset Rs.Open sqlstr, Conn, adOpenKeyset, adLockOptimistic Rs.AddNew Rs.Fields(Name) = XHUserName Rs.Fields(Time) = Nowtime Rs.Fields(Action) = Saction Rs.Fields(Equipment) = Sequipment Rs.Update Rs.Close On Error GoTo 0 End Function Public Sub DEVOP(DEV_NUM As String, DEV_DESCRIPTION As String, DEV_TYP As Integer) Dim QF_str As String Dim ILK_str As String Dim TYPE_int As Integer Dim KMF_str As String Dim KMR_str As String Dim DEV_STR As String Dim ACT_str As String Dim JZ_str As String Dim SSM_str As String DEV_G = DEV_NUM DEV_DES = DEV_DESCRIPTION User.DEV_DESCRIPTION.CurrentValue = DEV_DES User.DEV_STR.CurrentValue = DEV_G 状态栏显示正在远控操作设备名称 If pos_int 0 Then str_dev = Left(DEV_NUM, InStr(1, DEV_NUM, Y, vbTextCompare)) 9 Else str_dev = DEV_NUM End If SSM_str = Fix32.FIX.SSM DEV_G .F_CV If readvalue(SSM_str) = 1 Then MsgBox DEV_DES DEV_G 处于禁启状态，不允许操作！, vbOKOnly, 操作提示 Exit Sub Else End If QF_str = Fix32.FI