home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1999 mARCH
/
PCWK3A99.iso
/
Polskie
/
Malabibl
/
_SETUP.1
/
biblio.exe
/
0
/
RCDATA
/
TFRMHASLA
/
TFRMHASLA.txt
Wrap
Text File
|
1998-07-13
|
7KB
|
213 lines
object frmHasla: TfrmHasla
Left = 75
Top = 29
BorderStyle = bsDialog
Caption = 'Lista hase�-identyfikator�w'
ClientHeight = 270
ClientWidth = 528
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
Scaled = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 12
Top = 162
Width = 61
Height = 13
Caption = 'Identyfikator:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 138
Top = 162
Width = 49
Height = 13
Caption = 'Nazwisko:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel1: TBevel
Left = 8
Top = 233
Width = 513
Height = 17
Shape = bsTopLine
end
object grdHasla: TDBGrid
Left = 12
Top = 8
Width = 509
Height = 143
DataSource = dsHasla
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = EASTEUROPE_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -10
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object tbIdentyfikator: TDBEdit
Left = 12
Top = 175
Width = 119
Height = 24
DataField = 'Identyfikator'
DataSource = dsHasla
TabOrder = 1
end
object tbNazwisko: TDBEdit
Left = 138
Top = 175
Width = 383
Height = 24
DataField = 'Nazwisko'
DataSource = dsHasla
TabOrder = 2
end
object chbAdministrator: TDBCheckBox
Left = 12
Top = 207
Width = 159
Height = 17
Caption = 'Prawa administratora'
DataField = 'Administrator'
DataSource = dsHasla
TabOrder = 3
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object cmdZamknij: TBitBtn
Left = 444
Top = 240
Width = 75
Height = 25
Caption = 'Zamknij'
Default = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = cmdZamknijClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
03030303030303030303030303030303030303030303FF030303030303030303
03030303030303040403030303030303030303030303030303F8F8FF03030303
03030303030303030303040202040303030303030303030303030303F80303F8
FF030303030303030303030303040202020204030303030303030303030303F8
03030303F8FF0303030303030303030304020202020202040303030303030303
0303F8030303030303F8FF030303030303030304020202FA0202020204030303
0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
0303030303030303030303FA0202020403030303030303030303030303F8FF03
03F8FF03030303030303030303030303FA020202040303030303030303030303
0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
0202040303030303030303030303030303F8FF03F8FF03030303030303030303
03030303FA0202030303030303030303030303030303F8FFF803030303030303
030303030303030303FA0303030303030303030303030303030303F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
NumGlyphs = 2
end
object cmdNowe: TBitBtn
Left = 309
Top = 203
Width = 216
Height = 25
Caption = 'Nowe has�o-identyfikator'
TabOrder = 5
OnClick = cmdNoweClick
end
object cmdPomoc: TBitBtn
Left = 364
Top = 240
Width = 75
Height = 25
Caption = 'Pomoc'
TabOrder = 6
OnClick = cmdPomocClick
Kind = bkHelp
end
object tableHasla: TTable
DatabaseName = 'Biblioteka'
TableName = 'HASLA.DB'
Left = 16
Top = 56
object tableHaslaIdentyfikator: TStringField
FieldName = 'Identyfikator'
end
object tableHaslaNazwisko: TStringField
FieldName = 'Nazwisko'
Size = 60
end
object tableHaslaAdministrator: TBooleanField
FieldName = 'Administrator'
end
object tableHaslaNr: TIntegerField
FieldName = 'Nr'
end
end
object dsHasla: TDataSource
DataSet = tableHasla
Left = 44
Top = 56
end
end