modoperate.bas

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

Attribute VB_Name = "Modoperate"
Public Sub operatelist()
    If Not User.CanDo(3) Then Exit Sub
    'If Not User.ApplyTask(ACMAKERS, SysParas.BusDate + Time) Then Exit Sub
    'VEditUsers
    Dim frmx As New frmdatagrid
    With frmx
        .ListNo = "operateview"
        .Show
    End With
End Sub

Public Sub openrs(rs As Recordset, sps As spListHeaders)
    If sps("userid").condValue1 = "0" Or sps("userid").condValue1 = "" Then
        rs.Open "SELECT * FROM vwoperate " _
            & "where optime between '" & sps("optime").condValue1 & "' and '" & sps("optime").CondValue2 & "'" _
            & " order by optime "
    
    Else
        rs.Open "SELECT * FROM vwoperate  " _
            & "where optime between '" & sps("optime").condValue1 & "' and '" & sps("optime").CondValue2 & "' and userid=" & sps("userid").condValue1 & " " _
            & "order by optime "
    End If
End Sub