clientform.dfm

source for card readers

object Form3: TForm3
  Left = 446
  Top = 267
  Width = 590
  Height = 488
  Caption = 'Delphi 7 DataSnap Client talking to DB2 DataSnap Server'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 200
    Top = 40
    Width = 377
    Height = 129
    DataSource = dsEMP
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 112
    Top = 8
    Width = 240
    Height = 25
    DataSource = dsEMP
    TabOrder = 1
  end
  object DBGrid2: TDBGrid
    Left = 200
    Top = 176
    Width = 377
    Height = 65
    DataSource = dsEMP_ACT
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBMemo1: TDBMemo
    Left = 8
    Top = 256
    Width = 297
    Height = 201
    DataField = 'RESUME'
    DataSource = dsEMP_RESUME
    TabOrder = 3
  end
  object DBImage1: TDBImage
    Left = 312
    Top = 248
    Width = 265
    Height = 209
    DataField = 'PICTURE'
    DataSource = dsEMP_PHOTO
    TabOrder = 4
  end
  object btnApplyUpdates: TButton
    Left = 464
    Top = 8
    Width = 113
    Height = 25
    Caption = 'Apply Updates'
    TabOrder = 5
    OnClick = btnApplyUpdatesClick
  end
  object DCOMConnection1: TDCOMConnection
    ServerGUID = '{48DC05D9-62FE-4A99-905C-CF1A64313149}'
    ServerName = 'DataSnapServer.RemoteDataModuleDB2'
    Left = 40
    Top = 16
  end
  object cdsEMP: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspEMPLOYEE'
    RemoteServer = DCOMConnection1
    Left = 40
    Top = 64
    object cdsEMPEMPNO: TStringField
      FieldName = 'EMPNO'
      Required = True
      FixedChar = True
      Size = 6
    end
    object cdsEMPFIRSTNME: TStringField
      FieldName = 'FIRSTNME'
      Required = True
      Size = 12
    end
    object cdsEMPMIDINIT: TStringField
      FieldName = 'MIDINIT'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cdsEMPLASTNAME: TStringField
      FieldName = 'LASTNAME'
      Required = True
      Size = 15
    end
    object cdsEMPWORKDEPT: TStringField
      FieldName = 'WORKDEPT'
      FixedChar = True
      Size = 3
    end
    object cdsEMPPHONENO: TStringField
      FieldName = 'PHONENO'
      FixedChar = True
      Size = 4
    end
    object cdsEMPHIREDATE: TDateField
      FieldName = 'HIREDATE'
    end
    object cdsEMPJOB: TStringField
      FieldName = 'JOB'
      FixedChar = True
      Size = 8
    end
    object cdsEMPEDLEVEL: TSmallintField
      FieldName = 'EDLEVEL'
      Required = True
    end
    object cdsEMPSEX: TStringField
      FieldName = 'SEX'
      FixedChar = True
      Size = 1
    end
    object cdsEMPBIRTHDATE: TDateField
      FieldName = 'BIRTHDATE'
    end
    object cdsEMPSALARY: TBCDField
      FieldName = 'SALARY'
      Precision = 9
      Size = 2
    end
    object cdsEMPBONUS: TBCDField
      FieldName = 'BONUS'
      Precision = 9
      Size = 2
    end
    object cdsEMPCOMM: TBCDField
      FieldName = 'COMM'
      Precision = 9
      Size = 2
    end
    object cdsEMPSQLtblEMP_RESUME: TDataSetField
      FieldName = 'SQLtblEMP_RESUME'
    end
    object cdsEMPSQLtblEMP_PHOTO: TDataSetField
      FieldName = 'SQLtblEMP_PHOTO'
    end
    object cdsEMPSQLtblEMP_ACT: TDataSetField
      FieldName = 'SQLtblEMP_ACT'
    end
  end
  object cdsEMP_ACT: TClientDataSet
    Aggregates = <>
    DataSetField = cdsEMPSQLtblEMP_ACT
    IndexFieldNames = 'EMPNO'
    Params = <>
    Left = 40
    Top = 112
  end
  object cdsEMP_PHOTO: TClientDataSet
    Aggregates = <>
    DataSetField = cdsEMPSQLtblEMP_PHOTO
    IndexFieldNames = 'EMPNO'
    Params = <>
    Left = 40
    Top = 160
  end
  object cdsEMP_RESUME: TClientDataSet
    Aggregates = <>
    DataSetField = cdsEMPSQLtblEMP_RESUME
    IndexFieldNames = 'EMPNO'
    Params = <>
    Left = 40
    Top = 208
  end
  object dsEMP: TDataSource
    DataSet = cdsEMP
    Left = 144
    Top = 64
  end
  object dsEMP_ACT: TDataSource
    DataSet = cdsEMP_ACT
    Left = 144
    Top = 112
  end
  object dsEMP_PHOTO: TDataSource
    DataSet = cdsEMP_PHOTO
    Left = 144
    Top = 160
  end
  object dsEMP_RESUME: TDataSource
    DataSet = cdsEMP_RESUME
    Left = 144
    Top = 208
  end
end