inherited FormOsoba: TFormOsoba Left = 238 Top = 127 HelpContext = 146 Caption = 'FormOsoba' ClientHeight = 458 ClientWidth = 456 PixelsPerInch = 96 TextHeight = 13 object Frame1: TFrame [0] Left = 8 Top = 4 Width = 441 Height = 417 end object LabelPlus1: TLabelPlus [1] Left = 364 Top = 20 Width = 20 Height = 13 Caption = 'Titul' FocusControl = EditTitul Attached = True end object LabelPlus2: TLabelPlus [2] Left = 200 Top = 20 Width = 31 Height = 13 Caption = '&Jm�no' FocusControl = EditJmeno Attached = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelPlus3: TLabelPlus [3] Left = 20 Top = 20 Width = 48 Height = 13 Caption = '&P��jmen�' FocusControl = EditPrijmeni 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 [4] Left = 20 Top = 152 Width = 43 Height = 13 Caption = 'O&dd�len�' FocusControl = EditOddeleni Attached = True end object LabelPlus5: TLabelPlus [5] Left = 200 Top = 64 Width = 32 Height = 13 Caption = 'Pozice' FocusControl = EditPozice Attached = True end object LabelPlus10: TLabelPlus [6] Left = 200 Top = 108 Width = 50 Height = 13 Caption = 'Po&zn�mka' FocusControl = EditPoznamka Attached = True end object LabelPlus11: TLabelPlus [7] Left = 20 Top = 108 Width = 25 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 = [] ParentFont = False end object LabelPlus13: TLabelPlus [8] Left = 20 Top = 64 Width = 78 Height = 13 Caption = 'Osloven� (&5.p�d)' FocusControl = EditOsloveni Attached = True end object LabelPlus9: TLabelPlus [9] Left = 165 Top = 200 Width = 28 Height = 13 AttachType = atLeft Caption = '&E-mail' FocusControl = EditEmail Attached = True end inherited BtnOk: TButton Left = 292 Top = 428 TabOrder = 12 end inherited BtnCancel: TButton Left = 372 Top = 428 TabOrder = 13 end object EditTitul: TBrowserLookupEdit [12] Left = 364 Top = 36 Width = 70 Height = 21 Separator = #0 AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'titul' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] InputFilter = ifAlphaNumeric ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'titul' LookupSQL.Strings = ( 'SELECT DISTINCT titul' 'FROM osoby' 'WHERE titul is not null' 'ORDER BY titul') MaxLength = 20 Params = <> ParentFont = False TabOrder = 2 end object EditJmeno: TBrowserLookupEdit [13] Left = 200 Top = 36 Width = 149 Height = 21 Separator = #0 AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'jmeno' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] InputFilter = ifAlphaNumeric ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'jmeno' LookupSQL.Strings = ( 'SELECT DISTINCT jmeno' 'FROM osoby' 'WHERE jmeno is not null' 'ORDER BY jmeno') MaxLength = 50 Params = <> ParentFont = False TabOrder = 1 end object EditPrijmeni: TBrowserEdit [14] Left = 20 Top = 36 Width = 165 Height = 21 AllowNull = False DataType = dtString FieldName = 'prijmeni' 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 = 50 ParentFont = False TabOrder = 0 end object EditPozice: TBrowserLookupEdit [15] Left = 200 Top = 80 Width = 237 Height = 21 Separator = #0 AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'pozice' InputFilter = ifAlphaNumeric ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'pozice' LookupSQL.Strings = ( 'SELECT DISTINCT pozice' 'FROM osoby' 'WHERE pozice is not null' 'ORDER BY pozice') MaxLength = 50 Params = <> TabOrder = 4 end object EditOddeleni: TBrowserLookupEdit [16] Left = 20 Top = 168 Width = 165 Height = 21 Separator = #0 AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'oddeleni' InputFilter = ifAlphaNumeric ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'oddeleni' LookupSQL.Strings = ( 'SELECT DISTINCT oddeleni' 'FROM osoby' 'WHERE oddeleni is not null' 'ORDER BY oddeleni') MaxLength = 50 Params = <> TabOrder = 6 end object EditPoznamka: TBrowserMemo [17] Left = 200 Top = 124 Width = 237 Height = 65 TabOrder = 8 DataType = dtBlob FieldName = 'poznamka' end object EditFirma: TBrowserLookupEdit [18] Left = 20 Top = 124 Width = 165 Height = 21 Separator = #0 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 = [] InputFilter = ifAlphaNumeric LookupBrowser = DMmain.BrAllFirmy LookupDatabase = 'BRAIN_' LookupDispField = 'nazev' LookupField = 'ico' LookupSQL.Strings = ( 'SELECT nazev, ico' 'FROM firmy' 'ORDER BY nazev') MaxLength = 0 Params = <> ParentFont = False TabOrder = 5 end object BtnPrint: TBitBtn [19] Left = 8 Top = 428 Width = 75 Height = 25 Hint = 'Vytisknout kartu osoby' Caption = 'Tisk...' ParentShowHint = False ShowHint = True TabOrder = 11 OnClick = BtnPrintClick Glyph.Data = { C6050000424DC605000000000000360400002800000014000000140000000100 0800000000009001000000000000000000000001000000010000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A6000020400000206000002080000020A0000020C0000020E000004000000040 20000040400000406000004080000040A0000040C0000040E000006000000060 20000060400000606000006080000060A0000060C0000060E000008000000080 20000080400000806000008080000080A0000080C0000080E00000A0000000A0 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000 20004000400040006000400080004000A0004000C0004000E000402000004020 20004020400040206000402080004020A0004020C0004020E000404000004040 20004040400040406000404080004040A0004040C0004040E000406000004060 20004060400040606000406080004060A0004060C0004060E000408000004080 20004080400040806000408080004080A0004080C0004080E00040A0000040A0 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000 20008000400080006000800080008000A0008000C0008000E000802000008020 20008020400080206000802080008020A0008020C0008020E000804000008040 20008040400080406000804080008040A0008040C0008040E000806000008060 20008060400080606000806080008060A0008060C0008060E000808000008080 20008080400080806000808080008080A0008080C0008080E00080A0000080A0 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707 0707070707070707070707070707070700000000000000000000000000000000 07070700FEFEFEFEF0F0F0A8A8A8060606585858000758000000000000000000 0000000000000000000058FEFEFEFEFEFEFEF0F0F0A8A8A806FAFA06060058FF FEFEFEFEFEFEFEF0F0F0A8A8A8FAFA06060006FFFFFEFEFEFEFEFEFEF0F0F0A8 A8A8060606000706FFFFFEFEFEFEFEFEFEF0F0F0A8A8A8060007070758000000 0000000000000000000000000707070758FFFEFEFEFEFEF0F0A8A80606585800 070707070706FFFE000000000000000000065800070707070707060603FBFB36 362D2D030000000707070707070707070703FBFB36362D2D0300070707070707 070707070703FFFBFB36362D2D0007070707070707070707070703FFFBFB3636 2D2D0007070707070707070707072DFFFFFBFB36362D00070707070707070707 0707072DFFFFFBFB36362D0007070707070707070707072D0000000000000000 0707070707070707070707070707070707070707070707070707070707070707 07070707070707070707} end object PageControl1: TPageControlPlus [20] Left = 20 Top = 228 Width = 417 Height = 181 ActivePage = TabSheet1 TabOrder = 10 BrowserSync = True object TabSheet1: TTabSheet Caption = 'Kontakt' object Bevel2: TBevel Left = 8 Top = 8 Width = 393 Height = 137 Shape = bsFrame end object LabelPlus6: TLabelPlus Left = 42 Top = 56 Width = 15 Height = 13 AttachType = atLeft Caption = '&Tel' FocusControl = EditTelUto Attached = True end object LabelPlus7: TLabelPlus Left = 40 Top = 84 Width = 17 Height = 13 AttachType = atLeft Caption = '&Fax' FocusControl = EditFaxUto Attached = True end object LabelPlus8: TLabelPlus Left = 32 Top = 112 Width = 25 Height = 13 AttachType = atLeft Caption = '&Mobil' FocusControl = EditMobil Attached = True end object LabelPlus12: TLabelPlus Left = 44 Top = 28 Width = 109 Height = 13 AttachType = atLeft Caption = 'Mezin�rodn� p�edvolba' FocusControl = EditMto Attached = True end object EditTel: TBrowserEdit Left = 104 Top = 52 Width = 181 Height = 21 DataType = dtString FieldName = 'tel' FloatPrecision = 15 FloatDigits = 2 InputFilter = ifAlphaNumeric MaxLength = 50 TabOrder = 2 end object EditFax: TBrowserEdit Left = 104 Top = 80 Width = 181 Height = 21 DataType = dtString FieldName = 'fax' FloatPrecision = 15 FloatDigits = 2 InputFilter = ifAlphaNumeric MaxLength = 50 TabOrder = 4 end object EditMobil: TBrowserEdit Left = 64 Top = 108 Width = 221 Height = 21 DataType = dtString FieldName = 'mobil' FloatPrecision = 15 FloatDigits = 2 InputFilter = ifAlphaNumeric MaxLength = 20 TabOrder = 5 end object EditTelUto: TBrowserEdit Left = 64 Top = 52 Width = 37 Height = 21 DataType = dtString FieldName = 'teluto' FloatPrecision = 15 FloatDigits = 2 InputFilter = ifAlphaNumeric MaxLength = 10 TabOrder = 1 end object EditFaxUto: TBrowserEdit Left = 64 Top = 80 Width = 37 Height = 21 DataType = dtString FieldName = 'faxuto' FloatPrecision = 15 FloatDigits = 2 InputFilter = ifAlphaNumeric MaxLength = 10 TabOrder = 3 end object EditMto: TBrowserEdit Left = 160 Top = 24 Width = 45 Height = 21 DataType = dtString FieldName = 'mto' FloatPrecision = 15 FloatDigits = 2 InputFilter = ifAlphaNumeric MaxLength = 10 TabOrder = 0 end end object TabSheet2: TTabSheet Caption = 'Bydli�t�' ImageIndex = 1 object LabelPlus18: TLabelPlus Left = 29 Top = 28 Width = 24 Height = 13 AttachType = atLeft Caption = 'Ulice' FocusControl = BrowserEdit4 Attached = True end object LabelPlus19: TLabelPlus Left = 24 Top = 56 Width = 29 Height = 13 AttachType = atLeft Caption = 'M�sto' FocusControl = BrowserLookupEdit3 Attached = True end object LabelPlus20: TLabelPlus Left = 32 Top = 84 Width = 21 Height = 13 AttachType = atLeft Caption = 'PS�' FocusControl = BrowserLookupEdit4 Attached = True end object LabelPlus21: TLabelPlus Left = 23 Top = 112 Width = 30 Height = 13 AttachType = atLeft Caption = 'Oblast' FocusControl = BrowserLookupEdit2 Attached = True end object Bevel3: TBevel Left = 8 Top = 8 Width = 393 Height = 137 Shape = bsFrame end object BrowserLookupEdit3: TBrowserLookupEdit Left = 60 Top = 52 Width = 237 Height = 21 Separator = #0 AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'mesto' GroupIndex = 1 InputFilter = ifAlphaNumeric ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'mesto' LookupSQL.Strings = ( 'SELECT DISTINCT mesto' 'FROM osoby' 'WHERE mesto is not null' 'ORDER BY mesto') MaxLength = 50 Params = <> TabOrder = 2 end object BrowserLookupEdit4: TBrowserLookupEdit Left = 60 Top = 80 Width = 80 Height = 21 Separator = #0 AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' EditMask = 'AAA AA;0;�' FieldName = 'psc' GroupIndex = 1 InputFilter = ifAlphaNumeric ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'psc' LookupSQL.Strings = ( 'SELECT DISTINCT psc' 'FROM osoby' 'WHERE psc is not null' 'ORDER BY psc') MaxLength = 6 Params = <> TabOrder = 3 end object BrowserLookupEdit2: TBrowserLookupEdit Left = 60 Top = 108 Width = 237 Height = 21 Separator = #0 AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'oblast' GroupIndex = 1 InputFilter = ifAlphaNumeric ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'oblast' LookupSQL.Strings = ( 'SELECT DISTINCT oblast' 'FROM osoby' 'WHERE oblast is not null' 'ORDER BY oblast') MaxLength = 50 Params = <> TabOrder = 4 end object BrowserEdit4: TBrowserEdit Left = 60 Top = 24 Width = 173 Height = 21 DataType = dtString FieldName = 'ulice' FloatPrecision = 15 FloatDigits = 2 GroupIndex = 1 InputFilter = ifAlphaNumeric MaxLength = 50 TabOrder = 0 end object BrowserEdit1: TBrowserEdit Left = 236 Top = 24 Width = 61 Height = 21 DataType = dtString FieldName = 'cisulice' FloatPrecision = 15 FloatDigits = 2 GroupIndex = 1 InputFilter = ifAlphaNumeric MaxLength = 5 TabOrder = 1 end end object TabSheet3: TTabSheet Caption = 'Ostatn�' ImageIndex = 2 object Bevel1: TBevel Left = 8 Top = 8 Width = 393 Height = 137 Shape = bsFrame end object LabelPlus14: TLabelPlus Left = 28 Top = 24 Width = 36 Height = 13 Caption = 'Pohlav�' FocusControl = BrowserComboBox1 Attached = True end object LabelPlus15: TLabelPlus Left = 28 Top = 80 Width = 75 Height = 13 Caption = 'Datum narozen�' FocusControl = BrowserDateEdit1 Attached = True end object LabelPlus16: TLabelPlus Left = 160 Top = 24 Width = 41 Height = 13 Caption = 'Vzd�l�n�' FocusControl = BrowserComboBox2 Attached = True end object LabelPlus17: TLabelPlus Left = 160 Top = 80 Width = 74 Height = 13 Caption = 'U�ivatelsk� kl��' FocusControl = EditKey Attached = True end object BrowserComboBox1: TBrowserComboBox Left = 28 Top = 40 Width = 121 Height = 21 ItemHeight = 13 Items.Strings = ( 'mu�' '�ena') TabOrder = 0 DataType = ctInteger EnableMask = -1 FieldName = 'pohlavi' GroupIndex = 2 ItemIndex = -1 ItemMustExist = True end object BrowserDateEdit1: TBrowserDateEdit Left = 28 Top = 96 Width = 121 Height = 21 Separator = #0 Duration = False MaxLength = 0 TabOrder = 2 DefaultCurrent = False FieldName = 'naroz' GroupIndex = 2 DataType = ttDateTime end object BrowserComboBox2: TBrowserComboBox Left = 160 Top = 40 Width = 209 Height = 21 ItemHeight = 13 Items.Strings = ( 'Bez z�kladn�ho' 'Z�kladn�' 'Vyu�en� bez (bez maturity)' 'St�edn� odborn� (bez maturity)' 'Vyu�en� (s maturitou)' 'St�edn� odborn� (s maturitou)' '�pln� st�edn�' 'Bakal��sk�' 'Vysoko�kolsk�' 'V�deck� kvalifikace') TabOrder = 1 DataType = ctInteger EnableMask = -1 FieldName = 'vzdelani' GroupIndex = 2 ItemIndex = -1 ItemMustExist = True end object EditKey: TBrowserEdit Left = 160 Top = 96 Width = 121 Height = 21 DataType = dtString FieldName = 'klic' FloatPrecision = 15 FloatDigits = 2 InputFilter = ifAlphaNumeric MaxLength = 10 TabOrder = 3 end end end object EditOsloveni: TBrowserEdit [21] Left = 20 Top = 80 Width = 165 Height = 21 DataType = dtString FieldName = 'osloveni' FloatPrecision = 15 FloatDigits = 2 InputFilter = ifAlphaNumeric MaxLength = 50 TabOrder = 3 end object ChBoxMailing: TBrowserCheckBox [22] Left = 20 Top = 200 Width = 109 Height = 17 Caption = 'Zas�lat direct-&mail' TabOrder = 7 DefaultValue = False FieldName = 'mailing' end object EditEmail: TBrowserInternetEdit [23] Left = 200 Top = 196 Width = 237 Height = 21 Separator = #0 FieldName = 'email' InternetCommand = cmSendEmail MaxLength = 50 TabOrder = 9 end inherited FormPos: TFormPos Left = 108 Top = 428 end inherited Wallpaper: TWallpaper Left = 164 Top = 428 end object BrowserValidator1: TBrowserValidator Active = True OnValidate = BrowserValidator1Validate Left = 136 Top = 428 end end