home *** CD-ROM | disk | FTP | other *** search
- object OdKohoForm: TOdKohoForm
- Left = 331
- Top = 167
- BorderStyle = bsDialog
- Caption = 'Seznam u�ivatel�'
- ClientHeight = 231
- ClientWidth = 226
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object VyberteLabel: TLabel
- Left = 48
- Top = 8
- Width = 84
- Height = 13
- Caption = 'Vyberte u�i&vatele:'
- FocusControl = DBGrid
- end
- object Icon: TImage
- Left = 8
- Top = 8
- Width = 32
- Height = 32
- Picture.Data = {<image000.ico>}
- end
- object DBGrid: TDBGrid
- Left = 48
- Top = 24
- Width = 169
- Height = 169
- DataSource = UzivatelDS
- Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Columns = <
- item
- FieldName = 'UserName'
- Title.Caption = 'U�ivatelsk� jm�no'
- Width = 147
- end>
- end
- object OKBtn: TButton
- Left = 144
- Top = 200
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 1
- end
- object CancelBtn: TButton
- Left = 64
- Top = 200
- Width = 75
- Height = 25
- Caption = 'Storno'
- ModalResult = 2
- TabOrder = 2
- end
- object UzivatelTbl: TTable
- Active = True
- DatabaseName = 'RealityDB'
- TableName = 'Uzivatel.DB'
- Left = 8
- Top = 64
- object UzivatelTblUserName: TStringField
- FieldName = 'UserName'
- end
- object UzivatelTblRights: TStringField
- FieldName = 'Rights'
- end
- object UzivatelTblCeleJmeno: TStringField
- FieldName = 'CeleJmeno'
- Size = 60
- end
- object UzivatelTblPassword: TStringField
- FieldName = 'Password'
- end
- object UzivatelTblParovaciMaska: TBlobField
- FieldName = 'ParovaciMaska'
- BlobType = ftBlob
- Size = 240
- end
- object UzivatelTblVelkaTlacitka: TBooleanField
- FieldName = 'VelkaTlacitka'
- end
- object UzivatelTblProdlevaNahledu: TFloatField
- FieldName = 'ProdlevaNahledu'
- end
- object UzivatelTblAutomatickyUkazNahled: TBooleanField
- FieldName = 'AutomatickyUkazNahled'
- end
- object UzivatelTblNeuplneHledani: TBooleanField
- FieldName = 'NeuplneHledani'
- end
- object UzivatelTblProhColumns: TBlobField
- FieldName = 'ProhColumns'
- BlobType = ftBlob
- Size = 240
- end
- object UzivatelTblProhAColumns: TBlobField
- FieldName = 'ProhAColumns'
- BlobType = ftBlob
- Size = 240
- end
- object UzivatelTblProhPColumns: TBlobField
- FieldName = 'ProhPColumns'
- BlobType = ftBlob
- Size = 240
- end
- object UzivatelTblProhZakColumns: TBlobField
- FieldName = 'ProhZakColumns'
- BlobType = ftBlob
- Size = 240
- end
- object UzivatelTblZakazkyMRUList: TBlobField
- FieldName = 'ZakazkyMRUList'
- BlobType = ftBlob
- Size = 240
- end
- object UzivatelTblMainPanelLayout: TBlobField
- FieldName = 'MainPanelLayout'
- BlobType = ftBlob
- Size = 240
- end
- object UzivatelTblWindowPositions: TBlobField
- FieldName = 'WindowPositions'
- BlobType = ftBlob
- Size = 240
- end
- object UzivatelTblTiskZakazniku: TBlobField
- FieldName = 'TiskZakazniku'
- BlobType = ftBlob
- Size = 240
- end
- end
- object UzivatelDS: TDataSource
- DataSet = UzivatelTbl
- Left = 8
- Top = 112
- end
- end
-