home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 October
/
PCWorld_1999-10_cd2.bin
/
Supreme
/
_SETUP.1
/
Contact.exe
/
0
/
RCDATA
/
TFORMLICENCE
/
TFORMLICENCE.txt
Wrap
Text File
|
1999-09-06
|
8KB
|
344 lines
inherited FormLicence: TFormLicence
Left = 299
Top = 123
Caption = 'FormLicence'
ClientHeight = 362
ClientWidth = 301
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel [0]
Left = 8
Top = 8
Width = 285
Height = 317
Shape = bsFrame
end
object LabelPlus11: TLabelPlus [1]
Left = 24
Top = 20
Width = 31
Height = 13
Caption = '&Firma'
FocusControl = EditFirma
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus10: TLabelPlus [2]
Left = 156
Top = 156
Width = 99
Height = 13
Caption = '&Intern� pracovn�k'
FocusControl = EditPrac
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus1: TLabelPlus [3]
Left = 24
Top = 156
Width = 51
Height = 13
Caption = '&Zaplaceno'
FocusControl = EditSuma
Attached = True
end
object LabelPlus2: TLabelPlus [4]
Left = 24
Top = 68
Width = 91
Height = 13
Caption = '&Registra�n� k�d'
FocusControl = EditReg
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus3: TLabelPlus [5]
Left = 156
Top = 68
Width = 75
Height = 13
Caption = '&Licen�n� k�d'
FocusControl = EditLic
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus4: TLabelPlus [6]
Left = 24
Top = 112
Width = 92
Height = 13
Caption = '&Datum zprovozn�n�'
FocusControl = EditStart
Attached = True
end
object LabelPlus5: TLabelPlus [7]
Left = 156
Top = 112
Width = 74
Height = 13
Caption = 'Datum &vypr�en�'
FocusControl = EditExpir
Attached = True
end
object Label1: TLabel [8]
Left = 132
Top = 176
Width = 13
Height = 13
Caption = 'K�'
end
object LabelPlus6: TLabelPlus [9]
Left = 24
Top = 244
Width = 50
Height = 13
Caption = '&Pozn�mka'
FocusControl = Memo
Attached = True
end
object LabelPlus7: TLabelPlus [10]
Left = 24
Top = 200
Width = 61
Height = 13
Caption = '&Sektor z�jmu'
FocusControl = EditSektor
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
inherited BtnOk: TButton
Left = 136
Top = 332
TabOrder = 10
end
inherited BtnCancel: TButton
Left = 216
Top = 332
TabOrder = 11
end
object EditFirma: TBrowserLookupEdit [13]
Left = 24
Top = 36
Width = 253
Height = 21
Separator = #0
AllowNull = False
AllVisible = False
BrowserOnly = False
ButtonHint = 'Vybrat z ��seln�ku'
FieldName = 'ico'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
InputFilter = ifAlphaNumeric
LookupBrowser = DMmain.BrAllFirmy
LookupDatabase = 'BRAIN_'
LookupDispField = 'nazev'
LookupField = 'ico'
LookupSQL.Strings = (
'SELECT nazev, ico'
'FROM firmy'
'ORDER BY nazev')
MaxLength = 100
Params = <>
ParentFont = False
TabOrder = 0
end
object EditReg: TBrowserEdit [14]
Left = 24
Top = 84
Width = 121
Height = 21
AllowNull = False
DataType = dtString
FieldName = 'regcis'
FloatPrecision = 15
FloatDigits = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
InputFilter = ifAlphaNumeric
MaxLength = 15
ParentFont = False
TabOrder = 1
end
object EditLic: TBrowserEdit [15]
Left = 156
Top = 84
Width = 121
Height = 21
AllowNull = False
DataType = dtString
FieldName = 'liccis'
FloatPrecision = 15
FloatDigits = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
InputFilter = ifAlphaNumeric
MaxLength = 15
ParentFont = False
TabOrder = 2
end
object EditStart: TBrowserDateEdit [16]
Left = 24
Top = 128
Width = 121
Height = 21
Separator = #0
Duration = False
MaxLength = 0
TabOrder = 3
DefaultCurrent = False
FieldName = 'start'
DataType = ttDateTime
end
object EditExpir: TBrowserDateEdit [17]
Left = 156
Top = 128
Width = 121
Height = 21
Separator = #0
Duration = False
MaxLength = 0
TabOrder = 4
DefaultCurrent = False
FieldName = 'expir'
DataType = ttDateTime
end
object EditSuma: TBrowserNumEdit [18]
Left = 24
Top = 172
Width = 105
Height = 21
DataType = ntFloat
FieldName = 'zaplaceno'
FloatDigits = 2
FloatPrecision = 15
Increment = 1.000000000000000000
TabOrder = 5
end
object EditPrac: TBrowserLookupEdit [19]
Left = 156
Top = 172
Width = 121
Height = 21
Separator = #0
AllowNull = False
AllVisible = False
BrowserOnly = False
ButtonHint = 'Vybrat z ��seln�ku'
FieldName = 'id_pracovnik'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
InputFilter = ifAlphaNumeric
LookupDatabase = 'BRAIN_'
LookupDispField = 'prijmeni'
LookupField = 'id'
LookupSQL.Strings = (
'SELECT id, prijmeni, jmeno, titul'
'FROM uzivatele'
'ORDER BY prijmeni')
MaxLength = 0
Params = <>
ParentFont = False
TabOrder = 6
end
object Memo: TBrowserMemo [20]
Left = 24
Top = 260
Width = 253
Height = 53
MaxLength = 255
TabOrder = 8
DataType = dtChar
FieldName = 'pozn'
end
object EditSektor: TBrowserLookupEdit [21]
Left = 24
Top = 216
Width = 253
Height = 21
Separator = #0
AllVisible = False
BrowserOnly = False
ButtonHint = 'Vybrat z ��seln�ku'
FieldName = 'id_sektor_zajmu'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
InputFilter = ifAlphaNumeric
LookupBrowser = DMmain.BrSektoryZajmu
LookupDatabase = 'BRAIN_'
LookupField = 'id'
LookupSQL.Strings = (
'SELECT id, popis'
'FROM sektory_zajmu'
'ORDER BY id')
MaxLength = 30
Params = <>
ParentFont = False
TabOrder = 7
end
object BtnLic: TBitBtn [22]
Left = 8
Top = 332
Width = 81
Height = 25
Caption = '&Licencer...'
TabOrder = 9
OnClick = BtnLicClick
Glyph.Data = {
B6000000424DB600000000000000760000002800000008000000100000000100
0400000000004000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0088800888880B
B088880BB088888008888888888888800888883BB388880BB088880BB088883B
B388873BB37880BBBB0880BBBB0880BBBB08833BB33888300388}
end
inherited FormPos: TFormPos
Left = 260
Top = 288
end
inherited Wallpaper: TWallpaper
Left = 100
Top = 328
end
end