home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 December / CMCD1203.ISO / Software / Demo / salarii / Upgrade / salarii.exe / 0 / RCDATA / TFALEGEFOLDER / TFALEGEFOLDER.txt
Encoding:
Text File  |  2003-10-10  |  2.8 KB  |  141 lines
  1. object FAlegeFolder: TFAlegeFolder
  2.   Left = 304
  3.   Top = 309
  4.   BorderStyle = bsDialog
  5.   Caption = 'FAlegeFolder'
  6.   ClientHeight = 139
  7.   ClientWidth = 338
  8.   Color = clBtnFace
  9.   Font.Charset = ANSI_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -12
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 15
  19.   object sbCale: TSpeedButton
  20.     Left = 305
  21.     Top = 58
  22.     Width = 23
  23.     Height = 22
  24.     Caption = '...'
  25.     Font.Charset = ANSI_CHARSET
  26.     Font.Color = clWindowText
  27.     Font.Height = -12
  28.     Font.Name = 'Arial'
  29.     Font.Style = []
  30.     ParentFont = False
  31.     OnClick = sbCaleClick
  32.   end
  33.   object lDep: TLabel
  34.     Left = 0
  35.     Top = 0
  36.     Width = 338
  37.     Height = 34
  38.     Align = alTop
  39.     Alignment = taCenter
  40.     AutoSize = False
  41.     Caption = 
  42.       'Alegeti directorul in care exista fisierele cu fisele fiscale in' +
  43.       ' format TXT '
  44.     Font.Charset = ANSI_CHARSET
  45.     Font.Color = clWindowText
  46.     Font.Height = -12
  47.     Font.Name = 'Arial'
  48.     Font.Style = [fsBold]
  49.     ParentFont = False
  50.     WordWrap = True
  51.   end
  52.   object Label1: TLabel
  53.     Left = 10
  54.     Top = 62
  55.     Width = 29
  56.     Height = 15
  57.     Caption = 'Cale:'
  58.   end
  59.   object ECale: TE
  60.     Left = 42
  61.     Top = 58
  62.     Width = 250
  63.     Height = 23
  64.     Font.Charset = ANSI_CHARSET
  65.     Font.Color = clWindowText
  66.     Font.Height = -12
  67.     Font.Name = 'Arial'
  68.     Font.Style = []
  69.     ParentFont = False
  70.     TabOrder = 0
  71.   end
  72.   object BConfirm: TB
  73.     Left = 69
  74.     Top = 99
  75.     Width = 100
  76.     Height = 30
  77.     Caption = '&Confirm'
  78.     Font.Charset = ANSI_CHARSET
  79.     Font.Color = clBtnText
  80.     Font.Height = -12
  81.     Font.Name = 'Arial'
  82.     Font.Style = []
  83.     ModalResult = 1
  84.     ParentFont = False
  85.     TabOrder = 1
  86.     OnClick = BConfirmClick
  87.   end
  88.   object BAnulez: TB
  89.     Left = 175
  90.     Top = 99
  91.     Width = 100
  92.     Height = 30
  93.     Cancel = True
  94.     Caption = '&Anulez'
  95.     Font.Charset = ANSI_CHARSET
  96.     Font.Color = clBtnText
  97.     Font.Height = -12
  98.     Font.Name = 'Arial'
  99.     Font.Style = []
  100.     ModalResult = 2
  101.     ParentFont = False
  102.     TabOrder = 2
  103.   end
  104.   object OD1: TOpenDialog
  105.     DefaultExt = '*.txt'
  106.     Filter = 'Fisiere TXT (*.txt)|*.txt|Toate Fisierele (*.*)|*.*'
  107.     Left = 300
  108.     Top = 96
  109.   end
  110.   object qDelAngajati: TQuery
  111.     DatabaseName = '_DBSal4'
  112.     SQL.Strings = (
  113.       'delete '
  114.       'from Pers '
  115.       'where Data_Lich < :LunaCurenta'
  116.       '          and Data_Lich  <> :DataDefault')
  117.     Left = 16
  118.     Top = 88
  119.     ParamData = <
  120.       item
  121.         DataType = ftDate
  122.         Name = 'LunaCurenta'
  123.         ParamType = ptInput
  124.       end
  125.       item
  126.         DataType = ftDate
  127.         Name = 'DataDefault'
  128.         ParamType = ptInput
  129.       end>
  130.   end
  131.   object qUpdateIID: TQuery
  132.     DatabaseName = '_DBSal4'
  133.     SQL.Strings = (
  134.       'update'
  135.       'Pers '
  136.       'set IID = Nr ')
  137.     Left = 276
  138.     Top = 12
  139.   end
  140. end
  141.