home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 October
/
PCWorld_1999-10_cd2.bin
/
Supreme
/
_SETUP.1
/
Contact.exe
/
0
/
RCDATA
/
TFORMZAKAZNICI
/
TFORMZAKAZNICI.txt
Wrap
Text File
|
1999-09-06
|
4KB
|
163 lines
inherited FormZakaznici: TFormZakaznici
Top = 218
HelpContext = 142
Caption = 'FormZakaznici'
ClientHeight = 225
ClientWidth = 343
PixelsPerInch = 96
TextHeight = 13
object LabelPlus4: TLabelPlus [0]
Left = 33
Top = 121
Width = 24
Height = 13
Caption = '&Zdroj'
FocusControl = EditZdroj
Attached = True
end
object Frame1: TFrame [1]
Left = 8
Top = 4
Width = 325
Height = 181
end
object LabelPlus1: TLabelPlus [2]
Left = 32
Top = 24
Width = 31
Height = 13
Caption = '&Firma'
FocusControl = BrowserLookupEdit2
Attached = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelPlus2: TLabelPlus [3]
Left = 32
Top = 72
Width = 126
Height = 13
Caption = '&Obdob� spolupr�ce od - do'
FocusControl = BrowserNumEdit1
Attached = True
end
object BrowserDataGrabber1: TBrowserDataGrabber [4]
Left = 32
Top = 184
Width = 20
Height = 19
FieldNames.Strings = (
'ico')
GroupIndex = 0
end
inherited BtnOk: TButton
Left = 176
Top = 192
TabOrder = 5
end
inherited BtnCancel: TButton
Left = 256
Top = 192
TabOrder = 6
end
object EditZdroj: TBrowserLookupEdit [7]
Left = 33
Top = 137
Width = 176
Height = 21
Separator = #0
AllVisible = False
BrowserOnly = False
ButtonHint = 'Vybrat z ��seln�ku'
FieldName = 'zdroj'
InputFilter = ifAlphaNumeric
ItemMustExist = False
LookupDatabase = 'BRAIN_'
LookupField = 'zdroj'
LookupSQL.Strings = (
'SELECT DISTINCT zdroj'
'FROM f_zakaznici'
'WHERE zdroj is not null'
'ORDER BY zdroj')
MaxLength = 0
Params = <>
TabOrder = 4
end
object BrowserLookupEdit2: TBrowserLookupEdit [8]
Left = 32
Top = 40
Width = 277
Height = 21
Separator = #0
AllowNull = False
AllVisible = False
BrowserOnly = False
ButtonHint = 'Vybrat z ��seln�ku'
FieldName = 'nazev'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
InputFilter = ifAlphaNumeric
LookupBrowser = DMmain.BrAllFirmy
ItemMustExist = False
LookupDatabase = 'BRAIN_'
LookupField = 'nazev'
LookupSQL.Strings = (
'SELECT nazev, mesto, ico'
'FROM firmy'
'ORDER BY nazev')
MaxLength = 0
Params = <>
ParentFont = False
TabOrder = 0
end
object BrowserNumEdit1: TBrowserNumEdit [9]
Left = 32
Top = 88
Width = 61
Height = 21
FieldName = 'od'
FloatDigits = 2
FloatFormat = ffGeneral
FloatPrecision = 15
Increment = 1.000000000000000000
MaxValue = 3000.000000000000000000
MinValue = 1900.000000000000000000
TabOrder = 1
end
object BrowserNumEdit2: TBrowserNumEdit [10]
Left = 116
Top = 88
Width = 61
Height = 21
FieldName = 'do'
FloatDigits = 2
FloatFormat = ffGeneral
FloatPrecision = 15
Increment = 1.000000000000000000
MaxValue = 3000.000000000000000000
MinValue = 1900.000000000000000000
TabOrder = 2
end
object BrowserCheckBox1: TBrowserCheckBox [11]
Left = 216
Top = 88
Width = 97
Height = 17
Caption = 'O&bchoduje se'
TabOrder = 3
DefaultValue = False
FieldName = 'aktivni'
end
inherited FormPos: TFormPos
Left = 4
Top = 196
end
end