home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / Diadema / Demo / setup.exe / Pantheon.csy / RCDATA / TEDITUJUZIVATELEFORM / TEDITUJUZIVATELEFORM.txt < prev   
Encoding:
Text File  |  1999-04-22  |  2.5 KB  |  118 lines
  1. object EditujUzivateleForm: TEditujUzivateleForm
  2.   Left = 316
  3.   Top = 212
  4.   BorderStyle = bsDialog
  5.   Caption = 'Editace u∩┐╜ivatele'
  6.   ClientHeight = 93
  7.   ClientWidth = 408
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Label1: TLabel
  19.     Left = 46
  20.     Top = 11
  21.     Width = 89
  22.     Height = 13
  23.     Caption = '&U∩┐╜ivatelsk∩┐╜ jm∩┐╜no:'
  24.     FocusControl = UserNameEdit
  25.   end
  26.   object Label2: TLabel
  27.     Left = 168
  28.     Top = 11
  29.     Width = 55
  30.     Height = 13
  31.     Caption = '&Cel∩┐╜ jm∩┐╜no:'
  32.     FocusControl = CeleJmenoEdit
  33.   end
  34.   object Icon: TImage
  35.     Left = 8
  36.     Top = 8
  37.     Width = 32
  38.     Height = 32
  39.     Picture.Data = {<image000.ico>}
  40.   end
  41.   object OKBtn: TButton
  42.     Left = 328
  43.     Top = 60
  44.     Width = 75
  45.     Height = 25
  46.     Caption = 'OK'
  47.     Default = True
  48.     TabOrder = 3
  49.     OnClick = OKBtnClick
  50.   end
  51.   object CancelBtn: TButton
  52.     Left = 248
  53.     Top = 60
  54.     Width = 75
  55.     Height = 25
  56.     Cancel = True
  57.     Caption = 'Storno'
  58.     TabOrder = 2
  59.     OnClick = CancelBtnClick
  60.   end
  61.   object UserNameEdit: TDBEdit
  62.     Left = 48
  63.     Top = 27
  64.     Width = 113
  65.     Height = 21
  66.     DataField = 'UserName'
  67.     DataSource = UzivateleDS
  68.     TabOrder = 0
  69.     OnChange = UserNameEditChange
  70.     OnKeyPress = UserNameEditKeyPress
  71.   end
  72.   object CeleJmenoEdit: TDBEdit
  73.     Left = 168
  74.     Top = 27
  75.     Width = 233
  76.     Height = 21
  77.     DataField = 'CeleJmeno'
  78.     DataSource = UzivateleDS
  79.     TabOrder = 1
  80.     OnChange = UserNameEditChange
  81.   end
  82.   object UzivateleTbl: TTable
  83.     Active = True
  84.     DatabaseName = 'RealityDB'
  85.     IndexFieldNames = 'UserName'
  86.     TableName = 'Uzivatel.DB'
  87.     Left = 304
  88.     Top = 176
  89.     object UzivateleTblRights: TStringField
  90.       FieldName = 'Rights'
  91.     end
  92.     object UzivateleTblUserName: TStringField
  93.       FieldName = 'UserName'
  94.     end
  95.     object UzivateleTblCeleJmeno: TStringField
  96.       FieldName = 'CeleJmeno'
  97.       Size = 60
  98.     end
  99.     object UzivateleTblVelkaTlacitka: TBooleanField
  100.       FieldName = 'VelkaTlacitka'
  101.     end
  102.     object UzivateleTblProdlevaNahledu: TFloatField
  103.       FieldName = 'ProdlevaNahledu'
  104.     end
  105.     object UzivateleTblAutomatickyUkazNahled: TBooleanField
  106.       FieldName = 'AutomatickyUkazNahled'
  107.     end
  108.     object UzivateleTblPassword: TStringField
  109.       FieldName = 'Password'
  110.     end
  111.   end
  112.   object UzivateleDS: TDataSource
  113.     DataSet = UzivateleTbl
  114.     Left = 352
  115.     Top = 184
  116.   end
  117. end
  118.