object frmImportCreator: TfrmImportCreator Left = 8 Top = 5 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Import bazy danych' ClientHeight = 414 ClientWidth = 622 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Bevel1: TBevel Left = 6 Top = 361 Width = 605 Height = 9 Shape = bsBottomLine end object cmdImportuj: TBitBtn Left = 507 Top = 375 Width = 107 Height = 31 Caption = 'Importuj' TabOrder = 4 OnClick = cmdImportujClick end object cmdNastepna: TBitBtn Left = 509 Top = 375 Width = 105 Height = 31 Caption = 'Nast�pna' TabOrder = 1 OnClick = cmdNastepnaClick Glyph.Data = { 06010000424D060100000000000076000000280000000C000000120000000100 0400000000009000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 0000844888888888000084648888888800008466488888880000846664888888 0000846666488888000084666664888800008466666648880000846666666488 0000846666666E88000084666666E88800008466666E88880000846666E88888 000084666E88888800008466E88888880000846E88888888000088E888888888 00008888888888880000} Layout = blGlyphRight end object Notebook: TNotebook Left = 0 Top = 0 Width = 622 Height = 361 Align = alTop TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'pFilename' object Image1: TImage Left = 30 Top = 37 Width = 80 Height = 60 AutoSize = True Picture.Data = {} end object Image2: TImage Left = 126 Top = 29 Width = 19 Height = 28 AutoSize = True Picture.Data = {} Transparent = True end object Label1: TLabel Left = 165 Top = 28 Width = 444 Height = 52 AutoSize = False Caption = 'Wpisz r�cznie lub u�ywaj�c przycisku z rysunkiem foldera wyszuka' + 'j na dysku pliku z importowan� baz� danych. Plik powinien mie� r' + 'ozszerzenie DB, DBF lub TXT.' WordWrap = True end object cmdFindFile: TSpeedButton Left = 564 Top = 98 Width = 35 Height = 29 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDD0000000000000DD88888888888800DD8FB7B7B7B7B800D8FB7B7B7B7B 7080D8F7B7B7B7B780808F7B7B7B7B7B08808FFFFFFFFFF80780888888888888 8B80D8F7B7B7B7B7B780D8FB7B7B7FFFFF80D8F7B7B7F888888DDD8FFFFF8DDD DDDDDDD88888DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD} OnClick = cmdFindFileClick end object Label2: TLabel Left = 165 Top = 84 Width = 187 Height = 16 Caption = 'Plik importowanej bazy danych:' end object Image3: TImage Left = 131 Top = 207 Width = 19 Height = 28 AutoSize = True Picture.Data = {} Transparent = True end object Label5: TLabel Left = 165 Top = 204 Width = 435 Height = 41 AutoSize = False Caption = 'Wska� rodzaj informacji jakie chcesz importowa�: ksi��ki, u�ytko' + 'wnicy czy wypo�yczenia (czyli informacje o wypo�yczonych ksi��ka' + 'ch).' WordWrap = True end object tbFilename: TEdit Left = 165 Top = 101 Width = 396 Height = 24 TabOrder = 0 end object groRodzajInformacji: TRadioGroup Left = 168 Top = 251 Width = 437 Height = 55 Caption = 'Rodzaj informacji imporotwanych: ' Columns = 2 Items.Strings = ( 'Ksi��ki' 'U�tkownicy') TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'pFields' object Label3: TLabel Left = 16 Top = 107 Width = 92 Height = 16 Caption = 'Dost�pne pola:' end object Label4: TLabel Left = 222 Top = 109 Width = 188 Height = 16 Caption = 'Odpowiadaj�ce sobie pary p�l:' end object cmdMoveToLeft: TSpeedButton Left = 183 Top = 213 Width = 31 Height = 31 Glyph.Data = { BE000000424DBE0000000000000076000000280000000B000000090000000100 04000000000048000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777747777770 0000777447777770000077444444444000007444444444400000444444444440 0000744444444440000077444444444000007774477777700000777747777770 0000} OnClick = cmdMoveToLeftClick end object cmdMoveToRight: TSpeedButton Left = 183 Top = 181 Width = 31 Height = 31 Glyph.Data = { BE000000424DBE0000000000000076000000280000000B000000090000000100 04000000000048000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777477770 0000777777447770000044444444477000004444444444700000444444444440 0000444444444470000044444444477000007777774477700000777777477770 0000} OnClick = cmdMoveToRightClick end object cmdMoveUp: TSpeedButton Left = 582 Top = 126 Width = 30 Height = 30 Glyph.Data = { CE000000424DCE000000000000007600000028000000090000000B0000000100 04000000000058000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00774444477000 0000774444477000000077444447700000007744444770000000774444477000 0000774444477000000044444444400000007444444470000000774444477000 000077744477700000007777477770000000} OnClick = cmdMoveUpClick end object cmdMoveDown: TSpeedButton Left = 582 Top = 158 Width = 31 Height = 30 Glyph.Data = { CE000000424DCE000000000000007600000028000000090000000B0000000100 04000000000058000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777747777000 0000777444777000000077444447700000007444444470000000444444444000 0000774444477000000077444447700000007744444770000000774444477000 000077444447700000007744444770000000} OnClick = cmdMoveDownClick end object Image4: TImage Left = 20 Top = 7 Width = 112 Height = 94 AutoSize = True Picture.Data = {} Transparent = True end object Image5: TImage Left = 148 Top = 7 Width = 19 Height = 28 AutoSize = True Picture.Data = {} Transparent = True end object Label6: TLabel Left = 179 Top = 7 Width = 430 Height = 68 AutoSize = False Caption = 'Pos�uguj�c si� przyciskami ze strza�kami dobierz odpowiadaj�ce s' + 'obie pola tabeli importowanej i rodzimej. W danej parze powinny ' + 'wyst�powa� pola, kt�re zawieraj� identyczn� informacj� np. tytu�' + ' ksi��ki, mimo �e ich nazwy mog� si� r�ni�.' WordWrap = True end object lstDostepnePola: TListBox Left = 16 Top = 124 Width = 156 Height = 228 ItemHeight = 16 TabOrder = 0 end object grdParyPol: TStringGrid Left = 222 Top = 127 Width = 355 Height = 225 ColCount = 2 DefaultColWidth = 100 DefaultRowHeight = 15 FixedCols = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing] ScrollBars = ssVertical TabOrder = 1 ColWidths = ( 134 123) RowHeights = ( 15 15 15 15 15) end end end object cmdPoprzednia: TBitBtn Left = 399 Top = 375 Width = 105 Height = 31 Caption = 'Poprzednia' Enabled = False TabOrder = 2 OnClick = cmdPoprzedniaClick Glyph.Data = { 06010000424D060100000000000076000000280000000B000000120000000100 0400000000009000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888885 555F888888884485555F888888846485555F888888466485555F888884666485 555F888846666485555F888466666485555F884666666485555F846666666485 555F8E6666666485555F88E666666484444C888E6666648000088888E6666480 000088888E6664800000888888E6648000008888888E6480000088888888E681 00108888888888800000} end object BitBtn3: TBitBtn Left = 7 Top = 375 Width = 93 Height = 31 Caption = 'Anuluj' TabOrder = 3 Kind = bkCancel end object cmdPomoc: TBitBtn Left = 104 Top = 375 Width = 93 Height = 31 Caption = 'Pomoc' TabOrder = 5 OnClick = cmdPomocClick Kind = bkHelp end object OpenDialog: TOpenDialog Filter = 'Obs�ugiwane bazy danych (*.dbf *.db *.txt) |*.db;*.dbf;*.txt|Wsz' + 'ystkie pliki (*.*)|*.*' Left = 26 Top = 124 end object tableZadaniowa: TTable Left = 46 Top = 246 end end