PC World Komputer 1997 May

home *** CD-ROM | disk | FTP | other *** search

/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / DEMO02.DFM / DEMO02.txt

Wrap

Text File | 1997-01-18 | 25.5 KB | 1,106 lines

object FBDemo02: TFBDemo02 Left = 547 Top = 280 Width = 345 Height = 259 HorzScrollBar.Position = 64 ActiveControl = Panel1 Caption = 'FBDemo02' Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 120 Position = poScreenCenter OnCreate = FormCreate TextHeight = 16 object Panel1: TPanel Left = -64 Top = 0 Width = 992 Height = 50 Align = alTop TabOrder = 0 object DBNavigator: TDBNavigator Left = 10 Top = 10 Width = 281 Height = 31 DataSource = DataSource1 Ctl3D = False ParentCtl3D = False TabOrder = 0 end object Button1: TButton Left = 688 Top = 9 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 1 OnClick = Button1Click end end object CBReport1: TCBReport Left = -64 Top = 48 Width = 992 Height = 1403 Font.Color = clWindowText Font.Height = 16 Font.Name = 'Arial' Font.Style = [] Color = 15794175 ParentFont = False About = 'Version 5.32' AboutRegistered = 'TOM SNIDER' Bands.Master = Master Bands.Detail = CBDetailBand1 Bands.Title = Title Bands.PageHeader = PageHeader Bands.PageFooter = PageFooter Viewer.BkColor = 11234567 Viewer.Heading = 'BandIt Viewer' Viewer.ShowCancelDialog = True Viewer.MinimizeRunForm = False Viewer.ZoomPercentage = 100.000000000000000000 Page.FrameStyle = frThin Page.MarginLeft = 0.400000000000000000 Page.MarginTop = 0.400000000000000000 Page.MarginRight = 0.400000000000000000 Page.PaperSize = A4 OutputTo = poViewer Orientation = Default Units = poInches Copies = 1 LineSpacing = 2.500000000000000000 RewindBeforePrint = True object Master: TCBBand Left = 49 Top = 153 Width = 894 Height = 166 Align = alTop Color = clWhite Frame.Color = clSilver Frame.Left = frNone Frame.Right = frNone Frame.Top = frSingleThin Frame.Bottom = frSingleThin ForceNewPage = False BandType = cbMaster DataSource = DataSource1 object Label35: TLabel Left = 8 Top = 18 Width = 75 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'CustNo' end object Label36: TLabel Left = 16 Top = 44 Width = 67 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Company' end object Label37: TLabel Left = 32 Top = 70 Width = 51 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Addr1' end object Label38: TLabel Left = 40 Top = 96 Width = 43 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Addr2' end object Label39: TLabel Left = 48 Top = 122 Width = 35 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'City' end object Label40: TLabel Left = 376 Top = 20 Width = 35 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'State' end object Label41: TLabel Left = 376 Top = 46 Width = 35 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Zip' end object Label42: TLabel Left = 360 Top = 72 Width = 51 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Country' end object Label43: TLabel Left = 360 Top = 98 Width = 51 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Phone' end object Label44: TLabel Left = 302 Top = 124 Width = 109 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'FAX' end object Label45: TLabel Left = 590 Top = 22 Width = 109 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'TaxRate' end object Label46: TLabel Left = 590 Top = 48 Width = 109 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Contact' end object Label47: TLabel Left = 590 Top = 74 Width = 109 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'LastInvoiceDate' end object DBEdit1: TDBEdit Left = 89 Top = 14 Width = 91 Height = 24 DataField = 'CustNo' DataSource = DataSource1 MaxLength = 0 TabOrder = 0 end object DBEdit2: TDBEdit Left = 89 Top = 40 Width = 231 Height = 24 DataField = 'Company' DataSource = DataSource1 MaxLength = 30 TabOrder = 1 end object DBEdit3: TDBEdit Left = 89 Top = 66 Width = 231 Height = 24 DataField = 'Addr1' DataSource = DataSource1 MaxLength = 30 TabOrder = 2 end object DBEdit4: TDBEdit Left = 89 Top = 92 Width = 231 Height = 24 DataField = 'Addr2' DataSource = DataSource1 MaxLength = 30 TabOrder = 3 end object DBEdit5: TDBEdit Left = 89 Top = 118 Width = 126 Height = 24 DataField = 'City' DataSource = DataSource1 MaxLength = 15 TabOrder = 4 end object DBEdit6: TDBEdit Left = 417 Top = 16 Width = 161 Height = 24 DataField = 'State' DataSource = DataSource1 MaxLength = 20 TabOrder = 5 end object DBEdit7: TDBEdit Left = 417 Top = 42 Width = 91 Height = 24 DataField = 'Zip' DataSource = DataSource1 MaxLength = 10 TabOrder = 6 end object DBEdit8: TDBEdit Left = 417 Top = 68 Width = 161 Height = 24 DataField = 'Country' DataSource = DataSource1 MaxLength = 20 TabOrder = 7 end object DBEdit9: TDBEdit Left = 417 Top = 94 Width = 126 Height = 24 DataField = 'Phone' DataSource = DataSource1 MaxLength = 15 TabOrder = 8 end object DBEdit10: TDBEdit Left = 417 Top = 120 Width = 126 Height = 24 DataField = 'FAX' DataSource = DataSource1 MaxLength = 15 TabOrder = 9 end object DBEdit11: TDBEdit Left = 705 Top = 18 Width = 91 Height = 24 DataField = 'TaxRate' DataSource = DataSource1 MaxLength = 0 TabOrder = 10 end object DBEdit12: TDBEdit Left = 705 Top = 44 Width = 161 Height = 24 DataField = 'Contact' DataSource = DataSource1 MaxLength = 20 TabOrder = 11 end object DBEdit13: TDBEdit Left = 705 Top = 70 Width = 168 Height = 24 DataField = 'LastInvoiceDate' DataSource = DataSource1 MaxLength = 0 TabOrder = 12 end end object PageHeader: TCBBand Left = 49 Top = 49 Width = 894 Height = 41 Align = alTop Color = clWhite Frame.Color = clBlack Frame.Left = frNone Frame.Right = frNone Frame.Top = frDoubleThickThin Frame.Bottom = frNone ForceNewPage = False BandType = cbPageHeader object CB_Label2: TCB_Label Left = 364 Top = 8 Width = 166 Height = 32 Caption = 'Page Header' Font.Color = clBlue Font.Height = -27 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True About = 'Version 5.32' Style = stRaised ShadowOffset = 5 end end object Title: TCBBand Left = 49 Top = 90 Width = 894 Height = 63 Align = alTop Color = clWhite Frame.Color = clBlack Frame.Left = frDoubleThin Frame.Right = frDoubleThin Frame.Top = frDoubleThin Frame.Bottom = frDoubleThin ForceNewPage = False BandType = cbTitle object CB_Label1: TCB_Label Left = 311 Top = 16 Width = 272 Height = 32 Caption = 'Master - Detail Demo' Font.Color = clRed Font.Height = -27 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True About = 'Version 5.32' Style = stRaised ShadowOffset = 5 end end object CBDetailBand1: TCBDetailBand Left = 49 Top = 319 Width = 894 Height = 136 Align = alTop Color = clWhite Frame.Color = clSilver Frame.Left = frSingleThin Frame.Right = frSingleThin Frame.Top = frSingleThin Frame.Bottom = frSingleThin ForceNewPage = False BandType = cbDetail DataSource = DataSource2 DetailFooterBand = DetailFooter object Label14: TLabel Left = 16 Top = 7 Width = 89 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'OrderNo' FocusControl = EditOrderNo Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label16: TLabel Left = 350 Top = 7 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'SaleDate' FocusControl = EditSaleDate Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label17: TLabel Left = 350 Top = 33 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'ShipDate' FocusControl = EditShipDate Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label18: TLabel Left = 46 Top = 33 Width = 59 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'EmpNo' FocusControl = EditEmpNo Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label19: TLabel Left = 5 Top = 59 Width = 100 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'ShipToContact' FocusControl = EditShipToContact Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 14 Top = 85 Width = 91 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'ShipToAddr1' FocusControl = EditShipToAddr Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label21: TLabel Left = 16 Top = 111 Width = 89 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'ShipToAddr2' FocusControl = EditShipToAddr2 Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label28: TLabel Left = 350 Top = 59 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'PO' FocusControl = EditPO Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label29: TLabel Left = 350 Top = 85 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Terms' FocusControl = EditTerms Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label30: TLabel Left = 350 Top = 111 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'PaymentMethod' FocusControl = EditPaymentMethod Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label31: TLabel Left = 638 Top = 7 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'ItemsTotal' FocusControl = EditItemsTotal Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label32: TLabel Left = 638 Top = 33 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'TaxRate' FocusControl = EditTaxRate2 Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label33: TLabel Left = 638 Top = 59 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Freight' FocusControl = EditFreight Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label34: TLabel Left = 638 Top = 85 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'AmountPaid' FocusControl = EditAmountPaid Font.Color = clTeal Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object EditOrderNo: TDBEdit Left = 114 Top = 5 Width = 91 Height = 24 DataField = 'OrderNo' DataSource = DataSource2 MaxLength = 0 TabOrder = 0 end object EditSaleDate: TDBEdit Left = 466 Top = 5 Width = 168 Height = 24 DataField = 'SaleDate' DataSource = DataSource2 MaxLength = 0 TabOrder = 1 end object EditShipDate: TDBEdit Left = 466 Top = 31 Width = 168 Height = 24 DataField = 'ShipDate' DataSource = DataSource2 MaxLength = 0 TabOrder = 2 end object EditEmpNo: TDBEdit Left = 114 Top = 31 Width = 77 Height = 24 DataField = 'EmpNo' DataSource = DataSource2 MaxLength = 0 TabOrder = 3 end object EditShipToContact: TDBEdit Left = 114 Top = 57 Width = 161 Height = 24 DataField = 'ShipToContact' DataSource = DataSource2 MaxLength = 20 TabOrder = 4 end object EditShipToAddr: TDBEdit Left = 114 Top = 83 Width = 231 Height = 24 DataField = 'ShipToAddr1' DataSource = DataSource2 MaxLength = 30 TabOrder = 5 end object EditShipToAddr2: TDBEdit Left = 114 Top = 109 Width = 231 Height = 24 DataField = 'ShipToAddr2' DataSource = DataSource2 MaxLength = 30 TabOrder = 6 end object EditPO: TDBEdit Left = 466 Top = 57 Width = 126 Height = 24 DataField = 'PO' DataSource = DataSource2 MaxLength = 15 TabOrder = 7 end object EditTerms: TDBEdit Left = 466 Top = 83 Width = 63 Height = 24 DataField = 'Terms' DataSource = DataSource2 MaxLength = 6 TabOrder = 8 end object EditPaymentMethod: TDBEdit Left = 466 Top = 109 Width = 70 Height = 24 DataField = 'PaymentMethod' DataSource = DataSource2 MaxLength = 7 TabOrder = 9 end object EditItemsTotal: TDBEdit Left = 754 Top = 5 Width = 91 Height = 24 DataField = 'ItemsTotal' DataSource = DataSource2 MaxLength = 0 TabOrder = 10 end object EditTaxRate2: TDBEdit Left = 754 Top = 31 Width = 91 Height = 24 DataField = 'TaxRate' DataSource = DataSource2 MaxLength = 0 TabOrder = 11 end object EditFreight: TDBEdit Left = 754 Top = 57 Width = 91 Height = 24 DataField = 'Freight' DataSource = DataSource2 MaxLength = 0 TabOrder = 12 end object EditAmountPaid: TDBEdit Left = 754 Top = 83 Width = 91 Height = 24 DataField = 'AmountPaid' DataSource = DataSource2 MaxLength = 0 TabOrder = 13 end end object DetailFooter: TCBBand Left = 49 Top = 455 Width = 894 Height = 64 Align = alTop Color = clWhite Frame.Color = clSilver Frame.Left = frSingleThin Frame.Right = frSingleThin Frame.Top = frSingleThin Frame.Bottom = frSingleThin ForceNewPage = False BandType = cbDetailFooter object Label1: TLabel Left = 48 Top = 24 Width = 132 Height = 16 Caption = 'Summary of orders for ' end object CB_Label4: TCB_Label Left = 464 Top = 32 Width = 105 Height = 33 Caption = 'SubTotal' Font.Color = clNavy Font.Height = -20 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True About = 'Version 5.32' Style = stRaised ShadowColor = 16777088 end object CB_Label5: TCB_Label Left = 464 Top = 7 Width = 57 Height = 24 Caption = 'Count' Font.Color = clNavy Font.Height = -20 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True About = 'Version 5.32' Style = stRaised ShadowColor = 16777088 end object DBEdit14: TDBEdit Left = 185 Top = 22 Width = 231 Height = 24 DataField = 'Company' DataSource = DataSource1 MaxLength = 30 TabOrder = 0 end object CBCalc1: TCBCalc Left = 584 Top = 34 Width = 73 Height = 16 DataField = 'AmountPaid' DataSource = DataSource2 ParentFont = False ResetAfterBand = DetailFooter BorderStyle = bsNone Color = clWhite Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] DisplayFormat = '#,##0.00' Text = '4,674.00' Alignment = taRightJustify Operation = cbSum end object CBCalc2: TCBCalc Left = 584 Top = 10 Width = 73 Height = 16 DataField = 'AmountPaid' DataSource = DataSource2 ParentFont = False ResetAfterBand = DetailFooter BorderStyle = bsNone Color = clWhite Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] DisplayFormat = '#,##0' Text = '1' Alignment = taRightJustify Operation = cbCount end end object PageFooter: TCBBand Left = 49 Top = 519 Width = 894 Height = 41 Align = alTop Color = clWhite Frame.Color = clSilver Frame.Left = frSingleThin Frame.Right = frSingleThin Frame.Top = frSingleThin Frame.Bottom = frSingleThin ForceNewPage = False BandType = cbPageFooter object CB_Label3: TCB_Label Left = 364 Top = 8 Width = 159 Height = 32 Caption = 'Page Footer' Font.Color = clBlue Font.Height = -27 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True About = 'Version 5.32' Style = stRaised ShadowOffset = 5 end object Label2: TLabel Left = 718 Top = 13 Width = 110 Height = 20 Alignment = taRightJustify AutoSize = False Caption = 'Page' FocusControl = EditTerms Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object CBSystem1: TCBSystem Left = 8 Top = 12 Width = 100 Height = 16 ParentFont = False BorderStyle = bsNone Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Color = clWhite Data = cbDate DisplayFormat = '#,##0.00' Text = '0.00' Alignment = taLeftJustify end object CBSystem2: TCBSystem Left = 848 Top = 12 Width = 33 Height = 16 ParentFont = False BorderStyle = bsNone Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Color = clWhite Data = cbPageNumber DisplayFormat = '0' Text = '1' Alignment = taLeftJustify end end end object DataSource1: TDataSource DataSet = Table1 Left = 287 Top = 5 end object DataSource2: TDataSource DataSet = Table2 Left = 343 Top = 5 end object Table1: TTable Active = True DatabaseName = 'DBDEMOS' TableName = 'CUSTOMER.DB' Left = 259 Top = 5 object Table1CustNo: TFloatField FieldName = 'CustNo' end object Table1Company: TStringField FieldName = 'Company' Size = 30 end object Table1Addr1: TStringField FieldName = 'Addr1' Size = 30 end object Table1Addr2: TStringField FieldName = 'Addr2' Size = 30 end object Table1City: TStringField FieldName = 'City' Size = 15 end object Table1State: TStringField FieldName = 'State' end object Table1Zip: TStringField FieldName = 'Zip' Size = 10 end object Table1Country: TStringField FieldName = 'Country' end object Table1Phone: TStringField FieldName = 'Phone' Size = 15 end object Table1FAX: TStringField FieldName = 'FAX' Size = 15 end object Table1TaxRate: TFloatField FieldName = 'TaxRate' end object Table1Contact: TStringField FieldName = 'Contact' end object Table1LastInvoiceDate: TDateTimeField FieldName = 'LastInvoiceDate' end end object Table2: TTable Active = True DatabaseName = 'DBDEMOS' IndexName = 'CustNo' MasterFields = 'CustNo' MasterSource = DataSource1 TableName = 'ORDERS.DB' Left = 315 Top = 5 object Table2OrderNo: TFloatField FieldName = 'OrderNo' end object Table2CustNo: TFloatField FieldName = 'CustNo' Required = True end object Table2SaleDate: TDateTimeField FieldName = 'SaleDate' end object Table2ShipDate: TDateTimeField FieldName = 'ShipDate' end object Table2EmpNo: TIntegerField FieldName = 'EmpNo' Required = True end object Table2ShipToContact: TStringField FieldName = 'ShipToContact' end object Table2ShipToAddr1: TStringField FieldName = 'ShipToAddr1' Size = 30 end object Table2ShipToAddr2: TStringField FieldName = 'ShipToAddr2' Size = 30 end object Table2ShipToCity: TStringField FieldName = 'ShipToCity' Size = 15 end object Table2ShipToState: TStringField FieldName = 'ShipToState' end object Table2ShipToZip: TStringField FieldName = 'ShipToZip' Size = 10 end object Table2ShipToCountry: TStringField FieldName = 'ShipToCountry' end object Table2ShipToPhone: TStringField FieldName = 'ShipToPhone' Size = 15 end object Table2ShipVIA: TStringField FieldName = 'ShipVIA' Size = 7 end object Table2PO: TStringField FieldName = 'PO' Size = 15 end object Table2Terms: TStringField FieldName = 'Terms' Size = 6 end object Table2PaymentMethod: TStringField FieldName = 'PaymentMethod' Size = 7 end object Table2ItemsTotal: TCurrencyField FieldName = 'ItemsTotal' Currency = True end object Table2TaxRate: TFloatField FieldName = 'TaxRate' end object Table2Freight: TCurrencyField FieldName = 'Freight' Currency = True end object Table2AmountPaid: TCurrencyField FieldName = 'AmountPaid' Currency = True end end end