?? frmstatset.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -