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

Text File | 2003-10-10 | 8.1 KB | 370 lines

object FAMSFirme: TFAMSFirme
  Left = 247
  Top = 256
  Width = 717
  Height = 448
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Gestiune firme'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 380
    Width = 709
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    Caption = ' '
    TabOrder = 1
    object Bx: TB
      Left = 574
      Top = 6
      Width = 130
      Height = 30
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = '&Iesire'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = BxClick
    end
    object BAdaugare: TB
      Left = 12
      Top = 6
      Width = 130
      Height = 30
      Caption = '&Adaugare firma'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BAdaugareClick
    end
    object BModificare: TB
      Left = 143
      Top = 6
      Width = 130
      Height = 30
      Caption = '&Modificare firma'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BModificareClick
    end
    object BStergere: TB
      Left = 274
      Top = 6
      Width = 130
      Height = 30
      Caption = '&Stergere firma'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BStergereClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 709
    Height = 339
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 5
    Caption = ' '
    TabOrder = 0
    object DBG1: TDBGrid
      Left = 7
      Top = 7
      Width = 695
      Height = 325
      Align = alClient
      Color = clMenu
      DataSource = DV.dFirme
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = PM1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      OnDrawColumnCell = DBG1DrawColumnCell
      OnDblClick = BModificareClick
      OnKeyDown = DBG1KeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'CodF'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'Cod'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TipAngaj'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Denumire'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nume'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Prenume'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Judet'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CodFiscal'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RegCom'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Banca1'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Banca2'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Banca3'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cont1'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cont2'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cont3'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Telefon'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Fax'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EMail'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Localitate'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Strada'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Numar'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CodPostal'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Bloc'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Scara'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Etaj'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ap'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Sector'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Pers1'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Pers2'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NrI'
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 709
    Height = 41
    Align = alTop
    BevelInner = bvLowered
    BorderWidth = 2
    Caption = ' '
    TabOrder = 2
    object LE1: TLabelEffect
      Left = 502
      Top = 4
      Width = 203
      Height = 33
      ColourShadow = clGray
      GraduateFrom = clWindowText
      ColourScheme = csText
      Align = alRight
      Alignment = taRightJustify
      Caption = 'Firme    '
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lTitlu: TLabelEffect
      Left = 36
      Top = 4
      Width = 269
      Height = 33
      ColourShadow = clGray
      GraduateFrom = clWindowText
      StyleHighlight = eoExtrude
      StyleShadow = eoGraduated
      ColourScheme = csText
      Align = alClient
      Alignment = taCenter
      Caption = 'Firma'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Image1: TImage
      Left = 4
      Top = 4
      Width = 32
      Height = 33
      Hint = '(c) Integrator Soft'#13#10'Relatii la:'#13#10'  0268 427 700'#13#10'  0722 248 908'
      Align = alLeft
      AutoSize = True
      ParentShowHint = False
      Picture.Data = {<image000.ico>}
      ShowHint = True
    end
    object DBNavigator1: TDBNavigator
      Left = 305
      Top = 4
      Width = 197
      Height = 33
      DataSource = DV.dFirme
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
      Align = alRight
      Anchors = [akLeft, akTop, akBottom]
      Flat = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object PM1: TPopupMenu
    Left = 120
    Top = 89
    object Adugare1: TMenuItem
      Caption = '&Adaugare firma'
      ShortCut = 45
      OnClick = BAdaugareClick
    end
    object Modificare1: TMenuItem
      Caption = '&Modificare firma'
      ShortCut = 13
      OnClick = BModificareClick
    end
    object Stergere1: TMenuItem
      Caption = '&Stergere firma'
      ShortCut = 46
      OnClick = BStergereClick
    end
  end
end