PC Format Collection 48/SENT14D.ISO/tech/delphi/disk15/stocks.pak/CUSTINFO.DFM/CUSTINFO.txt

Text File | 1995-08-24 | 12.7 KB | 485 lines

object fmCustInfo: TfmCustInfo
  Left = 20
  Top = 37
  AutoScroll = False
  Width = 588
  Height = 445
  Caption = 'Customer Details'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  TextHeight = 14
  object ScrollBox: TScrollBox
    Left = 0
    Top = 37
    Width = 580
    Height = 175
    HorzScrollBar.Visible = False
    VertScrollBar.Visible = False
    Align = alTop
    BorderStyle = bsNone
    TabOrder = 0
    object Label1: TLabel
      Left = 7
      Top = 5
      Width = 80
      Height = 14
      Caption = 'Account number'
      FocusControl = EditACCT_NBR
    end
    object Label3: TLabel
      Left = 7
      Top = 29
      Width = 27
      Height = 14
      Caption = 'Name'
      FocusControl = EditFIRST_NAME
    end
    object Label4: TLabel
      Left = 7
      Top = 53
      Width = 42
      Height = 14
      Caption = 'Address'
      FocusControl = EditADDRESS_
    end
    object Label8: TLabel
      Left = 7
      Top = 103
      Width = 50
      Height = 14
      Caption = 'Telephone'
      FocusControl = EditTELEPHONE
    end
    object Label9: TLabel
      Left = 310
      Top = 30
      Width = 64
      Height = 14
      Caption = 'Date opened:'
      FocusControl = EditDATE_OPEN
    end
    object Label10: TLabel
      Left = 310
      Top = 54
      Width = 23
      Height = 14
      Caption = 'SS #'
      FocusControl = EditSS_NUMBER
    end
    object Label11: TLabel
      Left = 131
      Top = 85
      Width = 41
      Height = 14
      Caption = 'PICTURE'
    end
    object Label12: TLabel
      Left = 7
      Top = 125
      Width = 46
      Height = 14
      Caption = 'Birth date'
      FocusControl = EditBIRTH_DATE
    end
    object Label13: TLabel
      Left = 310
      Top = 103
      Width = 45
      Height = 14
      Caption = 'Risk level'
      FocusControl = EditRISK_LEVEL
    end
    object Label14: TLabel
      Left = 7
      Top = 150
      Width = 55
      Height = 14
      Caption = 'Occupation'
      FocusControl = EditOCCUPATION
    end
    object Label15: TLabel
      Left = 310
      Top = 127
      Width = 51
      Height = 14
      Caption = 'Objectives'
      FocusControl = EditOBJECTIVES
    end
    object Label16: TLabel
      Left = 220
      Top = 151
      Width = 42
      Height = 14
      Caption = 'Interests'
      FocusControl = EditINTERESTS
    end
    object EditACCT_NBR: TDBEdit
      Left = 91
      Top = 3
      Width = 50
      Height = 21
      DataField = 'ACCT_NBR'
      DataSource = DataSource1
      MaxLength = 0
      TabOrder = 0
    end
    object EditFIRST_NAME: TDBEdit
      Left = 91
      Top = 27
      Width = 100
      Height = 21
      DataField = 'FIRST_NAME'
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 20
      ParentFont = False
      TabOrder = 2
    end
    object EditADDRESS_: TDBEdit
      Left = 91
      Top = 51
      Width = 206
      Height = 21
      DataField = 'ADDRESS_1'
      DataSource = DataSource1
      MaxLength = 20
      TabOrder = 3
    end
    object EditCITY: TDBEdit
      Left = 91
      Top = 76
      Width = 100
      Height = 21
      DataField = 'CITY'
      DataSource = DataSource1
      MaxLength = 20
      TabOrder = 4
    end
    object EditSTATE: TDBEdit
      Left = 197
      Top = 76
      Width = 24
      Height = 21
      DataField = 'STATE'
      DataSource = DataSource1
      MaxLength = 2
      TabOrder = 5
    end
    object EditZIP: TDBEdit
      Left = 229
      Top = 76
      Width = 68
      Height = 21
      DataField = 'ZIP'
      DataSource = DataSource1
      MaxLength = 5
      TabOrder = 6
    end
    object EditTELEPHONE: TDBEdit
      Left = 91
      Top = 100
      Width = 80
      Height = 21
      DataField = 'TELEPHONE'
      DataSource = DataSource1
      MaxLength = 12
      TabOrder = 7
    end
    object EditDATE_OPEN: TDBEdit
      Left = 378
      Top = 27
      Width = 71
      Height = 21
      DataField = 'DATE_OPEN'
      DataSource = DataSource1
      MaxLength = 0
      TabOrder = 8
    end
    object EditSS_NUMBER: TDBEdit
      Left = 378
      Top = 51
      Width = 71
      Height = 21
      DataField = 'SS_NUMBER'
      DataSource = DataSource1
      MaxLength = 0
      TabOrder = 9
    end
    object EditBIRTH_DATE: TDBEdit
      Left = 91
      Top = 124
      Width = 50
      Height = 21
      DataField = 'BIRTH_DATE'
      DataSource = DataSource1
      MaxLength = 0
      TabOrder = 10
    end
    object EditRISK_LEVEL: TDBEdit
      Left = 378
      Top = 100
      Width = 71
      Height = 21
      DataField = 'RISK_LEVEL'
      DataSource = DataSource1
      MaxLength = 8
      TabOrder = 11
    end
    object EditOCCUPATION: TDBEdit
      Left = 91
      Top = 148
      Width = 110
      Height = 21
      DataField = 'OCCUPATION'
      DataSource = DataSource1
      MaxLength = 20
      TabOrder = 12
    end
    object EditOBJECTIVES: TDBEdit
      Left = 378
      Top = 124
      Width = 71
      Height = 21
      DataField = 'OBJECTIVES'
      DataSource = DataSource1
      MaxLength = 10
      TabOrder = 13
    end
    object EditINTERESTS: TDBEdit
      Left = 272
      Top = 148
      Width = 291
      Height = 21
      DataField = 'INTERESTS'
      DataSource = DataSource1
      MaxLength = 120
      TabOrder = 14
    end
    object DBImage1: TDBImage
      Left = 458
      Top = 27
      Width = 105
      Height = 105
      DataField = 'IMAGE'
      DataSource = DataSource1
      TabOrder = 15
    end
    object EditLAST_NAME: TDBEdit
      Left = 196
      Top = 27
      Width = 100
      Height = 21
      DataField = 'LAST_NAME'
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 20
      ParentFont = False
      TabOrder = 1
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 212
    Width = 580
    Height = 206
    Align = alClient
    DataSource = DataSource2
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 580
    Height = 37
    Align = alTop
    TabOrder = 2
    object Panel2: TPanel
      Left = 386
      Top = 1
      Width = 193
      Height = 35
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
    end
    object BtnRep: TBitBtn
      Left = 476
      Top = 4
      Width = 89
      Height = 28
      Caption = '&Report'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BtnRepClick
      Glyph.Data = {
        C6050000424DC605000000000000360400002800000014000000140000000100
        0800000000009001000000000000000000000000000000010000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
        A400FFDBFF00AADBFF00AAFFFF0055DBFF0055FFFF00AA25FF00006DFF00FF25
        FF000048FF005548FF00AA48FF00FF48FF0055000000AA000000002500005525
        0000AA250000FF2500000048000055480000AA480000FF480000006D0000556D
        0000AA6D0000FF6D00000092000055920000AA920000FF92000000B6000055B6
        0000AAB60000FFB6000000DB000055DB0000AADB0000FFDB000055FF0000AAFF
        00000000250055002500AA002500FF0025000025250055252500AA252500FF25
        25000048250055482500AA482500FF482500006D2500556D2500AA6D2500FF6D
        25000092250055922500AA922500FF92250000B6250055B62500AAB62500FFB6
        250000DB250055DB2500AADB2500FFDB250000FF250055FF2500AAFF2500FFFF
        25000000480055004800AA004800FF0048000025480055254800AA254800FF25
        48000048480055484800AA484800FF484800006D4800556D4800AA6D4800FF6D
        48000092480055924800AA924800FF92480000B6480055B64800AAB64800FFB6
        480000DB480055DB4800AADB4800FFDB480000FF480055FF4800AAFF4800FFFF
        480000006D0055006D00AA006D00FF006D0000256D0055256D00AA256D00FF25
        6D0000486D0055486D00AA486D00FF486D00006D6D00556D6D00AA6D6D00FF6D
        6D0000926D0055926D00AA926D00FF926D0000B66D0055B66D00AAB66D00FFB6
        6D0000DB6D0055DB6D00AADB6D00FFDB6D0000FF6D0055FF6D00AAFF6D00FFFF
        6D000000920055009200AA009200FF0092000025920055259200AA259200FF25
        92000048920055489200AA489200FF489200006D9200556D9200AA6D9200FF6D
        92000092920055929200AA929200FF92920000B6920055B69200AAB69200FFB6
        920000DB920055DB9200AADB9200FFDB920000FF920055FF9200AAFF9200FFFF
        92000000B6005500B600AA00B600FF00B6000025B6005525B600AA25B600FF25
        B6000048B6005548B600AA48B600FF48B600006DB600556DB600AA6DB600FF6D
        B6000092B6005592B600AA92B600FF92B60000B6B60055B6B600AAB6B600FFB6
        B60000DBB60055DBB600AADBB600FFDBB60000FFB60055FFB600AAFFB600FFFF
        B6000000DB005500DB00AA00DB00FF00DB000025DB005525DB00AA25DB00FF25
        DB000048DB005548DB00AA48DB00FF48DB00006DDB00556DDB00AA6DDB00FF6D
        DB000092DB005592DB00AA92DB00FF92DB0000B6DB0055B6DB00AAB6DB00FFB6
        DB0000DBDB0055DBDB00AADBDB00FFDBDB0000FFDB0055FFDB00AAFFDB00FFFF
        DB005500FF00AA00FF000025FF005525FF00F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
        0707070707070707070707070707070707070707070707070707070707070707
        0707070707070707070707070707070707070707070707070707070707070707
        0707070707070707070707070707000000000000000000000007070707070707
        0700070707070707070707000700070707070707000000000000000000000000
        000700070707070700070707070707FFFFFF0707000000070707070700070707
        070707F8F8F80707000700070707070700000000000000000000000000070700
        0707070700070707070707070707070007000700070707070700000000000000
        000000070007000007070707070700FFFFFFFFFFFFFFFF000700070007070707
        07070700FF0000000000FF00000000070707070707070700FFFFFFFFFFFFFFFF
        00070707070707070707070700FF0000000000FF000707070707070707070707
        00FFFFFFFFFFFFFFFF0007070707070707070707070000000000000000000707
        0707070707070707070707070707070707070707070707070707070707070707
        07070707070707070707}
    end
    object DBNavigator: TDBNavigator
      Left = 32
      Top = 5
      Width = 121
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 2
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'StockDB'
    SQL.Strings = (
      'Select * from clients')
    Left = 210
    Top = 29
  end
  object GridQuery: TQuery
    Active = True
    OnCalcFields = GridQueryCalcFields
    DatabaseName = 'StockDB'
    SQL.Strings = (

        'select  distinct H.ACCT_NBR, H.SYMBOL, H.SHARES, H.PUR_PRICE, H.' +
        'PUR_DATE,M.SYMBOL, M.CUR_PRICE'
      'from HOLDINGS H, MASTER M'
      'where "holdings"."ACCT_NBR" =:"ACCT_NBR"'
      'and H.SYMBOL = M.SYMBOL')
    DataSource = DataSource1
    Params.Data = {0100010008414343545F4E425200060800000000000E3C2F410000}
    Left = 264
    Top = 29
    object GridQuerySYMBOL: TStringField
      Alignment = taCenter
      DisplayLabel = 'Symbol'
      DisplayWidth = 11
      FieldName = 'SYMBOL'
      Size = 7
    end
    object GridQuerySHARES: TFloatField
      DisplayLabel = 'Quantity'
      DisplayWidth = 9
      FieldName = 'SHARES'
    end
    object GridQueryPUR_DATE: TDateField
      DisplayLabel = 'Date Purchased'
      DisplayWidth = 13
      FieldName = 'PUR_DATE'
    end
    object GridQueryPUR_PRICE: TFloatField
      DisplayLabel = 'Purchase Price'
      DisplayWidth = 13
      FieldName = 'PUR_PRICE'
      Currency = True
    end
    object GridQueryCUR_PRICE: TFloatField
      DisplayLabel = 'Current Price'
      DisplayWidth = 11
      FieldName = 'CUR_PRICE'
      Currency = True
    end
    object GridQuerySHAREVAL: TCurrencyField
      Calculated = True
      DisplayLabel = 'Current Value'
      DisplayWidth = 15
      FieldName = 'SHAREVAL'
      Currency = True
    end
    object GridQueryCHANGE: TCurrencyField
      Calculated = True
      DisplayLabel = 'Value Change'
      DisplayWidth = 14
      FieldName = 'CHANGE'
      Currency = True
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 237
    Top = 29
  end
  object DataSource2: TDataSource
    DataSet = GridQuery
    Left = 291
    Top = 29
  end
  object Report: TReport
    ReportName = 'CUSTOMER.RPT'
    ReportDir = 'c:\rptsmith\samples'
    Preview = True
    Left = 319
    Top = 29
  end
end