ugetstarted.dfm

Delphi/BCB 各种版本都支持的Excel 读写控件.一成功应用在N个项目中 .

object Form2: TForm2
  Left = 192
  Top = 107
  Width = 440
  Height = 414
  Caption = 'Getting Started'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 409
    Height = 321
    Lines.Strings = (
      
        'This is a very simple demo to get you started on how to create t' +
        'he data module of a '
      'report. '
      ''
      
        'For a much more complete demo, see fldemo.dpr. It'#39's more complic' +
        'ated (and in '
      'pascal), but '
      
        'there is where you can really see what can be done. As almost al' +
        'l the job is done on '
      
        'the template and there is almos no source, I hope it beeing in p' +
        'ascal is not a real '
      
        'problem. You won'#39't be writing source code anyay. For API users, ' +
        'there is a C++ API '
      'demo too'
      ''
      'Steps:'
      '   1) Drop a TFlexCelReport on your form'
      '  '
      
        '   2) If you want to use OLE, drop a TOLEAdapter, else drop a TX' +
        'LSAdapter '
      'and connect the FlexCelReport to it.'
      ''
      
        '   3) Select a template and assign it to the TFlexCelReport. (Fo' +
        'r detailed explanations '
      'on how to create the template, see fldemo)'
      ''
      '   4) Check the CalcRecordCount parameter of TFlexCelReport.'
      ''
      
        '   5) If you want to link the templates into the exe, drop a TXl' +
        'sTemplateStore '
      'and connect it.')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 176
    Top = 344
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object XLSAdapter: TXLSAdapter
    Left = 340
    Top = 16
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.xls'
    Filter = 'Excel Files|*.xls'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = 'Save Report as...'
    Left = 368
    Top = 16
  end
  object RepStart: TFlexCelReport
    Template = 'Start.xls'
    AutoClose = False
    Adapter = XLSAdapter
    DateTimeFormat = 'mm/dd/yyyy hh:mm'
    DataModule = Owner
    CalcRecordCount = cr_SlowCount
    Left = 340
    Top = 48
  end
  object Cust: TTable
    AutoCalcFields = False
    CachedUpdates = True
    DatabaseName = 'DBDEMOS'
    Filter = 'CustNo<1352'
    TableName = 'CUSTOMER'
    Left = 340
    Top = 80
    object CustCustNo: TFloatField
      Alignment = taLeftJustify
      DisplayWidth = 6
      FieldName = 'CustNo'
    end
    object CustCompany: TStringField
      DisplayWidth = 26
      FieldName = 'Company'
      Required = True
      Size = 30
    end
    object CustPhone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object CustLastInvoiceDate: TDateTimeField
      DisplayLabel = 'LastInvoice'
      DisplayWidth = 10
      FieldName = 'LastInvoiceDate'
      DisplayFormat = 'DDDDD'
    end
    object CustAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustState: TStringField
      FieldName = 'State'
    end
    object CustZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustCountry: TStringField
      FieldName = 'Country'
    end
    object CustFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object CustContact: TStringField
      FieldName = 'Contact'
    end
    object CustTotAddr1: TStringField
      DisplayWidth = 128
      FieldKind = fkCalculated
      FieldName = 'TotAddr1'
      Size = 128
      Calculated = True
    end
    object CustTotAddr2: TStringField
      FieldKind = fkCalculated
      FieldName = 'TotAddr2'
      Size = 128
      Calculated = True
    end
  end
end