femcondoneled.frm

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

VERSION 5.00
Begin VB.Form femcondoneled 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   1770
   ClientLeft      =   4485
   ClientTop       =   5070
   ClientWidth     =   4935
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1770
   ScaleWidth      =   4935
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   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            =   3360
      TabIndex        =   9
      Top             =   1200
      Width           =   1215
   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            =   2040
      TabIndex        =   8
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   975
      Left            =   360
      TabIndex        =   0
      Top             =   0
      Width           =   4095
      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        =   4
         Top             =   1080
         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        =   3
         Top             =   1200
         Width           =   1935
      End
      Begin VB.TextBox txtledid 
         DataField       =   "AccID"
         Enabled         =   0   'False
         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        =   2
         Top             =   420
         Width           =   1935
      End
      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        =   1
         Top             =   360
         Width           =   375
      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        =   7
         Top             =   1080
         Width           =   1335
      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 lblFieldLabel 
         AutoSize        =   -1  'True
         Caption         =   "LED屏幕号："
         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        =   5
         Top             =   480
         Width           =   1620
      End
   End
End
Attribute VB_Name = "femcondoneled"
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 rsledRef As New Recordset
Sub EndRef()
    On Error Resume Next
    rsledRef.Close
    releObject rsledRef
End Sub
Sub InitRef()
    Set rsledRef = Modref.ledrs
End Sub



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

Private Sub CmdOk_Click()
    On Error GoTo errh
    ok = True
    fillcond
    If cond1.ledid = "" Then GoTo errh
    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.ledid = Me.txtledid

End Sub

Private Sub cmdref_Click()

    Dim sps As spListHeaders
    Set sps = Modref.ledRef(rsledRef)
    Me.txtledid = sps(sps.SUBIndex("ledid")).Other1
    'Me.txtcustomername = sps(sps.SUBIndex("companyname")).Other1
    releObject sps

End Sub

Private Sub Form_Unload(Cancel As Integer)
    EndRef
End Sub