object frmGlowna: TfrmGlowna Left = 28 Top = 127 Width = 642 Height = 450 HelpContext = 40 Caption = 'Biblioteka' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 Scaled = False ShowHint = True OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 20 object tnZakladki: TTabbedNotebook Left = 0 Top = 0 Width = 634 Height = 396 HelpContext = 40 Align = alClient PageIndex = 3 TabsPerRow = 5 TabFont.Charset = DEFAULT_CHARSET TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 OnChange = tnZakladkiChange object TTabPage Left = 4 Top = 31 HelpContext = 1 Caption = 'Wypo�yczanie' object GroupBox1: TGroupBox Left = 0 Top = 0 Width = 626 Height = 227 Align = alClient Caption = 'U�ytkownik' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Panel14: TPanel Left = 2 Top = 18 Width = 261 Height = 207 Align = alLeft BevelOuter = bvNone TabOrder = 0 object Label1: TLabel Left = 12 Top = 14 Width = 76 Height = 13 Caption = 'Nazwisko i Imi�:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lstNazwiska: TListBox Left = 12 Top = 28 Width = 235 Height = 97 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 ParentFont = False Sorted = True TabOrder = 0 OnClick = lstNazwiskaClick end object tbNazwisko: TEdit Left = 12 Top = 132 Width = 187 Height = 24 TabOrder = 1 OnChange = tbNazwiskoChange end object cmdNowyUzytkownik: TBitBtn Left = 204 Top = 132 Width = 45 Height = 23 Caption = 'Nowy' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = cmdNowyUzytkownikClick end object cmdPrzyjmijKsiazke: TButton Left = 14 Top = 180 Width = 233 Height = 31 Caption = 'Przyjmij ksi��k�' Enabled = False TabOrder = 3 OnClick = cmdPrzyjmijKsiazkeClick end end object Panel18: TPanel Left = 263 Top = 18 Width = 361 Height = 207 Align = alClient BevelOuter = bvNone Caption = 'Panel18' TabOrder = 1 object Panel22: TPanel Left = 0 Top = 0 Width = 361 Height = 19 Align = alTop BevelOuter = bvNone TabOrder = 0 object Label2: TLabel Left = 7 Top = 0 Width = 163 Height = 13 Caption = 'Ksi��ki w posiadaniu u�ytkownika:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end object Panel26: TPanel Left = 0 Top = 19 Width = 361 Height = 188 Align = alClient BevelOuter = bvNone BorderWidth = 8 Caption = 'Panel26' TabOrder = 1 object grdKsiazkiWypozyczone: TDBGrid Left = 8 Top = 8 Width = 345 Height = 172 Align = alClient DataSource = dsKsiazkiWypozyczone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 0 TitleFont.Charset = EASTEUROPE_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item FieldName = 'Sygnatura' Width = 67 end item FieldName = 'DataWypozyczenia' Title.Caption = 'Data wypo�yczenia' Width = 102 end item FieldName = 'Autor' Width = 185 end item FieldName = 'Tytul' Title.Caption = 'Tytu�' end> end end end end object panKsiazkaWypozyczana: TGroupBox Left = 0 Top = 227 Width = 626 Height = 134 Align = alBottom Caption = 'Ksi��ka wypo�yczana ' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label3: TLabel Left = 12 Top = 18 Width = 51 Height = 13 Caption = 'Sygnatura:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 248 Top = 14 Width = 28 Height = 13 Caption = 'Autor:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 248 Top = 62 Width = 28 Height = 13 Caption = 'Tytu�:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object cmdWypozyczKsiazke: TButton Left = 14 Top = 100 Width = 211 Height = 29 Caption = 'Wypo�ycz ksi��k�' Enabled = False TabOrder = 0 OnClick = cmdWypozyczKsiazkeClick end object tbSygnaturaWypozyczanej: TEdit Left = 12 Top = 34 Width = 117 Height = 24 HelpContext = 1 TabOrder = 1 OnChange = tbSygnaturaWypozyczanejChange end object cmdSzukajWgSygWypozyczanej: TButton Left = 136 Top = 34 Width = 91 Height = 21 HelpContext = 3 Caption = 'Szukaj' Default = True Enabled = False TabOrder = 2 OnClick = cmdSzukajWgSygWypozyczanejClick end object tbAutor: TDBEdit Left = 248 Top = 30 Width = 349 Height = 24 DataField = 'Autor' DataSource = dsKsiazkaWypozyczana ReadOnly = True TabOrder = 3 end object memTytul: TDBMemo Left = 248 Top = 76 Width = 351 Height = 53 DataField = 'Tytul' DataSource = dsKsiazkaWypozyczana ReadOnly = True TabOrder = 4 end end end object TTabPage Left = 4 Top = 31 HelpContext = 3 Caption = 'Wypo�yczenia' object Panel6: TPanel Left = 0 Top = 0 Width = 626 Height = 33 Align = alTop BevelOuter = bvNone Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object SpeedButton1: TSpeedButton Left = 612 Top = 4 Width = 25 Height = 25 Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000084120000841200001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880088888 8888888880088888888888880088884448880888008888444888008008888888 8888000008888844788800000000884478880000000888844888000000888888 4478000008874488744700008884478884440008888447888444008888884488 744708888888844444788888888888888888} OnClick = cmdHelpClick end object cmdSzukajWypozyczenia: TBitBtn Left = 4 Top = 6 Width = 26 Height = 24 Hint = 'Wybieranie' HelpContext = 1000 TabOrder = 0 TabStop = False OnClick = cmdSzukajWypozyczeniaClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333FF3FF3333333333CC30003333333333773777333333333C33 3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33 33003377333337F33377333333333C333300333F333337F33377339333333C33 3333337FF3333733333F33993333C33333003377FF33733333773339933C3333 330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33 330077F377F337F33377993399333C33330077FF773337F33377399993333C33 33333777733337F333FF333333333C33300033333333373FF7773333333333CC 3000333333333377377733333333333333333333333333333333} NumGlyphs = 2 Spacing = 0 end object cmdWypozyczeniaWszystkie: TBitBtn Left = 98 Top = 6 Width = 26 Height = 24 Hint = 'Poka� wszystkie wypo�yczenia' HelpContext = 1002 TabOrder = 1 TabStop = False OnClick = cmdWypozyczeniaWszystkieClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000 FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555 55557F7777777555555500000005555555557777777555555555} NumGlyphs = 2 Spacing = -1 end object cmdWypPokazKsiazke: TBitBtn Left = 150 Top = 6 Width = 26 Height = 24 Hint = 'Poka� ksi��k�' HelpContext = 1003 TabOrder = 2 TabStop = False OnClick = cmdWypPokazKsiazkeClick Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEE000EEE EEEEEEEEE0C0800EEEEEEEEE0CC0FFF00EEEEEE0CCC08FFFF00EEE0CCCC7008F FF00E0CCCC7CCC008F8E0CCCC7CCCCCC008E0CCC7CCCCCCCCC000CC7CCCCCCCC CC0E0C7CCCCCCCCCC0EE07CCCCCCCCCC0EEEE00CCCCCCCC0EEEEEEE00CCCCC0E EEEEEEEEE00CC0EEEEEEEEEEEEE00EEEEEEE} Spacing = -1 end object cmdWypPokazUzytkownika: TBitBtn Left = 124 Top = 6 Width = 26 Height = 24 Hint = 'Poka� u�ytkownika' HelpContext = 1004 TabOrder = 3 TabStop = False OnClick = cmdWypPokazUzytkownikaClick Glyph.Data = { F6000000424DF60000000000000076000000280000000E000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BB0000000000 0B00BBBB0FFFFFF0BB00BBBB0FFFFF0BBB00BB0000FFF00BBB00B0FFFFFFF000 BB00B0FFFFFFF0000B00B000FFFF00000000B0FFFFFFF00000000FFFFFFFF000 0000B0F0FFFF00000000BB00FF0000000000BB0FFF000000000000F000000000 00000000000000000B00000000000000BB00BB000000000BBB00} end object cmdRapWypozyczenia: TBitBtn Left = 38 Top = 6 Width = 26 Height = 24 Hint = 'Raport' HelpContext = 1011 TabOrder = 4 TabStop = False OnClick = cmdRapWypozyczeniaClick Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 04000000000070000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBB000BBB BBBBBBBB0078800BBBBBBB00777888800BBB807777788888800B8F7777F88888 88808F77FF77788888808FFF7799777888808F77AA7778807880B88F777887F0 788BBBB88F87FFFF0BBBBBBBB88FFFFFF0BBBBBBBBB8FFFFFF00BBBBBBBB8FFF 88BBBBBBBBBBB888BBBB} Spacing = -1 end object cmbSortowanieWypozyczenia: TComboBox Left = 186 Top = 8 Width = 149 Height = 21 HelpContext = 1013 TabStop = False Style = csDropDownList ItemHeight = 13 TabOrder = 5 OnChange = cmbSortowanieWypozyczeniaChange end object cmdPodgladWypozyczenia: TBitBtn Left = 64 Top = 6 Width = 26 Height = 24 Hint = 'Podgl�d raportu' HelpContext = 1012 TabOrder = 6 TabStop = False OnClick = cmdPodgladWypozyczeniaClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAA000000000000AA000FFFFFFFFFF0A0000FFFFFFF0000700A0FFFFFF07887 07AA0FFFFF0788E770AA0FFFFF088887A0AA0FFFFF08E887A0AA0FFFFF07EE87 70AA0FFFFFF078870AAA0FFFFFFF0000AAAA0FFFFFFFFFF0AAAA0FFFFFFF0000 AAAA0FFFFFFF080AAAAA0FFFFFFF00AAAAAA000000000AAAAAAA} Spacing = -1 end end object Panel7: TPanel Left = 0 Top = 33 Width = 626 Height = 284 Align = alClient BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 8 Caption = 'Panel7' TabOrder = 1 object grdWypozyczenia: TDBGrid Left = 9 Top = 9 Width = 608 Height = 266 Align = alClient DataSource = dsWypozyczenia Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'System' TitleFont.Style = [] Columns = < item FieldName = 'Nazwisko' Width = 189 end item FieldName = 'DataWypozyczenia' Width = 109 end item FieldName = 'Autor' Width = 171 end item FieldName = 'Tytul' Width = 133 end item FieldName = 'Sygnatura' end item FieldName = 'Operator' end> end end object panStatusBar: TPanel Left = 0 Top = 317 Width = 626 Height = 44 Align = alBottom BevelInner = bvLowered Caption = 'panStatusBar' TabOrder = 2 object panLewy: TPanel Left = 2 Top = 2 Width = 71 Height = 40 Align = alLeft BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object panLiczbaWypozyczen: TPanel Left = 8 Top = 4 Width = 53 Height = 19 HelpContext = 1009 BevelOuter = bvLowered TabOrder = 0 end end object Panel4: TPanel Left = 73 Top = 2 Width = 551 Height = 40 HelpContext = 1010 Align = alClient BevelOuter = bvNone BorderWidth = 4 TabOrder = 1 object pisPytanieWypozyczenia: TOPisak Left = 4 Top = 4 Width = 543 Height = 32 Align = alClient Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end end end end object TTabPage Left = 4 Top = 31 HelpContext = 41 Caption = 'U�ytkownicy' object Panel3: TPanel Left = 0 Top = 0 Width = 626 Height = 31 Align = alTop BevelOuter = bvNone Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object cmdHelp: TSpeedButton Left = 612 Top = 4 Width = 25 Height = 25 Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000084120000841200001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880088888 8888888880088888888888880088884448880888008888444888008008888888 8888000008888844788800000000884478880000000888844888000000888888 4478000008874488744700008884478884440008888447888444008888884488 744708888888844444788888888888888888} OnClick = cmdHelpClick end object cmdDodajUzytkownika: TBitBtn Left = 280 Top = 6 Width = 26 Height = 24 Hint = 'Dodawanie u�ytkownika' HelpContext = 1005 TabOrder = 0 TabStop = False OnClick = cmdDodajUzytkownikaClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 Spacing = -1 end object cmdUsunUzytkownika: TBitBtn Left = 332 Top = 6 Width = 26 Height = 24 Hint = 'Usuwanie u�ytkownika' HelpContext = 1006 TabOrder = 1 TabStop = False OnClick = cmdUsunUzytkownikaClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F3333333333000003333333333377777333333} NumGlyphs = 2 Spacing = -1 end object cmdEdytujUzytkownika: TBitBtn Left = 306 Top = 6 Width = 26 Height = 24 Hint = 'Edytowanie u�ytkownika' TabOrder = 2 TabStop = False OnClick = cmdEdytujUzytkownikaClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 Spacing = -1 end object cmdSzukajUzytkownika: TBitBtn Left = 4 Top = 6 Width = 26 Height = 24 Hint = 'Wybieranie' HelpContext = 1000 TabOrder = 3 TabStop = False OnClick = cmdSzukajUzytkownikaClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333FF3FF3333333333CC30003333333333773777333333333C33 3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33 33003377333337F33377333333333C333300333F333337F33377339333333C33 3333337FF3333733333F33993333C33333003377FF33733333773339933C3333 330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33 330077F377F337F33377993399333C33330077FF773337F33377399993333C33 33333777733337F333FF333333333C33300033333333373FF7773333333333CC 3000333333333377377733333333333333333333333333333333} NumGlyphs = 2 Spacing = -1 end object cmdWszyscyUzytkownicy: TBitBtn Left = 96 Top = 6 Width = 26 Height = 24 Hint = 'Poka� wszystkich u�ytkownik�w' HelpContext = 1002 TabOrder = 4 TabStop = False OnClick = cmdWszyscyUzytkownicyClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000 FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555 55557F7777777555555500000005555555557777777555555555} NumGlyphs = 2 Spacing = -1 end object cmdRapUzytkownicy: TBitBtn Left = 38 Top = 6 Width = 26 Height = 24 Hint = 'Raport' HelpContext = 1011 TabOrder = 5 TabStop = False OnClick = cmdRapUzytkownicyClick Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 04000000000070000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBB000BBB BBBBBBBB0078800BBBBBBB00777888800BBB807777788888800B8F7777F88888 88808F77FF77788888808FFF7799777888808F77AA7778807880B88F777887F0 788BBBB88F87FFFF0BBBBBBBB88FFFFFF0BBBBBBBBB8FFFFFF00BBBBBBBB8FFF 88BBBBBBBBBBB888BBBB} Spacing = -1 end object cmsSortowanieUzytkownicy: TComboBox Left = 128 Top = 8 Width = 145 Height = 21 HelpContext = 1013 TabStop = False Style = csDropDownList ItemHeight = 13 TabOrder = 6 Visible = False end object cmdPodgladUzytkownicy: TBitBtn Left = 64 Top = 6 Width = 26 Height = 24 Hint = 'Podgl�d raportu' HelpContext = 1012 TabOrder = 7 TabStop = False OnClick = cmdPodgladUzytkownicyClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAA000000000000AA000FFFFFFFFFF0A0000FFFFFFF0000700A0FFFFFF07887 07AA0FFFFF0788E770AA0FFFFF088887A0AA0FFFFF08E887A0AA0FFFFF07EE87 70AA0FFFFFF078870AAA0FFFFFFF0000AAAA0FFFFFFFFFF0AAAA0FFFFFFF0000 AAAA0FFFFFFF080AAAAA0FFFFFFF00AAAAAA000000000AAAAAAA} Spacing = -1 end end object Panel8: TPanel Left = 0 Top = 31 Width = 626 Height = 286 Align = alClient BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 8 Caption = 'Panel8' TabOrder = 1 object grdUzytkownicy: TDBGrid Left = 9 Top = 9 Width = 608 Height = 268 Align = alClient DataSource = dsUzytkownicy Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'System' TitleFont.Style = [] Columns = < item FieldName = 'Nazwisko' Width = 247 end item FieldName = 'Adres' Width = 141 end item FieldName = 'Miasto' Width = 142 end item FieldName = 'KodPocztowy' end> end end object Panel12: TPanel Left = 0 Top = 317 Width = 626 Height = 44 Align = alBottom BevelInner = bvLowered Caption = 'panStatusBar' TabOrder = 2 object Panel13: TPanel Left = 2 Top = 2 Width = 71 Height = 40 Align = alLeft BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object panLiczbaUzytkownikow: TPanel Left = 6 Top = 4 Width = 53 Height = 19 HelpContext = 1009 BevelOuter = bvLowered TabOrder = 0 end end object Panel15: TPanel Left = 73 Top = 2 Width = 551 Height = 40 HelpContext = 1010 Align = alClient BevelOuter = bvNone BorderWidth = 4 TabOrder = 1 object pisPytanieUzytkownicy: TOPisak Left = 4 Top = 4 Width = 543 Height = 32 Align = alClient Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end end end end object TTabPage Left = 4 Top = 31 HelpContext = 42 Caption = 'Ksi��ki' object Panel1: TPanel Left = 0 Top = 0 Width = 626 Height = 31 Align = alTop BevelOuter = bvNone Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object SpeedButton2: TSpeedButton Left = 612 Top = 4 Width = 25 Height = 25 Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000084120000841200001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880088888 8888888880088888888888880088884448880888008888444888008008888888 8888000008888844788800000000884478880000000888844888000000888888 4478000008874488744700008884478884440008888447888444008888884488 744708888888844444788888888888888888} OnClick = cmdHelpClick end object cmdDodajKsiazke: TBitBtn Left = 450 Top = 6 Width = 26 Height = 24 Hint = 'Dodawanie ksi��ki' HelpContext = 1005 TabOrder = 0 TabStop = False OnClick = cmdDodajKsiazkeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 Spacing = -1 end object cmdUsunKsiazke: TBitBtn Left = 502 Top = 6 Width = 26 Height = 24 Hint = 'Usuwanie ksi��ki' HelpContext = 1006 TabOrder = 1 TabStop = False OnClick = cmdUsunKsiazkeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F3333333333000003333333333377777333333} NumGlyphs = 2 Spacing = -1 end object cmdPokazWszystkieKsiazki: TBitBtn Left = 238 Top = 6 Width = 26 Height = 24 Hint = 'Poka� wszystkie ksi��ki' HelpContext = 1002 TabOrder = 2 TabStop = False OnClick = cmdPokazWszystkieKsiazkiClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000 FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555 55557F7777777555555500000005555555557777777555555555} NumGlyphs = 2 Spacing = -1 end object cmdSzukajKsiazek: TBitBtn Left = 4 Top = 6 Width = 26 Height = 24 Hint = 'Wybieranie' HelpContext = 1000 TabOrder = 3 TabStop = False OnClick = cmdSzukajKsiazekClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333FF3FF3333333333CC30003333333333773777333333333C33 3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33 33003377333337F33377333333333C333300333F333337F33377339333333C33 3333337FF3333733333F33993333C33333003377FF33733333773339933C3333 330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33 330077F377F337F33377993399333C33330077FF773337F33377399993333C33 33333777733337F333FF333333333C33300033333333373FF7773333333333CC 3000333333333377377733333333333333333333333333333333} NumGlyphs = 2 Spacing = -1 end object cmdEdytujKsiazke: TBitBtn Left = 478 Top = 6 Width = 26 Height = 24 Hint = 'Edytowanie ksi��ki' TabOrder = 4 TabStop = False OnClick = cmdEdytujKsiazkeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 Spacing = -1 end object cmdRapKsiazki: TBitBtn Left = 38 Top = 6 Width = 26 Height = 24 Hint = 'Raport' HelpContext = 1011 TabOrder = 5 TabStop = False OnClick = cmdRapKsiazkiClick Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 04000000000070000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBB000BBB BBBBBBBB0078800BBBBBBB00777888800BBB807777788888800B8F7777F88888 88808F77FF77788888808FFF7799777888808F77AA7778807880B88F777887F0 788BBBB88F87FFFF0BBBBBBBB88FFFFFF0BBBBBBBBB8FFFFFF00BBBBBBBB8FFF 88BBBBBBBBBBB888BBBB} Spacing = -1 end object cmbTypRaportuK: TComboBox Left = 92 Top = 8 Width = 107 Height = 21 Hint = 'Rodzaj raportu' HelpContext = 31 TabStop = False Style = csDropDownList ItemHeight = 13 TabOrder = 6 end object cmdUtworzFiszki: TBitBtn Left = 204 Top = 6 Width = 26 Height = 24 Hint = 'Tworzenie fiszek' HelpContext = 1008 TabOrder = 7 TabStop = False OnClick = cmdUtworzFiszkiClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000CE0E0000C40E00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000 000077777777777777770FFFFFFFFFFFFFF07F333FF3333333370FF777FFFFFF FFF07F377733333333370FFFFFFFFFFFFFF07F333FFFFF3F33370FF777777FFF FFF07F377777733333370FFFFFFFFFFFFFF07F3333333333FFF70FFFFFFFFFF7 77F07F333333337773370FFFFFFFFFFFFFF07FFFFFFFFFFFFFF7000000000000 0000777777777777777733333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object cmdPodgladKsiazki: TBitBtn Left = 64 Top = 6 Width = 26 Height = 24 Hint = 'Podgl�d raportu' HelpContext = 1012 TabOrder = 8 TabStop = False OnClick = cmdPodgladKsiazkiClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAA000000000000AA000FFFFFFFFFF0A0000FFFFFFF0000700A0FFFFFF07887 07AA0FFFFF0788E770AA0FFFFF088887A0AA0FFFFF08E887A0AA0FFFFF07EE87 70AA0FFFFFF078870AAA0FFFFFFF0000AAAA0FFFFFFFFFF0AAAA0FFFFFFF0000 AAAA0FFFFFFF080AAAAA0FFFFFFF00AAAAAA000000000AAAAAAA} Spacing = -1 end object cmbSortowanieKsiazki: TComboBox Left = 298 Top = 8 Width = 145 Height = 21 HelpContext = 1013 TabStop = False Style = csDropDownList ItemHeight = 13 TabOrder = 9 OnChange = cmbSortowanieKsiazkiChange end object cmdOpisKsiazki: TBitBtn Left = 264 Top = 6 Width = 26 Height = 24 Hint = 'Poka� ksi��k�' HelpContext = 1003 TabOrder = 10 TabStop = False OnClick = cmdOpisKsiazkiClick Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEE000EEE EEEEEEEEE0C0800EEEEEEEEE0CC0FFF00EEEEEE0CCC08FFFF00EEE0CCCC7008F FF00E0CCCC7CCC008F8E0CCCC7CCCCCC008E0CCC7CCCCCCCCC000CC7CCCCCCCC CC0E0C7CCCCCCCCCC0EE07CCCCCCCCCC0EEEE00CCCCCCCC0EEEEEEE00CCCCC0E EEEEEEEEE00CC0EEEEEEEEEEEEE00EEEEEEE} Spacing = -1 end end object Panel9: TPanel Left = 0 Top = 31 Width = 626 Height = 286 Align = alClient BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 8 Caption = 'Panel9' TabOrder = 1 object grdKsiazki: TDBGrid Left = 9 Top = 9 Width = 608 Height = 268 Align = alClient DataSource = dsKsiazki Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'System' TitleFont.Style = [] OnDblClick = grdKsiazkiDblClick Columns = < item FieldName = 'Autor' Width = 219 end item FieldName = 'Tytul' Width = 306 end item FieldName = 'Sygnatura' end item FieldName = 'RokWydania' end item FieldName = 'MiejsceWydania' Width = 82 end item FieldName = 'Wydawnictwo' end item FieldName = 'NrInwentarzowy' end item FieldName = 'KluczTematyczny' end item FieldName = 'LiczbaStron' end item FieldName = 'Wielkosc' end item FieldName = 'Tom' end item FieldName = 'TytulOrginalu' end item FieldName = 'ISBN' end item FieldName = 'Tlumaczenie' end item FieldName = 'PracaZbiorowa' end item FieldName = 'AutorTlumaczenia' end item FieldName = 'KsiazkaWypozyczona' end item FieldName = 'PoleDodatkowe1' end> end end object Panel16: TPanel Left = 0 Top = 317 Width = 626 Height = 44 Align = alBottom BevelInner = bvLowered Caption = 'panStatusBar' TabOrder = 2 object Panel17: TPanel Left = 2 Top = 2 Width = 71 Height = 40 Align = alLeft BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object panLiczbaKsiazek: TPanel Left = 6 Top = 4 Width = 53 Height = 19 HelpContext = 1009 BevelOuter = bvLowered TabOrder = 0 end end object Panel19: TPanel Left = 73 Top = 2 Width = 551 Height = 40 HelpContext = 1010 Align = alClient BevelOuter = bvNone BorderWidth = 4 TabOrder = 1 object pisPytanieKsiazki: TOPisak Left = 4 Top = 4 Width = 543 Height = 32 Align = alClient Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end end end end object TTabPage Left = 4 Top = 31 HelpContext = 2 Caption = 'Archiwum' object Panel2: TPanel Left = 0 Top = 0 Width = 626 Height = 33 Align = alTop BevelOuter = bvNone Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object SpeedButton3: TSpeedButton Left = 612 Top = 4 Width = 25 Height = 25 Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000084120000841200001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880088888 8888888880088888888888880088884448880888008888444888008008888888 8888000008888844788800000000884478880000000888844888000000888888 4478000008874488744700008884478884440008888447888444008888884488 744708888888844444788888888888888888} OnClick = cmdHelpClick end object cmdSzukajArchiwum: TBitBtn Left = 6 Top = 6 Width = 26 Height = 24 Hint = 'Wybieranie' HelpContext = 1000 TabOrder = 0 TabStop = False OnClick = cmdSzukajArchiwumClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333FF3FF3333333333CC30003333333333773777333333333C33 3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33 33003377333337F33377333333333C333300333F333337F33377339333333C33 3333337FF3333733333F33993333C33333003377FF33733333773339933C3333 330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33 330077F377F337F33377993399333C33330077FF773337F33377399993333C33 33333777733337F333FF333333333C33300033333333373FF7773333333333CC 3000333333333377377733333333333333333333333333333333} NumGlyphs = 2 Spacing = -1 end object cmdWszystkieArchiwa: TBitBtn Left = 104 Top = 6 Width = 26 Height = 24 Hint = 'Poka� ca�e archiwum' HelpContext = 1002 TabOrder = 1 TabStop = False OnClick = cmdWszystkieArchiwaClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000 FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555 55557F7777777555555500000005555555557777777555555555} NumGlyphs = 2 Spacing = -1 end object cmdArchPokazKsiazke: TBitBtn Left = 130 Top = 6 Width = 26 Height = 24 Hint = 'Poka� ksi��k�' HelpContext = 1003 TabOrder = 2 TabStop = False OnClick = cmdArchPokazKsiazkeClick Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEE000EEE EEEEEEEEE0C0800EEEEEEEEE0CC0FFF00EEEEEE0CCC08FFFF00EEE0CCCC7008F FF00E0CCCC7CCC008F8E0CCCC7CCCCCC008E0CCC7CCCCCCCCC000CC7CCCCCCCC CC0E0C7CCCCCCCCCC0EE07CCCCCCCCCC0EEEE00CCCCCCCC0EEEEEEE00CCCCC0E EEEEEEEEE00CC0EEEEEEEEEEEEE00EEEEEEE} Spacing = -1 end object cmdArchPokazUzytkownika: TBitBtn Left = 156 Top = 6 Width = 26 Height = 24 Hint = 'Poka� u�ytkownika' HelpContext = 1004 TabOrder = 3 TabStop = False OnClick = cmdArchPokazUzytkownikaClick Glyph.Data = { F6000000424DF60000000000000076000000280000000E000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BB0000000000 0B00BBBB0FFFFFF0BB00BBBB0FFFFF0BBB00BB0000FFF00BBB00B0FFFFFFF000 BB00B0FFFFFFF0000B00B000FFFF00000000B0FFFFFFF00000000FFFFFFFF000 0000B0F0FFFF00000000BB00FF0000000000BB0FFF000000000000F000000000 00000000000000000B00000000000000BB00BB000000000BBB00} Spacing = -1 end object cmdRapArchiwum: TBitBtn Left = 42 Top = 6 Width = 26 Height = 24 Hint = 'Raport' HelpContext = 1011 TabOrder = 4 TabStop = False OnClick = cmdRapArchiwumClick Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 04000000000070000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBB000BBB BBBBBBBB0078800BBBBBBB00777888800BBB807777788888800B8F7777F88888 88808F77FF77788888808FFF7799777888808F77AA7778807880B88F777887F0 788BBBB88F87FFFF0BBBBBBBB88FFFFFF0BBBBBBBBB8FFFFFF00BBBBBBBB8FFF 88BBBBBBBBBBB888BBBB} Spacing = -1 end object cmdPodgladArchiwum: TBitBtn Left = 68 Top = 6 Width = 26 Height = 24 Hint = 'Podgl�d raportu' HelpContext = 1012 TabOrder = 5 TabStop = False OnClick = cmdPodgladArchiwumClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAA000000000000AA000FFFFFFFFFF0A0000FFFFFFF0000700A0FFFFFF07887 07AA0FFFFF0788E770AA0FFFFF088887A0AA0FFFFF08E887A0AA0FFFFF07EE87 70AA0FFFFFF078870AAA0FFFFFFF0000AAAA0FFFFFFFFFF0AAAA0FFFFFFF0000 AAAA0FFFFFFF080AAAAA0FFFFFFF00AAAAAA000000000AAAAAAA} Spacing = -1 end object cmbSortowanieArchiwum: TComboBox Left = 188 Top = 8 Width = 153 Height = 21 HelpContext = 1013 Style = csDropDownList ItemHeight = 13 TabOrder = 6 OnChange = cmbSortowanieArchiwumChange end end object Panel5: TPanel Left = 0 Top = 33 Width = 626 Height = 284 Align = alClient BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 8 Caption = 'Panel5' TabOrder = 1 object grdArchiwum: TDBGrid Left = 9 Top = 9 Width = 608 Height = 266 Align = alClient DataSource = dsArchiwum Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'System' TitleFont.Style = [] Columns = < item FieldName = 'DataZwrotu' Width = 90 end item FieldName = 'DataWypozyczenia' Width = 133 end item FieldName = 'Sygnatura' Width = 79 end item FieldName = 'Nazwisko' Width = 171 end item FieldName = 'Operator' Width = 114 end> end end object Panel20: TPanel Left = 0 Top = 317 Width = 626 Height = 44 Align = alBottom BevelInner = bvLowered Caption = 'panStatusBar' TabOrder = 2 object Panel21: TPanel Left = 2 Top = 2 Width = 71 Height = 40 Align = alLeft BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object panLiczbaArchiwow: TPanel Left = 6 Top = 4 Width = 53 Height = 19 HelpContext = 1009 BevelOuter = bvLowered TabOrder = 0 end end object Panel23: TPanel Left = 73 Top = 2 Width = 551 Height = 40 HelpContext = 1010 Align = alClient BevelOuter = bvNone BorderWidth = 4 TabOrder = 1 object pisPytanieArchiwum: TOPisak Left = 4 Top = 4 Width = 543 Height = 32 Align = alClient Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end end end end object TTabPage Left = 4 Top = 31 Caption = 'Fiszki' object Panel10: TPanel Left = 0 Top = 0 Width = 626 Height = 31 Align = alTop BevelOuter = bvNone Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object SpeedButton4: TSpeedButton Left = 612 Top = 4 Width = 25 Height = 25 Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000084120000841200001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880088888 8888888880088888888888880088884448880888008888444888008008888888 8888000008888844788800000000884478880000000888844888000000888888 4478000008874488744700008884478884440008888447888444008888884488 744708888888844444788888888888888888} OnClick = cmdHelpClick end object cmdFiszkiWybieraj: TBitBtn Left = 6 Top = 6 Width = 26 Height = 24 Hint = 'Wybieranie' HelpContext = 1000 TabOrder = 0 TabStop = False OnClick = cmdFiszkiWybierajClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333FF3FF3333333333CC30003333333333773777333333333C33 3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33 33003377333337F33377333333333C333300333F333337F33377339333333C33 3333337FF3333733333F33993333C33333003377FF33733333773339933C3333 330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33 330077F377F337F33377993399333C33330077FF773337F33377399993333C33 33333777733337F333FF333333333C33300033333333373FF7773333333333CC 3000333333333377377733333333333333333333333333333333} NumGlyphs = 2 Spacing = -1 end object cmdRaportFiszek: TBitBtn Left = 40 Top = 6 Width = 26 Height = 24 Hint = 'Raport' HelpContext = 1011 TabOrder = 1 TabStop = False OnClick = cmdRaportFiszekClick Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 04000000000070000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBB000BBB BBBBBBBB0078800BBBBBBB00777888800BBB807777788888800B8F7777F88888 88808F77FF77788888808FFF7799777888808F77AA7778807880B88F777887F0 788BBBB88F87FFFF0BBBBBBBB88FFFFFF0BBBBBBBBB8FFFFFF00BBBBBBBB8FFF 88BBBBBBBBBBB888BBBB} Spacing = -1 end object cmdPokazWszystkieFiszki: TBitBtn Left = 102 Top = 6 Width = 26 Height = 24 Hint = 'Poka� wszystkie fiszki' HelpContext = 1002 TabOrder = 3 TabStop = False OnClick = cmdPokazWszystkieFiszkiClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000 FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555 55557F7777777555555500000005555555557777777555555555} NumGlyphs = 2 Spacing = -1 end object cmdUsunFiszke: TBitBtn Left = 310 Top = 6 Width = 26 Height = 24 Hint = 'Usuwanie fiszki' HelpContext = 1006 TabOrder = 6 TabStop = False OnClick = cmdUsunFiszkeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F3333333333000003333333333377777333333} NumGlyphs = 2 Spacing = -1 end object cmdEdytujFiszke: TBitBtn Left = 284 Top = 6 Width = 26 Height = 24 Hint = 'Edytowanie fiszki' TabOrder = 5 TabStop = False OnClick = cmdEdytujFiszkeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 Spacing = -1 end object cmdPodgladFiszki: TBitBtn Left = 66 Top = 6 Width = 26 Height = 24 Hint = 'Podgl�d raportu' HelpContext = 1012 TabOrder = 2 TabStop = False OnClick = cmdPodgladFiszkiClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAA000000000000AA000FFFFFFFFFF0A0000FFFFFFF0000700A0FFFFFF07887 07AA0FFFFF0788E770AA0FFFFF088887A0AA0FFFFF08E887A0AA0FFFFF07EE87 70AA0FFFFFF078870AAA0FFFFFFF0000AAAA0FFFFFFFFFF0AAAA0FFFFFFF0000 AAAA0FFFFFFF080AAAAA0FFFFFFF00AAAAAA000000000AAAAAAA} Spacing = -1 end object cmbSortowanieFiszki: TComboBox Left = 132 Top = 8 Width = 145 Height = 21 HelpContext = 1013 ItemHeight = 13 TabOrder = 4 Text = 'cmbSortowanieFiszki' Visible = False end end object Panel11: TPanel Left = 0 Top = 31 Width = 626 Height = 286 Align = alClient BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 8 Caption = 'Panel11' TabOrder = 1 object grdFiszki: TDBGrid Left = 9 Top = 9 Width = 608 Height = 268 Align = alClient DataSource = dsFiszki Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'System' TitleFont.Style = [] Columns = < item FieldName = 'Sygnatura' Width = 108 end item FieldName = 'Autor' Width = 310 end item FieldName = 'Skrypt' Width = 171 end> end end object Panel24: TPanel Left = 0 Top = 317 Width = 626 Height = 44 Align = alBottom BevelInner = bvLowered TabOrder = 2 object Panel25: TPanel Left = 2 Top = 2 Width = 71 Height = 40 Align = alLeft BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object panLiczbaFiszek: TPanel Left = 6 Top = 4 Width = 53 Height = 19 HelpContext = 1009 BevelOuter = bvLowered TabOrder = 0 end end object Panel27: TPanel Left = 73 Top = 2 Width = 551 Height = 40 HelpContext = 1010 Align = alClient BevelOuter = bvNone BorderWidth = 4 TabOrder = 1 object pisPytanieFiszki: TOPisak Left = 4 Top = 4 Width = 543 Height = 32 Align = alClient Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end end end end end object dbaseBiblioteka: TDatabase Connected = True DatabaseName = 'Biblioteka' DriverName = 'STANDARD' Params.Strings = ( 'PATH=G:\programy\biblio~1') SessionName = 'Default' Left = 535 Top = 27 end object sqlZadaniowy: TQuery DatabaseName = 'Biblioteka' Left = 285 Top = 74 end object tableKsiazkaWypozyczana: TTable DatabaseName = 'Biblioteka' IndexFieldNames = 'Sygnatura' TableName = 'KSIAZKI.DB' Left = 567 Top = 28 end object dsKsiazkaWypozyczana: TDataSource DataSet = tableKsiazkaWypozyczana Left = 519 Top = 170 end object dsArchiwum: TDataSource DataSet = MD.tableArchiwum Left = 511 Top = 234 end object dsKsiazki: TDataSource DataSet = MD.tableKsiazki Left = 431 Top = 240 end object dsUzytkownicy: TDataSource DataSet = MD.tableUzytkownicy Left = 397 Top = 104 end object dsWypozyczenia: TDataSource DataSet = MD.tableWypozyczenia Left = 353 Top = 218 end object sqlKsiazkiWypozyczone: TQuery DatabaseName = 'Biblioteka' RequestLive = True SQL.Strings = ( 'select Autor, Tytul, Sygnatura, DataWypozyczenia, Nr, NrKsiazki ' + 'from WYPOZYCE') Left = 205 Top = 128 end object dsKsiazkiWypozyczone: TDataSource DataSet = sqlKsiazkiWypozyczone Left = 319 Top = 158 end object MainMenu1: TMainMenu Left = 442 Top = 170 object memProgram: TMenuItem Caption = 'Program' object memHasla: TMenuItem Caption = 'Has�a' OnClick = memHaslaClick end object mnuZmianaoperatora: TMenuItem Caption = 'Zmiana operatora' OnClick = mnuZmianaoperatoraClick end object mnuTworzenieSkryptow: TMenuItem Caption = 'Tworzenie skrypt�w' OnClick = mnuTworzenieSkryptowClick end object mnuUstawieniaDrukarki: TMenuItem Caption = 'Ustawienia drukarki' OnClick = mnuUstawieniaDrukarkiClick end object N1: TMenuItem Caption = '-' end object memKoniec: TMenuItem Caption = 'Koniec' OnClick = memKoniecClick end end object mnuBazaDanych: TMenuItem Caption = 'Narz�dzia' object mnuOpcjeArchiwizacji: TMenuItem Caption = 'Opcje archiwizacji...' OnClick = mnuOpcjeArchiwizacjiClick end object mnuArchiwizacja: TMenuItem Caption = 'Archiwizacja...' OnClick = mnuArchiwizacjaClick end object mnuImportDanych: TMenuItem Caption = 'Imort danych...' OnClick = mnuImportDanychClick end object mnuUsuwanieBaz: TMenuItem Caption = 'Usuwanie baz..' OnClick = mnuUsuwanieBazClick end object mnuDiagnostyka: TMenuItem Caption = 'Diagnostyka...' OnClick = mnuDiagnostykaClick end object mnuRejestracja: TMenuItem Caption = 'Rejestracja...' OnClick = mnuRejestracjaClick end object mnuOpcje: TMenuItem Caption = 'Opcje...' OnClick = mnuOpcjeClick end end object memPomoc: TMenuItem Caption = 'Pomoc' object mnuSpisTresci: TMenuItem Caption = 'Spis tre�ci...' OnClick = mnuSpisTresciClick end object N2: TMenuItem Caption = '-' end object mnuZamowienie: TMenuItem Caption = 'Zam�wienie programu...' OnClick = mnuZamowienieClick end object mnuOProgramie: TMenuItem Caption = 'O programie...' OnClick = mnuOProgramieClick end object mnuOAutorze: TMenuItem Caption = 'O autorze...' OnClick = mnuOAutorzeClick end end end object dsFiszki: TDataSource DataSet = MD.tableFiszki Left = 390 Top = 138 end object tmrCzasHasla: TTimer Enabled = False OnTimer = tmrCzasHaslaTimer Left = 547 Top = 125 end object PrinterSetupDialog: TPrinterSetupDialog Left = 496 Top = 119 end end