object fmPLBalSheet: TfmPLBalSheet Left = 232 Top = 115 Width = 408 Height = 305 ActiveControl = cbPer1 Caption = 'P&L and Balance Sheet Report' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Scaled = False OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object pnlSelPer: TPanel Left = 0 Top = 0 Width = 400 Height = 196 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 OnClick = pnlSelPerClick object lblPer1: TLabel Left = 26 Top = 16 Width = 94 Height = 16 Caption = 'Select Period 1' end object lblPer2: TLabel Left = 26 Top = 64 Width = 91 Height = 16 Caption = 'Select Period 2' end object lblPer3: TLabel Left = 26 Top = 112 Width = 91 Height = 16 Caption = 'Select Period 3' end object lblPer4: TLabel Left = 26 Top = 160 Width = 91 Height = 16 Caption = 'Select Period 4' end object cbPer1: TComboBox Left = 160 Top = 12 Width = 189 Height = 24 Hint = 'Press F1 for help' HelpContext = 501 ItemHeight = 16 Items.Strings = ( 'This Month' 'This Year' 'Last Month' 'Last Year' 'Current Balances') ParentShowHint = False ShowHint = True TabOrder = 0 Text = 'This Month' OnChange = cbPer1Change end object rxcbePer1: TComboEdit Left = 348 Top = 12 Width = 25 Height = 24 Hint = 'Select Periods' TabStop = False ButtonHint = 'Select periods' NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 Text = 'rxcbePer1' OnButtonClick = rxcbePer1ButtonClick end object cbPer2: TComboBox Left = 160 Top = 60 Width = 189 Height = 24 Hint = 'Press F1 for help' HelpContext = 501 ItemHeight = 16 Items.Strings = ( 'This Month' 'This Year' 'Last Month' 'Last Year' 'Current Balances' 'None') ParentShowHint = False ShowHint = True TabOrder = 2 Text = 'This Year' OnChange = cbPer2Change end object cbPer3: TComboBox Left = 160 Top = 108 Width = 189 Height = 24 Hint = 'Press F1 for help' HelpContext = 501 ItemHeight = 16 Items.Strings = ( 'This Month' 'This Year' 'Last Month' 'Last Year' 'Current Balances' 'None') ParentShowHint = False ShowHint = True TabOrder = 3 Text = 'None' OnChange = cbPer3Change end object cbPer4: TComboBox Left = 160 Top = 156 Width = 189 Height = 24 Hint = 'Press F1 for help' HelpContext = 501 ItemHeight = 16 Items.Strings = ( 'This Month' 'This Year' 'Last Month' 'Last Year' 'Current Balances' 'None') ParentShowHint = False ShowHint = True TabOrder = 4 Text = 'None' OnChange = cbPer4Change end end object rxcbePer2: TComboEdit Left = 348 Top = 60 Width = 25 Height = 24 Hint = 'Select Periods' TabStop = False ButtonHint = 'Select periods' NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 3 Text = 'ComboEdit1' OnButtonClick = rxcbePer2ButtonClick end object rxcbePer3: TComboEdit Left = 348 Top = 108 Width = 25 Height = 24 Hint = 'Select periods' TabStop = False ButtonHint = 'Select periods' NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 4 Text = 'ComboEdit1' OnButtonClick = rxcbePer3ButtonClick end object rxcbePer4: TComboEdit Left = 348 Top = 156 Width = 25 Height = 24 Hint = 'Select Periods' TabStop = False ButtonHint = 'Select periods' NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 5 Text = 'ComboEdit1' OnButtonClick = rxcbePer4ButtonClick end object pnlDIA: TPanel Left = 0 Top = 196 Width = 400 Height = 40 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object cbDIA: TCheckBox Left = 26 Top = 12 Width = 210 Height = 17 Hint = 'Press F1 for help' HelpContext = 500 Alignment = taLeftJustify Caption = 'Display Individual Accounts' ParentShowHint = False ShowHint = True TabOrder = 0 end end object Panel1: TPanel Left = 0 Top = 236 Width = 400 Height = 42 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 object btnPrint: TButton Left = 8 Top = 7 Width = 75 Height = 30 Hint = 'Print financial reports' Caption = '&Print' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = btnPrintClick end object btnCancel: TButton Left = 242 Top = 7 Width = 75 Height = 30 Hint = 'Close the form' Caption = '&Cancel' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = btnCancelClick end object BtnEmail: TButton Left = 164 Top = 7 Width = 75 Height = 30 Hint = 'Email financial report' Caption = '&Email' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BtnEmailClick end object BtnGraph: TButton Left = 86 Top = 7 Width = 75 Height = 30 Hint = 'View financial graph' Caption = '&Graph' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = BtnGraphClick end object btnHelp: TButton Left = 320 Top = 7 Width = 75 Height = 30 Caption = '&Help' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = btnHelpClick end end object taAccPer: TwwTable OnCalcFields = taAccPerCalcFields DatabaseName = 'EmpireBuilder' TableName = 'Accper.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 359 Top = 197 object taAccPerPERIOD: TDateField FieldName = 'PERIOD' end object taAccPerMONTH: TSmallintField FieldName = 'MONTH' end object taAccPerYEAR: TSmallintField FieldName = 'YEAR' end object taAccPerPERIODNAME: TStringField FieldName = 'PERIODNAME' Size = 14 Calculated = True end end object Sizer1: TSizer Enabled = True ExceptionAction = eaIgnoreControl GridColumnSizing = gcSizeAllColumns GridRowSizing = grSizeByDefaults MinimumSize = True NavigateOnEnter = True OverrideParentFont = True PerformAssertions = True ShowAssertionFailures = False StretchFonts = True StretchImages = True StretchOnResize = True ThreadProcessing = False Left = 288 Top = 197 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 408) OriginalFormHeight = ( 305) OriginalFormLeft = ( 232) OriginalFormTop = ( 115) OriginalFormPPI = ( 120) OriginalClientWidth = ( 400) OriginalClientHeight = ( 278) end object taPLBSTemp: TwwTable SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 324 Top = 196 object taPLBSTempACREF: TStringField FieldName = 'ACREF' Size = 10 end object taPLBSTempNAME: TStringField FieldName = 'NAME' Size = 30 end object taPLBSTempTYPE: TStringField FieldName = 'TYPE' Size = 14 end object taPLBSTempCATEGORY: TStringField FieldName = 'CATEGORY' Size = 15 end object taPLBSTempGROUP: TStringField FieldName = 'GROUP' Size = 30 end object taPLBSTempAGROUP: TStringField FieldName = 'AGROUP' Size = 30 end object taPLBSTempBALPER1: TFloatField FieldName = 'BALPER1' end object taPLBSTempBALPER2: TFloatField FieldName = 'BALPER2' end object taPLBSTempBALPER3: TFloatField FieldName = 'BALPER3' end object taPLBSTempBALPER4: TFloatField FieldName = 'BALPER4' end end end