home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 March
/
CHIPCD_3_98.iso
/
software
/
testsoft
/
ssekret
/
_setup.1
/
Sekret.exe
/
0
/
RCDATA
/
TOKNO_PLAN
/
TOKNO_PLAN.txt
Wrap
Text File
|
1997-11-04
|
15KB
|
476 lines
object okno_plan: Tokno_plan
Left = 206
Top = 70
HelpContext = 6
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Terminarz'
ClientHeight = 364
ClientWidth = 582
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
OnDeactivate = FormDeactivate
PixelsPerInch = 96
TextHeight = 16
object Bevel2: TBevel
Left = 360
Top = 139
Width = 220
Height = 36
end
object Label2: TLabel
Left = 363
Top = 148
Width = 143
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'Label2'
end
object Label5: TLabel
Left = 388
Top = 194
Width = 167
Height = 20
Alignment = taCenter
AutoSize = False
Caption = 'Label5'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 389
Top = 221
Width = 167
Height = 22
Alignment = taCenter
AutoSize = False
Caption = 'Label6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel3: TBevel
Left = 371
Top = 186
Width = 200
Height = 64
end
object Label1: TLabel
Left = 361
Top = 3
Width = 120
Height = 13
Caption = 'Wyb�r daty do edycji'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Calendar2: TCalendar
Left = 362
Top = 19
Width = 218
Height = 116
StartOfWeek = 0
TabOrder = 0
UseCurrentDate = False
OnChange = Calendar2Change
end
object btnPrevMonth: TBitBtn
Left = 507
Top = 141
Width = 35
Height = 29
TabOrder = 1
OnClick = btnPrevMonthClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333000033333333333333333FF30000333333333333333FAAF300003333
333333333FAAAAF3000033333333333FAAAAAAF30000333333333FAAAAAAAAF3
00003333333FAAAAAAAAAAF3011033333FAAAAAAAAAAAAF328D5333FAAAAAAAA
AAAAAAF30BF43FAAAAAAAAAAAAAAAAF30AF4300AAAAAAAAAAAAAAAF307F83330
0AAAAAAAAAAAAAF305FA3333300AAAAAAAAAAAF30CF3333333300AAAAAAAAAF3
0AF533333333300AAAAAAAF300003333333333300AAAAAF32222333333333333
300AAAF3AAAA33333333333333300AF388883333333333333333300300003333
33333333333333330000}
end
object btnNextMonth: TBitBtn
Left = 542
Top = 141
Width = 35
Height = 29
TabOrder = 2
OnClick = btnNextMonthClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333AAAA3FF3333333333333333388883FAAF33333333333333300003FAA
AAF333333333333300003FAAAAAAF3333333333300003FAAAAAAAAF333333333
03003FAAAAAAAAAAF333333300A83FAAAAAAAAAAAAF3333300663FAAAAAAAAAA
AAAAF33320DD3FAAAAAAAAAAAAAAAAF340D93FAAAAAAAAAAAAAAA00340E23FAA
AAAAAAAAAAA00333B0F43FAAAAAAAAAAA003333364A83FAAAAAAAAA003333333
69793FAAAAAAA00333333333F0F03FAAAAA0033333333333F0F43FAAA0033333
33333333E2633FA0033333333333333390D43003333333333333333320B93333
33333333333333334466}
Layout = blGlyphRight
end
object btnClose: TBitBtn
Left = 456
Top = 298
Width = 108
Height = 31
Cancel = True
Caption = '&Koniec'
ModalResult = 2
TabOrder = 7
OnClick = btnCloseClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object chbCheckAtStartup: TCheckBox
Left = 384
Top = 259
Width = 181
Height = 26
Caption = 'Sprawdzaj przy uruchomieniu'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Visible = False
end
object GroupBox1: TGroupBox
Left = 2
Top = 3
Width = 356
Height = 175
Caption = ' Zapis na wybran� dat� '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
object Label4: TLabel
Left = 12
Top = 17
Width = 159
Height = 16
AutoSize = False
Caption = 'Label4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object DBMemo1: TDBMemo
Left = 11
Top = 36
Width = 335
Height = 98
DataField = 'NT_OPI'
DataSource = dstNotatki
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object btnAddNote: TBitBtn
Left = 11
Top = 37
Width = 335
Height = 30
Hint = 'Dodanie nowej rejestracji'
Caption = '&Utw�rz notatk� w na powy�sz� dat�'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = btnAddNoteClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object btnDeleteNote: TBitBtn
Left = 10
Top = 137
Width = 337
Height = 30
Hint = 'Usuni�cie rejestracji'
Caption = 'Usu� no&tatk� na powy�sz� dat�'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = btnDeleteNoteClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
3333333337FFF7F3333333333000003333333333377777333333}
NumGlyphs = 2
end
end
object GroupBox2: TGroupBox
Left = 2
Top = 180
Width = 355
Height = 181
Caption = ' Harmonogram godzinowy na wybran� dat� '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
object dbchbAktywny: TDBCheckBox
Left = 123
Top = 18
Width = 86
Height = 17
Caption = 'Aktywny'
DataField = 'ALR_AKT'
DataSource = dstAlarmy
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object dbchbCodzienny: TDBCheckBox
Left = 230
Top = 17
Width = 115
Height = 17
Caption = 'Na wszystkie dni'
DataField = 'ALR_CDZ'
DataSource = dstAlarmy
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object DBMemo2: TDBMemo
Left = 105
Top = 35
Width = 244
Height = 108
DataField = 'ALR_OPI'
DataSource = dstAlarmy
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object DBGrid1: TDBGrid
Left = 4
Top = 16
Width = 94
Height = 161
DataSource = dstAlarmy
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
Columns = <
item
FieldName = 'ALR_GDZ'
Title.Caption = 'Godzina'
end>
end
object btnNewAlarm: TBitBtn
Left = 107
Top = 146
Width = 104
Height = 29
Hint = 'Dodanie nowej rejestracji'
Caption = '&Nowa'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = btnNewAlarmClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object btnDeleteAlarm: TBitBtn
Left = 245
Top = 147
Width = 104
Height = 28
Hint = 'Usuni�cie rejestracji'
Caption = 'U&su�'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = btnDeleteAlarmClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
3333333337FFF7F3333333333000003333333333377777333333}
NumGlyphs = 2
end
end
object btnAdresy: TBitBtn
Left = 367
Top = 298
Width = 33
Height = 31
Hint = 'Baza adres�w'
HelpContext = 5
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = btnAdresyClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555555FFFFFFFF5555555000000005555555577777777FF555550999999900
55555575555555775F55509999999901055557F55555557F75F5001111111101
105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F
01105777F555557F75F75500FFFFFF0FF0105577F555FF7F57575550FF700008
8F0055575FF7777555775555000888888F005555777FFFFFFF77555550000000
0F055555577777777F7F555550FFFFFF0F05555557F5FFF57F7F555550F000FF
0005555557F777557775555550FFFFFF0555555557F555FF7F55555550FF7000
05555555575FF777755555555500055555555555557775555555}
NumGlyphs = 2
end
object tableNotatki: TTable
DatabaseName = 'c:\!\sekret'
IndexFieldNames = 'NT_DAT'
TableName = 'NOTKI.DBF'
Left = 49
Top = 77
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 446
Top = 27
end
object dstNotatki: TDataSource
DataSet = tableNotatki
OnDataChange = dstNotatkiDataChange
Left = 108
Top = 77
end
object tableAlarmy: TTable
DatabaseName = 'c:\!\sekret'
IndexName = 'ALR_DAT'
TableName = 'ALARM.DBF'
Left = 19
Top = 246
end
object dstAlarmy: TDataSource
DataSet = tableAlarmy
OnDataChange = dstAlarmyDataChange
Left = 74
Top = 246
end
end