home *** CD-ROM | disk | FTP | other *** search
- object FPint: TFPint
- Left = 222
- Top = 163
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Persoane in intretinere'
- ClientHeight = 441
- ClientWidth = 665
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object LName: TLabel
- Left = 16
- Top = 0
- Width = 57
- Height = 16
- Caption = 'Angajat: '
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object LDate: TLabel
- Left = 16
- Top = 18
- Width = 40
- Height = 16
- Caption = 'Luna: '
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object lTitlu: TLabelEffect
- Left = 0
- Top = 0
- Width = 665
- Height = 25
- ColourShadow = clGray
- GraduateFrom = clWindowText
- StyleHighlight = eoExtrude
- StyleShadow = eoGraduated
- ColourScheme = csText
- Align = alTop
- Alignment = taRightJustify
- Caption = 'Persoane in intretinere '
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object DBG1: TDBGrid
- Left = 13
- Top = 40
- Width = 641
- Height = 337
- Anchors = [akLeft, akTop, akRight, akBottom]
- DataSource = DV.dPint
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
- ParentFont = False
- PopupMenu = PM1
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnDblClick = BModificareClick
- OnKeyDown = DBG1KeyDown
- Columns = <
- item
- Expanded = False
- FieldName = 'Nr'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'Luna'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'IID'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'AiPers'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'Nume'
- Width = 93
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Prenume'
- Width = 134
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'CODNUMPERS'
- Title.Caption = 'CNP'
- Width = 100
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Calitate'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'Invaliditate'
- Visible = False
- end
- item
- Expanded = False
- FieldName = 'Coef'
- Width = 49
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Kalitate'
- Title.Caption = 'Calitate'
- Width = 107
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'Ynvaliditate'
- Title.Caption = 'Invaliditate'
- Width = 120
- Visible = True
- end>
- end
- object Panel1: TPanel
- Left = 0
- Top = 406
- Width = 665
- Height = 35
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- object BAdaugare: TB
- Left = 13
- Top = 1
- Width = 150
- Height = 29
- Anchors = [akLeft, akBottom]
- Caption = '&Adaugare'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = BAdaugareClick
- end
- object BModificare: TB
- Left = 165
- Top = 1
- Width = 150
- Height = 29
- Anchors = [akLeft, akBottom]
- Caption = '&Modificare'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = BModificareClick
- end
- object BStergere: TB
- Left = 317
- Top = 1
- Width = 150
- Height = 29
- Anchors = [akLeft, akBottom]
- Caption = '&Stergere'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = BStergereClick
- end
- object BX: TB
- Left = 511
- Top = 1
- Width = 150
- Height = 29
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = '&Iesire'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 3
- end
- end
- object PanCoefs: TPanel
- Left = 0
- Top = 378
- Width = 665
- Height = 28
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object Label4: TLabel
- Left = 14
- Top = 4
- Width = 90
- Height = 17
- AutoSize = False
- Caption = ' Coef. pt. calcul '
- Color = clInfoBk
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Visible = False
- end
- object Label3: TLabel
- Left = 160
- Top = 4
- Width = 66
- Height = 17
- AutoSize = False
- Caption = ' Coef. Total'
- Color = clInfoBk
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object LCoefD: TLabel
- Left = 108
- Top = 4
- Width = 41
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = '?'
- Color = clInfoBk
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Visible = False
- end
- object LCoefR: TLabel
- Left = 228
- Top = 4
- Width = 41
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = '?'
- Color = clInfoBk
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Label1: TLabel
- Left = 405
- Top = 6
- Width = 69
- Height = 17
- AutoSize = False
- Caption = ' &Coef. baza'
- Color = clInfoBk
- FocusControl = CoefBaza
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object NCoefD: TISCalcEdit
- Left = 300
- Top = 4
- Width = 41
- Height = 20
- Alignment = taCenter
- AutoSelect = False
- AutoSize = False
- BeepOnError = False
- BorderStyle = bsNone
- ClickKey = 0
- Color = clInfoBk
- Enabled = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- FormatOnEditing = True
- ButtonWidth = 0
- NumGlyphs = 2
- ParentFont = False
- ReadOnly = True
- TabOrder = 1
- Visible = False
- Movement = mvNone
- end
- object NCoefR: TISCalcEdit
- Left = 348
- Top = 4
- Width = 41
- Height = 20
- Alignment = taCenter
- AutoSelect = False
- AutoSize = False
- BeepOnError = False
- BorderStyle = bsNone
- ClickKey = 0
- Color = clInfoBk
- Enabled = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- FormatOnEditing = True
- ButtonWidth = 0
- NumGlyphs = 2
- ParentFont = False
- ReadOnly = True
- TabOrder = 2
- Visible = False
- Movement = mvNone
- end
- object CoefBaza: TISCalcEdit
- Left = 479
- Top = 4
- Width = 41
- Height = 21
- AutoSize = False
- ButtonWidth = 0
- NumGlyphs = 2
- TabOrder = 0
- end
- end
- object DBNavigator1: TDBNavigator
- Left = 301
- Top = 8
- Width = 150
- Height = 25
- DataSource = DV.dPint
- VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
- Flat = True
- TabOrder = 3
- end
- object PM1: TPopupMenu
- Left = 264
- Top = 192
- object Adaugare1: TMenuItem
- Caption = '&Adaugare'
- ShortCut = 45
- OnClick = BAdaugareClick
- end
- object Modificare1: TMenuItem
- Caption = '&Modificare'
- ShortCut = 13
- OnClick = BModificareClick
- end
- object Stergere1: TMenuItem
- Caption = '&Stergere'
- ShortCut = 46
- OnClick = BStergereClick
- end
- end
- end
-