home *** CD-ROM | disk | FTP | other *** search
- object FTransm: TFTransm
- Left = 456
- Top = 208
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Transmitere electronica'
- ClientHeight = 107
- ClientWidth = 326
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 15
- object Label1: TLabel
- Left = 75
- Top = 31
- Width = 30
- Height = 15
- Caption = 'Anul :'
- end
- object lTitlu: TLabelEffect
- Left = 0
- Top = 0
- Width = 326
- Height = 25
- ColourShadow = clGray
- GraduateFrom = clWindowText
- StyleHighlight = eoExtrude
- StyleShadow = eoGraduated
- ColourScheme = csText
- Align = alTop
- Alignment = taCenter
- Caption = 'Specificati anul'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object BConfirm: TB
- Left = 31
- Top = 67
- Width = 130
- Height = 30
- Caption = '&Confirmare'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 0
- OnClick = BConfirmClick
- end
- object B2: TB
- Left = 165
- Top = 67
- Width = 130
- Height = 30
- Cancel = True
- Caption = '&Abandon'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = B2Click
- end
- object CBAn: TComboBox
- Left = 108
- Top = 29
- Width = 144
- Height = 23
- Style = csOwnerDrawFixed
- DropDownCount = 12
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 17
- ParentFont = False
- TabOrder = 2
- OnKeyDown = CBAnKeyDown
- Items.Strings = (
- '1.10.2000')
- end
- object SD1: TSaveDialog
- Filter = 'Fisierele(*.txt,*.dbf)|*.txt;*.dbf'
- Left = 276
- Top = 24
- end
- object qCh_Profes: TQuery
- DatabaseName = 'Int_Firme'
- SQL.Strings = (
- 'select * from para where den = '#39'CheltProf'#39' and luna =:Data')
- Left = 20
- Top = 4
- ParamData = <
- item
- DataType = ftDate
- Name = 'Data'
- ParamType = ptInput
- end>
- end
- end
-