SQLdb Tutorial2/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 Tutorial1/ja\|SQLdb Tutorial1/jaが]]済んでいるなら、データベースを表示する基本的なグリッドがあるはずだこのアプリケーションが機能するためには若干の改良を加えることができる。
4	4
5	5		### 動的データベース接続
6	6
7	7		これまでは、わかりやすくするために、固定のデータベースサーバー名、データベースの場所、ユーザー名、パスワードを使用してきた。前述したように、「実際の」アプリケーションでは通常、ユーザーが独自のユーザー名とパスワードを指定できる。
8	8
9	9		それらを指定できるようにフォームを変更しよう。標準メニューから 2 つの [[TEdit]] を追加する。名前のプロパティを「ユーザー名」と「パスワード」に設定する。肩越しに覗き見されることに対するセキュリティを確保するには、パスワードの PasswordChar プロパティを * (アスタリスク) に設定する。
10	10
11	11		接続を簡単にしたい場合 (もちろん安全性は低くなるが)、UserName Text プロパティを SYSDBA などの有効なデータベースユーザーに設定できる。パスワードテキストプロパティをマスターキーのようなデフォルト値に設定することもでき、セキュリティが重要でない場合は開発者のマシンで簡単にテストできるが...
12	12
13	13		見た目上、ラベルを追加して何を入力すればよいのかわかるようにすると便利だ。
14	14
15	15		また、Firebird/Interbase サーバー上の従業員サンプルデータベースに簡単に接続できるように、サーバー名とデータベースパス用の 2 つのテキストボックスを追加する。さらに 2 つの TEdit を追加し、ServerName と DatabaseName という名前を付ける。
16	16
17	17		必要に応じて、「Text」プロパティを状況に応じたデフォルトの適切な値に設定できる。 localhost と `C:\Program Files\Firebird\Firebird_2_5\examples\empbuild\EMPLOYEE.FDB`
18	18
19	19		ユーザーが入力する必要がある内容を説明するラベルもここで役に立つ。
20	20
21	21		明確にするために、設計時コンポーネントから接続情報を削除する。[[TSQLConnector]] コンポーネントで、UserName、Password、DatabaseName、および HostName プロパティからすべてのテキストを削除する。
22	22
23	23		さて、最後に、データベース接続コンポーネントに接続方法を指示する必要がある。これは通常、アプリケーションの実行の開始時にのみ必要になる。この例では、既存の「Button1」コードが接続をセットアップする良い方法である。
24	24
25	25		以下が得られるまでコードを追加。
26	26
27	27		``` pascal
28	28		procedure TForm1.Button1Click(Sender: TObject);
29	29		begin
30	30		SQLQuery1.Close;
31	31		//Firebird/Interbaseデータベースの接続設定
32	32		// まだ接続していない場合にのみ必要:
33	33		if not DBConnection.Connected then
34	34		begin
35	35		DBConnection.HostName := ServerName.Text;
36	36		DBConnection.データベース名 := データベース名.テキスト;
37	37		DBConnection.DatabaseName := DatabaseName.Text;
38	38		DBConnection.Password := Password.Text;
39	39		// これで接続が設定された。それを視覚的に示す。
40	40		// 変更はもう行われない可能性がある
41	41		ServerName.ReadOnly:=true;
42	42		DatabaseName.ReadOnly:=true;
43	43		UserName.ReadOnly:=true;
44	44		Password.ReadOnly:=true;
45	45		end;
46	46		SQLQuery1.SQL.Text:= 'select * from CUSTOMER';
47	47		DBConnection.Connected:= True;
48	48		SQLTransaction1.Active:= True;
49	49		SQLQuery1.Open;
50	50		end;
51	51		```
52	52
53	53		次に、実行して接続できるかどうかをテストする。
54	54
55	55		#### SQLite、その他のデータベース
56	56
57	57		必要に応じて、例えば SQLite の `employee.sqlite`、DatabaseName TEdit の Text、プロパティを調整する。。
58	58
59	59		sqlite の場合、HostName、Username、および Password の指定は意味がないため、これらの TEdit を省略できる。明らかに、上記のコードでは、対応する値を DBConnection に割り当てるのを省略またはコメントアウトする。 Firebird が埋め込まれている場合は、ユーザー名を SYSDBA にハードコーディングする。 sqlite を使用するときにはこれを指定しても問題ない。
60	60
61	61		コードは次のようになる:
62	62
63	63		``` pascal
64	64		procedure TForm1.Button1Click(Sender: TObject);
65	65		begin
66	66		SQLQuery1.Close;
67	67		//組み込みデータベースの接続設定
68	68		// まだ接続していない場合にのみ必要:
69	69		if not DBConnection.Connected then
70	70		begin
71	71		DBConnection.DatabaseName := DatabaseName.Text;
72	72		DBConnection.UserName := 'SYSDBA'; //Firebird 埋め込みにはこれが必要。 SQLiteを使用する場合は問題ない
73	73		// これで接続が設定された。それを視覚的に示す。
74	74		// 変更はもう行われない可能性がある
75	75		DatabaseName.ReadOnly:=true;
76	76		end;
77	77		SQLQuery1.SQL.Text:= 'select * from CUSTOMER';
78	78		DBConnection.Connected:= True;
79	79		SQLTransaction1.Active:= True;
80	80		SQLQuery1.Open;
81	81		end;
82	82		```
83	83
84	84		### データのフィルタリング
85	85
86	86		多くの場合、テーブルにはユーザーが見たくない大量のデータが含まれている (データベースからクエリを実行し、ネットワーク上を移動するには時間がかかる可能性がある)。米国からの顧客のみを表示する必要があると仮定する。したがって、「SQLQuery1」の SQL 命令は次のようになる。
87	87
88	88		``` SQL
89	89		select * from CUSTOMER where COUNTRY = 'USA'
90	90		```
91	91
92	92		...これは、コードでは次のように変換される。
93	93
94	94		``` pascal
95	95		SQLQuery1.SQL.Text := 'select * from CUSTOMER where COUNTRY = 'USA'';
96	96		```
97	97
98	98		このサンプルアプリケーションでこの命令を使用しない理由は 2 つある。
99	99
100	100		まず、単一引用符の使用法に問題がある。コンパイラーは USA の前の引用符を終了引用符 (最初の引用符は select from... の前にある) として解釈するため、SQL 命令は無効になる。解決策: 内側の引用符を 2 倍にする。
101	101
102	102		``` pascal
103	103		SQLQuery1.SQL.Text := 'select * from CUSTOMER where COUNTRY = ''USA''';
104	104		```
105	105
106	106		2 番目の、より重要な理由は、ユーザーがどのような制約でフィルターをかけたいのかがおそらくわからないという事実だ。ユーザーの柔軟性を制限したくはない。
107	107
108	108		この柔軟性を実現するには、まず SQL クエリステートメントを変更し、「USA」をプレースホルダー (SQL のパラメータ) に置き換える。Button1click プロシージャを変更して次のように置き換える。
109	109
110	110		``` pascal
111	111		SQLQuery1.SQL.Text := 'select * from CUSTOMER';
112	112		```
113	113
114	114		と：
115	115
116	116		``` pascal
117	117		SQLQuery1.SQL.Text:= 'select * from CUSTOMER where COUNTRY = :COUNTRY';
118	118		```
119	119
120	120		FPC SQLDB では、SQL パラメーターは先頭のコロンでマークされる (他の言語/環境では ? などの他の規則が使用されます)。ユーザーがフィルターの値を入力できるようにするために、フォームに TEdit コンポーネントを配置する。「Text」プロパティの値を削除する。
121	121
122	122		これで、TEdit に入力されたテキストを取得し、TSQLQuery の 'Params' プロパティを使用して SQL COUNTRY パラメータを入力できるようになった。これを前のステートメントの下に追加する。
123	123
124	124		``` pascal
125	125		SQLQuery1.Params.ParamByName('COUNTRY').AsString := Edit1.Text;
126	126		```
127	127
128	128		パラメータは位置または名前で指定できます。名前を使用すると、ソースコードの読みやすさが向上し、既存のパラメーターの途中にさらにパラメーターを挿入する場合に明らかに役立つ。
129	129
130	130		.AsString を使用して文字列値をパラメータに割り当てる。整数パラメータ、ブール値パラメータなどに対して同等のプロパティ割り当てがある。
131	131
132	132		これまでのコードでは、フィルターの使用を強制されている。ユーザーが編集ボックスに空の値を指定した場合、レコードは表示されない。おそらくこれは私たちが望んでいることではない。空の値をテストし、それに応じてクエリを作成しよう。最終的には次のような手順になるはずだ。
133	133
134	134		``` pascal
135	135		procedure TForm1.Button1Click(Sender: TObject);
136	136		begin
137	137		SQLQuery1.Close;
138	138		// Firebird/Interbaseデータベースの接続設定
139	139		// まだ接続していない場合にのみ必要:
140	140		if not DBConnection.Connected then
141	141		begin
142	142		DBConnection.HostName := ServerName.Text;
143	143		DBConnection.DatabaseName := DatabaseName.Text;
144	144		DBConnection.Username := UserName.Text;
145	145		DBConnection.Password := Password.Text;
146	146		// これで接続が設定された。それを視覚的に示す。
147	147		// 変更はもう行われない可能性がある
148	148		ServerName.ReadOnly:=true;
149	149		DatabaseName.ReadOnly:=true;
150	150		UserName.ReadOnly:=true;
151	151		Password.ReadOnly:=true;
152	152		end;
153	153		// すべてのレコードを表示するか、ユーザーがフィルター基準を指定した場合はフィルターする
154	154		if Edit1.Text='' then
155	155		SQLQuery1.SQL.Text := 'select * from CUSTOMER where COUNTRY = :COUNTRY';
156	156		else
157	157		begin
158	158		SQLQuery1.SQL.Text := 'select * from CUSTOMER where COUNTRY = :COUNTRY';
159	159		SQLQuery1.Params.ParamByName('COUNTRY').AsString := Edit1.Text;
160	160		end;
161	161		DBConnection.Connected:= True;
162	162		SQLTransaction1.Active:= True;
163	163		SQLQuery1.Open;
164	164		end;
165	165		```
166	166
167	167		ここで、Edit1 を使用してフィルタリングを少し試す。データベースに存在しない国を入力すると、空のグリッドが表示される。
168	168
169	169		### エラー処理
170	170
171	171		アプリケーションは実行されるはずだが、場合によっては問題が発生する可能性がある。データベース、さらには組み込みデータベースもクラッシュする可能性があり (データベースサーバーがクラッシュした場合、ディスクがいっぱいになった場合、または単にバグが原因である場合など)、アプリケーションがハングしたままになる。
172	172
173	173		したがって、データベース (実際には任意の外部プロセス) へのアクセスは、「常に」、try ... 例外および/または try ...finally 構造に統合される必要がある。これにより、データベースエラーが確実に処理され、ユーザーが孤立することがなくなる。このサンプルアプリケーションの基本的なルーチンは次のようになる。
174	174
175	175		``` pascal
176	176		begin
177	177		try
178	178		SQLQuery1.Close;
179	179		...
180	180		SQLQuery1.Open;
181	181		except
182	182		//一般的なデータベースエラーである EDatabaseErrorが必要だが、ここでは Firebird/Interbase を扱っているため、次のようになる:
183	183		on E: EDatabaseError do
184	184		begin
185	185		MessageDlg('Error','A database error has occurred. Technical error message: ' + E.Message,mtError,[mbOK],0);
186	186		Edit1.Text:='';
187	187		end;
188	188		end;
189	189		end;
190	190		```
191	191
192	192		#### SQLite、PostgreSQL、その他のデータベース
193	193
194	194		さらに詳細が必要な場合は、より汎用的な EDatabaseError を使用するか、使用可能な場合は独自の特殊な DatabaseError を使用できる。例えば。 SQLite と FPC 2.6.1 以前の PostgreSQL ドライバーには特殊な E*DatabaseError がなく、EDatabaseError を使用する必要がある。 FPC (開発版)の PostgreSQL に EPQDatabaseError がある。
195	195
196	196		## グリッドを使用したデータの編集
197	197
198	198		### 編集
199	199
200	200		これまで、グリッド内のデータを編集しようとしても、変更は保存されなかった。これは、「SQLQuery1」が適切なタイミングでデータベーストランザクションに変更を送信するように指示されていないためだ。これを修正し、データベースにトランザクションをコミットして、すべての変更が書き込まれるようにする必要がある。このためには、次のようなコードを使用する。
201	201
202	202		``` pascal
203	203		SQLQuery1.ApplyUpdates; // ユーザーが生成した変更をデータベースに渡す...
204	204		SQLTransaction1.cmmit; //...そしてトランザクションを使用してコミットする。
205	205		//SQLTransaction1.Active は false
206	206		```
207	207
208	208		編集 (挿入、更新、削除) がデータベースに書き込まれることを確認したいとする。
209	209
210	210		- ユーザーがフィルタリング基準を変更し、ボタンを押してデータベースにクエリを実行したとき
211	211		- フォームを閉じたとき
212	212
213	213		これら 2 つのインスタンスで呼び出される、このために別のプロシージャを作成することは理にかなっているコードに移動し、ここに空の行を追加する。
214	214
215	215		``` pascal
216	216		TForm1 = class(TForm)
217	217		Button1: TButton;
218	218		Datasource1: TDatasource;
219	219		DBGrid1: TDBGrid;
220	220		Edit1: TEdit;
221	221		DBConnection: TIBConnection;
222	222		SQLQuery1: TSQLQuery;
223	223		SQLTransaction1: TSQLTransaction;
224	224		***ここに空行を挿入**
225	225		procedure Button1click(Sender: TObject);
226	226		procedure Formclose(Sender: TObject; var Closeaction: Tcloseaction);
227	227		private
228	228		```
229	229
230	230		次に、次のように入力する。
231	231
232	232		``` pascal
233	233		procedure SaveChanges;
234	234		```
235	235
236	236		shift-ctrl-c (デフォルトの組み合わせ) を押すと、コード補完によって対応するプロシージャ本体が自動的に作成される。
237	237
238	238		エラー処理を追加して、トランザクションがアクティブであることを確認する必要がある。このコードは、トランザクションがまだアクティブではないときに初めてボタンを押したときにも呼び出されることを覚えておくこと。ここで：
239	239
240	240		``` pascal
241	241		procedure Tform1.SaveChanges;
242	242		// Saves edits done by user, if any.
243	243		begin
244	244		try
245	245		if SQLTransaction1.Active then
246	246		// 開始されたトランザクション内にいる場合のみ;
247	247		// それ以外の場合は、"Operation cannot be performed on an inactive dataset"というメッセージが表示される。
248	248		begin
249	249		SQLQuery1.ApplyUpdates; // ユーザーが生成した変更をデータベースに渡す...
250	250		SQLTransaction1.Commit; //...そしてトランザクションを使用してコミットする。
251	251		//SQLTransaction1.Active は false
252	252		end;
253	253		except
254	254		on E: EDatabaseError do
255	255		begin
256	256		SQLTransaction1.Rollback;
257	257		MessageDlg('Error', 'A database error has occurred. Technical error message: ' +
258	258		E.Message, mtError, [mbOK], 0);
259	259		Edit1.Text := '';
260	260		end;
261	261		end;
262	262		end;
263	263		```
264	264
265	265		次に、適切な時点でこのプロシージャを呼び出す必要がある。
266	266
267	267		``` pascal
268	268		procedure Tform1.Button1click(Sender: TObject);
269	269		begin
270	270		SaveChanges; //変更を保存しトランザクションをコミット
271	271		try
272	272		SQLQuery1.Close;
273	273		....
274	274		```
275	275
276	276		そして：
277	277
278	278		``` pascal
279	279		procedure Tform1.Formclose(Sender: TObject; var Closeaction: Tcloseaction);
280	280		begin
281	281		SaveChanges; //変更を保存しトランザクションをコミット
282	282		SQLQuery1.Close;
283	283		....
284	284		```
285	285
286	286		次に、dbgrid で行われた編集がデータベースに保存されるかどうかをテストして確認する。
287	287
288	288		### 主キー列の非表示
289	289
290	290		多くの場合、自動採番/生成された主キーは参照整合性を維持することのみを目的としているため、ユーザーに表示されたくないことがある。ユーザーがそれらを見た場合、数値を編集しようとしたり、数値が変わったり、数値にギャップがあるなどのことに腹を立てたりする可能性がある。
291	291
292	292		この例では、CUST_NO が主キーで、コンテンツはトリガーとシーケンス/ジェネレーターを使用して Firebird によって自動生成される。これは、CUST_NO を指定せずに新しいレコードを挿入できることを意味する。Firebird が自動的に作成する。
293	293
294	294		CUST_NO を含めないように SQLQuery1.SQL.Text プロパティを変更することもできますが、これによりデータ編集時に問題が発生する。このような状況では、問題の行/レコードを一意に識別するために主キーが必要になる。
295	295
296	296		したがって、テーブル内のすべての列/フィールドをクエリするトリックを使用するが、Button1Click プロシージャの最初のフィールド CUST_NO: がグリッドに表示されないようにして、次のようにコードを追加する:
297	297
298	298		``` pascal
299	299		procedure Tform1.Button1click(Sender: TObject);
300	300		begin
301	301		...
302	302		SQLQuery1.Open;
303	303		// クエリの最初の列である主キー列を非表示にする
304	304		// DBGrid が列を作成した後でのみこれを行うことができる
305	305		DBGrid1.Columns[0].Visible:=false;
306	306		```
307	307
308	308		再コンパイルし、主キー列が本当に非表示になっているかどうかを確認する。
309	309
310	310		#### SQLite、その他のデータベース
311	311
312	312		- その他のデータベース: 他の多くのデータベースは、自動生成されたフィールドコンテンツを提供するために「autonumber」または「autoinc」タイプのフィールドを使用します。テーブル定義を変更して、それが機能するかどうかを確認すること。
313	313		- Sqlite: 整数の主キーを使用しているため、上記の例は SQLite でそのまま機能します。詳細については、[ドキュメント](http://www.sqlite.org/autoinc.html) を参照のこと。
314	314
315	315		### 新しいデータの挿入
316	316
317	317		CUST_NO 情報なしで新しい行/レコードを挿入すると、次のエラーメッセージが表示されることに気づいたかもしれない: `Field CUST_NO is required, but not supplied`。これは、前のセクションのように CUST_NO 列を非表示にした場合にも発生する。
318	318
319	319		理由: Lazarus は CUST_NO が必要であると考えている。これはそれほど奇妙ではない。これは主キーであり、データベース内の基になるテーブル定義で必須であると示されているからである。
320	320
321	321		このフィールドが実際には必要ないことを Lazarus に指示できれば、空の値 (=NULL 値) をデータベースに渡すことができる。幸いなことに、クエリのフィールドオブジェクトには、まさにそれを行う Required プロパティがある。
322	322
323	323		コードを次のように変更する。
324	324
325	325		``` pascal
326	326		SQLQuery1.Open;
327	327		{
328	328		空白 (=NULL) CUST_NO 値を挿入しても問題が発生しないことを確認のこと。例:
329	329		フィールド CUST_NO は必須だが、指定されていない
330	330		Lazarus に、CUST_NO は主キーではあるが、新しいレコードを挿入するとき
331	331		必須ではないことを伝える必要がある。
332	332		}
333	333		SQLQuery1.FieldByName('CUST_NO').Required:=false;
334	334		// クエリの最初の列である主キー列を非表示にする。
335	335		// DBGrid が列を作成した後でのみこれを行うことができる
336	336		DBGrid1.Columns[0].Visible:=false;
337	337		```
338	338
339	339		### データを削除する
340	340
341	341		ユーザーにマウスを使用してこれを実行させることができる。この機能については 1 行もコーディングする必要はない。
342	342
343	343		「データコントロール」タブで、「TDBNavigator」コンポーネントを選択し、フォームのグリッドの上にドロップする。
344	344
345	345		ナビゲーターのリンク先を指定するには、オブジェクトインスペクタを使用して、ナビゲーターの DataSource プロパティを既存のデータソース ('DataSource1') に設定する。これで、「DBNavigator」のボタンを使用してレコードを削除できるだけでなく、レコードを挿入したり、レコード内を移動したりすることもできる。また、セル/フィールドを編集する場合、「キャンセル」ボタンを使用して編集をキャンセルすることができる。
346	346
347		-	ユーザーが <span class="kbd">Delete</span> キーを使用してグリッド上の行を削除できるようにするには、uses 句に LCLType (これにはキーコードの定義が含まれる) を追加する。
	347	+	ユーザーが `Delete` キーを使用してグリッド上の行を削除できるようにするには、uses 句に LCLType (これにはキーコードの定義が含まれる) を追加する。
348	348
349	349		``` pascal
350	350		uses
351	351		Classes, SysUtils, sqldb, pqconnection, DB, FileUtil, Forms,
352	352		Controls, Graphics, Dialogs, DBGrids, StdCtrls, DbCtrls, LCLType;
353	353		```
354	354
355		-	... 次に、グリッドの KeyUp イベントを処理する。このイベントは、グリッド内にある場合にキーが放されたときに発生する。ただし、ユーザーがフィールドを編集していないことを確認する必要がある。ユーザーは、作業中のレコードではなく文字を削除するために <span class="kbd">Delete</span> キーを使用する可能性が高いためである。
	355	+	... 次に、グリッドの KeyUp イベントを処理する。このイベントは、グリッド内にある場合にキーが放されたときに発生する。ただし、ユーザーがフィールドを編集していないことを確認する必要がある。ユーザーは、作業中のレコードではなく文字を削除するために `Delete` キーを使用する可能性が高いためである。
356	356
357	357		グリッドを選択し、イベントに移動して次のように OnKeyUp イベントを作成する。
358	358
359	359		``` pascal
360	360		procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
361	361		);
362	362		begin
363	363		// del キーが押されたことを確認し、データを編集していない限り
364	364		// それに応じて現在のレコードを削除する
365	365		if (key=VK_DELETE) and (not(DBGrid1.EditorMode)) then
366	366		begin
367	367		//... 現在のレコードを削除し、データベースに更新を適用する:
368	368		SQLQuery1.Delete;
369	369		SQLQuery1.ApplyUpdates;
370	370		end;
371	371		end;
372	372		```
373	373
374		-	> Note: デフォルトでは、TDBGrid プロパティ Options / dgDisableDelete は false に設定されている。これは、ユーザーが <span class="kbd">ctrl</span>-<span class="kbd">delete</span> キーの組み合わせを使用して任意のレコードを削除できることを意味する。この動作は望ましくないかもしれない。
	374	+	> Note: デフォルトでは、TDBGrid プロパティ Options / dgDisableDelete は false に設定されている。これは、ユーザーが `ctrl`-`delete` キーの組み合わせを使用して任意のレコードを削除できることを意味する。この動作は望ましくないかもしれない。
375	375
376	376		## 要約
377	377
378	378		ここまで手順を進めてきたら、データベースからデータを取得し、フィルタリングし、グリッド内のデータを編集および削除できる。コードは次のようになる:
379	379
380	380		``` pascal
381	381		unit sqldbtutorial1unit;
382	382
383	383		{$mode objfpc}{$H+}
384	384
385	385		interface
386	386
387	387		uses
388	388		Classes, SysUtils, sqldb, pqconnection, DB, FileUtil, Forms,
389	389		Controls, Graphics, Dialogs, DBGrids, StdCtrls, DbCtrls, LCLType;
390	390		type
391	391
392	392		{ TForm1 }
393	393
394	394		TForm1 = class(TForm)
395	395		Button1: TButton;
396	396		DatabaseName: TEdit;
397	397		Datasource1: TDatasource;
398	398		DBGrid1: TDBGrid;
399	399		Dbnavigator1: Tdbnavigator;
400	400		Edit1: TEdit;
401	401		Label2: Tlabel;
402	402		Label3: Tlabel;
403	403		Label4: Tlabel;
404	404		Label5: Tlabel;
405	405		Password: TEdit;
406	406		UserName: TEdit;
407	407		ServerName: TEdit;
408	408		DBConnection: TIBConnection;
409	409		Label1: TLabel;
410	410		SQLQuery1: TSQLQuery;
411	411		SQLTransaction1: TSQLTransaction;
412	412		procedure SaveChanges;
413	413		procedure Button1click(Sender: TObject);
414	414		procedure Formclose(Sender: TObject; var Closeaction: Tcloseaction);
415	415		private
416	416		{ private declarations }
417	417		public
418	418		{ public declarations }
419	419		end;
420	420
421	421		var
422	422		Form1: TForm1;
423	423
424	424		implementation
425	425
426	426		{$R *.lfm}
427	427
428	428		{ TForm1 }
429	429
430	430		procedure Tform1.Savechanges;
431	431		// もしあれば、ユーザーによる編集を保存する。Saves edits done by user, if any.
432	432		begin
433	433		try
434	434		if SQLTransaction1.Active then
435	435		// トランザクションを開始したときのみ
436	436		// さもないと"Operation cannot be performed on an inactive dataset"にであることになる。
437	437		begin
438	438		SQLQuery1.ApplyUpdates; //ユーザーによる変更をデータベースに戻すPass user-generated changes back to database...
439	439		SQLTransaction1.Commit; //... トランザクションを用いてコミット
440	440		//SQLTransaction1.Active now is false
441	441		end;
442	442		except
443	443		on E: EDatabaseError do
444	444		begin
445	445		SQLTransaction1.Rollback;
446	446		MessageDlg('Error', 'A database error has occurred. Technical error message: ' +
447	447		E.Message, mtError, [mbOK], 0);
448	448		Edit1.Text := '';
449	449		end;
450	450		end;
451	451		end;
452	452
453	453		procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
454	454		);
455	455		begin
456	456		// データを編集しているとき以外に
457	457		// Delキーが押され、それに応じて現在のレコードを消去する。
458	458		if (key=VK_DELETE) and (not(DBGrid1.EditorMode)) then
459	459		begin
460	460		//... delete current record and apply updates to db:
461	461		SQLQuery1.Delete;
462	462		SQLQuery1.ApplyUpdates;
463	463		end;
464	464		end;
465	465
466	466		procedure Tform1.Button1click(Sender: TObject);
467	467		begin
468	468		SaveChanges; //変更を保存し、トランザクションをコミット
469	469		try
470	470		SQLQuery1.Close;
471	471		//Firebird/Interbaseデータベースの接続設定
472	472		//まだ、接続していないときにのみ必要である:
473	473		if not DBConnection.Connected then
474	474		begin
475	475		DBConnection.HostName := ServerName.Text;
476	476		DBConnection.DatabaseName := DatabaseName.Text;
477	477		DBConnection.Username := UserName.Text;
478	478		DBConnection.Password := Password.Text;
479	479		// コネクションを張り、
480	480		// 変更はもうないと視覚的に訴える
481	481		ServerName.ReadOnly:=true;
482	482		DatabaseName.ReadOnly:=true;
483	483		UserName.ReadOnly:=true;
484	484		Password.ReadOnly:=true;
485	485		end;
486	486		// すべてのレコードもしくはユーザーによって定義されたフィルタ定義で表示
487	487		if Edit1.Text='' then
488	488		SQLQuery1.SQL.Text := 'select * from CUSTOMER'
489	489		else
490	490		begin
491	491		SQLQuery1.SQL.Text := 'select * from CUSTOMER where COUNTRY = :COUNTRY';
492	492		SQLQuery1.Params.ParamByName('COUNTRY').AsString := Edit1.Text;
493	493		end;
494	494		DBConnection.Connected := True;
495	495		SQLTransaction1.Active := True; //Starts a new transaction
496	496		SQLQuery1.Open;
497	497		{
498	498		空(=NULL)値を挿入しても問題ない、即ち、エラーメッセージ "Field CUST_NO is required, but not supplied"
499	499		が現れないようにすること。CUST_NOがプライマリキーであるときLazarusにそれを教える必要がある
500	500		新しいレコードが挿入されるときには必要ない
501	501		}
502	502		SQLQuery1.FieldByName('CUST_NO').Required:=false;
503	503		{
504	504		クエリの最初のカラムであるプライマリキーを隠す。
505	505		これはDBGridがカラムを生成するときに一度だけ行える
506	506		}
507	507		DBGrid1.Columns[0].Visible:=false;
508	508		except
509	509		// EDatabaseErrorは一般的なエラーだ;
510	510		// 例えば、Firebird/Interbaseにおいては、EIBDatabaseErrorのような
511	511		// データベースに特異なものを用いたほうがいいかもしれない
512	512		on E: EDatabaseError do
513	513		begin
514	514		MessageDlg('Error', 'A database error has occurred. Technical error message: ' +
515	515		E.Message, mtError, [mbOK], 0);
516	516		Edit1.Text := '';
517	517		end;
518	518		end;
519	519		end;
520	520
521	521		procedure Tform1.Formclose(Sender: TObject; var Closeaction: Tcloseaction);
522	522		begin
523	523		SaveChanges; //変更を保存し、トランザクションをコミットする
524	524		SQLQuery1.Close;
525	525		SQLTransaction1.Active := False;
526	526		DBConnection.Connected := False;
527	527		end;
528	528
529	529		end.
530	530		```
531	531
532	532		## コード変更のない組み込みデータベース
533	533
534	534		### Windows 上のFirebird
535	535
536	536		Windows の Firebird ユーザーへのボーナス: このチュートリアルに従っている場合は (基本的な例しか実行していない場合でも)、埋め込まれた Firebird ライブラリの fbembed.dll の名前が fbclient.dll に変更されている。これにより、Lazarus は通常の Firebird サーバ (別のマシンまたはローカルマシンのいずれか) に接続できるようになる。ただし、サーバをセットアップせずに、employee.fdb データベースをアプリケーションディレクトリにコピーし、アプリケーションを実行し、サーバ名 TEdit をクリアして、埋め込まれた Firebird を使用してデータベースファイルに直接接続することもできる。
537	537
538	538		これは、データベースアプリケーションをエンドユーザーに展開したいが、サーバのインストールに手間をかけたくない (サーバがすでにインストールされているかどうか、バージョンが正しいかどうかを確認する、ユーザーにファイアウォールを確認させるなど) 場合に最適である。
539	539
540	540		詳細については、[[Firebird embedded]] を参照されたい。
541	541
542	542		2011 年 9 月: Free Pascal の最近の開発 (SVN) バージョンでは、FPC は最初に fbembed.dll をロードするので、これが機能するために fbclient.dll の名前を変更する必要はなくなった。
543	543
544	544		### Linux/macOS/Unix 上の Firebird
545	545
546	546		これを Linux/macOS で動作させる方法があるはずだ。ヒントとリンクについては、[[Firebird\|Firebirdを]]参照されたい。 Wiki の更新は大歓迎である。
547	547
548	548		### SQLite
549	549
550	550		SQLite は確かに組み込み機能を提供するが、その一方で、クライアント/サーバのセットアップは許可されていない。上記のチュートリアルに従うと、データベース (SQLite と Firebird など) の切り替えがそれほど難しい作業ではないことがわかる。
551	551
552	552		その他のデータベースデータベースでも同様の機能が提供されている場合がある。他のデータベースシステム用のこの Wiki の更新も歓迎である。
553	553
554	554		## 関連情報
555	555
556	556		- [[SQLdb Tutorial1/ja]]: DB チュートリアルの第一の部分。データベースのデータを、どのように grid に表示させるかを学びます。
557	557		- [[SQLdb Tutorial2/ja]]: DB チュートリアルの第二の部分。データベースのデータの挿入や編集について学びます。
558	558		- [[SQLdb Tutorial3/ja]]: DB チュートリアルの第三の部分。複数のデータベースについてのプログラムやログインフォームの使い方を学びます。
559	559		- [[SQLdb Tutorial4/ja]]: DB チュートリアルの第四の部分。どのようにデータモジュールを用いるかを学びます。
560	560		- [[Lazarus Database Overview/ja]]: Lazarus がサポートしているデータベースについての情報。データベースごとの記述へのリンクを含みます。
561	561		- [[SQLdb Package/ja]]: SQLdb パッケージについての情報
562	562		- [[SQLdb Programming Reference/ja]]: SQLdb データベースコンポーネントの入出力の概要
563	563		- [[SqlDBHowto/ja]]: SQLdb パッケージを用いることについての情報
564	564		- [[Working With TSQLQuery/ja]]: TSQLQuery についての情報
565	565
566	566		---
567	567		From the Free Pascal wiki, page "SQLdb Tutorial2/ja", as it stood on 2024-03-29 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