Sign in Join
Wiki copytemporary

SQLdb Tutorial1/ja: what changed

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

Title: SQLdb Tutorial1/ja

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