home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / DEMO05.DFM / DEMO05.txt
Encoding:
Text File  |  1997-01-18  |  13.3 KB  |  553 lines
  1. object FBDemo05: TFBDemo05
  2.   Left = 459
  3.   Top = 323
  4.   Width = 346
  5.   Height = 369
  6.   VertScrollBar.Position = 96
  7.   Caption = 'FBDemo05'
  8.   Font.Color = clWindowText
  9.   Font.Height = -17
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   TextHeight = 20
  14.   object CBReport1: TCBReport
  15.     Left = 0
  16.     Top = -96
  17.     Width = 992
  18.     Height = 1403
  19.     Font.Color = clWindowText
  20.     Font.Height = 16
  21.     Font.Name = 'Arial'
  22.     Font.Style = []
  23.     Color = 15794175
  24.     ParentFont = False
  25.     About = 'Version 5.32'
  26.     AboutRegistered = 'TOM SNIDER'
  27.     Bands.Master = Master
  28.     Bands.Detail = DetailBand1
  29.     Viewer.BkColor = 11234567
  30.     Viewer.Heading = 'Printit Viewer'
  31.     Viewer.ShowCancelDialog = True
  32.     Viewer.MinimizeRunForm = False
  33.     Viewer.ZoomPercentage = 100.000000000000000000
  34.     Page.FrameStyle = frThin
  35.     Page.MarginLeft = 0.400000000000000000
  36.     Page.MarginTop = 0.400000000000000000
  37.     Page.MarginRight = 0.400000000000000000
  38.     Page.PaperSize = A4
  39.     OutputTo = poViewer
  40.     Orientation = Default
  41.     Units = poInches
  42.     Copies = 1
  43.     LineSpacing = 2.500000000000000000
  44.     RewindBeforePrint = True
  45.     object DetailHeader: TCBBand
  46.       Left = 49
  47.       Top = 497
  48.       Width = 894
  49.       Height = 40
  50.       Align = alTop
  51.       Color = clWhite
  52.       Frame.Color = clSilver
  53.       Frame.Left = frNone
  54.       Frame.Right = frNone
  55.       Frame.Top = frNone
  56.       Frame.Bottom = frNone
  57.       ForceNewPage = False
  58.       BandType = cbDetailHeader
  59.       object Label6: TLabel
  60.         Left = 56
  61.         Top = 11
  62.         Width = 97
  63.         Height = 22
  64.         AutoSize = False
  65.         Caption = 'Holdings'
  66.         Font.Color = clBlack
  67.         Font.Height = -20
  68.         Font.Name = 'Times New Roman'
  69.         Font.Style = [fsBold, fsItalic]
  70.         ParentFont = False
  71.       end
  72.       object Label7: TLabel
  73.         Left = 176
  74.         Top = 11
  75.         Width = 73
  76.         Height = 22
  77.         AutoSize = False
  78.         Caption = 'Symbol'
  79.         Font.Color = clMaroon
  80.         Font.Height = -20
  81.         Font.Name = 'Times New Roman'
  82.         Font.Style = []
  83.         ParentFont = False
  84.       end
  85.       object Label10: TLabel
  86.         Left = 272
  87.         Top = 11
  88.         Width = 73
  89.         Height = 22
  90.         AutoSize = False
  91.         Caption = 'Shares'
  92.         Font.Color = clMaroon
  93.         Font.Height = -20
  94.         Font.Name = 'Times New Roman'
  95.         Font.Style = []
  96.         ParentFont = False
  97.       end
  98.       object Label11: TLabel
  99.         Left = 352
  100.         Top = 11
  101.         Width = 137
  102.         Height = 22
  103.         AutoSize = False
  104.         Caption = 'Purchase Price'
  105.         Font.Color = clMaroon
  106.         Font.Height = -20
  107.         Font.Name = 'Times New Roman'
  108.         Font.Style = []
  109.         ParentFont = False
  110.       end
  111.       object Label12: TLabel
  112.         Left = 496
  113.         Top = 11
  114.         Width = 145
  115.         Height = 22
  116.         AutoSize = False
  117.         Caption = 'Purchase Date'
  118.         Font.Color = clMaroon
  119.         Font.Height = -20
  120.         Font.Name = 'Times New Roman'
  121.         Font.Style = []
  122.         ParentFont = False
  123.       end
  124.     end
  125.     object Master: TCBBand
  126.       Left = 49
  127.       Top = 49
  128.       Width = 894
  129.       Height = 448
  130.       Align = alTop
  131.       Color = clWhite
  132.       Frame.Color = clSilver
  133.       Frame.Left = frNone
  134.       Frame.Right = frNone
  135.       Frame.Top = frNone
  136.       Frame.Bottom = frNone
  137.       ForceNewPage = False
  138.       BandType = cbMaster
  139.       DataSource = DataSource1
  140.       object Label1: TLabel
  141.         Left = 16
  142.         Top = 80
  143.         Width = 292
  144.         Height = 34
  145.         Caption = 'Smart Investments   '
  146.         Font.Color = clBlue
  147.         Font.Height = -30
  148.         Font.Name = 'Arial'
  149.         Font.Style = [fsBold, fsItalic]
  150.         ParentFont = False
  151.       end
  152.       object Label2: TLabel
  153.         Left = 16
  154.         Top = 112
  155.         Width = 223
  156.         Height = 24
  157.         Caption = 'Investment Statement   '
  158.         Font.Color = clBlack
  159.         Font.Height = -20
  160.         Font.Name = 'Arial'
  161.         Font.Style = [fsBold, fsItalic]
  162.         ParentFont = False
  163.       end
  164.       object Label3: TLabel
  165.         Left = 576
  166.         Top = 186
  167.         Width = 146
  168.         Height = 23
  169.         Alignment = taRightJustify
  170.         AutoSize = False
  171.         Caption = 'Account Number'
  172.         FocusControl = EditACCT_NBR
  173.         Font.Color = clBlack
  174.         Font.Height = -20
  175.         Font.Name = 'Times New Roman'
  176.         Font.Style = [fsBold, fsItalic]
  177.         ParentFont = False
  178.       end
  179.       object Label8: TLabel
  180.         Left = 622
  181.         Top = 232
  182.         Width = 100
  183.         Height = 25
  184.         Alignment = taRightJustify
  185.         AutoSize = False
  186.         Caption = 'Telephone'
  187.         FocusControl = EditTELEPHONE
  188.         Font.Color = clBlack
  189.         Font.Height = -20
  190.         Font.Name = 'Times New Roman'
  191.         Font.Style = [fsBold, fsItalic]
  192.         ParentFont = False
  193.       end
  194.       object Label9: TLabel
  195.         Left = 584
  196.         Top = 210
  197.         Width = 138
  198.         Height = 23
  199.         Alignment = taRightJustify
  200.         AutoSize = False
  201.         Caption = 'Customer Since'
  202.         FocusControl = EditDATE_OPEN
  203.         Font.Color = clBlack
  204.         Font.Height = -20
  205.         Font.Name = 'Times New Roman'
  206.         Font.Style = [fsBold, fsItalic]
  207.         ParentFont = False
  208.       end
  209.       object Label4: TLabel
  210.         Left = 56
  211.         Top = 352
  212.         Width = 56
  213.         Height = 22
  214.         AutoSize = False
  215.         Caption = 'Dear '
  216.         Font.Color = clBlack
  217.         Font.Height = -20
  218.         Font.Name = 'Times New Roman'
  219.         Font.Style = [fsItalic]
  220.         ParentFont = False
  221.       end
  222.       object Label5: TLabel
  223.         Left = 96
  224.         Top = 384
  225.         Width = 649
  226.         Height = 22
  227.         AutoSize = False
  228.         Caption = 
  229.           'Please check the following details and notify us if there are an' +
  230.           'y errors'
  231.         Font.Color = clBlack
  232.         Font.Height = -20
  233.         Font.Name = 'Times New Roman'
  234.         Font.Style = [fsItalic]
  235.         ParentFont = False
  236.       end
  237.       object EditLAST_NAME: TDBEdit
  238.         Left = 56
  239.         Top = 198
  240.         Width = 140
  241.         Height = 20
  242.         BorderStyle = bsNone
  243.         DataField = 'LAST_NAME'
  244.         DataSource = DataSource1
  245.         Font.Color = clBlack
  246.         Font.Height = -20
  247.         Font.Name = 'Times New Roman'
  248.         Font.Style = []
  249.         MaxLength = 20
  250.         ParentFont = False
  251.         TabOrder = 0
  252.       end
  253.       object EditFIRST_NAME: TDBEdit
  254.         Left = 56
  255.         Top = 176
  256.         Width = 140
  257.         Height = 20
  258.         BorderStyle = bsNone
  259.         DataField = 'FIRST_NAME'
  260.         DataSource = DataSource1
  261.         Font.Color = clBlack
  262.         Font.Height = -20
  263.         Font.Name = 'Times New Roman'
  264.         Font.Style = []
  265.         MaxLength = 20
  266.         ParentFont = False
  267.         TabOrder = 1
  268.       end
  269.       object EditADDRESS_: TDBEdit
  270.         Left = 56
  271.         Top = 220
  272.         Width = 249
  273.         Height = 20
  274.         AutoSize = False
  275.         BorderStyle = bsNone
  276.         DataField = 'ADDRESS_1'
  277.         DataSource = DataSource1
  278.         Font.Color = clBlack
  279.         Font.Height = -20
  280.         Font.Name = 'Times New Roman'
  281.         Font.Style = []
  282.         MaxLength = 20
  283.         ParentFont = False
  284.         TabOrder = 2
  285.       end
  286.       object EditCITY: TDBEdit
  287.         Left = 56
  288.         Top = 244
  289.         Width = 140
  290.         Height = 20
  291.         BorderStyle = bsNone
  292.         DataField = 'CITY'
  293.         DataSource = DataSource1
  294.         Font.Color = clBlack
  295.         Font.Height = -20
  296.         Font.Name = 'Times New Roman'
  297.         Font.Style = []
  298.         MaxLength = 20
  299.         ParentFont = False
  300.         TabOrder = 3
  301.       end
  302.       object EditSTATE: TDBEdit
  303.         Left = 56
  304.         Top = 264
  305.         Width = 28
  306.         Height = 20
  307.         BorderStyle = bsNone
  308.         DataField = 'STATE'
  309.         DataSource = DataSource1
  310.         Font.Color = clBlack
  311.         Font.Height = -20
  312.         Font.Name = 'Times New Roman'
  313.         Font.Style = []
  314.         MaxLength = 2
  315.         ParentFont = False
  316.         TabOrder = 4
  317.       end
  318.       object EditZIP: TDBEdit
  319.         Left = 88
  320.         Top = 264
  321.         Width = 35
  322.         Height = 31
  323.         BorderStyle = bsNone
  324.         DataField = 'ZIP'
  325.         DataSource = DataSource1
  326.         Font.Color = clBlack
  327.         Font.Height = -20
  328.         Font.Name = 'Times New Roman'
  329.         Font.Style = []
  330.         MaxLength = 5
  331.         ParentFont = False
  332.         TabOrder = 5
  333.       end
  334.       object EditACCT_NBR: TDBEdit
  335.         Left = 736
  336.         Top = 186
  337.         Width = 70
  338.         Height = 24
  339.         BorderStyle = bsNone
  340.         DataField = 'ACCT_NBR'
  341.         DataSource = DataSource1
  342.         MaxLength = 0
  343.         TabOrder = 6
  344.       end
  345.       object EditTELEPHONE: TDBEdit
  346.         Left = 736
  347.         Top = 235
  348.         Width = 84
  349.         Height = 24
  350.         BorderStyle = bsNone
  351.         DataField = 'TELEPHONE'
  352.         DataSource = DataSource1
  353.         MaxLength = 12
  354.         TabOrder = 7
  355.       end
  356.       object EditDATE_OPEN: TDBEdit
  357.         Left = 736
  358.         Top = 211
  359.         Width = 70
  360.         Height = 24
  361.         BorderStyle = bsNone
  362.         DataField = 'DATE_OPEN'
  363.         DataSource = DataSource1
  364.         MaxLength = 0
  365.         TabOrder = 8
  366.       end
  367.       object DBEdit1: TDBEdit
  368.         Left = 104
  369.         Top = 352
  370.         Width = 140
  371.         Height = 20
  372.         BorderStyle = bsNone
  373.         DataField = 'FIRST_NAME'
  374.         DataSource = DataSource1
  375.         Font.Color = clBlack
  376.         Font.Height = -20
  377.         Font.Name = 'Times New Roman'
  378.         Font.Style = [fsItalic]
  379.         MaxLength = 20
  380.         ParentFont = False
  381.         TabOrder = 9
  382.       end
  383.     end
  384.     object DetailBand1: TCBDetailBand
  385.       Left = 49
  386.       Top = 537
  387.       Width = 894
  388.       Height = 20
  389.       Align = alTop
  390.       Color = clWhite
  391.       Frame.Color = clSilver
  392.       Frame.Left = frNone
  393.       Frame.Right = frNone
  394.       Frame.Top = frNone
  395.       Frame.Bottom = frNone
  396.       ForceNewPage = False
  397.       BandType = cbDetail
  398.       DataSource = DataSource2
  399.       DetailHeaderBand = DetailHeader
  400.       DetailFooterBand = DetailFooter
  401.       object EditSYMBOL: TDBEdit
  402.         Left = 176
  403.         Top = 2
  404.         Width = 49
  405.         Height = 24
  406.         BorderStyle = bsNone
  407.         DataField = 'SYMBOL'
  408.         DataSource = DataSource2
  409.         Font.Color = clBlack
  410.         Font.Height = -15
  411.         Font.Name = 'Arial'
  412.         Font.Style = []
  413.         MaxLength = 7
  414.         ParentFont = False
  415.         TabOrder = 0
  416.       end
  417.       object EditSHARES: TDBEdit
  418.         Left = 256
  419.         Top = 2
  420.         Width = 70
  421.         Height = 24
  422.         BorderStyle = bsNone
  423.         DataField = 'SHARES'
  424.         DataSource = DataSource2
  425.         Font.Color = clBlack
  426.         Font.Height = -15
  427.         Font.Name = 'Arial'
  428.         Font.Style = []
  429.         MaxLength = 0
  430.         ParentFont = False
  431.         TabOrder = 1
  432.       end
  433.       object EditPUR_PRICE: TDBEdit
  434.         Left = 376
  435.         Top = 2
  436.         Width = 70
  437.         Height = 24
  438.         BorderStyle = bsNone
  439.         DataField = 'PUR_PRICE'
  440.         DataSource = DataSource2
  441.         Font.Color = clBlack
  442.         Font.Height = -15
  443.         Font.Name = 'Arial'
  444.         Font.Style = []
  445.         MaxLength = 0
  446.         ParentFont = False
  447.         TabOrder = 2
  448.       end
  449.       object EditPUR_DATE: TDBEdit
  450.         Left = 520
  451.         Top = 2
  452.         Width = 70
  453.         Height = 24
  454.         BorderStyle = bsNone
  455.         DataField = 'PUR_DATE'
  456.         DataSource = DataSource2
  457.         Font.Color = clBlack
  458.         Font.Height = -15
  459.         Font.Name = 'Arial'
  460.         Font.Style = []
  461.         MaxLength = 0
  462.         ParentFont = False
  463.         TabOrder = 3
  464.       end
  465.     end
  466.     object DetailFooter: TCBBand
  467.       Left = 49
  468.       Top = 557
  469.       Width = 894
  470.       Height = 186
  471.       Align = alTop
  472.       Color = clWhite
  473.       Frame.Color = clSilver
  474.       Frame.Left = frNone
  475.       Frame.Right = frNone
  476.       Frame.Top = frNone
  477.       Frame.Bottom = frNone
  478.       ForceNewPage = False
  479.       BandType = cbDetailFooter
  480.       object Label13: TLabel
  481.         Left = 56
  482.         Top = 100
  483.         Width = 297
  484.         Height = 22
  485.         AutoSize = False
  486.         Caption = 'Thanking you for your business'
  487.         Font.Color = clBlack
  488.         Font.Height = -20
  489.         Font.Name = 'Times New Roman'
  490.         Font.Style = [fsItalic]
  491.         ParentFont = False
  492.       end
  493.       object Label14: TLabel
  494.         Left = 56
  495.         Top = 124
  496.         Width = 297
  497.         Height = 22
  498.         AutoSize = False
  499.         Caption = 'Joe Noman'
  500.         Font.Color = clBlack
  501.         Font.Height = -20
  502.         Font.Name = 'Times New Roman'
  503.         Font.Style = [fsBold, fsItalic, fsUnderline]
  504.         ParentFont = False
  505.       end
  506.     end
  507.   end
  508.   object DataSource1: TDataSource
  509.     DataSet = Table1
  510.     Left = 80
  511.     Top = 8
  512.   end
  513.   object Table1: TTable
  514.     Active = True
  515.     DatabaseName = 'DBDEMOS'
  516.     TableName = 'CLIENTS.DBF'
  517.     Left = 112
  518.     Top = 8
  519.   end
  520.   object DataSource2: TDataSource
  521.     DataSet = Table2
  522.     Left = 152
  523.     Top = 8
  524.   end
  525.   object Table2: TTable
  526.     Active = True
  527.     DatabaseName = 'DBDEMOS'
  528.     IndexFieldNames = 'ACCT_NBR'
  529.     MasterFields = 'ACCT_NBR'
  530.     MasterSource = DataSource1
  531.     TableName = 'HOLDINGS.DBF'
  532.     Left = 184
  533.     Top = 8
  534.     object Table2ACCT_NBR: TFloatField
  535.       FieldName = 'ACCT_NBR'
  536.     end
  537.     object Table2SYMBOL: TStringField
  538.       FieldName = 'SYMBOL'
  539.       Size = 7
  540.     end
  541.     object Table2SHARES: TFloatField
  542.       FieldName = 'SHARES'
  543.     end
  544.     object Table2PUR_PRICE: TFloatField
  545.       FieldName = 'PUR_PRICE'
  546.       DisplayFormat = '$ #,##0.00'
  547.     end
  548.     object Table2PUR_DATE: TDateField
  549.       FieldName = 'PUR_DATE'
  550.     end
  551.   end
  552. end
  553.