Chip 2003 December/CMCD1203.ISO/Software/Demo/salarii/Upgrade/salarii.exe/0/RCDATA/TFSELPERS/TFSELPERS.txt

Text File | 2003-10-10 | 19.1 KB | 896 lines

object FSelPers: TFSelPers
  Left = 228
  Top = 190
  Width = 722
  Height = 473
  Caption = 'Selectie Persoane'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 714
    Height = 32
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 710
      Height = 36
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Ltitlu: TLabelEffect
        Left = 505
        Top = 0
        Width = 205
        Height = 36
        ColourShadow = clGray
        GraduateFrom = clWindowText
        ColourScheme = csText
        Align = alRight
        Alignment = taCenter
        Caption = 'Cautare colaborator'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Panel6: TPanel
        Left = 236
        Top = 0
        Width = 269
        Height = 36
        Align = alRight
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelOuter = bvNone
        TabOrder = 0
        object DBN1: TDBNavigator
          Left = 11
          Top = 5
          Width = 232
          Height = 20
          DataSource = DsPersoane
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          Anchors = [akLeft, akTop, akRight, akBottom]
          Flat = True
          TabOrder = 0
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 236
        Height = 36
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object CBTip: TComboBox
          Left = 10
          Top = 3
          Width = 212
          Height = 21
          Style = csOwnerDrawFixed
          Anchors = [akLeft, akTop, akRight, akBottom]
          ItemHeight = 15
          TabOrder = 0
          OnChange = CBTipChange
          Items.Strings = (
            'Angajati permanenti'
            'Angajati Colaboratori'
            'Toti Angajatii')
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 423
    Width = 714
    Height = 23
    Panels = <
      item
        Alignment = taCenter
        Text = 'Cautare : F7  -  Repeta Cautarea : Ctrl-F7'
        Width = 300
      end
      item
        Alignment = taCenter
        Text = 'Enter - Selectare persoana'
        Width = 300
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object DBG1: TDBGrid
    Left = 0
    Top = 32
    Width = 714
    Height = 391
    Align = alClient
    DataSource = DsPersoane
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    OnDblClick = DBG1DblClick
    OnKeyDown = DBG1KeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'IID'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'Marca'
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Luna'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'NUME'
        Title.Caption = 'Nume'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRENUME'
        Title.Caption = 'Prenume'
        Width = 181
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CODNUMPERS'
        Title.Caption = 'Cod Numeric Personal'
        Width = 167
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FUNCTIE'
        Title.Caption = 'Functie'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Tip'
        Visible = False
      end>
  end
  object DsPersoane: TDataSource
    DataSet = CDSPers
    Left = 232
    Top = 152
  end
  object QPersoane2: TQuery
    Left = 80
    Top = 112
    object QPersoane2LUNA: TDateField
      FieldName = 'LUNA'
    end
    object QPersoane2IID: TIntegerField
      FieldName = 'IID'
    end
    object QPersoane2TIP: TStringField
      FieldName = 'TIP'
      Size = 1
    end
    object QPersoane2NUME: TStringField
      FieldName = 'NUME'
    end
    object QPersoane2PRENUME: TStringField
      FieldName = 'PRENUME'
      Size = 30
    end
    object QPersoane2CODNUMPERS: TStringField
      FieldName = 'CODNUMPERS'
      Size = 15
    end
    object QPersoane2IMPOZIT: TFloatField
      FieldName = 'IMPOZIT'
    end
    object QPersoane2DATA_ANG: TDateField
      FieldName = 'DATA_ANG'
    end
    object QPersoane2DATA_LICH: TDateField
      FieldName = 'DATA_LICH'
    end
    object QPersoane2LOCALITATE: TStringField
      FieldName = 'LOCALITATE'
    end
    object QPersoane2STRADA: TStringField
      FieldName = 'STRADA'
    end
    object QPersoane2NUMAR: TStringField
      FieldName = 'NUMAR'
      Size = 5
    end
    object QPersoane2CODPOSTAL: TStringField
      FieldName = 'CODPOSTAL'
      Size = 5
    end
    object QPersoane2BLOC: TStringField
      FieldName = 'BLOC'
      Size = 5
    end
    object QPersoane2SCARA: TStringField
      FieldName = 'SCARA'
      Size = 5
    end
    object QPersoane2ETAJ: TStringField
      FieldName = 'ETAJ'
      Size = 5
    end
    object QPersoane2AP: TStringField
      FieldName = 'AP'
      Size = 5
    end
    object QPersoane2SECTOR: TStringField
      FieldName = 'SECTOR'
      Size = 5
    end
    object QPersoane2CoefInd: TFloatField
      FieldName = 'CoefInd'
    end
    object QPersoane2INVALIDITATE: TIntegerField
      FieldName = 'INVALIDITATE'
    end
    object QPersoane2Judet: TStringField
      FieldName = 'Judet'
      Size = 16
    end
    object QPersoane2VENIT_NET: TFloatField
      FieldName = 'VENIT_NET'
    end
    object QPersoane2DED_PERS_SUPLI: TFloatField
      FieldName = 'DED_PERS_SUPLI'
    end
    object QPersoane2DED_PERS: TFloatField
      FieldName = 'DED_PERS'
    end
    object QPersoane2ALT_VENIT: TIntegerField
      FieldName = 'ALT_VENIT'
    end
    object QPersoane2EMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object QPersoane2FISA_RECTIF: TStringField
      FieldName = 'FISA_RECTIF'
      Size = 1
    end
    object QPersoane2FISA_REGUL: TStringField
      FieldName = 'FISA_REGUL'
      Size = 1
    end
    object QPersoane2DOMICILIU_EXT: TStringField
      FieldName = 'DOMICILIU_EXT'
      Size = 1
    end
    object QPersoane2TELEFON: TStringField
      FieldName = 'TELEFON'
    end
    object QPersoane2PR_VA: TFloatField
      FieldName = 'PR_VA'
    end
    object QPersoane2CH_PROF: TFloatField
      FieldName = 'CH_PROF'
    end
  end
  object tLookupPers: TTable
    Tag = 1
    FieldDefs = <
      item
        Name = 'Nr'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'LUNA'
        DataType = ftDate
      end
      item
        Name = 'IID'
        DataType = ftInteger
      end
      item
        Name = 'TIP'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NUME'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'PRENUME'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'CODNUMPERS'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'FUNCTIE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SALINC'
        DataType = ftFloat
      end
      item
        Name = 'TIMP'
        DataType = ftFloat
      end
      item
        Name = 'TIMP_SPL'
        DataType = ftFloat
      end
      item
        Name = 'VAL_TIMP_S'
        DataType = ftFloat
      end
      item
        Name = 'ALTESPORP'
        DataType = ftFloat
      end
      item
        Name = 'VAL_SPORP'
        DataType = ftFloat
      end
      item
        Name = 'PRIME'
        DataType = ftFloat
      end
      item
        Name = 'CM1L'
        DataType = ftFloat
      end
      item
        Name = 'CM2L'
        DataType = ftFloat
      end
      item
        Name = 'BRUT'
        DataType = ftFloat
      end
      item
        Name = 'PENSIE'
        DataType = ftFloat
      end
      item
        Name = 'SOMAJ'
        DataType = ftFloat
      end
      item
        Name = 'TOTDREPT'
        DataType = ftFloat
      end
      item
        Name = 'IMPOZIT'
        DataType = ftFloat
      end
      item
        Name = 'AVANS'
        DataType = ftFloat
      end
      item
        Name = 'RETINERI'
        DataType = ftFloat
      end
      item
        Name = 'RESTPL'
        DataType = ftFloat
      end
      item
        Name = 'STUDII'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DATA_ANG'
        DataType = ftDate
      end
      item
        Name = 'DATA_NAS'
        DataType = ftDate
      end
      item
        Name = 'DATA_LICH'
        DataType = ftDate
      end
      item
        Name = 'LOCALITATE'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'STRADA'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'NUMAR'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'CODPOSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'BLOC'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'SCARA'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'ETAJ'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'AP'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'SECTOR'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'TELEFON'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'ALTE_DATE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SANATATE'
        DataType = ftFloat
      end
      item
        Name = 'TIMP_NOAPTE'
        DataType = ftFloat
      end
      item
        Name = 'SUMA_T_NOAPTE'
        DataType = ftFloat
      end
      item
        Name = 'ZILE_CO'
        DataType = ftFloat
      end
      item
        Name = 'SUMA_ZILE_CO'
        DataType = ftFloat
      end
      item
        Name = 'ALTE_SUME'
        DataType = ftFloat
      end
      item
        Name = 'CIC'
        DataType = ftFloat
      end
      item
        Name = 'POPRIRI'
        DataType = ftFloat
      end
      item
        Name = 'GARANTII'
        DataType = ftFloat
      end
      item
        Name = 'ALTE_RET'
        DataType = ftFloat
      end
      item
        Name = 'PRIME_INCASATE'
        DataType = ftFloat
      end
      item
        Name = 'AVANS_CO'
        DataType = ftFloat
      end
      item
        Name = 'ZILE_FP'
        DataType = ftSmallint
      end
      item
        Name = 'ZILE_CM'
        DataType = ftSmallint
      end
      item
        Name = 'CATEGORIE'
        DataType = ftSmallint
      end
      item
        Name = 'MARCA'
        DataType = ftInteger
      end
      item
        Name = 'ACORD'
        DataType = ftString
        Size = 1
      end
      item
        Name = 'REALIZAT'
        DataType = ftFloat
      end
      item
        Name = 'ZILE_CIC'
        DataType = ftSmallint
      end
      item
        Name = 'SPORURI'
        DataType = ftFloat
      end
      item
        Name = 'CoefInd'
        DataType = ftFloat
      end
      item
        Name = 'INVALIDITATE'
        DataType = ftInteger
      end
      item
        Name = 'Judet'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'VENIT_NET'
        DataType = ftFloat
      end
      item
        Name = 'DED_PERS_SUPLI'
        DataType = ftFloat
      end
      item
        Name = 'DED_PERS'
        DataType = ftFloat
      end
      item
        Name = 'ALT_VENIT'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'tFPersIndex1'
        Fields = 'Nr'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'iIL'
        Fields = 'LUNA;IID'
        Options = [ixCaseInsensitive]
      end
      item
        Name = 'iLTCM'
        Fields = 'LUNA;TIP;CATEGORIE;MARCA'
        Options = [ixCaseInsensitive]
      end>
    IndexFieldNames = 'LUNA;IID'
    StoreDefs = True
    TableName = 'pers.db'
    Left = 160
    Top = 176
    object AutoIncField1: TAutoIncField
      FieldName = 'Nr'
      ReadOnly = True
    end
    object DateField1: TDateField
      FieldName = 'LUNA'
    end
    object IntegerField1: TIntegerField
      FieldName = 'IID'
    end
    object StringField1: TStringField
      FieldName = 'TIP'
      Size = 1
    end
    object StringField2: TStringField
      FieldName = 'NUME'
    end
    object StringField3: TStringField
      FieldName = 'PRENUME'
      Size = 30
    end
    object StringField4: TStringField
      FieldName = 'CODNUMPERS'
      Size = 15
    end
    object StringField5: TStringField
      FieldName = 'FUNCTIE'
      Size = 50
    end
    object FloatField1: TFloatField
      FieldName = 'SALINC'
    end
    object FloatField2: TFloatField
      FieldName = 'TIMP'
    end
    object FloatField3: TFloatField
      FieldName = 'TIMP_SPL'
    end
    object FloatField4: TFloatField
      FieldName = 'VAL_TIMP_S'
    end
    object FloatField5: TFloatField
      FieldName = 'ALTESPORP'
    end
    object FloatField6: TFloatField
      FieldName = 'PRIME'
    end
    object FloatField7: TFloatField
      FieldName = 'CM1L'
    end
    object FloatField8: TFloatField
      FieldName = 'CM2L'
    end
    object FloatField9: TFloatField
      FieldName = 'BRUT'
    end
    object FloatField10: TFloatField
      FieldName = 'PENSIE'
    end
    object FloatField11: TFloatField
      FieldName = 'SOMAJ'
    end
    object FloatField12: TFloatField
      FieldName = 'TOTDREPT'
    end
    object FloatField13: TFloatField
      FieldName = 'IMPOZIT'
    end
    object FloatField14: TFloatField
      FieldName = 'AVANS'
    end
    object FloatField15: TFloatField
      FieldName = 'RETINERI'
    end
    object FloatField16: TFloatField
      FieldName = 'RESTPL'
    end
    object StringField6: TStringField
      FieldName = 'STUDII'
      Size = 50
    end
    object DateField2: TDateField
      FieldName = 'DATA_ANG'
    end
    object DateField3: TDateField
      FieldName = 'DATA_NAS'
    end
    object DateField4: TDateField
      FieldName = 'DATA_LICH'
    end
    object StringField7: TStringField
      FieldName = 'LOCALITATE'
    end
    object StringField8: TStringField
      FieldName = 'STRADA'
    end
    object StringField9: TStringField
      FieldName = 'NUMAR'
      Size = 5
    end
    object StringField10: TStringField
      FieldName = 'CODPOSTAL'
      Size = 5
    end
    object StringField11: TStringField
      FieldName = 'BLOC'
      Size = 5
    end
    object StringField12: TStringField
      FieldName = 'SCARA'
      Size = 5
    end
    object StringField13: TStringField
      FieldName = 'ETAJ'
      Size = 5
    end
    object StringField14: TStringField
      FieldName = 'AP'
      Size = 5
    end
    object StringField15: TStringField
      FieldName = 'SECTOR'
      Size = 5
    end
    object StringField16: TStringField
      FieldName = 'TELEFON'
      Size = 50
    end
    object StringField17: TStringField
      FieldName = 'ALTE_DATE'
      Size = 50
    end
    object FloatField17: TFloatField
      FieldName = 'SANATATE'
    end
    object FloatField18: TFloatField
      FieldName = 'TIMP_NOAPTE'
    end
    object FloatField19: TFloatField
      FieldName = 'SUMA_T_NOAPTE'
    end
    object FloatField20: TFloatField
      FieldName = 'ZILE_CO'
    end
    object FloatField21: TFloatField
      FieldName = 'SUMA_ZILE_CO'
    end
    object FloatField22: TFloatField
      FieldName = 'ALTE_SUME'
    end
    object FloatField23: TFloatField
      FieldName = 'CIC'
    end
    object FloatField24: TFloatField
      FieldName = 'POPRIRI'
    end
    object FloatField25: TFloatField
      FieldName = 'GARANTII'
    end
    object FloatField26: TFloatField
      FieldName = 'ALTE_RET'
    end
    object FloatField27: TFloatField
      FieldName = 'PRIME_INCASATE'
    end
    object FloatField28: TFloatField
      FieldName = 'AVANS_CO'
    end
    object SmallintField1: TSmallintField
      FieldName = 'ZILE_FP'
    end
    object SmallintField2: TSmallintField
      FieldName = 'ZILE_CM'
    end
    object SmallintField3: TSmallintField
      FieldName = 'CATEGORIE'
    end
    object IntegerField2: TIntegerField
      FieldName = 'MARCA'
    end
    object StringField18: TStringField
      FieldName = 'ACORD'
      Size = 1
    end
    object FloatField29: TFloatField
      FieldName = 'REALIZAT'
    end
    object SmallintField4: TSmallintField
      FieldName = 'ZILE_CIC'
    end
    object FloatField31: TFloatField
      FieldName = 'SPORURI'
    end
    object FloatField32: TFloatField
      FieldName = 'CoefInd'
    end
    object IntegerField3: TIntegerField
      FieldName = 'INVALIDITATE'
    end
    object StringField19: TStringField
      FieldName = 'Judet'
      Size = 16
    end
    object FloatField33: TFloatField
      FieldName = 'VAL_SPORP'
    end
    object FloatField34: TFloatField
      FieldName = 'VENIT_NET'
    end
    object FloatField35: TFloatField
      FieldName = 'DED_PERS_SUPLI'
    end
    object FloatField36: TFloatField
      FieldName = 'DED_PERS'
    end
    object IntegerField4: TIntegerField
      FieldName = 'ALT_VENIT'
    end
    object FloatField37: TFloatField
      FieldKind = fkCalculated
      FieldName = 'Tarifar'
      Calculated = True
    end
    object FloatField38: TFloatField
      FieldKind = fkCalculated
      FieldName = 'FondSalariu'
      Calculated = True
    end
  end
  object CDSPers: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 80
    Top = 248
    object CDSPersIID: TIntegerField
      FieldName = 'IID'
      Visible = False
    end
    object CDSPersTip: TStringField
      FieldName = 'Tip'
      Size = 1
    end
    object CDSPersNUME: TStringField
      FieldName = 'NUME'
    end
    object CDSPersPRENUME: TStringField
      FieldName = 'PRENUME'
      Size = 30
    end
    object CDSPersCODNUMPERS: TStringField
      FieldName = 'CODNUMPERS'
      Size = 15
    end
    object CDSPersMarca: TIntegerField
      FieldName = 'Marca'
    end
    object CDSPersFUNCTIE: TStringField
      FieldName = 'FUNCTIE'
      Size = 50
    end
  end
  object WForm: TWForm
    Caption = 'Cautare persoane'
    Text = 'Asteptati va rog ...'
    Left = 344
    Top = 120
  end
end