【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“reports.frm”一文，供大家参考学习!

    VERSION 5.00
    Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
    Begin VB.Form reports 
       Appearance      =   0  'Flat
       BackColor       =   &H00FFFFFF&
       BorderStyle     =   1  'Fixed Single
       Caption         =   "BMS - View Reports"
       ClientHeight    =   5640
       ClientLeft      =   1485
       ClientTop       =   2100
       ClientWidth     =   8820
       FillColor       =   &H00764E10&
       BeginProperty Font 
          Name            =   "Monotype Corsiva"
          Size            =   9.75
          Charset         =   0
          Weight          =   700
          Underline       =   0   'False
          Italic          =   -1  'True
          Strikethrough   =   0   'False
       EndProperty
       ForeColor       =   &H00764E10&
       Icon            =   "reports.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       ScaleHeight     =   5640
       ScaleWidth      =   8820
       Begin VB.CommandButton Command5 
          Caption         =   "Command5"
          Height          =   180
          Left            =   -1170
          TabIndex        =   0
          Top             =   1950
          Width           =   645
       End
       Begin VB.Frame frame1 
          Appearance      =   0  'Flat
          BackColor       =   &H80000005&
          ForeColor       =   &H80000008&
          Height          =   2025
          Left            =   120
          TabIndex        =   12
          Top             =   3180
          Visible         =   0   'False
          Width           =   8550
          Begin VB.OptionButton Option2 
             BackColor       =   &H00E0E0E0&
             Caption         =   "有余额的会员"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   9.75
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00764E10&
             Height          =   405
             Left            =   4523
             Style           =   1  'Graphical
             TabIndex        =   17
             Top             =   840
             Width           =   3045
          End
          Begin VB.OptionButton Option1 
             BackColor       =   &H00E0E0E0&
             Caption         =   "所有会员"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   9.75
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00764E10&
             Height          =   405
             Left            =   1860
             Style           =   1  'Graphical
             TabIndex        =   16
             Top             =   840
             Value           =   -1  'True
             Width           =   2445
          End
          Begin VB.CommandButton Command3 
             BackColor       =   &H00E2D1D3&
             Caption         =   "显示报表"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   9.75
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   420
             Left            =   3488
             MaskColor       =   &H00987758&
             Style           =   1  'Graphical
             TabIndex        =   7
             Top             =   1440
             UseMaskColor    =   -1  'True
             Width           =   1845
          End
          Begin MSComCtl2.DTPicker dtfrom 
             Height          =   360
             Left            =   165
             TabIndex        =   5
             Top             =   870
             Width           =   4170
             _ExtentX        =   7355
             _ExtentY        =   635
             _Version        =   393216
             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                Name            =   "Arial"
                Size            =   9.75
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             CalendarForeColor=   7753232
             CalendarTitleForeColor=   7753232
             Format          =   20119552
             CurrentDate     =   37654
          End
          Begin MSComCtl2.DTPicker dtto 
             Height          =   360
             Left            =   4515
             TabIndex        =   6
             Top             =   870
             Width           =   3960
             _ExtentX        =   6985
             _ExtentY        =   635
             _Version        =   393216
             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                Name            =   "Arial"
                Size            =   9.75
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             CalendarForeColor=   7753232
             CalendarTitleForeColor=   7753232
             Format          =   20119552
             CurrentDate     =   37654
          End
          Begin VB.Label lblmain 
             Alignment       =   2  'Center
             BackStyle       =   0  'Transparent
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   11.25
                Charset         =   0
                Weight          =   700
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00764E10&
             Height          =   315
             Left            =   120
             TabIndex        =   15
             Top             =   210
             Width           =   8325
          End
          Begin VB.Label Label4 
             BackStyle       =   0  'Transparent
             Caption         =   "结束日期:"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   9.75
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00987758&
             Height          =   285
             Left            =   4500
             TabIndex        =   14
             Top             =   600
             Width           =   1065
          End
          Begin VB.Label Label16 
             BackStyle       =   0  'Transparent
             Caption         =   "开始日期:"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   9.75
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00987758&
             Height          =   285
             Left            =   180
             TabIndex        =   13
             Top             =   600
             Width           =   1065
          End
       End
       Begin VB.CommandButton Command2 
          BackColor       =   &H00E2D1D3&
          Caption         =   ":: 会员统计 ::"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9.75
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   420
          Left            =   2378
          MaskColor       =   &H00987758&
          Style           =   1  'Graphical
          TabIndex        =   4
          Top             =   2625
          UseMaskColor    =   -1  'True
          Width           =   4065
       End
       Begin VB.CommandButton Command1 
          BackColor       =   &H00E2D1D3&
          Caption         =   ":: 销售盈亏统计::"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9.75
             Cha