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

Text File | 1999-09-06 | 5KB | 231 lines

inherited FormUzivatele: TFormUzivatele
  Left = 302
  Top = 160
  HelpContext = 167
  Caption = 'FormUzivatele'
  ClientHeight = 271
  ClientWidth = 345
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel [0]
    Left = 8
    Top = 8
    Width = 329
    Height = 225
    Shape = bsFrame
  end
  object LabelPlus1: TLabelPlus [1]
    Left = 85
    Top = 36
    Width = 48
    Height = 13
    AttachType = atLeft
    Caption = '&P��jmen�'
    FocusControl = BrowserEdit1
    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 [2]
    Left = 113
    Top = 100
    Width = 20
    Height = 13
    AttachType = atLeft
    Caption = '&Titul'
    FocusControl = BrowserLookupEdit2
    Attached = True
  end
  object LabelPlus3: TLabelPlus [3]
    Left = 102
    Top = 68
    Width = 31
    Height = 13
    AttachType = atLeft
    Caption = '&Jm�no'
    FocusControl = BrowserEdit2
    Attached = True
  end
  object LabelPlus4: TLabelPlus [4]
    Left = 90
    Top = 132
    Width = 43
    Height = 13
    AttachType = atLeft
    Caption = '&Odd�len�'
    FocusControl = BrowserLookupEdit1
    Attached = True
  end
  object LabelPlus5: TLabelPlus [5]
    Left = 24
    Top = 176
    Width = 109
    Height = 13
    AttachType = atLeft
    Caption = 'P�ihla�o&vac� jm�no'
    FocusControl = EditSysname
    Attached = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Image1: TImage [6]
    Left = 28
    Top = 28
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.ico>}
  end
  object LabelPlus6: TLabelPlus [7]
    Left = 106
    Top = 204
    Width = 27
    Height = 13
    AttachType = atLeft
    Caption = '&Heslo'
    FocusControl = EditPwd
    Attached = True
  end
  object Bevel2: TBevel [8]
    Left = 24
    Top = 160
    Width = 297
    Height = 9
    Shape = bsTopLine
  end
  inherited BtnOk: TButton
    Left = 180
    Top = 240
    TabOrder = 6
  end
  inherited BtnCancel: TButton
    Left = 260
    Top = 240
    TabOrder = 7
  end
  object BrowserEdit1: TBrowserEdit [11]
    Left = 140
    Top = 32
    Width = 177
    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 BrowserEdit2: TBrowserEdit [12]
    Left = 140
    Top = 64
    Width = 121
    Height = 21
    DataType = dtString
    FieldName = 'jmeno'
    FloatPrecision = 15
    FloatDigits = 2
    InputFilter = ifAlphaNumeric
    MaxLength = 50
    TabOrder = 1
  end
  object BrowserLookupEdit1: TBrowserLookupEdit [13]
    Left = 140
    Top = 128
    Width = 177
    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 uzivatele'
      'WHERE oddeleni is not null'
      'ORDER BY oddeleni')
    MaxLength = 50
    Params = <>
    TabOrder = 3
  end
  object BrowserLookupEdit2: TBrowserLookupEdit [14]
    Left = 140
    Top = 96
    Width = 85
    Height = 21
    Separator = #0
    AllVisible = False
    BrowserOnly = False
    ButtonHint = 'Vybrat z ��seln�ku'
    FieldName = 'titul'
    InputFilter = ifAlphaNumeric
    ItemMustExist = False
    LookupDatabase = 'BRAIN_'
    LookupField = 'titul'
    LookupSQL.Strings = (
      'SELECT DISTINCT titul'
      'FROM uzivatele'
      'WHERE titul is not null'
      'ORDER BY titul')
    MaxLength = 20
    Params = <>
    TabOrder = 2
  end
  object EditSysname: TBrowserEdit [15]
    Left = 140
    Top = 172
    Width = 121
    Height = 21
    AllowNull = False
    DataType = dtString
    FieldName = 'sysname'
    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 = 0
    ParentFont = False
    TabOrder = 4
  end
  object EditPwd: TBrowserEdit [16]
    Left = 140
    Top = 200
    Width = 121
    Height = 21
    DataType = dtString
    FieldName = 'syspwd'
    FloatPrecision = 15
    FloatDigits = 2
    InputFilter = ifAlphaNumeric
    MaxLength = 20
    PasswordChar = '*'
    TabOrder = 5
  end
  inherited FormPos: TFormPos
    Top = 236
  end
end