modoperate.bas

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

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