Sign in Join
Wiki copytemporary

SQLdb Tutorial2/ja: what changed

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

Title: SQLdb Tutorial2/ja

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