frmstatset.frm

由VB编写的一个实用短信计费系统。主要模块包括（1）计费管理子系统：用户入费；错单处理；用户费率管理；费率管理；用户分析（2）系统维护子系统：管理员登录、管理员管理、数据库设置等（3）计费引擎子系统

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmStatSet 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "用户分析设置"
   ClientHeight    =   2865
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3645
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmStatSet.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2865
   ScaleWidth      =   3645
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdCancel 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1995
      TabIndex        =   4
      Top             =   2250
      Width           =   1050
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "分析"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   600
      TabIndex        =   3
      Top             =   2250
      Width           =   1050
   End
   Begin VB.ComboBox cboType 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      ItemData        =   "frmStatSet.frx":000C
      Left            =   1440
      List            =   "frmStatSet.frx":0019
      TabIndex        =   2
      Top             =   1620
      Width           =   1635
   End
   Begin MSComCtl2.DTPicker dtpEnd 
      Height          =   330
      Left            =   1440
      TabIndex        =   1
      Top             =   960
      Width           =   1635
      _ExtentX        =   2884
      _ExtentY        =   582
      _Version        =   393216
      Format          =   23724033
      CurrentDate     =   37794
   End
   Begin MSComCtl2.DTPicker dtpStart 
      Height          =   330
      Left            =   1440
      TabIndex        =   0
      Top             =   315
      Width           =   1635
      _ExtentX        =   2884
      _ExtentY        =   582
      _Version        =   393216
      Format          =   23724033
      CurrentDate     =   37794
   End
   Begin VB.Label Label3 
      Caption         =   "用户类型："
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   540
      TabIndex        =   7
      Top             =   1665
      Width           =   915
   End
   Begin VB.Label Label2 
      Caption         =   "结束日期："
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   540
      TabIndex        =   6
      Top             =   1035
      Width           =   915
   End
   Begin VB.Label Label1 
      Caption         =   "开始日期："
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   540
      TabIndex        =   5
      Top             =   405
      Width           =   915
   End
End
Attribute VB_Name = "frmStatSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :用户分析设置
'*    功 能 描 述 :
'*    程序员姓名  :谭怀志
'*    最后修改人  :谭怀志
'*    最后修改时间:2003/6/26
'*    备        注:
'*******************************************************

Private Sub cmdCancel_Click()

    Unload Me

End Sub

Private Sub cmdOK_Click()

    On Error Resume Next
    
    If dtpStart.Value > dtpEnd.Value Then
        MsgBox "用户分析的日期设置无效！", vbCritical, ERRCAPTION
        dtpStart.SetFocus
        Exit Sub
    End If
    
    With frmStat
        
        '设置统计分析的日期区间
        .StartDate = dtpStart.Value
        .EndDate = dtpEnd.Value
        
        '设置统计分析的计费方式
        If cboType.ListIndex <> -1 Then
        
            '包月或单条
            .SType = cboType.ListIndex
        Else
        
            '所有用户
            .SType = 0
        End If
        
        '调用统计表单
        .Show vbModal
        
    End With
    
End Sub

Private Sub Form_Load()

    On Error Resume Next
    
    '开始日期的缺省值为当前月的第一天
    dtpStart.Value = DateSerial(Year(Now()), Month(Now()), 1)
    intEndDay = Day(DateSerial(Year(Now()), Month(Now()) + 1, 1) - 1)
    
    '开始日期的缺省值为当前月的最后一天
    dtpEnd.Value = DateSerial(Year(Now), Month(Now()), intEndDay)
    cboType.ListIndex = 0
    
End Sub