MySQLDatabases/pl: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Wprowadzenie
2	2
3	3		Ta strona wyjaśnia, jak połączyć się z serwerem bazy danych [[mysql\|MySQL]] przy użyciu komponentów wizualnych.
4	4
5	5		> Note: Ta strona została przetłumaczona z wersji angielskiej na język polski w dniu 2021.01.31, ale wersja angielska została napisana dawno temu i może nie być aktualna. Ponadto większość opisanych tutaj koncepcji nie jest specyficznych dla MySQL, ale ma zastosowanie do wszystkich baz danych SQLDB. Dlatego skorzystanie z poniższej serii samouczków SQLdb może być łatwiejsze
6	6
7	7		Uwaga: zapoznaj się również z samouczkami, które uczą obsługi kontrolek związanych z danymi, zapytań parametrycznych, programowania niezależnego od bazy danych itp .:
8	8
9	9		- [[SQLdb Tutorial1\|SQLdb Samouczek1]]
10	10		- [[SQLdb Tutorial2\|SQLdb Samouczek2]]
11	11		- [[SQLdb Tutorial3\|SQLdb Samouczek3]]
12	12
13	13		Te samouczki są napisane dla wszystkich baz danych obsługujących sqldb, w tym MySQL.
14	14
15	15		W razie potrzeby zobacz również [[mysql\|Samouczki SQLDB i przykładowy kod]], aby uzyskać więcej samouczków (które również zostały napisane dawno temu.
16	16
17	17		## Dostępne komponenty
18	18
19	19		### Komponenty SQLdb
20	20
21	21		W każdej, nawet dość niedawnej wersji Lazarusa, komponenty SQLdb są instalowane domyślnie.
22	22
23	23		![](/wiki-images/4/4b/Sqldbcomponents2.png%E2%80%8E)
24	24
25	25		W zakładce SQLdb znajdziesz:
26	26
27	27		- Różne złącza (connectors), w tym [[TMySQL40Connection]] .. [[TMySQL57Connection]] (a może nawet nowsze wersje) i najbardziej wszechstronne ze wszystkich [[TSQLConnector]], które mogą ładować dowolne ze sterowników baz danych takich jak mysql/oracle/postgres/mssql/interbase/firebird/odbc.
28	28		- [[TSQLQuery]]
29	29
30	30		Jeśli brakuje karty SQLdb, zajrzyj do [[Install Packages\|Instalowanie pakietów]], aby uzyskać instrukcje dotyczące instalacji.
31	31
32	32		## Wyjaśnienie zastosowanych komponentów
33	33
34	34		### TMySQLConnection
35	35
36	36		TMySQLConnection służy do przechowywania parametrów połączenia z serwerem bazy danych. Umożliwia ustawienie hosta, z którym ma się łączyć, oraz identyfikatora użytkownika i hasła, które mają być używane w połączeniu. Inna właściwość TMySQLConnection służy do wskazania bazy danych, której chcesz użyć. „LoginPrompt” jeszcze nie działa, więc upewnij się, że obok właściwości HostName i DatabaseName uzupełnione są również wartości UserName i Password, zanim spróbujesz otworzyć połączenie. Pamiętaj, że aby użyć również TSQLTransaction i połączyć ją z MySQLConnection, ustaw właściwość Transaction, w przeciwnym razie nie będziesz mógł otworzyć zapytania SQLQuery.
37	37
38	38		> Note: Jak wskazano powyżej, istnieją różne komponenty MySQLConnection, które różnią się numerem wersji. Numer wersji musi odpowiadać numerowi wersji biblioteki klienta, której używasz do łączenia się z serwerem. Jeśli więc używasz serwera MySQL 5.1, ale używasz klienta MySQL 5.0, użyj TMySQL50Connection.
39	39
40	40		Powinieneś sprawdzić dokumentację MySQL, aby upewnić się, że połączenie między wersją klienta i wersją serwera jest obsługiwane - np. możesz mieć problemy z połączeniem się z serwerem 4.0 przy użyciu klienta 5.x.
41	41
42	42		We wszystkich przypadkach należy umieścić kopię biblioteki libmysql.dll i wszelkich innych wymaganych plików/bibliotek dll
43	43
44	44		- w twoim katalogu Lazarus i tym samym katalogu co pliki twojego projektu lub
45	45		- w katalogu systemowym Windows (jeśli nie chcesz dalej kopiować plików). Zauważ, że w 64-bitowym systemie Windows bibliotekę 32-bitową musisz umieścić w katalogu SysWOW64, podczas gdy biblioteki 64-bitowe należy przenieść do System32.
46	46
47	47		### TSQLTransaction
48	48
49	49		[[TSQLTransaction]] jest potrzebne do niektórych wewnętrznych procedur. SQLTransaction jest automatycznie aktywowana po otwarciu zestawu danych przy jej użyciu. Zamknięcie połączenia również dezaktywuje powiązaną transakcję i zamyka wszystkie korzystające z niej zbiory danych.
50	50
51	51		### TSQLQuery
52	52
53	53		[[TSQLQuery]] służy do wykonywania instrukcji SQL na serwerze. Możesz pobrać dane, ustawiając SQL na jakąś instrukcję SELECT i wywołując metodę Open. Możesz też manipulować danymi, wydając instrukcję INSERT, DELETE lub UPDATE. W tym drugim przypadku nie powinieneś używać metody Open, ale metodę ExecSQL.
54	54
55	55		### TDataSource
56	56
57	57		[[TDataSource]] zapewnia połączenie między widocznymi komponentami obsługującymi dane, takimi jak DBEdit, DBGrid i zbiorem danych. Przygotowuje dane do wyświetlania w komponentach obsługujących te dane. DataSource (źródło danych) może być jednocześnie połączone tylko z jednym zestawem danych, ale do niego może być połączonych kilka komponentów obsługujących dane.
58	58
59	59		### TDBGrid
60	60
61	61		[[TDBGrid]] może służyć do przedstawienia danych pobranych przez Dataset (zbiór danych). DBGrid potrzebuje Datasource (źródła danych), aby połączyć się ze zbirem danych. Gdy zbiór danych zostanie otwarty, DBGrid zostanie automatycznie wypełniony danymi.
62	62
63	63		## Nasz program
64	64
65	65		### Podstawy
66	66
67	67		Spróbujemy stworzyć program w oparciu o ten stworzony [[Lazarus Database Tutorial/nl\|tutaj (w języku niderlandzkim)]], który jest oparty na [[Lazarus Database Tutorial\|oryginale (w języku angielskim)]] autorstwa Chris.
68	68
69	69		### Formularz główny
70	70
71	71		Użyjemy tego samego ekranu głównego i zbudujemy całą funkcjonalność od podstaw :) Jak zobaczysz, jest tu o wiele mniej do zrobienia, ponieważ komponenty naprawdę rozwiązują wszystkie trudne rzeczy! Zacznijmy więc od stworzenia ekranu, który wygląda tak:
72	72
73	73		![](/wiki-images/f/f4/Trymysql_pl.png)
74	74
75	75		Korzystając z zakładki SQLdb umieść na swojej formatce komponenty [[TMySQL56Connection]] ![](/wiki-images/9/97/Tmysql56connection.png) (lub inną wersję klienta mysql), [[TSQLTransaction]] ![](/wiki-images/b/bd/Tsqltransaction.png) i [[TSQLQuery]] ![](/wiki-images/b/bb/Tsqlquery.png). Nie zmieniaj domyślnych nazw nadanych tym komponentom. Z wyjątkiem komponentu łączącego do bazy. Aby artykuł był taki sam dla wszystkich wersji MySQL, nazwij komponent TMySQL##Connection: `MySQLConnection1`. Musimy te komponenty połączyć razem, aby mogły wykonywać swoją pracę. Dlatego należy ustawić następujące właściwości:
76	76
77	77		\| \| \| \|
78	78		\|------------------\|----------------\|------------------\|
79	79		\| Komponent \| Właściwość \| Wartość \|
80	80		\| MySQLConnection1 \| Transaction \| SQLTransaction1 \|
81	81		\| SQLTransaction1 \| Database \| MySQLConnection1 \|
82	82		\| SQLQuery1 \| Transaction \| SQLTransaction1 \|
83	83		\| SQLQuery1 \| Database \| MySQLConnection1 \|
84	84
85	85		Właściwość Transaction komponentu SQLQuery1 zostanie ustawiona automatycznie, jeśli najpierw ustawisz właściwość Transaction dla MySQLConnection1. Gdy to ustawisz, zauważysz, że SQLTransaction1.Database została ustawiona na MySQLConnection1.
86	86
87	87		Jak wspomniano wcześniej: upewnij się, że używasz odpowiedniego komponentu połączenia dla swojej wersji serwera MySQL.
88	88
89	89		### Kod
90	90
91	91		Jak widać na zrzucie ekranu, jedynymi przyciskami dostępnymi po uruchomieniu programu są „Połącz z serwerem” i „Zakończ”. Aby inne przyciski działały, potrzebujemy więcej informacji, więc są one wyłączone. Moglibyśmy również zdecydować o wyłączeniu opcji „Połącz z serwerem” do czasu podania informacji o hoście, nazwie użytkownika i haśle. Zdecydowałem się tego nie robić, ponieważ nasz użytkownik mógłby pomyśleć: „Nic nie wydaje się możliwe, więc przejdźmy do wyjścia”. :)
92	92
93	93		Zanim zacznę podawać jakikolwiek kod, chciałbym podkreślić, że w kodzie powinna być dodana obsługa wyjątków. Sekcje krytyczne należy umieścić w blokach kodu
94	94
95		-	~~`try ... finally`~~
	95	+	```text
	96	+	try ... finally
	97	+	```
96	98
97	99		i / lub
98	100
99		-	~~`try ... except`~~
	101	+	```text
	102	+	try ... except
	103	+	```
100	104
101	105		#### Połączenie z serwerem
102	106
103	107		Pierwszą rzeczą, którą musimy zrobić, jest połączenie się z naszym serwerem. Ponieważ przy łączeniu nie wiemy, jakie bazy danych są dostępne na serwerze, przy połączeniu poprosimy o listę baz danych. Jest jednak jeden haczyk, aby nawiązać połączenie, musimy wprowadzić poprawną nazwę bazy danych we właściwościach MySQLConnection. W kodzie zobaczysz, że używam bazy danych „mysql”. Ta baza danych jest używana przez mysql do pewnych czynności porządkowych, więc zawsze tam będzie.
104	108
105	109		``` pascal
106	110		procedure TFormTryMySQL.ConnectButtonClick(Sender: TObject);
107	111		begin
108	112		// Sprawdź, czy mamy aktywne połączenie. Jeśli tak, musimy je zamknąć.
109	113		if MySQLConnection1.Connected then CloseConnection(Sender);
110	114		// Ustaw parametry połączenia.
111	115		MySQLConnection1.HostName := HostEdit.Text;
112	116		MySQLConnection1.UserName := UserEdit.Text;
113	117		MySQLConnection1.Password := PasswdEdit.Text;
114	118		MySQLConnection1.DatabaseName := 'mysql'; // Baza mysql jest zawsze dostępna!
115	119		ShowString('Otwarcie połączenia z serwerem: ' + HostEdit.Text);
116	120		MySQLConnection1.Open;
117	121		// Najpierw pobierzmy listę dostępnych baz danych.
118	122		if MySQLConnection1.Connected then begin
119	123		ShowString('Połączono z serwerem: ' + HostEdit.Text);
120	124		ShowString('Pobieranie listy dostępnych baz danych.');
121	125		SQLQuery1.SQL.Text := 'show databases';
122	126		SQLQuery1.Open;
123	127		while not SQLQuery1.EOF do begin
124	128		DatabaseComboBox.Items.Add(SQLQuery1.Fields[0].AsString);
125	129		SQLQuery1.Next;
126	130		end;
127	131		SQLQuery1.Close;
128	132		ShowString('Lista otrzymanych baz danych!');
129	133		end;
130	134		end;
131	135		```
132	136
133	137		Pierwszą rzeczą, jaką robimy, jest sprawdzenie, czy jesteśmy połączeni z serwerem, jeśli tak, wywołujemy prywatną metodę „CloseConnection”. W tej metodzie robi się więcej porządków. jak wyłączanie przycisków i czyszczenie comboboxów i listbox. Następnie ustawiamy niezbędne parametry, aby połączyć się z serwerem.
134	138
135	139
136	140		W całym naszym programie możesz zobaczyć wywołania ShowString. Ta metoda dodaje wiersz do notatki w naszym formularzu, który działa jak rodzaj dziennika.
137	141
138	142		Po ustawieniu parametrów możemy połączyć się z serwerem. Odbywa się to przez wywołanie
139	143
140	144		``` pascal
141	145		MySQLConnection1.Open;
142	146		```
143	147
144	148		W odpowiedniej aplikacji można by to umieścić w konstrukcji obsługi wyjątków, aby przedstawić użytkownikowi przyjazny komunikat w przypadku niepowodzenia połączenia. Kiedy jesteśmy połączeni, chcemy uzyskać listę baz danych z serwera. Aby uzyskać dane z serwera, używane jest zapytanie TSQLQuery. Właściwość SQL służy do przechowywania instrukcji SQL wysyłanej do serwera. MySQL zna polecenie „SHOW DATABASES”, aby uzyskać listę baz danych. Więc po ustawieniu tekstu SQL wywołujemy
145	149
146	150		``` pascal
147	151		SQLQuery1.Open;
148	152		```
149	153
150	154		W MySQL5 ustaw to, aby poprawić błąd ze składnią SQL:
151	155
152	156		``` pascal
153	157		SQLQuery1.ParseSQL := False;
154	158		SQLQuery1.ReadOnly := True;
155	159		```
156	160
157	161		Zestaw wyników SQLQuery można sprawdzić za pomocą właściwości fields. Jak widać, przeglądamy wszystkie zapisy, wywołując
158	162
159	163		``` pascal
160	164		SQLQuery1.Next;
161	165		```
162	166
163	167		Kiedy dodamy wszystkie dostępne bazy danych do naszego combobox, ponownie zamykamy SQLQuery.
164	168
165	169		#### Wybieranie bazy danych
166	170
167	171		Jeśli użytkownik wybierze bazę danych w DatabaseComboBox, włączamy przycisk „Wybierz bazę danych”. W zdarzeniu OnClick tego przycisku ustawiamy DatabaseName MySQLConnection1 i żądamy listy tabel. Ostatnia instrukcja tej procedury włącza przycisk „Otwórz zapytanie”, dzięki czemu użytkownik może wprowadzić zapytanie w polu edycji „Polecenie” i wysłać je na serwer.
168	172
169	173		``` pascal
170	174		procedure TFormTryMySQL.SelectDBButtonClick(Sender: TObject);
171	175		begin
172	176		// Baza danych została wybrana, więc pobierzmy z niej tabele.
173	177		CloseConnection(Sender);
174	178		if DatabaseComboBox.ItemIndex <> -1 then begin
175	179		with DatabaseComboBox do
176	180		MySQLConnection1.DatabaseName := Items[ItemIndex];
177	181		ShowString('Pobieranie listy tabel');
178	182		SQLQuery1.SQL.Text := 'SHOW TABLES';
179	183		SQLQuery1.Open;
180	184		while not SQLQuery1.EOF do begin
181	185		TableComboBox.Items.Add(SQLQuery1.Fields[0].AsString);
182	186		SQLQuery1.Next;
183	187		end;
184	188		SQLQuery1.Close;
185	189		ShowString('Lista otrzymanych tabel');
186	190		end;
187	191		OpenQueryButton.Enabled := True;
188	192		end;
189	193		```
190	194
191	195		MySQL ma specjalne polecenie do pobierania listy tabel, porównywalne do pobierania listy baz danych, „SHOW TABLES”. Wynik tego zapytania jest obsługiwany w taki sam sposób, jak lista baz danych, a wszystkie tabele są dodawane do TableComboBox. Możesz się zastanawiać, dlaczego nie otwieramy ponownie połączenia przed otwarciem zapytania? Cóż, odbywa się to automatycznie (jeśli to konieczne), gdy aktywujemy SQLQuery.
192	196
193	197		#### Pola w tabeli
194	198
195	199		W MySQL możesz ponownie użyć formy „SHOW”, aby pobrać pola w tabeli. W tym przypadku „SHOW COLUMNS FROM \<nazwa tabeli\>”. Jeśli użytkownik wybierze tabelę z TableComboBox, wyzwalane jest zdarzenie OnChangeEvent tego ComboBox, które wypełnia pole FieldListbox.
196	200
197	201		``` pascal
198	202		procedure TFormTryMySQL.TableComboBoxChange(Sender: TObject);
199	203		begin
200	204		FieldListBox.Clear;
201	205		SQLQuery1.SQL.Text := 'SHOW COLUMNS FROM ' + TableComboBox.Text;
202	206		SQLQuery1.Open;
203	207		while not SQLQuery1.EOF do begin
204	208		FieldListBox.Items.Add(SQLQuery1.Fields[0].AsString);
205	209		SQLQuery1.Next;
206	210		end;
207	211		SQLQuery1.Close;
208	212		end;
209	213		```
210	214
211	215		Oprócz nazw pól, zestaw wyników zawiera informacje o typie pola, jeśli pole jest kluczem, czy dozwolone są wartości null i nie tylko.
212	216
213	217		#### Wyświetlanie danych
214	218
215	219		Tak jak powiedzieliśmy, użyjemy komponentów do połączenia się z bazą danych, użyjmy również niektórych komponentów, aby pokazać dane. W drugim formularzu pokażemy siatkę z danymi żądanymi przez użytkownika. Formularz ten zostanie wyświetlony, gdy użytkownik wpisze polecenie SQL w polu edycji „Polecenie”, a następnie kliknie przycisk „Otwórz zapytanie”. To jest zdarzenie OnClick:
216	220
217	221		``` pascal
218	222		procedure TFormTryMySQL.OpenQueryButtonClick(Sender: TObject);
219	223		begin
220	224		ShowQueryForm := TShowQueryForm.Create(self);
221	225		ShowQueryForm.Datasource1.DataSet := SQLQuery1;
222	226		SQLQuery1.SQL.Text := CommandEdit.Text;
223	227		SQLQuery1.Open;
224	228		ShowQueryForm.ShowModal;
225	229		ShowQueryForm.Free;
226	230		SQLQuery1.Close;
227	231		end;
228	232		```
229	233
230	234		ShowQueryForm wygląda następująco:
231	235
232	236		![](/wiki-images/a/aa/Mysqlshow_pl.png)
233	237
234	238		i zawiera
235	239
236	240		\| \| \| \|
237	241		\|----\|----\|----\|
238	242		\| [[TPanel]] \| Align \| alBottom \|
239	243		\| [[TDataSource]] \| \| \|
240	244		\| [[TDBGrid]] \| Align \| alClient \|
241	245		\| \| DataSource \| DataSource1 \|
242	246		\| [[TButton]] \| Caption \| Close \|
243	247
244	248		Przycisk umieszczony jest na panelu. Kolejność działań w OnClick przycisku „Otwórz zapytanie” jest następująca. Najpierw tworzymy wystąpienie TShowQueryForm. Po drugie ustawiliśmy właściwość DataSet źródła danych na nasz SQLQuery1. Następnie ustawiamy polecenie SQLQuery SQL na to, co użytkownik wpisał w polu edycji „Polecenie” i otwieramy je. Następnie ShowQueryForm jest pokazywany modalnie, co oznacza, że będzie się na nim koncentrował, dopóki nie zostanie zamknięty. Po zamknięciu „zwalniamy” go i ponownie zamykamy SQLQuery1.
245	249
246	250		Formularz można dodatkowo ulepszyć poprzez wstawienie metody modyfikowania zawartości [[TDataSet]] i ostatecznie DataBase. Pełną wersję można pobrać z <http://digitus.itk.ppke.hu/~janma/lazarus/MySql5Test.tar.gz> (dzięki Arwen i JZombi z Lazarus MySQL Forum) ale istotne szczegóły są następujące:
247	251
248	252		Dodaj przycisk u dołu formularza ShowQuery o nazwie AddButton i podpisem „Dodaj”. Utwórz metodę dla AddButtonClick w następujący sposób:
249	253
250	254		``` pascal
251	255		procedure TShowQueryForm.AddButtonClick(Sender: TObject);
252	256		begin
253	257		DataSource1.DataSet.Append;
254	258		end;
255	259		```
256	260
257	261		Zmień kod dla OpenQueryButtonClick, aby umożliwić aktualizacje bazy danych po zakończeniu pracy z formularzem zapytania.
258	262
259	263		``` pascal
260	264		procedure TFormTryMySQL.OpenQueryButtonClick(Sender: TObject);
261	265		begin
262	266		ShowQueryForm := TShowQueryForm.Create(nil);
263	267		try
264	268		ShowQueryForm.DataSource1.DataSet := SQLQuery1;
265	269		// Będziemy pisać w bazie danych, więc ustawmy ReadOnly na false,
266	270		// a do tego musimy ustawić ParseSQL na true
267	271		SQLQuery1.ParseSQL:=true;
268	272		SQLQuery1.ReadOnly:=false;
269	273		SQLQuery1.SQL.Text := CommandEdit.Text;
270	274		SQLQuery1.Open;
271	275		ShowQueryForm.ShowModal;
272	276		finally
273	277		// ustaw tryb aktualizacji i zaktualizuj bazę danych
274	278		SQLQuery1.UpdateMode:=upWhereChanged;
275	279		SQLQuery1.ApplyUpdates;
276	280		SQLTransaction1.Commit;
277	281		ShowQueryForm.Free;
278	282		SQLQuery1.Close;
279	283		// ustaw ReadOnly i ParsesSQL z powrotem na domyślne
280	284		SQLQuery1.ParseSQL:=false;
281	285		SQLQuery1.ReadOnly:=true;
282	286		end;
283	287		end;
284	288		```
285	289
286	290		Możemy teraz dodawać rekordy do bazy danych. Jeśli dodamy TDBNavigator do formularza ShowQuery, możemy łatwiej poruszać się po siatce danych i edytować rekordy; baza danych jest aktualizowana o nasze zmiany za każdym razem, gdy zamykamy formularz ShowQuery i możemy to przetestować, otwierając go ponownie w celu sprawdzenia bazy danych.
287	291
288	292		Jeśli chcesz mieć możliwość USUWANIA lub w inny sposób modyfikowania rekordów w oryginalnej bazie danych (tj. trzeba upewnić się, że zmiany wprowadzone w lokalnym zestawie danych zostaną zatwierdzone z powrotem w bazie danych), musisz mieć jedną kolumnę w tabeli bazy danych, która jest kluczem podstawowym autoincremented, ponieważ metoda 'delete' wymaga możliwości wygenerowania klauzuli 'where' podczas zapisywania instrukcji z powrotem do bazy danych, aby zidentyfikować rekordy wybrane do usunięcia. Użyj więc następującego kodu w swoim kliencie MySQL (wszystko może być wpisane w jednej linii, ale dla przejrzystości dodano podziały linii):
289	293
290	294		``` sql
291	295		ALTER TABLE TRESTRIG
292	296		ADD COLUMN AUTOID INT
293	297		PRIMARY KEY AUTO_INCREMENT;
294	298		```
295	299
296	300		a wtedy zauważysz, że przycisk Usuń w nawigatorze działa.
297	301
298	302		## Źródła
299	303
300	304		Oryginalne źródła tego projektu można pobrać [tutaj](http://prdownloads.sourceforge.net/lazarus-ccr/mysql_demo_20050408.tar.gz?download). Aby uzyskać więcej projektów demonstracyjnych, zobacz [sourceforge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=148359).
301	305
302	306		> Note: Projekty te powstały w latach 2004-2009 i nie były aktualizowane. Bez kilku poprawek mogą nie kompilować się w obecnym Lazarus 2.0.10.
303	307
304	308		## Zobacz także
305	309
306	310		- [[mysql]]
307	311
308	312		---
309	313		From the Free Pascal wiki, page "MySQLDatabases/pl", as it stood on 2021-11-12 after a change by Slawek, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history