pagedemo.dfm

East make Tray Icon in delphi

        TabOrder = 3
        OnChange = EditChange
      end
      object EditSS_NUMBER: TDBEdit
        Left = 277
        Top = 153
        Width = 87
        Height = 21
        DataField = 'SS_NUMBER'
        DataSource = ClientsDS
        TabOrder = 9
        OnChange = EditChange
      end
      object EditOBJECTIVES: TDBEdit
        Left = 296
        Top = 226
        Width = 67
        Height = 21
        DataField = 'OBJECTIVES'
        DataSource = ClientsDS
        TabOrder = 13
        OnChange = EditChange
      end
      object EditBIRTH_DATE: TJvDBDateEdit
        Left = 142
        Top = 177
        Width = 110
        Height = 21
        DataField = 'BIRTH_DATE'
        DataSource = ClientsDS
        ButtonHint = 'Calendar|'
        DialogTitle = 'Select a date'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        OnChange = EditChange
      end
      object EditINTERESTS: TDBEdit
        Left = 142
        Top = 250
        Width = 221
        Height = 21
        DataField = 'INTERESTS'
        DataSource = ClientsDS
        TabOrder = 14
        OnChange = EditChange
      end
      object EditIMAGE: TDBImage
        Left = 373
        Top = 55
        Width = 105
        Height = 105
        DataField = 'IMAGE'
        DataSource = ClientsDS
        TabOrder = 15
      end
      object EditDATE_OPEN: TJvDBDateEdit
        Left = 271
        Top = 55
        Width = 93
        Height = 21
        DataField = 'DATE_OPEN'
        DataSource = ClientsDS
        ButtonHint = 'Calendar|'
        DialogTitle = 'Select a date'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnChange = EditChange
      end
      object ComboRISK_LEVEL: TJvDBComboBox
        Left = 142
        Top = 226
        Width = 87
        Height = 21
        Hint = 'TJvDBComboBox|'
        DataField = 'RISK_LEVEL'
        DataSource = ClientsDS
        ItemHeight = 13
        Items.Strings = (
          'Low'
          'Medium'
          'High')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 12
        Values.Strings = (
          'LOW'
          'MED'
          'HIGH')
        OnChange = EditChange
      end
    end
  end
  object ClientsDS: TDataSource
    AutoEdit = False
    DataSet = Clients
    Left = 176
    Top = 304
  end
  object SearchQuery: TJvQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'SELECT * FROM '
      '  "CLIENTS.DBF" CLIENTS'
      'WHERE '
      '  (ACCT_NBR IS NOT NULL)'
      '   AND'
      '  (%FIRST_NAME)'
      '   AND'
      '  (%LAST_NAME)'
      '   AND'
      '  (%CITY)'
      '   AND'
      '  (%STATE)'
      '   AND'
      '  (%OCCUPATION)'
      'ORDER BY '
      '  CLIENTS."LAST_NAME",'
      '  CLIENTS."FIRST_NAME"')
    Macros = <
      item
        DataType = ftString
        Name = 'FIRST_NAME'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'LAST_NAME'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'CITY'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'STATE'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'OCCUPATION'
        ParamType = ptInput
        Value = '0=0'
      end>
    Left = 208
    Top = 292
    object SearchQueryLAST_NAME: TStringField
      DisplayLabel = 'Last Name'
      FieldName = 'LAST_NAME'
    end
    object SearchQueryFIRST_NAME: TStringField
      DisplayLabel = 'First Name'
      FieldName = 'FIRST_NAME'
    end
    object SearchQueryACCT_NBR: TFloatField
      DisplayLabel = 'Account'
      FieldName = 'ACCT_NBR'
    end
    object SearchQueryADDRESS_1: TStringField
      DisplayLabel = 'Address'
      FieldName = 'ADDRESS_1'
    end
    object SearchQueryCITY: TStringField
      DisplayLabel = 'City'
      FieldName = 'CITY'
    end
    object SearchQuerySTATE: TStringField
      DisplayLabel = 'State'
      FieldName = 'STATE'
      Size = 2
    end
    object SearchQueryZIP: TStringField
      FieldName = 'ZIP'
      Size = 5
    end
    object SearchQueryTELEPHONE: TStringField
      DisplayLabel = 'Phone'
      FieldName = 'TELEPHONE'
      Size = 12
    end
    object SearchQueryDATE_OPEN: TDateField
      DisplayLabel = 'Date opened'
      FieldName = 'DATE_OPEN'
    end
    object SearchQuerySS_NUMBER: TFloatField
      DisplayLabel = 'SS #'
      FieldName = 'SS_NUMBER'
    end
    object SearchQueryBIRTH_DATE: TDateField
      DisplayLabel = 'Birth Date'
      FieldName = 'BIRTH_DATE'
    end
    object SearchQueryRISK_LEVEL: TStringField
      DisplayLabel = 'Risk Level'
      FieldName = 'RISK_LEVEL'
      Size = 8
    end
    object SearchQueryOCCUPATION: TStringField
      DisplayLabel = 'Occupation'
      FieldName = 'OCCUPATION'
    end
    object SearchQueryOBJECTIVES: TStringField
      DisplayLabel = 'Objectives'
      FieldName = 'OBJECTIVES'
      Size = 10
    end
    object SearchQueryINTERESTS: TStringField
      DisplayLabel = 'Interests'
      FieldName = 'INTERESTS'
      Size = 120
    end
  end
  object SearchQueryDS: TDataSource
    DataSet = SearchQuery
    Left = 248
    Top = 296
  end
  object FormStorage: TJvFormStorage
    AppStorage = MainForm.JvAppRegistryStorage
    AppStoragePath = 'Page Manager\'
    StoredProps.Strings = (
      'DoSearchBtn.Checked'
      'SkipSearchBtn.Checked'
      'ExactBtn.Checked')
    StoredValues = <>
    Left = 4
    Top = 294
  end
  object PageManager: TJvPageManager
    PageOwner = Notebook
    NextBtn = NextBtn
    PriorBtn = BackBtn
    OnGetPriorPage = PageManagerGetPriorPage
    OnGetNextPage = PageManagerGetNextPage
    Left = 32
    Top = 294
    object ToDo: TJvPageProxy
      PageName = 'ToDo'
      OnLeave = ToDoLeave
    end
    object SearchConfirm: TJvPageProxy
      PageName = 'SearchConfirm'
    end
    object SearchParams: TJvPageProxy
      PageName = 'SearchParams'
      OnLeave = SearchParamsLeave
    end
    object ClientsBrowse: TJvPageProxy
      PageName = 'ClientsBrowse'
      OnLeave = ClientsBrowseLeave
      OnShow = ClientsBrowseShow
    end
    object ClientEdit: TJvPageProxy
      PageName = 'ClientEdit'
      OnEnter = ClientEditEnter
      OnLeave = ClientEditLeave
      OnShow = ClientEditShow
    end
  end
  object Clients: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'CLIENTS.DBF'
    Left = 176
    Top = 294
    object ClientsLAST_NAME: TStringField
      FieldName = 'LAST_NAME'
      Required = True
      OnChange = ClientDataChange
    end
    object ClientsFIRST_NAME: TStringField
      FieldName = 'FIRST_NAME'
      Required = True
      OnChange = ClientDataChange
    end
    object ClientsACCT_NBR: TFloatField
      FieldName = 'ACCT_NBR'
      Required = True
      OnChange = ClientDataChange
    end
    object ClientsADDRESS_1: TStringField
      FieldName = 'ADDRESS_1'
      OnChange = ClientDataChange
    end
    object ClientsCITY: TStringField
      FieldName = 'CITY'
      OnChange = ClientDataChange
    end
    object ClientsSTATE: TStringField
      FieldName = 'STATE'
      OnChange = ClientDataChange
      Size = 2
    end
    object ClientsZIP: TStringField
      FieldName = 'ZIP'
      OnChange = ClientDataChange
      Size = 5
    end
    object ClientsTELEPHONE: TStringField
      FieldName = 'TELEPHONE'
      OnChange = ClientDataChange
      Size = 12
    end
    object ClientsDATE_OPEN: TDateField
      FieldName = 'DATE_OPEN'
      OnChange = ClientDataChange
    end
    object ClientsSS_NUMBER: TFloatField
      FieldName = 'SS_NUMBER'
      OnChange = ClientDataChange
    end
    object ClientsPICTURE: TStringField
      FieldName = 'PICTURE'
      OnChange = ClientDataChange
      Size = 15
    end
    object ClientsBIRTH_DATE: TDateField
      FieldName = 'BIRTH_DATE'
      OnChange = ClientDataChange
    end
    object ClientsRISK_LEVEL: TStringField
      FieldName = 'RISK_LEVEL'
      OnChange = ClientDataChange
      Size = 8
    end
    object ClientsOCCUPATION: TStringField
      FieldName = 'OCCUPATION'
      OnChange = ClientDataChange
    end
    object ClientsOBJECTIVES: TStringField
      FieldName = 'OBJECTIVES'
      OnChange = ClientDataChange
      Size = 10
    end
    object ClientsINTERESTS: TStringField
      FieldName = 'INTERESTS'
      OnChange = ClientDataChange
      Size = 120
    end
    object ClientsIMAGE: TBlobField
      FieldName = 'IMAGE'
      OnChange = ClientDataChange
      Size = 1
    end
  end
end