modref.bas

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

Attribute VB_Name = "Modref"
'''''led reference
Public Function ledrs() As Recordset
    Dim strSql As String
    Dim rsref As New Recordset
    On Error Resume Next

    strSql = "vwledcontrols"
    With rsref
    
        .ActiveConnection = cnnString
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open strSql
        Set .ActiveConnection = Nothing
    End With
    Set ledrs = rsref
End Function

    
Public Function ledRef(rsref As Recordset) As spListHeaders
    Dim frmx As New frmref
    Dim sps As New spListHeaders
    Dim i As Integer
    With sps
        .isTwoS = False
        .other = ""
        .vName = "LED屏幕参照"
        .ViewNo = "LEDREF"
        .ReadOnly = False
        .Add "LED屏幕号", "ledid", 2500, "@", , , , , , , , , 1, , 1, , , True
        .Add "屏幕名称", "name", 2500, "@", , , , , , , , , 2, , 1, , , True
        .Add "地址", "location", 2500, "@", , , , , , , , , 3, , 1, , , True
        .Add "是否正在使用", "isactive", 2500, Booleanformat, , , , , , , , , 4, , 1, , , True, "√"
        .Add "匹配的模式号", "modeid", 2500, "@", , , , , , , , , 5, , 1, , , True
        .Add "匹配的模式", "modememo", 2500, "@", , , , , , , , , 6, , 1, , , True
        
        
        For i = 1 To .Count
            sps(i).Other1 = ""
        Next
        
    End With
    With frmx

         
        Set .sps = sps
        Set .rsref = rsref
    
        .Show 1
        

        
    End With
    
    Unload frmx
    Set ledRef = sps

End Function
'''''''''' end led reference

'''''user reference
Public Function Userrs() As Recordset
    Dim strSql As String
    Dim rsref As New Recordset
    On Error Resume Next

    strSql = "users"
    With rsref
    
        .ActiveConnection = cnnString
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open strSql
        Set .ActiveConnection = Nothing
    End With
    Set Userrs = rsref
End Function

    
Public Function userRef(rsref As Recordset) As spListHeaders
    Dim frmx As New frmref
    Dim sps As New spListHeaders
    Dim i As Integer
    With sps
        .isTwoS = False
        .other = ""
        .vName = "操作员参照"
        .ViewNo = "USERREF"
        .ReadOnly = False
        .Add "操作员编号", "userid", 500, "@", , , , , , , , , 1, , 1, , , True
        .Add "操作员名称", "username", 2000, "@", , , , , , , , , 2, , 1, , , True
        
        
        For i = 1 To .Count
            sps(i).Other1 = ""
        Next
        
    End With
    With frmx

         
        Set .sps = sps
        Set .rsref = rsref
    
        .Show 1
        

        
    End With
    
    Unload frmx
    Set userRef = sps

End Function
'''''''''' end USER reference


'''''MODE reference
Public Function Moders() As Recordset
    Dim strSql As String
    Dim rsref As New Recordset
    On Error Resume Next

    strSql = "mode"
    With rsref
    
        .ActiveConnection = cnnString
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open strSql
        Set .ActiveConnection = Nothing
    End With
    Set Moders = rsref
End Function
Public Function modeRef(rsref As Recordset) As spListHeaders
    Dim frmx As New frmref
    Dim sps As New spListHeaders
    Dim i As Integer
    With sps
        .isTwoS = False
        .other = ""
        .vName = "显示模式参照"
        .ViewNo = "MODEREF"
        .ReadOnly = False
        .Add "模式编号", "modeid", 500, "", , , , , , , , , 1, , 1, , , True
        .Add "模式名称", "modememo", 2000, "@", , , , , , , , , 2, , 1, , , True
        .Add "总步数", "totalsteps", 500, "", , , , , , , , , 1, , 1, , , True
        
        
        For i = 1 To .Count
            sps(i).Other1 = ""
        Next
        
    End With
    With frmx

         
        Set .sps = sps
        Set .rsref = rsref
    
        .Show 1
        

        
    End With
    
    Unload frmx
    Set modeRef = sps

End Function
'''''''''' end MODE reference