home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / Demo / GetStated / UGetStarted.dfm < prev    next >
Encoding:
Text File  |  2002-09-28  |  3.9 KB  |  160 lines
  1. object Form1: TForm1
  2.   Left = 356
  3.   Top = 164
  4.   Width = 446
  5.   Height = 339
  6.   Caption = 'Form1'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Button1: TButton
  17.     Left = 176
  18.     Top = 280
  19.     Width = 75
  20.     Height = 25
  21.     Caption = 'Button1'
  22.     TabOrder = 0
  23.     OnClick = Button1Click
  24.   end
  25.   object Memo1: TMemo
  26.     Left = 16
  27.     Top = 8
  28.     Width = 409
  29.     Height = 265
  30.     Lines.Strings = (
  31.       
  32.         'This is a very simple demo to get you started on how to create t' +
  33.         'he data module of a '
  34.       'report. '
  35.       ''
  36.       
  37.         'For a much more complete demo, see fldemo.dpr. It'#39's more complic' +
  38.         'ated, but '
  39.       'there is where you can really see what can be done'
  40.       ''
  41.       'Steps:'
  42.       '   1) Drop a TFlexCelReport on your form'
  43.       '  '
  44.       
  45.         '   2) If you want to use OLE, drop a TOLEAdapter, else drop a TX' +
  46.         'LSAdapter '
  47.       'and connect the FlexCelReport to it.'
  48.       ''
  49.       
  50.         '   3) Select a template and assign it to the TFlexCelReport. (Fo' +
  51.         'r detailed explanations '
  52.       'on how to create the template, see fldemo)'
  53.       ''
  54.       '   4) Check the CalcRecordCount parameter of TFlexCelReport.'
  55.       ''
  56.       
  57.         '   5) If you want to link the templates into the exe, drop a TXl' +
  58.         'sTemplateStore '
  59.       'and connect it.')
  60.     TabOrder = 1
  61.   end
  62.   object Cust: TTable
  63.     AutoCalcFields = False
  64.     CachedUpdates = True
  65.     DatabaseName = 'DBDEMOS'
  66.     Filter = 'CustNo<1352'
  67.     TableName = 'CUSTOMER'
  68.     Left = 340
  69.     Top = 80
  70.     object CustCustNo: TFloatField
  71.       Alignment = taLeftJustify
  72.       DisplayWidth = 6
  73.       FieldName = 'CustNo'
  74.     end
  75.     object CustCompany: TStringField
  76.       DisplayWidth = 26
  77.       FieldName = 'Company'
  78.       Required = True
  79.       Size = 30
  80.     end
  81.     object CustPhone: TStringField
  82.       DisplayWidth = 15
  83.       FieldName = 'Phone'
  84.       Size = 15
  85.     end
  86.     object CustLastInvoiceDate: TDateTimeField
  87.       DisplayLabel = 'LastInvoice'
  88.       DisplayWidth = 10
  89.       FieldName = 'LastInvoiceDate'
  90.       DisplayFormat = 'DDDDD'
  91.     end
  92.     object CustAddr1: TStringField
  93.       FieldName = 'Addr1'
  94.       Size = 30
  95.     end
  96.     object CustAddr2: TStringField
  97.       FieldName = 'Addr2'
  98.       Size = 30
  99.     end
  100.     object CustCity: TStringField
  101.       FieldName = 'City'
  102.       Size = 15
  103.     end
  104.     object CustState: TStringField
  105.       FieldName = 'State'
  106.     end
  107.     object CustZip: TStringField
  108.       FieldName = 'Zip'
  109.       Size = 10
  110.     end
  111.     object CustCountry: TStringField
  112.       FieldName = 'Country'
  113.     end
  114.     object CustFAX: TStringField
  115.       FieldName = 'FAX'
  116.       Size = 15
  117.     end
  118.     object CustTaxRate: TFloatField
  119.       FieldName = 'TaxRate'
  120.     end
  121.     object CustContact: TStringField
  122.       FieldName = 'Contact'
  123.     end
  124.     object CustTotAddr1: TStringField
  125.       DisplayWidth = 128
  126.       FieldKind = fkCalculated
  127.       FieldName = 'TotAddr1'
  128.       Size = 128
  129.       Calculated = True
  130.     end
  131.     object CustTotAddr2: TStringField
  132.       FieldKind = fkCalculated
  133.       FieldName = 'TotAddr2'
  134.       Size = 128
  135.       Calculated = True
  136.     end
  137.   end
  138.   object XLSAdapter: TXLSAdapter
  139.     Left = 340
  140.     Top = 16
  141.   end
  142.   object RepStart: TFlexCelReport
  143.     Template = 'Start.xls'
  144.     AutoClose = False
  145.     Adapter = XLSAdapter
  146.     DataModule = Owner
  147.     CalcRecordCount = cr_SlowCount
  148.     Left = 340
  149.     Top = 48
  150.   end
  151.   object SaveDialog1: TSaveDialog
  152.     DefaultExt = '*.xls'
  153.     Filter = 'Excel Files|*.xls'
  154.     Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
  155.     Title = 'Save Report as...'
  156.     Left = 368
  157.     Top = 16
  158.   end
  159. end
  160.