SQLdb Tutorial1/ja: what changed

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

Old	New		Line
1	1		## 概要
2	2
3	3		このチュートリアルでは、[[SQLdb Package]] に基づいた実用的なコード例を使用してデータベースをプログラミングする方法を示す。主に初心者を対象としている。データベースと SQL の基本を探している人は、関連する書籍やドキュメントを読む必要がある。このチュートリアルでは、サンプルデータベースemployee.fdbとともにFirebirdを使用する。他のデータベースも使用できる。本文に記載されているように、いくつかの調整を行う必要がある。
4	4
5	5		このチュートリアルは長く見えるかもしれないが、ほとんどの場合、入力する内容を入力する必要がある理由を説明する大量のテキストだけである。最後に見られるように、アプリケーションを動作させるために必要な実際のコードの量はそれほど多くはない。経験豊富な開発者であれば、説明をざっと読んで、何が起こっているのかをすぐに理解できるだろう。また、Basic example章の最後で停止して、動作するプログラムを作成することもできる。
6	6
7	7		このチュートリアルは、Swen による [[SQLdb Tutorial1/de\|ドイツ語チュートリアル]] に基づいているが、特に Basic example 以降は拡張されている。Swen はドイツ語版を現状のままにしておきたいと考えている。これが問題となる場合は、このバージョンの名前を変更し、それに基づいて新しいドイツ語訳を作成することができる。
8	8
9	9		スウェンより: JoostとMichaelに感謝。彼らの助けがなければ、このチュートリアルはおそらく決して実現しなかっただろう。
10	10
11	11		## 必要事項
12	12
13	13		このチュートリアルは、最近の Lazarus(Laz 1.0) を使い作成されている; また、より古いバージョンの Lazarus 0.9.30 でも動くだろう。
14	14
15	15		また、事前に [[SQLdb Tutorial0]] を読み、サンプルのデータベースを生成のこと。
16	16
17	17		## Basic example
18	18
19	19		### プロジェクトとコンポーネント
20	20
21	21		[[TSQLTransaction]]、および 1 つの [[TSQLQuery]] コンポーネントが必要である。
22	22
23		-	~~<figure>~~
24		-	~~<img src="sqldbcomponents-n.png" title="sqldbcomponents-n.png" />~~
25		-	~~<figcaption>sqldbcomponents-n.png</figcaption>~~
26		-	~~</figure>~~
	23	+	![](/wiki-images/c/c1/Sqldbcomponents-n.png)
27	24
28	25		[[TIBConnection]] は、Interbase/Firebird 固有の接続コンポーネントである。別のデータベースを使用している場合は、[[SQLdb tub]] の適切なコンポーネントを置き換える。 SQLite データベースの場合は '[[TSQLite3Connection/ja]]'、PostgreSQL データベースの場合は [[TPQConnection]]。データベースアクセスライブラリのセットアップに関する説明は、このチュートリアルの範囲外である。そのために[[Databases/ja\|Databases/jaを]]参照のこと。。
29	26
30	27		フォーム上の [[TIBConnection/ja]] (または同等の接続コンポーネント) をクリックし、オブジェクトインスペクタで名前を DBConnection に変更する。これにより、別のデータベースを使用する場合のチュートリアルの残りの部分がを簡素にできる。また、一般に、コンポーネントにプログラム内で役立つ名前 (MainframeDBConnection など) を付けて、それが何を表しているのかわかるようにすることを勧める。
31	28
32	29		他の2つのコンポーネント [[TSQLTransaction/ja]] と [[TSQLQuery/ja]] は、SQLdb でサポートされるすべてのデータベースに使用できる。
33	30
34	31		データを表示するには、[[TDBGrid/ja]] コンポーネントを使用する。このコンポーネントは、'Data Controls' タブにある。このコンポーネントをデータベースコンポーネントに接続するには、'[[Data Access tab]]' の [[TDataSource/ja]] コンポーネントが必要である。
35	32
36	33		これで、最初の例に必要なデータベースコンポーネントがすべて揃った。TDBGrid を拡大して、すべてのデータを表示するのに十分なスペースを確保できる。
37	34
38	35		### コンポーネントをリンクする
39	36
40	37		次に、コンポーネントを接続する必要があります。非常に簡単な方法はオブジェクトインスペクタを使用することだが、これをソースコード内で実行することもできる。
41	38
42	39		DBConnection の Transaction プロパティを 'SQLTransaction1' に変更する。これにより、SQLTransaction1 の Database プロパティが自動的に 'DBConnection' に変更される。
43	40
44	41		次に、SQLQuery1 の Database プロパティを 'DBConnection' に変更する。Lazarus は、「トランザクション」プロパティの値を自動的に追加する。
45	42
46	43		次に、Datasource1 の Dataset プロパティを 'SQLQuery1' に変更する。
47	44
48	45		最後に、DBGrid1 の Datasource プロパティを 'Datasource1' に変更する。
49	46
50	47		これで、デフォルトのトランザクションをトランザクションコンポーネントにリンクする接続が完成した。トランザクションコンポーネントは、そのデータベースプロパティを接続オブジェクトにリンクする。これら 2 つのコンポーネントは、接続して命令を実行するには十分ですが、クエリを表示するには十分ではない。このために、データベースを指す(およびそのデフォルトのトランザクションにリンクする) SQLQuery コンポーネントが使用される。SQLQuery を使用して、後でデータを取得し、データベースにポストバックする。
51	48
52	49		最後に、クエリコンポーネントにリンクされているデータソースコンポーネントは、一種のプレースホルダーです。クエリデータセット内のどこにいるかを追跡し、GUI コンポーネントがそれにリンクされているため、すべてが同じレコードを表示する。
53	50
54	51		これが意味不明であっても、絶望しないこと。もう少し作業を加えるだけで、最初のデータを表示できるようになる。
55	52
56	53		### データベースに接続する
57	54
58	55		データベースのデータを画面に表示するにはどうするか?
59	56
60	57		まず、DBConnection に、employee.fdb データベースがどこにあるかを伝える必要がある。そのデータベースの場所はオペレーティングシステムによって異なる。次のような場所である:
61	58
62	59		- .../examples/empbuild/ Linux 上の Firebird インストールのサブディレクトリ
63	60		- Windows マシンの場合は C:\Program Files\Firebird\Firebird_2_5\examples\empbuild\EMPLOYEE.FDB
64	61		- Firebird 埋め込みを使用する場合、ファイルはプロジェクトディレクトリにある必要がある
65	62
66	63		ここでも選択が可能だ: オブジェクトインスペクタを使用してパスを割り当てるか、ソースコードで直接行うことができる。
67	64
68	65		オブジェクトインスペクタを使用することを選択する。DBConnection の「HostName」プロパティを Firebird サーバ名または IP アドレスに設定する。 Firebird サーバが開発マシンで実行されている場合は、localhost を使用します。埋め込み Firebird クライアントを使用する場合は、空白の値を使用する。 DBConnection の DatabaseName プロパティを、データベースサーバ上のemployee.fdb ファイルへのパスに変更します。埋め込み Firebird を使用する場合、パス部分は空にし、ファイル名のみを指定する必要がある。
69	66
70	67		データベースサーバはデータへのアクセスを許可する前に、ユーザー名とパスワードによる承認をチェックします。本格的なデータベースアプリケーションは、アプリケーションの起動時に両方の値をユーザーに要求し、接続時にこれらをサーバに送信する。これを行う可能な方法は [[SQLdb Tutorial3]] に示されている。
71	68
72	69		ただし、今のところ、問題を単純化するために、オブジェクトインスペクタを再度使用してこれらをハードコーディングします。「UserName」プロパティを「SYSDBA」に変更し、「Password」を「masterkey」に変更する（もちろん、データベースのインストールに別のユーザー名/パスワードがある場合は調整のこと）。
73	70
74	71		ここで、これまでの設定がすべて正しいかどうかを確認する。「Connected」プロパティを「True」に設定します。データベースのパスが正しくない場合、またはユーザー名またはパスワードが間違っている場合は、エラーメッセージが表示される。接続が成功した場合は、ここで切断する必要があります (「Connected」を「False」に設定する)。
75	72
76	73		#### PostgreSQL
77	74
78	75		PostgreSQL の状況は Firebird の状況と非常に似ている。データベース名にはパスがない。名前の部分 (例: 「employee」) を指定するだけである。 PostgreSQL には埋め込みモードがないため、接続テストを機能させるには「HostName」プロパティを入力する必要がある。
79	76
80	77		#### SQLite
81	78
82	79		SQLite の場合、「HostName」、「UserName」、および「Password」プロパティを空のままにすることができます。「DatabaseName」を SQLite ファイルの名前に設定します。従業員.sqlite。注: sqlite は、指定されたデータベースが存在しない場合にそれを作成するため、ここでは注意のこと。
83	80
84	81		次のスクリーンショットのようなものが表示されるはずだ - todo: このスクリーンショットは実際にはさらに進んでおり、現在はボタンだけがある。 [framed\|center\|Form and components set up](/wiki-images/b/b2/SQLTut1ComponentsSetUp.png)
85	82
86	83		DBGrid のプロパティ「Options」→「dgDisplayMemoText」を「(True)」に変更する。それ以外の場合は、すべてのデータフィールドに (MEMO) が表示される。
87	84
88	85		### 表示するデータの選択
89	86
90	87		接続は成功したが、データが表示されなかった。理由は簡単である。どのデータを返すかをデータベースサーバに伝えていない。employee.fdb データベースにはいくつかのテーブルが含まれており、確認したいテーブルを Firebird に伝えていない。データベースの構造がわからない場合は、[FlameRobin](http://www.flamerobin.org/index.php) などのツールを使用して内容を表示できる。 Lazarus はそのようなツール、[[DataDesktop]] も提供する。これは、Lazarus の /tools/lazdatadesktop/ サブディレクトリにある。プロジェクトを保存し、プロジェクト lazdatadesktop.lpi を開いてコンパイルする。
91	88
92	89		[framed\|center\|DataDesktopが起動したときの様子](/wiki-images/d/da/DataDictonary1.png)
93	90
94	91		例に戻る。
95	92
96	93		テーブル「CUSTOMER」のすべてのデータを表示したいと考えている。そのための SQL 命令は次のとおりである。
97	94
98	95		``` sql
99	96		select * from CUSTOMER
100	97		```
101	98
102	99		このコマンドを SQLQuery1 の 'SQL' プロパティに割り当てる必要がある。私たちのプロジェクトのソースコードでは、これは次のようになる。
103	100
104	101		``` pascal
105	102		SQLQuery1.SQL.Text := 'select * from CUSTOMER';
106	103		```
107	104
108	105		SQL 命令は一重引用符で囲む必要がある。別のコンポーネント (Edit1.Text など) のコンテンツを割り当てることもできる。これは必ずしも良い考えとは限らない。 SQL インジェクションの詳細については、[[Secure programming]] (より高度なテキスト) を参照のこと。
109	106
110	107		フォームの「標準」タブから「TButton」を追加する。ユーザーがボタンをクリックすると、データの取得が開始される。 Caption プロパティを「Button1」から「Show data」に変更する。
111	108
112	109		これにはコードが必要になる。 Button1 をダブルクリックする。次に、Lazarusは必要な手順の骨格を作成する。ソースコードには次の行があるはずだ。
113	110
114	111		``` pascal
115	112		procedure TForm1.Button1Click(Sender: TObject);
116	113		begin
117	114
118	115		end;
119	116		```
120	117
121	118		「begin」と「end」の間に、データを表示するために必要な命令を入力する必要がある。明らかに、これは SQLQuery1 と関係がある。
122	119
123	120		SQLQuery1 の 'SQL' プロパティは、SQLQuery1 がアクティブでない場合にのみ変更できる。そのため、最初にコンポーネントを閉じる。
124	121
125	122		``` pascal
126	123		SQLQuery1.Close;
127	124		```
128	125
129	126		次に、SQL 命令を「SQL」プロパティに割り当て、以前の SQL コマンドを上書きする。
130	127
131	128		``` pascal
132	129		SQLQuery1.SQL.Text := 'select * from CUSTOMER';
133	130		```
134	131
135	132		次に、データベースへの接続を確立し、トランザクションをアクティブにしてクエリを開く必要がある。
136	133
137	134		``` pascal
138	135		DBConnection.Connected := True;
139	136		SQLTransaction1.Active := True;
140	137		SQLQuery1.Open;
141	138		```
142	139
143	140		最初の 2 つの命令は 3 番目の命令によって自動的に実行されるため、省略できる。この時点でプロジェクトをコンパイルすると、CUSTOMER」テーブルのデータがすでに表示されているはずだ。
144	141
145	142		ただし、本格的なアプリケーションでは、開いているすべてのデータベース接続が不要になったときに適切に閉じられるようにする必要がある。そうでなければ、2次的な影響は予測できない。そこで、フォームの OnClose イベントを使用する (オブジェクトインスペクタでダブルクリックして作成する)。
146	143
147	144		``` pascal
148	145		procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
149	146		begin
150	147
151	148		end;
152	149		```
153	150
154	151		接続を閉じるには、開始コードとは逆の順序を使用する。
155	152
156	153		``` pascal
157	154		SQLQuery1.Close;
158	155		SQLTransaction1.Active := False;
159	156		DBConnection.Connected := False;
160	157		```
161	158
162	159		DBConnection.Connected を False に設定すると、トランザクションとクエリは自動的に閉じられるため、手動で閉じる必要はない。
163	160
164	161		## 要約
165	162
166	163		ここまで、SQLdb パッケージを使用してデータベースに接続する方法と、テーブルの内容を画面に表示する方法を学習した。編集などの機能をさらに追加したい場合は、SQLdb チュートリアル 2 に進まれたい。
167	164
168	165		前の手順に従った場合、コードは次のようになる:
169	166
170	167		``` pascal
171	168		unit Unit1;
172	169
173	170		{$mode objfpc}{$H+}
174	171
175	172		interface
176	173
177	174		uses
178	175		Classes, SysUtils, IBConnection, sqldb, db, FileUtil, Forms, Controls,
179	176		Graphics, Dialogs, DBGrids, StdCtrls;
180	177
181	178		type
182	179
183	180		{ TForm1 }
184	181
185	182		TForm1 = class(TForm)
186	183		Button1: TButton;
187	184		Datasource1: TDatasource;
188	185		DBGrid1: TDBGrid;
189	186		DBConnection: TIBConnection;
190	187		SQLQuery1: TSQLQuery;
191	188		SQLTransaction1: TSQLTransaction;
192	189		procedure Button1Click(Sender: TObject);
193	190		procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
194	191		private
195	192		{ private declarations }
196	193		public
197	194		{ public declarations }
198	195		end;
199	196
200	197		var
201	198		Form1: TForm1;
202	199
203	200		implementation
204	201
205	202		{$R *.lfm}
206	203
207	204		{ TForm1 }
208	205
209	206		procedure TForm1.Button1Click(Sender: TObject);
210	207		begin
211	208		SQLQuery1.Close;
212	209		SQLQuery1.SQL.Text:= 'select * from CUSTOMER';
213	210		DBConnection.Connected:= True;
214	211		SQLTransaction1.Active:= True;
215	212		SQLQuery1.Open;
216	213		end;
217	214
218	215		procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
219	216		begin
220	217		SQLQuery1.Close;
221	218		SQLTransaction1.Active:= False;
222	219		DBConnection.Connected:= False;
223	220		end;
224	221
225	222		end.
226	223		```
227	224
228	225		## 関連情報
229	226
230	227		- [[SQLdb Tutorial0/ja]]: チュートリアルに用いるサンプルの表/データを設定する方法を説明します。
231	228		- [[SQLdb Tutorial1/ja]]: DB チュートリアルの第一の部分。データベースのデータを、どのように grid に表示させるかを学びます。
232	229		- [[SQLdb Tutorial2/ja]]: DB チュートリアルの第二の部分。データベースのデータの挿入や編集について学びます。
233	230		- [[SQLdb Tutorial3/ja]]: DB チュートリアルの第三の部分。複数のデータベースについてのプログラムやログインフォームの使い方を学びます。
234	231		- [[SQLdb Tutorial4/ja]]: DB チュートリアルの第四の部分。どのようにデータモジュールを用いるかを学びます。
235	232		- [[Lazarus Database Overview/ja]]: Lazarus がサポートしているデータベースについての情報。データベースごとの記述へのリンクを含みます。
236	233		- [[SQLdb Package/ja]]: SQLdb パッケージについての情報
237	234		- [[SQLdb Programming Reference/ja]]: SQLdb データベースコンポーネントの入出力の概要
238	235		- [[SqlDBHowto/ja]]: SQLdb パッケージを用いることについての情報
239	236		- [[Working With TSQLQuery/ja]]: TSQLQuery についての情報
240	237
241	238		---
242	239		From the Free Pascal wiki, page "SQLdb Tutorial1/ja", as it stood on 2024-03-31 after a change by Ariben, 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