c_recvedsms.cls

短信平台管理系统是一个短信收发的平台,用户可以找一些代理的短信平台(IP),在系统里修改一些设置就可以进行短信的收发,有短信服务器的IP,服务器端口.系统还有一些常用用户的设置,包括客户资料,客户分类

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "c_recvedsms"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public cnnstr As String

'SELECT smsrid, mobile, sms, rtime, readed, cname, cid, birth
'From dbo.vwrecvedsms

Public Sub openrs(rs As Recordset)
    With rs
    
        .ActiveConnection = Me.cnnstr
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "select * From vwrecvedsms"
        Set .ActiveConnection = Nothing
    End With
    
End Sub

Public Sub searchsms(str As String, rs As Recordset)
    rs.Open "SELECT cid, birth, cname, sex, mobile, phone, memo From customer"
End Sub


Public Function getrec(id As Integer) As m_recvedsms
    On Error GoTo errh
    Dim value As New m_recvedsms

    Dim rs As New Recordset
    With rs
    
        .ActiveConnection = Me.cnnstr
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "SELECT * from vwrecvedsms where smsrid=" & id
        Set .ActiveConnection = Nothing
    End With
    If rs.BOF And rs.EOF Then
        GoTo errh
    End If
    
    value.smsrid = rs("smsrid")
    value.cname = rs("cname")
    value.cid = rs("cid")
    value.sms = rs("sms")
    value.mobile = rs("mobile")
    value.rtime = CDate(rs("rtime"))
    value.readed = rs("readed")
    
    rs.Close
    releObject rs
    Set getrec = value
    Exit Function
errh:
    Set value = Nothing
    Set getrec = Nothing

End Function


        'SELECT mid, text
        'From dbo.m_recvedsmss
Public Function addrec(mobile As String, sms As String, rtime As Date) As Boolean
    Dim cnnx As New ADODB.Connection
    Dim strSql As String
    On Error GoTo errhand
    
    cnnx.ConnectionString = cnnstr
    cnnx.Open
    

    
    strSql = "INSERT INTO recvedsms (mobile, sms, rtime, readed) values ('" & mobile & "'" _
    & ",'" & sms & "'" _
    & ",'" & DATETODB(rtime) & "'" _
    & "," & 0 & "" _
    & ")"
    

    cnnx.Execute strSql
    cnnx.Close
    releObject cnnx
    addrec = True
    Exit Function
errhand:
    If cnnx.State = adStateOpen Then
        cnnx.Close
    End If
    releObject cnnx
    addrec = False
End Function



Public Function updaterec(srid As Integer) As Boolean
    Dim cnnx As New ADODB.Connection
    Dim strSql As String
    On Error GoTo errhand
    
    cnnx.ConnectionString = cnnString
    cnnx.Open
    
    strSql = "update recvedsms set readed=1 where smsrid=" & srid
    

    cnnx.Execute strSql
    cnnx.Close
    releObject cnnx
    updaterec = True
    

    Exit Function
errhand:
    If cnnx.State = adStateOpen Then
        cnnx.Close
    End If
    releObject cnnx
    updaterec = False
End Function


Public Function deleterec(id As Integer) As Boolean
    On Error GoTo errh
    Dim cnnx As New ADODB.Connection
    Dim strSql As String
    

    cnnx.ConnectionString = cnnString
    cnnx.Open
    strSql = "delete from recvedsms where smsrid=" & id

    cnnx.Execute strSql
    cnnx.Close
    releObject cnnx


    deleterec = True

    Exit Function
errh:
    If cnnx.State = adStateOpen Then
        cnnx.Close
    End If
    releObject cnnx
    
    deleterec = False
    
End Function