MySQLDatabases/sk: what changed

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

Old	New		Line
1	1		## Úvod
2	2
3	3		V článku [[Lazarus Database Tutorial\|Database tutorial]] sme videli prvý pokus na spojenie s MySQL serverom. V tejto chvíli sme nepoužili žiadne komponenty, ani vizuálne, ani nevizuálne. Táto stránka si kladie za cieľ vysvetliť pripojenie k MySQL serveru (snáď) jednoduchším spôsobom.
4	4
5	5		## Dostupné komponenty
6	6
7	7		### SQLdb komponenty
8	8
9	9		Iná možnosť je inštalácia balíčka umiestneného v adresári \$Lazarus/components/sqldb. Tu môžete vidieť balík nazvaný sqldblaz.lpk. Potrbeujete nainštalovať tento balíček a mysql4connlaz.lpk z adresára \$Lazarus/components/sqldb/mysql. Prvý z nich obsahuje niekoľko všeobecných komponentov vhodných pre všetky databázy. Sú to komponenty TSQLTransaction a TSQLQuery a môžete ich nájsť na novom tabe nazvanom SQLdb. Po inštalácii mysql4connlaz.lpk uvidíte v tomto tabe taktiež ďalší komponent nazvaný TMySQLConnection (s nakresleným delfínom).
10	10
11	11		Pokiaľ nemôžete nájsť adresár \$Lazarus/components/sqldb/mysql a balík mysql4connlaz.lpk, znamená to, že používate novšiu verziu, v ktorej je mysql4connlaz.lpk spojený s sqldblaz.lpk. je to v poriadku, keď nainštalujete sqldblaz.lpk, získate všetky spomenuté komponenty v jednom tabe lišty komponentov.
12	12
13	13		Pokiaľ neviete, ako nainštalovať komponenty/balíčky, pozrite sa na túto [[Install Packages\|stránku]], kde nájdete "Inštalačné Howto". Nakoľko sú SQLdb všeobecné a môžu byť tak použité aj s inými dtaabázami jednoduchým vymenením TMySQLCOnnection za inštanciu TIBConnection, vyvinieme si program používajúci SQLdb komponenty.
14	14
15	15		## Popis použitých komponentov
16	16
17	17		### TMySQLConnection
18	18
19	19		TMySQLConnection sa používa na uloženie parametrov potrebných na pripojenie k databázovému serveru. Umožňuje nastaviť host, užívateľa a heslo, ktoré sa majú použiť pri pripájaní. Iná vlastnosť TMySQLConnection označuje databázu, ktorú chcete použiť. 'LoginPrompt' v súčasnosti nie je funkčný, takže sa pred pripájaním ka serveru uistite, že názov stroja vo vlasnosti 'HostName' spolu s užívateľským menom ('UserName') a heslom ('Password') pre databázu určenú vo vlastnosti 'DatabaseName' majú správne hodnoty. Taktiež sa uistite, že máte nastavenú TSQLTransaction a pripojte ju do vašej MySQLConnection (cez vlastnosť 'Transaction'), inak nebudete môcť otvoriť SQLQuery.
20	20
21	21		Poznámka. V poslednej SVN verzii Lazara nájdete 3 komponenty MySQLConnection. Sú to: TMySQL40Connection, TMySQL41Connection a TMySQL50Connection. Používajte správnu verziu na pripájanie k vášmu MySQl serveru. Čiže ak máte MySQL 4.1, použite TMySQL41Connection.
22	22
23	23		### TSQLTransaction
24	24
25	25		SQLTransaction sa používa pre určité vnútorné housekeeping. SQLTransaction je automaticky aktivovaná, keď otvoríte dataset, ktorý ju používa. Uzatvorenie spojenie taktiež deaktivuje príslušné transakcie a uzatvorí všetky datasety, ktoré ich využívali.
26	26
27	27		### TSQLQuery
28	28
29	29		TSQLQuery sa požíva na vykonávanie SQL dotazov na server. Môžete získavať dáta nastavením vlastnosti SQL na nejaký príkaz SELECT a zavoalním metódy Open. Pri použití príkazu INSERT, DELETE alebo UPDATE môžete s dátami manipulovať. V poslednom prípade by ste nemali používať metódu Open,a le namiesto nej metódu ExecSQL.
30	30
31	31		### TDataSource
32	32
33	33		Datasource je akýmsi mostom poskytujúcim spojenie medzi viditeľnými komponentami ako sú DBEdit, DBGrid atď. a datasetom. Umožňuje týmto komponentom zobrazovať dáta získané databázy. Datasource môže byť v jednej chvíli pripojený iba k jedinému datasetu, avšak samotný datasource môže byť využívaný viacerými komponentami na prácu s dátami.
34	34
35	35		### TDBGrid
36	36
37	37		DBGrid môže byť použitý na prezentovanie dát získaných od datasetu. DBGrid sa k datasetu pripája cez datasource. Keď je dataset otvorená, DBgrid bude automaticky zobrazovať údaje z databázy.
38	38
39	39		## Náš program
40	40
41	41		### Základy
42	42
43	43		Pokúsime sa vytvoriť program, ktorý je založený na jednom už urobenom [[Lazarus Database Tutorial/nl\|tu (holandsky)]] a ten bol postavený na základoch [[Lazarus Database Tutorial\|iného (anglicky)]] od Chrisa.
44	44
45	45		### Hlavný formulár
46	46
47	47		Použijeme rovnaké hlavné okno a celú funkcionalitu postavím kompletne od nuly :) Ako uvidíte, budem s tým mať o mnoho menej roboty, pretože komponenty skutočne za nás urobia všetku ťažkú prácu! Takže, začnime vytvorením okna ako je toto:\
48	48		![](/wiki-images/2/28/Trymysql.png)\
49	49		Z tabu SQLdb umiestnite na formulár TMySQLConnection, TSQLTransaction a TSQLQuery ![](/wiki-images/6/6d/Components.png). Nemeňte default mená týchto komponentov. Okrem Connection komponentu. Aby bol tento článok rovnaký pre všetky verzie MySQL, pomenujte váš MySQL??Connection komponent: MySQLConnection1. Teraz musíme tieto komponenty prepojiť, aby mohli robiť svoju prácu. Musia byť nastavené nasledujúce vlastnosti:
50	50
51	51		\| \| \| \|
52	52		\|------------------\|--------------\|------------------\|
53	53		\| Component \| Property \| Value \|
54	54		\| MySQLConnection1 \| Transaction \| SQLTransaction1 \|
55	55		\| SQLTransaction1 \| Database \| MySQLConnection1 \|
56	56		\| SQLQuery1 \| Database \| MySQLConnection1 \|
57	57		\| SQLQuery1 \| Transaction \| SQLTransaction1 \|
58	58
59	59		Vlastnosť Transaction pre SQLQuery1 bude nastavená automaticky, ak ste už predtým nastavili vlastnosť Transaction pre MySQLConnection1. Keď tak urobíte, všimnite si, že SQLTransaction1.Database bola nastavená na MySQLConnection1.
60	60
61	61		Ako som povedal skôr: uistite sa, že používate správny komponent na pripájanie k vašej verzii MySQL servera.
62	62
63	63		### Kód
64	64
65	65		Ako môžete vidieť na obrázku, jediné prístupné tlačidlá po štarte programu sú "Connect to server" ("Pripojiť k serveru") a "Exit" ("Koniec"). Aby boli sprístupnené aj ostatné tlačidlá, potrebujeme viac informácií, takže nateraz nie je umožnené na ne klikať. Mohli by sme sa tiež rozhodnúť zneprístupniť aj tlačidlo "Connect to server", pokiaľ neboli dané informácie o hoste, užívateľovi a hesle. Ale to som sa rozhodol nerobiť, nakoľko náš užívateľ si môže pomyslieť: "Nič tu nefunguje, tak stlačím "exit" :-)
66	66
67	67		Predtým, ako Vám ukážem nejaký kód, rád by som zdôraznil, že v kóde by sa malo viac manipulovať s výnimkami. Kritické sekcie by mali byť umiestnené v konštrukciách:
68	68
69	69		`try ... finally`
70	70
71	71		alebo
72	72
73	73		`try ... except`
74	74
75	75		#### Pripojenie k serveru
76	76
77	77		Prvá vec, ktorú by sme maliurobiť, je spojiť sa so serverom. Keďže pri pripájaní nevieme, aké databázy sú na serveri, vypýtame si pri pripájaní zoznam databáz. Je tu však jeden háčik. Aby sme sa mohli pripojiť, vlastnosť DatabaseName komponentu MySQLConnection musí obsahovať platné meno databázy. V kóde uvidíte, že ja používam databázu nazvanú "mysql". Túto databázu používa mysql server pre riadenie svojej činnosti (napríklad obsahuje tabuľky definujúce prístupové práva jednotlivých užívateľov), takže sa na serveri určite nachádza.
78	78
79	79		`procedure TFormTryMySQL.ConnectButtonClick(Sender: TObject);`\
80	80		`begin`\
81	81		` // Overíme si, či máme aktívne pripojenie. Ak áno, zavrieme ho.`\
82	82		` if MySQLConnection1.Connected then CloseConnection(Sender);`\
83	83		` // Nastavíme parametre pre pripojenie`\
84	84		` MySQLConnection1.HostName := HostEdit.Text;`\
85	85		` MySQLConnection1.UserName := UserEdit.Text;`\
86	86		` MySQLConnection1.Password := PasswdEdit.Text;`\
87	87		` MySQLConnection1.DatabaseName := 'mysql'; // Táto databáza sa na serveri nachádza vždy!`\
88	88		` ShowString('Opening a connection to server: ' + HostEdit.Text);`\
89	89		` MySQLConnection1.Open;`\
90	90		` // Najskôr získame zoznam dostupných databáz`\
91	91		` if MySQLConnection1.Connected then begin`\
92	92		` ShowString('Connected to server: ' + HostEdit.Text);`\
93	93		` ShowString('Retrieving list of available databases.');`\
94	94		` SQLQuery1.SQL.Text := 'show databases';`\
95	95		` SQLQuery1.Open;`\
96	96		` while not SQLQuery1.EOF do begin`\
97	97		` DatabaseComboBox.Items.Add(SQLQuery1.Fields[0].AsString);`\
98	98		` SQLQuery1.Next;`\
99	99		` end;`\
100	100		` SQLQuery1.Close;`\
101	101		` ShowString('List of databases received!');`\
102	102		` end;`\
103	103		`end;`
104	104
105	105		Prvú vec, ktorú robíme, je overenie, či sme pripojení k serveru. Ak áno, zavoláme privátnu metódu "CloseConnection". Táto metóda vykoná určité potrebné "udržiavacie práce", ako zneprístupnenie tlačidiel, vyčistenie comboboxov a listboxov. Potom nastavíme nevyhnutné parametre na pripojenie k serveru.
106	106
107	107
108	108		V našom programe môžete vidieť metódu ShowString. Táto pridáva do mema v našom formulári riadok, ktorý slúži ako log.
109	109
110	110		S nastavenými parametrami sa môžeme pripojiť na server. Urobíme to volaním:
111	111
112	112		`MySQLConnection1.Open;`
113	113
114	114		V skutočnej aplikácii by každý správny programátor umiestnil do bloku so správou výnimiek, aby prípadne mohol užívateľovi vypísať nejaké pekné chybové správy o zlyhaní pripojenia. Keď sme už pripojení, radi by sme získali zoznam dostupných databáz na serveri. Na získavanie dát od servera sa používa TSQLQuery. Do vlastnosti SQL sa vloží dotaz odosielaný na server. MySQL používa príkaz "SHOW DATABASES" na zobrazenie zoznamu databáz. Takže, keď sme nastavili SQL.text, zavoláme:
115	115
116	116		`SQLQuery1.Open;`
117	117
118	118		V pripade, ze pouzivame MySQL5 je nutno mit nastaveno, jinak program vraci hlasku se spatnou syntaxi:
119	119
120	120		`SQLQuery1.ParseSQL:=false; SQLQuery1.ReadOnly:=true;`
121	121
122	122		K výsledku získanom pomocou SQLQuery môžeme pristupovať pomocou jeho vlastnosti fields. Ako vidíte, cezjednotlivé záznamy iterujeme volaním
123	123
124	124		`SQLQuery1.Next;`
125	125
126	126		Keď sme už pridali všetky dostupné databázy docomboboxu, opäť zatvoríme SQLQuery.
127	127
128	128		#### Výber databázy
129	129
130	130		Ak užívateľ vyberie databázu v DatabaseComboBox-e, sprístupníme tlačidlo "Select Database" ("Vybrať databázu"). V udalosti OnClick tohto tlačidla nastavíme pre MySQLConnection1 vlasnosť DatabaseName a vyžiadame si zoznam tabuliek vo vybranej databáze. Posledný príkaz tejto procedúry sprístupnňuje tlačidlo "Open Query" ("Vykonať dotaz"), takže užívateľ bude môcť poslať serveru svoj dotaz,ktorý zapíše do "Command" Editbox-u.
131	131
132	132		`procedure TFormTryMySQL.SelectDBButtonClick(Sender: TObject);`\
133	133		`begin`\
134	134		` // Databáza bola vybraná, pozrime sa na jej tabuľky`\
135	135		` CloseConnection(Sender);`\
136	136		` if DatabaseComboBox.ItemIndex <> -1 then begin`\
137	137		` with DatabaseComboBox do`\
138	138		` MySQLConnection1.DatabaseName := Items[ItemIndex];`\
139	139		` ShowString('Retreiving list of tables');`\
140	140		` SQLQuery1.SQL.Text := 'show tables';`\
141	141		` SQLQuery1.Open;`\
142	142		` while not SQLQuery1.EOF do begin`\
143	143		` TableComboBox.Items.Add(SQLQuery1.Fields[0].AsString);`\
144	144		` SQLQuery1.Next;`\
145	145		` end;`\
146	146		` SQLQuery1.Close;`\
147	147		` ShowString('List of tables received');`\
148	148		` end;`\
149	149		` OpenQueryButton.Enabled := True;`\
150	150		`end;`
151	151
152	152		MySQL má špeciálny príkaz "show tables", pomocou ktorého získava zoznam tabuliek v databáze. K výsledkom tohto dotazu sa pristupuje podobne, ako pri získavaní zoznamu databáz a všetky tabuľky sú pridané do TableComboBox-u. Môžno sa čudujete, prečo sme opať neotvorili spojenie pred samotným otváraním query. Toto sa totiž urobí automaticky (pokiaľ je to nevyhnutné) vždy, keď aktivujete SQLQuery.
153	153
154	154		#### Polia v tabuľke
155	155
156	156		V MySQL môžete použiť príkaz "SHOW" aj na získanie polí v tabuľke a to príkazom v tvare: "SHOW COLUMNS FROM \<meno_tabuľky\>". Keď užívateľ vyberie tabuľku z TableComboBox-u, spustíme obsluhu udalosti OnChange tohto ComboBox-u a v nej vyplníme FieldListbox.
157	157
158	158		`procedure TFormTryMySQL.TableComboBoxChange(Sender: TObject);`\
159	159		`begin`\
160	160		` FieldListBox.Clear;`\
161	161		` SQLQuery1.SQL.Text := 'show columns from ' + TableComboBox.Text;`\
162	162		` SQLQuery1.Open;`\
163	163		` while not SQLQuery1.EOF do begin`\
164	164		` FieldListBox.Items.Add(SQLQuery1.Fields[0].AsString);`\
165	165		` SQLQuery1.Next;`\
166	166		` end;`\
167	167		` SQLQuery1.Close;`\
168	168		`end;`
169	169
170	170		Okrem mena poľa obsahuje výsledok aj informácie o type poľa, či je na poli definovaný kľúč, či sú dovolené hodnoty NULL a podobne.
171	171
172	172		#### Zobrazovanie dát
173	173
174	174		Už sme is hovorili o použití komponentov na pripojenie k databázovému serveru, teraz si ukážeme, ako použiť komponenty na zobrazenie dát. Na zobrazenie grid-u s dátami, ktoré si vyžiadal používateľ, použijeme druhý formulár. Tento formulár sa zobrazí, keď užívateľ napíše sql príkaz do "Command" editobox-u a následne klikne na tlačidlo "OpenQuery". Takto vyzerá obsluha udalosti OnClick:
175	175
176	176		`procedure TFormTryMySQL.OpenQueryButtonClick(Sender: TObject);`\
177	177		`begin`\
178	178		` ShowQueryForm := TShowQueryForm.Create(self);`\
179	179		` ShowQueryForm.Datasource1.DataSet := SQLQuery1;`\
180	180		` SQLQuery1.SQL.Text := CommandEdit.Text;`\
181	181		` SQLQuery1.Open;`\
182	182		` ShowQueryForm.ShowModal;`\
183	183		` ShowQueryForm.Free;`\
184	184		` SQLQuery1.Close;`\
185	185		`end;`
186	186
187	187		Formulár ShowQueryForm vyzerá takto::
188	188
189		-	~~<center>~~
190		-
191		-	~~<figure>~~
192		-	~~<img src="Mysqlshow.png" title="Mysqlshow.png" />~~
193		-	~~<figcaption>Mysqlshow.png</figcaption>~~
194		-	~~</figure>~~
195		-
196		-	~~</center>~~
	189	+	![](/wiki-images/4/47/Mysqlshow.png)
197	190
198	191		a obsahuje
199	192
200	193		\| \| \| \|
201	194		\|-------------\|------------\|-------------\|
202	195		\| TPanel \| Align \| alBottom \|
203	196		\| TDataSource \| \| \|
204	197		\| TDBGrid \| Align \| alClient \|
205	198		\| \| DataSource \| DataSource1 \|
206	199		\| TButton \| Caption \| Close \|
207	200
208	201		Tlačidlo je umiestnené na paneli. Čo sa stane pri kliknutí na "OpenQuery", je toto: Najskôr vytvoríme inštanciu TShowQueryForm. Nastavíme vlastnosť DataSet nášho DataSource na SQLQuery1. Potom nastavíme príkaz pre SQLQuery podľa toho, čo zadal užívateľ do editbox-u "Command" a vykonáme ho (metóda Open). Modálne zobrazíme ShowQueryForm (modálne znamená, že ako jediné okno z naše aplikácie bude mať fokus). Keď sa okno zavrie, tak uvoľníme ho uvoľníme (metóda "free") a zavrieme SQLQuery1.
209	202
210	203		## Zdrojové kódy
211	204
212	205		Zdrojové kódy tohto projektu si môžete stiahnuť [tu](http://prdownloads.sourceforge.net/lazarus-ccr/mysql_demo_20050408.tar.gz?download) Ak chcete vidieť viac demonštračných príkladov, navštívte [sourceforge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=148359)
213	206
214	207		---
215	208		From the Free Pascal wiki, page "MySQLDatabases/sk", as it stood on 2009-04-06 after a change by Swen, 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