vc_parameter.cls

来自「短信平台管理系统是一个短信收发的平台,用户可以找一些代理的短信平台(IP),在系」· CLS 代码 · 共 120 行

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

Public Ins_c_parameter As c_parameter





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



Private Sub vc_in_listall()

    

End Sub
Private Function vc_in_createrec() As Boolean

   

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


    On Error GoTo errh
    Dim value As m_parameter
    Dim frmx As New FrmParameter
    
    Set value = Me.Ins_c_parameter.getrec()
    If value Is Nothing Then
        MsgBox "不能修改参数, 记录不存在！", vbInformation, "修改"
        GoTo errh
    End If
    Set frmx.value = value
    
inputstart:
        frmx.Show 1
        If frmx.ok = False Then
            Set value = Nothing
            vc_in_modifyrec = False
            Unload frmx
            Exit Function
        End If
    'check error
        If (checkvalid(value) = False) Then GoTo inputstart
        If (Me.Ins_c_parameter.updaterec(value.ip, value.port)) = False Then
            MsgBox "修改参数不成功。 ", vbInformation, "不成功"
            GoTo inputstart
        End If
    'save sql
    
    MsgBox "成功地修改了参数。 ", vbInformation, "保存成功"
    
    Set value = Nothing
    Unload frmx
    vc_in_modifyrec = True
    
    Exit Function
errh:
    vc_in_modifyrec = False
    Unload frmx
    Set value = Nothing
End Function

Private Function checkvalid(value As m_parameter) As Boolean
    On Error GoTo errh
    checkvalid = True
    
    If (value.port > 65535 Or value.port < 0) Then
        checkvalid = False
        MsgBox "输入的参数错误，请检查！  ", vbCritical, "输入错误"
        
    End If
    Exit Function
errh:
    MsgBox "参数信息输入错误，请检查！  ", vbCritical, "输入错误"
    checkvalid = False
End Function

Private Function vc_in_deleterec(tid As Integer) As Boolean


    
End Function

Private Sub vc_in_openrs(rs As Recordset)
  
End Sub

Private Function vc_in_Ref() As spListHeaders

End Function

Private Sub vc_in_search(sps As spListHeaders, rs As Recordset)

End Sub