frmreport.frm

ado+ACCE

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmReport 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Report"
   ClientHeight    =   6900
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11715
   Icon            =   "frmReport.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6900
   ScaleWidth      =   11715
   Visible         =   0   'False
   Begin VB.Frame frameListofItemsToBeReturnedToday 
      Height          =   6375
      Left            =   125
      TabIndex        =   37
      Top             =   360
      Visible         =   0   'False
      Width           =   11385
      Begin VB.CommandButton cmdRefresh 
         Caption         =   "&Refresh"
         Height          =   495
         Left            =   8370
         TabIndex        =   40
         Top             =   5520
         Width           =   1335
      End
      Begin VB.CommandButton cmdFlexToExcel 
         Caption         =   "&Flex To Excel"
         Height          =   495
         Left            =   9720
         TabIndex        =   39
         Top             =   5520
         Width           =   1335
      End
      Begin MSFlexGridLib.MSFlexGrid FlexListOfItemsToBEReturnedToday 
         Height          =   5055
         Left            =   240
         TabIndex        =   38
         Top             =   360
         Width           =   10935
         _ExtentX        =   19288
         _ExtentY        =   8916
         _Version        =   393216
         Cols            =   7
      End
   End
   Begin VB.Frame frmMovieStatistics 
      Height          =   6375
      Left            =   120
      TabIndex        =   11
      Top             =   360
      Visible         =   0   'False
      Width           =   11385
      Begin VB.Frame frmControlHolder 
         Height          =   5895
         Left            =   5520
         TabIndex        =   25
         Top             =   240
         Width           =   5625
         Begin VB.CommandButton cmdPrint 
            Caption         =   "&Print"
            Height          =   1015
            Left            =   3120
            TabIndex        =   30
            Top             =   4650
            Width           =   2295
         End
         Begin VB.Frame frmOptions 
            Caption         =   "Options "
            Height          =   3015
            Left            =   240
            TabIndex        =   29
            Top             =   2520
            Width           =   2775
            Begin VB.ComboBox cboActor 
               Enabled         =   0   'False
               Height          =   315
               Left            =   300
               Sorted          =   -1  'True
               Style           =   2  'Dropdown List
               TabIndex        =   22
               Top             =   2400
               Width           =   2280
            End
            Begin VB.CheckBox chkActor 
               Caption         =   "Filter by Actor"
               Height          =   255
               Left            =   300
               TabIndex        =   21
               Top             =   2160
               Width           =   1935
            End
            Begin VB.ComboBox cboItemCode 
               Enabled         =   0   'False
               Height          =   315
               Left            =   300
               Sorted          =   -1  'True
               Style           =   2  'Dropdown List
               TabIndex        =   20
               Top             =   1540
               Width           =   2280
            End
            Begin VB.CheckBox chkItemCode 
               Caption         =   "Filter by Item Code"
               Height          =   255
               Left            =   300
               TabIndex        =   19
               Top             =   1290
               Width           =   1935
            End
            Begin VB.ComboBox cboGenre 
               Enabled         =   0   'False
               Height          =   315
               Left            =   300
               Sorted          =   -1  'True
               Style           =   2  'Dropdown List
               TabIndex        =   18
               Top             =   690
               Width           =   2280
            End
            Begin VB.CheckBox chkGenre 
               Caption         =   "Filter by Genre"
               Height          =   255
               Left            =   300
               TabIndex        =   17
               Top             =   435
               Width           =   1335
            End
         End
         Begin VB.OptionButton optDescending 
            Caption         =   "Descending"
            Height          =   255
            Left            =   3360
            TabIndex        =   16
            Top             =   2040
            Value           =   -1  'True
            Width           =   1215
         End
         Begin VB.OptionButton OptAscending 
            Caption         =   "Ascending"
            Height          =   255
            Left            =   960
            TabIndex        =   15
            Top             =   2040
            Width           =   1095
         End
         Begin VB.CommandButton cmdTransferToExcel 
            Caption         =   "&Copy Flex Contents to Excel"
            Height          =   1015
            Left            =   3120
            TabIndex        =   24
            Top             =   3650
            Width           =   2295
         End
         Begin VB.CommandButton cmdGenerateStat 
            Caption         =   "&Generate Statistics"
            Height          =   1015
            Left            =   3120
            TabIndex        =   23
            Top             =   2640
            Width           =   2295
         End
         Begin VB.Frame frmPeriod 
            Caption         =   " Period "
            Height          =   1455
            Left            =   240
            TabIndex        =   26
            Top             =   360
            Width           =   5160
            Begin MSComCtl2.DTPicker DTPickerEnd 
               Height          =   375
               Left            =   3120
               TabIndex        =   14
               Top             =   600
               Width           =   1815
               _ExtentX        =   3201
               _ExtentY        =   661
               _Version        =   393216
               Format          =   24510465
               CurrentDate     =   37299
            End
            Begin MSComCtl2.DTPicker DTPickerStart 
               Height          =   375
               Left            =   720
               TabIndex        =   13
               Top             =   600
               Width           =   1815
               _ExtentX        =   3201
               _ExtentY        =   661
               _Version        =   393216
               Format          =   24510465
               CurrentDate     =   36526
            End
            Begin VB.Label lblTo 
               Caption         =   "To"
               Height          =   255
               Left            =   2760
               TabIndex        =   28
               Top             =   600
               Width           =   375
            End
            Begin VB.Label lblFrom 
               Caption         =   "From"
               Height          =   375
               Left            =   240
               TabIndex        =   27
               Top             =   600
               Width           =   495
            End
         End
      End
      Begin MSFlexGridLib.MSFlexGrid FlexMovie 
         Height          =   5775
         Left            =   240
         TabIndex        =   12
         Top             =   360
         Width           =   5145
         _ExtentX        =   9075
         _ExtentY        =   10186
         _Version        =   393216
         Cols            =   3
      End
   End
   Begin VB.Frame frmIncome 
      Caption         =   " Video Rental Sales Report "
      Height          =   6375
      Left            =   120
      TabIndex        =   10
      Top             =   360
      Width           =   11385
      Begin VB.Frame Frame1 
         Height          =   1455
         Left            =   240
         TabIndex        =   32
         Top             =   4800
         Width           =   10935
         Begin VB.CheckBox chkFilterByCashier 
            Caption         =   "by Cashier:"
            Height          =   255
            Left            =   4800
            TabIndex        =   4
            Top             =   360
            Width           =   1095
         End
         Begin VB.ComboBox cboCashier 
            Enabled         =   0   'False
            Height          =   315
            Left            =   5880
            Style           =   2  'Dropdown List
            TabIndex        =   5
            Top             =   360
            Width           =   1935
         End
         Begin VB.TextBox txtTotalSales 
            Alignment       =   1  'Right Justify
            Height          =   305
            Left            =   8880
            TabIndex        =   6
            TabStop         =   0   'False
            Text            =   "0.00 "
            Top             =   360
            Width           =   1935
         End
         Begin VB.CommandButton cmdPrintSales 
            Caption         =   "&Print"
            Height          =   375
            Left            =   8760
            TabIndex        =   9
            Top             =   960
            Width           =   2040
         End
         Begin VB.Frame frameSalesPeriod 
            Caption         =   " Report Period "
            Height          =   1215
            Left            =   120
            TabIndex        =   33
            Top             =   120