PC World 1999 October/PCWorld_1999-10_cd2.bin/Supreme/_SETUP.1/Contact.exe/0/RCDATA/TFORMOSOBA/TFORMOSOBA.txt

Text File | 1999-09-06 | 21KB | 802 lines

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