constmaintain.bas

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

Attribute VB_Name = "constmaintain"

Public Const color = "COLOR"
Public Const fontname = "FONTNAME"
Public Const uploadfrom = "uploadfrom"
Public Const TOALL = "toall"

Public Const dictionary = "dictionary"

Public Const DISPSTYLE = "DISPSTYLE"
Public Const LINETYPE = "LINETYPE"


Public Function getcvalues(ID As String) As constvalues

On Error GoTo errh
    'Dim value As New modedef
    Dim rs As New Recordset
    Dim cvs As New constvalues
    'cnnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=led;Data Source=" & strserver ';Locale Identifier=2052;Connect Timeout=15;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096"

    With rs
    
        .ActiveConnection = cnnString
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "select * from CONSTS where no='" & ID & "'"
        '.ActiveConnection.Close
        Set .ActiveConnection = Nothing
    End With
    If rs.BOF And rs.EOF Then
        
        Set cvs = Nothing
       
    Else
        rs.MoveFirst
        While Not rs.EOF
            
            'value.report = NullToString(rs("report")) 电话
            cvs.Add rs("dispvalue"), NullToString(rs("value")), rs("dispvalue")
             
            rs.MoveNext
        Wend
        
        Set getcvalues = cvs
    End If
    
    
    rs.Close
    releObject rs
    Exit Function
errh:

    Set cvs = Nothing
    rs.Close
    releObject rs

End Function