1,486
社区成员
发帖
与我相关
我的任务
分享
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdOK_Click()
Dim ret As Long
ret = SetVTText("VT1", sDtStart.Value)
ret = SetVTText("VT2", sDtEnd.Value)
ret = SetVTText("VT3", cboPhoneNo.Text)
ret = SetVTText("VT4", txtSMS.Text)
End
End Sub
Private Sub Form_Load()
'初始化日期控件的时间值
sDtStart.Hour = Hour(Now)
sDtEnd.Hour = Hour(Now)
sDtStart.Minute = Minute(Now)
sDtEnd.Minute = Minute(Now)
sDtStart.Second = Second(Now)
sDtEnd.Second = Second(Now)
'为组合框cboPhoneNo绑定数据源
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim conn As String
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\SmsLog.mdb;Persist Security Info=False"
sql = "select distinct Phone from ReceiveLog"
rst.Open sql, con, adOpenKeyset, adLockOptimistic
cboPhoneNo.Clear
Do While Not rst.EOF
cboPhoneNo.AddItem (Trim(rst(0)))
rst.MoveNext
Loop
rst.Close
con.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'******************************************************************************************************************
'打开与关闭运行数据库
'******************************************************************************************************************
Declare Function OpenRunDB Lib "fmVisiter.dll" () As Long
Declare Function CloseRunDB Lib "fmVisiter.dll" () As Long
'******************************************************************************************************************
'通过变量索引访问变量
'AI=1、AO=2、AR=3、DI=4、DO=5、DR=6、VA=7、VD=8;
'******************************************************************************************************************
Declare Function GetVarIndex Lib "fmVisiter.dll" (ByVal VarType As Byte, ByVal VarName As String, varIndex As Long) As Long
Declare Function GetVarValue Lib "fmVisiter.dll" (ByVal VarType As Byte, ByVal varIndex As Long, varValue As Single) As Long
Declare Function SetVarValue Lib "fmVisiter.dll" (ByVal VarType As Byte, ByVal varIndex As Long, ByVal varValue As Single) As Long
'******************************************************************************************************************
'通过变量名称访问变量
'******************************************************************************************************************
'AI
Declare Function GetAIValue Lib "fmVisiter.dll" (ByVal VarName As String, varValue As Single) As Long
'AO
Declare Function GetAOValue Lib "fmVisiter.dll" (ByVal VarName As String, varValue As Single) As Long
Declare Function SetAOValue Lib "fmVisiter.dll" (ByVal VarName As String, ByVal varValue As Single) As Long
'AR
Declare Function GetARValue Lib "fmVisiter.dll" (ByVal VarName As String, varValue As Single) As Long
Declare Function SetARValue Lib "fmVisiter.dll" (ByVal VarName As String, ByVal varValue As Single) As Long
'DI
Declare Function GetDIStatus Lib "fmVisiter.dll" (ByVal VarName As String, varValue As Byte) As Long
'DO
Declare Function GetDOStatus Lib "fmVisiter.dll" (ByVal VarName As String, varValue As Byte) As Long
Declare Function SetDOStatus Lib "fmVisiter.dll" (ByVal VarName As String, ByVal varValue As Byte) As Long
'DR
Declare Function GetDRStatus Lib "fmVisiter.dll" (ByVal VarName As String, varValue As Byte) As Long
Declare Function SetDRStatus Lib "fmVisiter.dll" (ByVal VarName As String, ByVal varValue As Byte) As Long
'VA
Declare Function GetVAValue Lib "fmVisiter.dll" (ByVal VarName As String, varValue As Single) As Long
Declare Function SetVAValue Lib "fmVisiter.dll" (ByVal VarName As String, ByVal varValue As Single) As Long
'VT
Declare Function GetVTText Lib "fmVisiter.dll" (ByVal VarName As String, ByVal varValue As String) As Long
Declare Function SetVTText Lib "fmVisiter.dll" (ByVal VarName As String, ByVal varValue As String) As Long
'******************************************************************************************************************
'访问设备数据表
'******************************************************************************************************************
Declare Function GetDevTable Lib "fmVisiter.dll" (ByVal Devno As Long, ByVal StartByte As Long, ByVal Bytelen As Long, ByteBuffer As Byte) As Long
Declare Function SetDevTable Lib "fmVisiter.dll" (ByVal Devno As Long, ByVal StartByte As Long, ByVal Bytelen As Long, ByteBuffer As Byte) As Long
Declare Function SetDevTablBit Lib "fmVisiter.dll" (ByVal Devno As Long, ByVal ByteNo As Long, ByVal BitNo As Long, Status As Byte) As Long