report.frm

School Library system to manage students borrowing and returning books

            Begin VB.ListBox lstboo 
               Height          =   2985
               Left            =   360
               TabIndex        =   57
               Top             =   480
               Width           =   1935
            End
            Begin VB.Label lbltamm 
               Height          =   2055
               Left            =   2400
               TabIndex        =   59
               Top             =   1080
               Width           =   2055
            End
         End
         Begin VB.OptionButton optyearear 
            Caption         =   "This Year"
            Height          =   495
            Left            =   3120
            TabIndex        =   34
            Top             =   360
            Width           =   1095
         End
         Begin VB.OptionButton optmonth 
            Caption         =   "This Month"
            Height          =   495
            Index           =   1
            Left            =   1920
            TabIndex        =   33
            Top             =   360
            Width           =   975
         End
         Begin VB.OptionButton opttoday2 
            Caption         =   "Today"
            Height          =   495
            Left            =   600
            TabIndex        =   32
            Top             =   360
            Width           =   1095
         End
         Begin VB.Frame frmthisyear1 
            Caption         =   "For This year"
            Height          =   3375
            Left            =   600
            TabIndex        =   37
            Top             =   1080
            Width           =   6375
         End
         Begin VB.Frame frmthismonth 
            Caption         =   "For This Month"
            Height          =   3375
            Left            =   600
            TabIndex        =   36
            Top             =   1080
            Width           =   6375
         End
      End
      Begin VB.Frame report3 
         Caption         =   "Total Fines Charged"
         Height          =   4815
         Index           =   0
         Left            =   120
         TabIndex        =   24
         Top             =   840
         Width           =   7215
         Begin VB.Frame frmtod 
            Caption         =   "Today"
            Height          =   3495
            Left            =   840
            TabIndex        =   28
            Top             =   960
            Width           =   5055
         End
         Begin VB.OptionButton optyear1 
            Caption         =   "This Year"
            Height          =   495
            Left            =   3360
            TabIndex        =   27
            Top             =   360
            Width           =   1095
         End
         Begin VB.OptionButton optmonth1 
            Caption         =   "This Month"
            Height          =   495
            Left            =   1800
            TabIndex        =   26
            Top             =   360
            Width           =   1335
         End
         Begin VB.OptionButton opttoday1 
            Caption         =   "Today"
            Height          =   495
            Left            =   480
            TabIndex        =   25
            Top             =   360
            Width           =   1095
         End
         Begin VB.Frame frmmont 
            Caption         =   "This Month"
            Height          =   3495
            Left            =   840
            TabIndex        =   30
            Top             =   960
            Width           =   5055
         End
         Begin VB.Frame frmyer 
            Caption         =   "This Year"
            Height          =   3495
            Left            =   840
            TabIndex        =   29
            Top             =   960
            Width           =   5055
         End
      End
      Begin VB.Frame report3 
         Caption         =   "Amount Due"
         Height          =   4815
         Index           =   2
         Left            =   120
         TabIndex        =   38
         Top             =   840
         Width           =   7215
      End
   End
   Begin VB.Frame fraUserReport 
      Caption         =   "Users Report"
      Height          =   7095
      Left            =   240
      TabIndex        =   13
      Top             =   840
      Width           =   8535
      Begin VB.Frame report 
         Caption         =   "Not active"
         Height          =   4695
         Index           =   0
         Left            =   120
         TabIndex        =   16
         Top             =   720
         Visible         =   0   'False
         Width           =   6615
         Begin VB.Data datnot 
            Caption         =   "not active"
            Connect         =   "Access"
            DatabaseName    =   "C:\LIBRARY\Library.mdb"
            DefaultCursorType=   0  'DefaultCursor
            DefaultType     =   2  'UseODBC
            Exclusive       =   0   'False
            Height          =   375
            Left            =   4200
            Options         =   0
            ReadOnly        =   0   'False
            RecordsetType   =   1  'Dynaset
            RecordSource    =   "NotactiveStudentsQuery"
            Top             =   3720
            Visible         =   0   'False
            Width           =   1140
         End
         Begin VB.ListBox lstnot 
            Height          =   3960
            Left            =   240
            TabIndex        =   44
            Top             =   360
            Width           =   3615
         End
         Begin VB.Label lblnot 
            Height          =   1575
            Left            =   4200
            TabIndex        =   45
            Top             =   480
            Width           =   975
         End
      End
      Begin VB.Frame report 
         Caption         =   "Active"
         Height          =   4695
         Index           =   1
         Left            =   120
         TabIndex        =   15
         Top             =   720
         Width           =   6615
         Begin VB.Data datactive 
            Caption         =   "active"
            Connect         =   "Access"
            DatabaseName    =   "C:\LIBRARY\Library.mdb"
            DefaultCursorType=   0  'DefaultCursor
            DefaultType     =   2  'UseODBC
            Exclusive       =   0   'False
            Height          =   345
            Left            =   600
            Options         =   0
            ReadOnly        =   0   'False
            RecordsetType   =   1  'Dynaset
            RecordSource    =   "activestudentsQuery"
            Top             =   4320
            Visible         =   0   'False
            Width           =   3375
         End
         Begin VB.ListBox lststat 
            Height          =   3765
            Left            =   600
            TabIndex        =   42
            Top             =   480
            Width           =   3375
         End
         Begin VB.Label lblstat 
            Height          =   1935
            Left            =   4560
            TabIndex        =   43
            Top             =   480
            Width           =   1695
         End
      End
      Begin VB.OptionButton optactive 
         Caption         =   "Active"
         Height          =   375
         Left            =   120
         TabIndex        =   19
         Top             =   240
         Width           =   1695
      End
      Begin VB.OptionButton optnotactive 
         Caption         =   "Not Active"
         Height          =   375
         Left            =   2520
         TabIndex        =   18
         Top             =   240
         Width           =   1695
      End
      Begin VB.OptionButton optwithbooks 
         Caption         =   "With Books"
         Height          =   375
         Left            =   4440
         TabIndex        =   17
         Top             =   240
         Width           =   1815
      End
      Begin VB.Frame report 
         Caption         =   "With Books"
         Height          =   4695
         Index           =   2
         Left            =   120
         TabIndex        =   14
         Top             =   720
         Visible         =   0   'False
         Width           =   6615
         Begin VB.Data datwith 
            Caption         =   "With books"
            Connect         =   "Access"
            DatabaseName    =   "C:\LIBRARY\Library.mdb"
            DefaultCursorType=   0  'DefaultCursor
            DefaultType     =   2  'UseODBC
            Exclusive       =   0   'False
            Height          =   375
            Left            =   3960
            Options         =   0
            ReadOnly        =   0   'False
            RecordsetType   =   1  'Dynaset
            RecordSource    =   "withbooksquery"
            Top             =   2880
            Visible         =   0   'False
            Width           =   1140
         End
         Begin VB.ListBox lstwith 
            Height          =   3570
            Left            =   240
            TabIndex        =   46
            Top             =   360
            Width           =   3495
         End
         Begin VB.Label lblwith 
            Caption         =   "Label1"
            Height          =   975
            Left            =   3960
            TabIndex        =   47
            Top             =   360
            Width           =   1215
         End
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Report."
      Height          =   8055
      Left            =   120
      TabIndex        =   39
      Top             =   0
      Width           =   8895
      Begin VB.OptionButton optamount 
         Caption         =   "Amount Report"
         Height          =   375
         Left            =   3720
         TabIndex        =   60
         Top             =   240
         Visible         =   0   'False
         Width           =   1575
      End
      Begin VB.CommandButton cmdExit 
         Caption         =   "&Exit"
         Height          =   375
         Left            =   5400
         TabIndex        =   48
         Top             =   240
         Width           =   1095
      End
      Begin VB.OptionButton optbook 
         Caption         =   "Book Report"
         Height          =   375
         Left            =   600
         TabIndex        =   41
         Top             =   240
         Width           =   1455
      End
      Begin VB.OptionButton optuser 
         Caption         =   "User Report"
         Height          =   375
         Left            =   2280
         TabIndex        =   40
         Top             =   240
         Width           =   1335
      End
   End
End
Attribute VB_Name = "frmReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdexit_Click()