c_customer.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_customer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public cnnstr As String

'SELECT cid, birth, cname, sex, mobile, phone, memo From customer

Public Sub openrs(rs As Recordset)
    With rs
    
        .ActiveConnection = Me.cnnstr
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "SELECT cid, birth, cname, sex, mobile, phone, memo From customer"
        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_customer
    On Error GoTo errh
    Dim value As New m_customer

    Dim rs As New Recordset
    With rs
    
        .ActiveConnection = Me.cnnstr
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "SELECT cid, birth, cname, sex, mobile, phone, memo From customer where cid=" & id
        Set .ActiveConnection = Nothing
    End With
    If rs.BOF And rs.EOF Then
        GoTo errh
    End If
    
    value.cid = rs("cid")
    value.cname = rs("cname")
    value.birth = rs("birth")
    value.memo = rs("memo")
    value.mobile = rs("mobile")
    value.phone = rs("phone")
    value.sex = rs("sex")
    
    rs.Close
    releObject rs
    Set getrec = value
    Exit Function
errh:
    Set value = Nothing
    Set getrec = Nothing

End Function


        'SELECT mid, text
        'From dbo.m_customers
Public Function addrec(birth As String, cname As String, sex As String, mobile As String, phone As String, memo As String) As Boolean
    Dim cnnx As New ADODB.Connection
    Dim strSql As String
    On Error GoTo errhand
    
    cnnx.ConnectionString = cnnstr
    cnnx.Open
    

    
    strSql = "INSERT INTO customer (birth, cname, sex, mobile, phone, memo) values ('" & birth & "'" _
    & ",'" & cname & "'" _
    & ",'" & sex & "'" _
    & ",'" & mobile & "'" _
    & ",'" & phone & "'" _
    & ",'" & memo _
    & "')"
    

    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(cid As Integer, birth As String, cname As String, sex As String, mobile As String, phone As String, memo As String) As Boolean
    Dim cnnx As New ADODB.Connection
    Dim strSql As String
    On Error GoTo errhand
    
    cnnx.ConnectionString = cnnString
    cnnx.Open
    
    strSql = "update customer set birth='" & birth & "'" _
    & ",cname='" & cname & "'" _
    & ",sex='" & sex & "'" _
    & ",mobile='" & mobile & "'" _
    & ",phone='" & phone & "'" _
    & ",memo='" & memo & "" _
    & "' where cid=" & cid
    

    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 customer where cid=" & 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