vc_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 = "vc_recvedsms"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Implements vc_in

Public Ins_c_recvedsms As c_recvedsms





Private Function vc_in_getidstring() As String
     vc_in_getidstring = "smsrid"
End Function



Private Sub vc_in_listall()

    
    Dim frmx As New frmdatagrid
    
    With frmx
        Set .ins_vc_in = Me
        .ListNo = "v_recvedsms"
        .Show
    End With
End Sub
Private Function vc_in_createrec() As Boolean

 
    vc_in_createrec = True   'item

End Function
Private Function vc_in_modifyrec(t As Integer) As Boolean
    vc_in_modifyrec = True
End Function



Private Function vc_in_deleterec(tid As Integer) As Boolean

    
    If Me.Ins_c_recvedsms.deleterec(tid) Then
  
        MsgBox "成功删除短信", vbInformation, "删除成功"

        vc_in_deleterec = True
 
    Else
        MsgBox "不能删除短信", vbInformation, "不能删除"
    
        vc_in_deleterec = False
    End If
    
End Function

Private Sub vc_in_openrs(rs As Recordset)
    Me.Ins_c_recvedsms.openrs rs
End Sub

Private Function vc_in_Ref() As spListHeaders

    Set vc_in_Ref = Nothing
End Function

Private Sub vc_in_search(sps As spListHeaders, rs As Recordset)
    'me.Ins_c_recvedsms
End Sub