object Form1: TForm1 Left = 420 Height = 612 Top = 95 Width = 320 ActiveControl = Edit1 Caption = 'Budget' ClientHeight = 612 ClientWidth = 320 OnShow = FormShow LCLVersion = '0.9.27' object GroupBox1: TGroupBox Left = 8 Height = 128 Top = 8 Width = 305 Caption = 'Customer Data' ClientHeight = 124 ClientWidth = 301 TabOrder = 0 object Label1: TLabel Left = 8 Height = 16 Top = 8 Width = 91 Caption = 'Customer Name:' ParentColor = False end object Label2: TLabel Left = 8 Height = 16 Top = 64 Width = 46 Caption = 'Address:' ParentColor = False end object Edit1: TEdit Left = 8 Height = 23 Top = 24 Width = 280 TabOrder = 0 end object Edit2: TEdit Left = 8 Height = 23 Top = 80 Width = 280 TabOrder = 1 end end object GroupBox2: TGroupBox Left = 8 Height = 72 Top = 152 Width = 305 Caption = 'Add Products' ClientHeight = 68 ClientWidth = 301 TabOrder = 1 object Label3: TLabel Left = 14 Height = 16 Top = 8 Width = 54 Caption = 'Product:' ParentColor = False end object Label4: TLabel Left = 166 Height = 16 Top = 8 Width = 58 Caption = 'Price ($):' ParentColor = False end object Edit3: TEdit Left = 14 Height = 23 Top = 24 Width = 144 TabOrder = 0 end object Edit4: TEdit Left = 166 Height = 23 Top = 24 Width = 64 TabOrder = 1 end object Button1: TButton Left = 238 Height = 25 Top = 22 Width = 59 Caption = 'Add' OnClick = Button1Click TabOrder = 2 end end object GroupBox3: TGroupBox Left = 9 Height = 280 Top = 232 Width = 304 Caption = 'Budgeted Products:' ClientHeight = 263 ClientWidth = 300 TabOrder = 2 object Label5: TLabel Left = 149 Height = 16 Top = 231 Width = 56 Caption = 'Total ($):' ParentColor = False end object StringGrid1: TStringGrid Left = 8 Height = 204 Top = 8 Width = 282 ColCount = 2 FixedCols = 0 RowCount = 1 TabOrder = 0 ColWidths = ( 208 70 ) Cells = ( 2 0 0 'Product' 1 0 'Price' ) end object Edit5: TEdit Left = 208 Height = 23 Top = 224 Width = 80 TabOrder = 1 end end object Button2: TButton Left = 200 Height = 25 Top = 528 Width = 91 Caption = 'Design Report' OnClick = Button2Click TabOrder = 3 end object Button3: TButton Left = 24 Height = 25 Top = 528 Width = 91 Caption = 'Show Report' OnClick = Button3Click TabOrder = 4 end object Filas: TfrUserDataset OnCheckEOF = FilasCheckEOF OnFirst = FilasFirst OnNext = FilasNext left = 47 top = 576 end object frReport1: TfrReport InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit] DataType = dtDataSet OnGetValue = frReport1GetValue left = 153 top = 576 ReportForm = { 18000000 } end end