MySQLDatabases/ja: what changed

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

Old	New		Line
1	1		Work in progress
2	2
3	3		## はじめに
4	4
5	5		In the [[Lazarus Database Tutorial\|Database tutorialのページで]]、MySQLサーバーへの最初の接続を試してみる実例があります。そのときには、ビジュアル、ノンビジュアルの、どんなコンポーネントも使いませんでした。このページでは、（多分）もっと簡単な方法で、MySQLサーバーに接続する方法を紹介します。
6	6
7	7		## 利用するコンポーネント
8	8
9	9		### SQLdb Components
10	10
11	11		\$Lazarus/components/sqldbディレクトリに、もうひとつ別のパッケージがあります。このディレクトリに、sqldblaz.lpkがあります。このパッケージと、Lazarus/components/sqldb/mysql directoryから、mysql4connlaz.lpkをインストールする必要があります。最初のsqldblaz.lpkは、すべてのデータベースで利用する一般的なコンポーネントを含みます。これらのコンポーネントは、SQLdbタブの中の、TSQLTransactionやTSQLQueryです。mysql4connlaz.lpkをインストールした後では、SQLdbタブにTMySQLConnectionを見つけることができるでしょう。(depicted by a dolphin)
12	12
13	13		もし、\$Lazarus/components/sqldb/mysql ディレクトリや、 mysql4connlaz.lpkを見つけられない場合、mysql4connlaz.lpkがsqldblaz.lpkにマージされた新しいバージョンを使っている事を意味しています。もしそうだったら、sqldblaz.lpkをインストールすれば、すべてのコンポーネントをLazarusのIDEのツールバーの中に手に入れることができます。
14	14
15	15		もし、どうやってコンポーネントやパッケージをインストールするか分からなかったら、[[Install Packages/ja\|インストールの方法の解説を]]呼んでください。 SQLdbコンポーネントはより一般的で、他のデータベースにも接続できるので、たとえば、TMySQLConnectionをTIBConnectionへ置き換えることも可能です。ですから、（より一般的な）SQLdbコンポーネントでプログラムを開発するようにしましょう。
16	16
17	17		## 利用したコンポーネントの説明
18	18
19	19		### TMySQLConnection
20	20
21	21		TMySQLConnectionは、データベースサーバーに接続するパラメータを保存するのに使われます。接続するのに使われる、接続するホスト、ユーザーID,パスワードをセットします。 TMySQLConnectionのほかのプロパティは、使いたい時に必要に応じて使います。
22	22
23	23		'LoginPrompt'プロパティは、まだ機能しないので、接続を開始するために必要なHostNameとDatabaseName、UserName、Passwordプロパティは必ず設定してください。
24	24
25	25		TSQLTransactionを使う場合、MySQLConnectionと同様に、Transactionプロパティを設定してください。さもないと、SQLQueryをオープンすることができません。
26	26
27	27		ノート：最新のLazarusのSVN版では、MySQLConnectionコンポーネントに３つのバージョンがあります。それらは、TMySQL40Connection, TMySQL41Connection and TMySQL50Connectionです。
28	28
29	29		サーバーにあっている正しいものを使うようにしてください。もし、MySQL 4.1を使っているなら、TMySQL41Connectionを使ってください。
30	30
31	31		### TSQLTransaction
32	32
33	33		SQLTransactionは、内部的な仕事に使われます。SQLTransactionは、あなたがデータセットをオープンするときには、自動的にactivateされます。接続を閉じるときには、関連のあるトランザクションもdeactivateされ、SQLTransactionをつかっているデータセットもcloseされます。
34	34
35	35		### TSQLQuery
36	36
37	37		TSQLQueryはSQL文を実行するときに使用されます。SQLにSELECT文を設定し、Openメソッドをコールすることで、データを受け取ることができます。または、INSERT,DELETE,UPDATE文で、データを操作することができます。この場合は、Openメソッドではなく、ExecSQLメソッドを使います。
38	38
39	39		### TDataSource
40	40
41	41		データソースは、DBEditやDBGridといった目に見える「データを表示し操作するコンポーネント（=data aware components)」と、データセットの間の接続を提供します。データソースは、data aware componentに表示するためのデータを提供する役割があります。
42	42
43	43		データソースは、１度に１つのデータセットに接続されるべきです。しかし、いくつかのdata awareコンポーネントに接続されることがあります。
44	44
45	45		### TDBGrid
46	46
47	47		DBグリッドはデータセットのデータを表示するのに使われます。DBGridはデータセットに接続するために、データソースを必要とします。データセットがOpenされると、DBグリッドは自動的にデータを表示します。
48	48
49	49		## 私達のプログラム
50	50
51	51		### 私達がベースとするもの
52	52
53	53		私達は、[[Lazarus Database Tutorial\|ここで]]作られたものをベースにしたプログラムをつくるようにしましょう。これは、[[Lazarus Database Tutorial\|オリジナル (in English)]] Chrisによるものをベースにしています。
54	54
55	55		### メインフォーム
56	56
57	57		私たちは、同じメイン画面を使用し、最初から、すべての機能性を築き上げます。コンポーネントが本当にすべての面倒なことを取り去ってくれますが、これから、気をつけるべきいろいろな事があります。
58	58
59	59		それでは、次のような画面を作るところから始めてみましょう。\
60	60		![](/wiki-images/2/28/Trymysql.png)\
61	61		SQLdbタブから、TMySQLConnection、TSQLTransaction,TSQLQuery ![](/wiki-images/6/6d/Components.png)をフォームの上におきます。Connectionコンポーネント以外は、これらのコンポーネントにつけられたデフォルトの名前を変更しないでください。すべてのバージョンのMySQLに対応するために、MySQL??Connectionには、MySQLConnection1という名前をつけてください。そして、これらのコンポーネントが連携して動作するために、リンクする必要がありますので、次のようにプロパティをセットしてください。
62	62
63	63		\| \| \| \|
64	64		\|--------------------\|----------------\|------------------\|
65	65		\| コンポーネント \| プロパティ \| 値 \|
66	66		\| MySQLConnection1 \| Transaction \| SQLTransaction1 \|
67	67		\| SQLTransaction1 \| Database \| MySQLConnection1 \|
68	68		\| SQLQuery1 \| Database \| MySQLConnection1 \|
69	69		\| SQLQuery1 \| Transaction \| SQLTransaction1 \|
70	70
71	71		SQLQuery1のトランザクションのプロパティは、最初にMySQLConnection1のトランザクションプロパティをセットしたときに、自動的に設定されます。
72	72
73	73		これを設定したら、SQLTransaction1.Databaseに、MySQLConnection1が設定されていることに注意してください。
74	74
75	75		前にも言いましたが、MySQLサーバーのバージョンにあった正しい接続コンポーネントを使っていることを確認してください。
76	76
77	77		### プログラムコード
78	78
79	79		スクリーン画像を見てください。プログラムの開始時に有効なボタンは、"Connect to Server"と"Exit"だけです。その他のボタンが機能するためには、まだ充分な情報がないので、無効になっています。 "Connect to Server"ボタンも、接続先ホスト、ユーザー名、パスワードが与えられるまでは無効にしておく、ということもできますが、この場合、ユーザーは何もすることが無いから、"Exit"を押すしかないな、と考えてしまうでしょう。
80	80
81	81		まずコードを示す前に、コードには、例外を扱うコードを入れるべきであることを強調したいと思います。
82	82
83	83		クリティカルなセクションは、
84	84
85	85		`try ... finally`
86	86
87	87		あるいは、
88	88
89	89		`try ... except`
90	90
91	91		の構文に入れるようにしてください。
92	92
93	93		#### サーバーに接続する
94	94
95	95		最初にやることは、サーバーに接続することです。接続する時に、サーバーのどのデータベースが利用可能かどうか知らなければ、実行時の接続するときにデータベースのリストから尋ねるようにできます。しかしながら、今回は１つを選択し、MySQLConnectionのプロパティの、有効なDatabaseNameを開いて接続するようにしてください。コードの中に、私が使っている"mysql"データベースがあります。このデータベースはmysqlによって内部的に使われるもので、常に存在します。
96	96
97	97		`procedure TFormTryMySQL.ConnectButtonClick(Sender: TObject);`\
98	98		`begin`\
99	99		` // Check if we have an active connection. If so, let's close it.`\
100	100		` if MySQLConnection1.Connected then CloseConnection(Sender);`\
101	101		` // Set the connection parameters.`\
102	102		` MySQLConnection1.HostName := HostEdit.Text;`\
103	103		` MySQLConnection1.UserName := UserEdit.Text;`\
104	104		` MySQLConnection1.Password := PasswdEdit.Text;`\
105	105		` MySQLConnection1.DatabaseName := 'mysql'; // MySQL is allways there!`\
106	106		` ShowString('Opening a connection to server: ' + HostEdit.Text);`\
107	107		` MySQLConnection1.Open;`\
108	108		` // First lets get a list of available databases.`\
109	109		` if MySQLConnection1.Connected then begin`\
110	110		` ShowString('Connected to server: ' + HostEdit.Text);`\
111	111		` ShowString('Retrieving list of available databases.');`\
112	112		` SQLQuery1.SQL.Text := 'show databases';`\
113	113		` SQLQuery1.Open;`\
114	114		` while not SQLQuery1.EOF do begin`\
115	115		` DatabaseComboBox.Items.Add(SQLQuery1.Fields[0].AsString);`\
116	116		` SQLQuery1.Next;`\
117	117		` end;`\
118	118		` SQLQuery1.Close;`\
119	119		` ShowString('List of databases received!');`\
120	120		` end;`\
121	121		`end;`
122	122
123	123		まず、最初にチェックすることは、サーバーに接続しているかどうか、そして、プライベートメソッドのCloseConnectionを呼んでいるか、ということです。このメソッドで、いくつかの内部的な処理がおこなわれ、終了します。ボタンをdisableにしたり、チェックボックスやリストボックスをクリアしたりします。そして、サーバに接続するために必要なパラメータをセットします。
124	124
125	125
126	126		プログラムでは、ShowStringをコールしていることに気が付くでしょう。これは、memoにログのように、文を追加していきます。
127	127
128	128		パラメータをセットすれば、サーバーに接続できます。これは、次の文をコールすることで実行されます。
129	129
130	130		`MySQLConnection1.Open;`
131	131
132	132		行儀の良いアプリケーションでは、これを例外処理構造にいれて、接続が失敗した場合に、わかりやすいメッセージでユーザーに伝えるべきです。
133	133
134	134		接続がおこなわれれば、サーバーからデータベースのリストを取得します。サーバーからデータを取得するには、TSQLQueryを使います。SQLプロパティに、SQL文を入れ、サーバーに送ります。MySQLサーバーは、"SHOW DATABASES"コマンドが、データベースのリストを取得するコマンドである、ということを理解します。SQL文をセットしたら、次のようにコールします。
135	135
136	136		`SQLQuery1.Open;`
137	137
138	138		SQLQueryの結果セットは、fieldsプロパティを使って調べることができます。レコードをイテレーションするために、次のようにコールします。
139	139
140	140		`SQLQuery1.Next;`
141	141
142	142		すべての利用できるデータベースをコンボボックスに追加したら、SQLQueryを再びクローズしてください。
143	143
144	144		#### データベースを選択する
145	145
146	146		ユーザがDatabaseComboBoxからデータベースを選択したときに、"Select Database"ボタンを有効にします。そのボタンのOnClickイベントで、MySQLConnection1のDatabaseNameをセットして、テーブルのリストを要求します。このプロシージャの最後の命令で、"Open Query"ボタンを有効にして、ユーザーが"Command"エディットボックスでクエリを入力でき、サーバに送信できるようにします。
147	147
148	148		`procedure TFormTryMySQL.SelectDBButtonClick(Sender: TObject);`\
149	149		`begin`\
150	150		` // A database has been selected so lets get the tables in it.`\
151	151		` CloseConnection(Sender);`\
152	152		` if DatabaseComboBox.ItemIndex <> -1 then begin`\
153	153		` with DatabaseComboBox do`\
154	154		` MySQLConnection1.DatabaseName := Items[ItemIndex];`\
155	155		` ShowString('Retreiving list of tables');`\
156	156		` SQLQuery1.SQL.Text := 'show tables';`\
157	157		` SQLQuery1.Open;`\
158	158		` while not SQLQuery1.EOF do begin`\
159	159		` TableComboBox.Items.Add(SQLQuery1.Fields[0].AsString);`\
160	160		` SQLQuery1.Next;`\
161	161		` end;`\
162	162		` SQLQuery1.Close;`\
163	163		` ShowString('List of tables received');`\
164	164		` end;`\
165	165		` OpenQueryButton.Enabled := True;`\
166	166		`end;`
167	167
168	168		MySQLはデータベースのリストを取得する場合と比較して、テーブルのリストを取得するための特別のコマンド"show tables"を持っています。このクエリの結果もデータベースリストと同じように、すべてのテーブルをTableComboBoxに追加していきます。
169	169
170	170		どうしてこのクエリをオープンする前に、コネクションを再度オープンしなかったのか、疑問に思うかもしれません。これは、自動的にSQLQueryが有効になったときに、必要に応じて内部的におこなわれるので、必ずしも必要ではありません。
171	171
172	172		#### テーブル内のフィールド
173	173
174	174		MySQLにおいて、テーブルと同様に、テーブルのフィールドを取得する場合にも、"SHOW"を使って、"SHOW COLUMNS FROM \<tablename\>"とすることでできます。ユーザーがテーブルをTableComboBoxから選択すると、そのComboBoxのOnChangedEventがトリガーとなって、FieldListboxへフィールドの名前を入れます。
175	175
176	176		`procedure TFormTryMySQL.TableComboBoxChange(Sender: TObject);`\
177	177		`begin`\
178	178		` FieldListBox.Clear;`\
179	179		` SQLQuery1.SQL.Text := 'show columns from ' + TableComboBox.Text;`\
180	180		` SQLQuery1.Open;`\
181	181		` while not SQLQuery1.EOF do begin`\
182	182		` FieldListBox.Items.Add(SQLQuery1.Fields[0].AsString);`\
183	183		` SQLQuery1.Next;`\
184	184		` end;`\
185	185		` SQLQuery1.Close;`\
186	186		`end;`
187	187
188	188		結果セットには、フィールドの名前と同じように、フィールドの型情報、キーになっているかどうか、nullが許されるか、など、色んな情報が含まれています。
189	189
190	190		#### データを表示する
191	191
192	192		データベースに接続するために、コンポーネントを使うという方針と同様に、データを表示するためにも、いくつかのコンポーネントを使ってみましょう。
193	193
194	194		ユーザーからの要求に応じてデータを表示するグリッドのために、２番目のフォームを使います。このフォームは、ユーザーが"Command"エディットボックスにSQLコマンドを入力し、"Open Query"ボタンを押した後で表示されるようにします。
195	195
196	196		これはそのOnClickイベントです。
197	197
198	198		`procedure TFormTryMySQL.OpenQueryButtonClick(Sender: TObject);`\
199	199		`begin`\
200	200		` ShowQueryForm := TShowQueryForm.Create(self);`\
201	201		` ShowQueryForm.Datasource1.DataSet := SQLQuery1;`\
202	202		` SQLQuery1.SQL.Text := CommandEdit.Text;`\
203	203		` SQLQuery1.Open;`\
204	204		` ShowQueryForm.ShowModal;`\
205	205		` ShowQueryForm.Free;`\
206	206		` SQLQuery1.Close;`\
207	207		`end;`
208	208
209	209		ShowQueryFormは、次のようにします。
210	210
211		-	~~<center>~~
212		-
213		-	~~<figure>~~
214		-	~~<img src="Mysqlshow.png" title="Mysqlshow.png" />~~
215		-	~~<figcaption>Mysqlshow.png</figcaption>~~
216		-	~~</figure>~~
217		-
218		-	~~</center>~~
	211	+	![](/wiki-images/4/47/Mysqlshow.png)
219	212
220	213		下記のようにコントロールを配置します。
221	214
222	215		\| \| \| \|
223	216		\|-------------\|------------\|-------------\|
224	217		\| TPanel \| Align \| alBottom \|
225	218		\| TDataSource \| \| \|
226	219		\| TDBGrid \| Align \| alClient \|
227	220		\| \| DataSource \| DataSource1 \|
228	221		\| TButton \| Caption \| Close \|
229	222
230	223		ボタンはパネルの上に配置してください。"Open Query"のOnClickで起きることは次の通りです。まず最初に、TShowQueryFormのインスタンスを生成します。次に、DataSourceのDatasetのプロパティに、SQLQuery1を設定します。それから、SQLQueryにユーザが"Command"エディットボックスで入力したSQLコマンドを設定し、オープンします。そして、ShowQueryFromをモーダル表示させ、クローズされるまでは、フォーカスを維持するようにします。
231	224
232	225		このフォームがクローズされたら、Freeして、SQLQuery1を再びクローズします。
233	226
234	227		## ソースコード
235	228
236	229		The sources for this project can be downloaded [here](http://prdownloads.sourceforge.net/lazarus-ccr/mysql_demo_20050408.tar.gz?download) For more demo projects see [sourceforge](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=148359)
237	230
238	231		---
239	232		From the Free Pascal wiki, page "MySQLDatabases/ja", 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