frmconduser.frm

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

VERSION 5.00
Begin VB.Form frmconduser 
   Caption         =   "Form1"
   ClientHeight    =   2595
   ClientLeft      =   3270
   ClientTop       =   2625
   ClientWidth     =   4575
   LinkTopic       =   "Form1"
   ScaleHeight     =   2595
   ScaleWidth      =   4575
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Height          =   1815
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   4215
      Begin VB.CommandButton cmdref 
         Caption         =   "..."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3480
         TabIndex        =   8
         Top             =   360
         Width           =   375
      End
      Begin VB.TextBox txtuserid 
         DataField       =   "AccID"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   1440
         TabIndex        =   7
         Top             =   420
         Width           =   1935
      End
      Begin VB.TextBox txtedate 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1440
         TabIndex        =   4
         Top             =   1200
         Width           =   1935
      End
      Begin VB.TextBox txtsdate 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   1440
         TabIndex        =   3
         Top             =   840
         Width           =   1935
      End
      Begin VB.Label lblFieldLabel 
         AutoSize        =   -1  'True
         Caption         =   "操作员号："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Index           =   1
         Left            =   240
         TabIndex        =   9
         Top             =   480
         Width           =   1125
      End
      Begin VB.Label Label2 
         Caption         =   "截止日期："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   6
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Label Label1 
         Caption         =   "开始日期："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   840
         Width           =   1335
      End
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确认"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   2160
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3240
      TabIndex        =   0
      Top             =   2160
      Width           =   1215
   End
End
Attribute VB_Name = "frmconduser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public cond1 As condtion
Public ok As Boolean
Dim rsuserref As New Recordset
Sub EndRef()
    rsuserref.Close
    releObject rsuserref
End Sub
Sub InitRef()
    Set rsuserref = Modref.Userrs
End Sub



Private Sub Cmdcancel_Click()
    ok = False
    Unload Me
End Sub

Private Sub CmdOk_Click()
    On Error GoTo errh
    ok = True
    fillcond
    Unload Me
    Exit Sub
errh:
    MsgBox "日期输入不正确！请检查", vbInformation, "系统提示"
End Sub




Private Sub Form_Load()
    ok = False
    InitRef
    Me.caption = "筛选条件"
    filltext
End Sub
Sub filltext()
    Me.txtsdate = Format(cond1.sDate, Dateformat)
    Me.txtedate = Format(cond1.eDate, Dateformat)
End Sub
Sub fillcond()
    cond1.sDate = Me.txtsdate
    cond1.eDate = Me.txtedate
    cond1.userid = IIf(Me.txtuserid = "", 0, Me.txtuserid)

End Sub

Private Sub cmdref_Click()
    On Error Resume Next
    Dim sps As spListHeaders
    Set sps = Modref.userRef(rsuserref)
    Me.txtuserid = 0
    Me.txtuserid = CInt(sps(sps.SUBIndex("userid")).Other1)
    'Me.txtcustomername = sps(sps.SUBIndex("companyname")).Other1
    releObject sps

End Sub

Private Sub Form_Unload(Cancel As Integer)
    EndRef
End Sub