SQLdb Tutorial3/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		このチュートリアルでは、次の方法を学ぶ
4	4
5	5		- ログインフォームの使用など、アプリケーションを複数のデータベースに適したものにする
6	6		- データベースデータを (データベースコントロールではなく) 通常のコントロールに取得する
7	7		- コントロールからデータを取得してデータベースに戻す
8	8		- パラメータ化されたクエリを実行する。
9	9
10	10		## マルチデータベースのサポート
11	11
12	12		任意のデータベースとログインフォームを使用して、SQLDB がサポートする複数の異なるデータベースサーバー/組み込みライブラリをサポートできる。
13	13
14	14		利点:
15	15
16	16		- ユーザー/プログラマは、任意の sqldb t*connection を動的に使用できるため、データベースを選択できる。
17	17
18	18		短所:
19	19
20	20		- より複雑な SQL をさらに調整する必要がある可能性がある。各データベースには独自の方言がある。もちろん、データベース固有の SQL を呼び出すことも可能だが、これはメンテナンスの問題に発展する可能性がある。
21	21		- Tconnection 固有のプロパティ (Firebird 方言を設定するための TIBConnection.Dialect* など) は使用できない。
22	22
23	23		マルチデータベースサポートを使用するには、TIBConnection などの特定の TConnection の代わりに、TSQLConnector* (TSQLConnection ではない) を使用する。これにより、(プログラムの実行中に) 特定の TConnection が動的に選択される。 ConnectorTypeプロパティに基づいてTConnectionを使用する:
24	24
25	25		``` pascal
26	26		uses
27	27		...
28	28		var
29	29		Conn: TSQLConnector;
30	30		begin
31	31		Conn:=TSQLConnector.Create(nil);
32	32		try
33	33		// ...実際のコネクタのタイプはこのプロパティによって決まる。
34	34		// ChosenConfig.DBType 文字列が一致することを確認する
35	35		// コネクタのタイプ (例:
36	36		// そのコネクタの T*ConnectionDef.TypeName 。
37	37		Conn.ConnectorType:=ChosenConfig.DBType;
38	38		// 残りは通常通り:
39	39		Conn.HostName:='DBSERVER';
40	40		Conn.DatabaseName:='bigdatabase.fdb';
41	41		Conn.UserName:='SYSDBA';
42	42		Conn.Password:='masterkey';
43	43		try
44	44		Conn.Open;
45	45		```
46	46
47	47		## ログインフォーム
48	48
49	49		[[SQLdb Tutorial1/ja]] で説明したように、ユーザーはアプリケーションにハードコードされた資格情報を使用するのではなく、フォーム (または安全に保存されている構成ファイル) を使用してデータベースにログインする必要がある。セキュリティ上の考慮事項に加えて、データベースサーバーの情報が変更されるたびにアプリケーションを再コンパイルしなければならないのは、あまり良い考えではない。
50	50
51	51		dbconfiggui.pas では、ini ファイルが存在する場合はそこからデフォルト値を取得するログインフォームをセットアップする。これにより、エンタープライズ展開、いくつかの詳細 (データベースサーバ、データベース名) を入力してデフォルトの接続を設定できる。このフォームでは、ユーザーは自分のユーザー名/パスワードを追加/編集し、次に進む前に接続をテストできる。
52	52
53		-	~~<figure>~~
54		-	~~<img src="dbloginform.png" title="dbloginform.png" />~~
55		-	~~<figcaption>dbloginform.png</figcaption>~~
56		-	~~</figure>~~
	53	+	![](/wiki-images/b/b2/Dbloginform.png)
57	54
58	55		TDBConnectionConfig クラスを持つ別の dbconfig.pas ユニットを使用して、選択した接続の詳細を保存します。このクラスは、ini ファイルからのデフォルト設定の読み取りをサポートしています。
59	56
60	57		これにより、GUI ログインフォームなしでの使用 (例: 無人/バッチ操作の実行時) が可能になり、たとえば、Web サイトでの再利用が可能になる。
61	58
62	59		このTDBConnectionConfigクラスはログインフォームにConfigプロパティとして表示されるため、メインプログラムは設定フォームをモーダルに表示し、ユーザーによる \[OK\] クリックを検出して、フォーム設定を閉じる前に選択した設定を取得できる。
63	60
64	61		### 接続テストコールバック関数
65	62
66	63		ログインフォームを柔軟に保つために (Zeos などの他のデータベース層で使用できる)、テストセクションをコールバック関数として実装し、メインプログラムで処理させる。
67	64
68	65		dbconfiggui.pas のログインフォームの定義:
69	66
70	67		``` pascal
71	68		type
72	69		TConnectionTestFunction = function(ChosenConfig: TDBConnectionConfig): オブジェクトのブール値。
73	70		```
74	71
75	72		メインフォームは、構成フォームからのテストリクエストを処理するために、この定義に一致する関数を実装する必要がある。
76	73
77	74		コールバック関数は、構成フォームによって渡された構成オブジェクトを受け取り、それを使用して、選択されたデータベースタイプとの接続を構築する。その後、単純にサーバーへの接続を試行する。成功した場合は関数の結果を true に設定し、そうでない場合は結果は false のままとなる。
78	75
79	76		存在しないサーバーへのデータベース接続の試行は長いタイムアウトになる可能性があるため、カーソルを砂時計アイコンに設定して待機する必要があることをユーザーに示す。
80	77
81	78		``` pascal
82	79		uses
83	80		...
84	81		dbconfig, dbconfiggui
85	82		...
86	83		procedure TForm1.FormCreate(Sender: TObject);
87	84		LoginForm:=TDBConfigForm.Create(self);
88	85		try
89	86		// dbconfigguiのテストボタンはこのプロシージャにリンクされるだろう
90	87		//ここで...これが''dbconfiggui.pas''のコールバックをConnectionTest functionにリンクさせる...
91	88		LoginForm.ConnectionTestCallback:=@ConnectionTest;
92	89		...
93	90		function TForm1.ConnectionTest(ChosenConfig: TDBConnectionConfig): boolean;
94	91		// コネクションを確かめるためにdbconfigguiの情報を使うコールバック関数
95	92		// 確かめるために結果をdbconfigguiへ返す
96	93		var
97	94		// 通常のデータベース接続...
98	95		Conn: TSQLConnector;
99	96		begin
100	97		result:=false;
101	98		Conn:=TSQLConnector.Create(nil);
102	99		Screen.Cursor:=crHourglass;
103	100		try
104	101		// ...このプロパティで決定される実際の接続タイプ。
105	102		// ChosenConfig.DBType文字列がマッチすることを確かめること
106	103		// コネクタタイプ(例えば、このコネクタにたいする
107	104		// T*ConnectionDef.TypeNameをみること
108	105		Conn.ConnectorType:=ChosenConfig.DBType;
109	106		Conn.HostName:=ChosenConfig.DBHost;
110	107		Conn.DatabaseName:=ChosenConfig.DBPath;
111	108		Conn.UserName:=ChosenConfig.DBUser;
112	109		Conn.Password:=ChosenConfig.DBPassword;
113	110		try
114	111		Conn.Open;
115	112		result:=Conn.Connected;
116	113		except
117	114		// 結果はすでにfalse
118	115		end;
119	116		Conn.Close;
120	117		finally
121	118		Screen.Cursor:=crDefault;
122	119		Conn.Free;
123	120		end;
124	121		end;
125	122		```
126	123
127	124		最後に、実際にコールバックを呼び出す dbconfiggui.pas 内のコードが \[テスト\] ボタンにリンクされます。 (クラッシュを避けるために) コールバック関数が割り当てられているかどうかをテストする。完全を期すために、有効な構成オブジェクトがあるかどうかもチェックし、単純にコールバック関数を呼び出す。
128	125
129	126		``` pascal
130	127		...
131	128		TDBConfigForm = class(TForm)
132	129		...
133	130		private
134	131		FConnectionTestFunction: TConnectionTestFunction;
135	132		public
136	133		property ConnectionTestCallback: TConnectionTestFunction write FConnectionTestFunction;
137	134		...
138	135		procedure TDBConfigForm.TestButtonClick(Sender: TObject);
139	136		begin
140	137		// 設定を持つコールバックを呼び出す、接続が
141	138		// 成功したことを明らかにし、テスト結果を返す
142	139		if assigned(FConnectionTestFunction) and assigned(FConnectionConfig) then
143	140		if FConnectionTestFunction(FConnectionConfig) then
144	141		showmessage('Connection test succeeded.')
145	142		else
146	143		showmessage('Connection test failed.')
147	144		else
148	145		showmessage('Error: connection test code has not been implemented.');
149	146		end;
150	147		```
151	148
152	149		### 追加・修正
153	150
154	151		ログインフォームの可能な追加/変更:
155	152
156	153		- dbconfig のコマンドライン引数処理を追加して適切なデフォルトをプリロードし、プログラムをバッチスクリプトやショートカットなどで使用できるようにする。
157	154		- ログインフォームに「プロファイルの選択」コンボボックスを追加する。 ini ファイル内でデータベースの種類と接続の詳細を指定する複数のプロファイルを使用する。
158	155		- 1 つのデータベースタイプのみがサポートされている場合は、データベースタイプコンボボックスを非表示にする。
159	156		- 組み込みデータベースが選択されていることが確実な場合は、ユーザー名とパスワードを非表示にする。
160	157		- MS SQL Server コネクタを使用したポート番号またはインスタンス名の指定のサポートを追加。
161	158		- 信頼できる認証をサポートするデータベース (Firebird、MS SQL) にサポートを追加: ユーザー名/パスワードの制御を無効にする
162	159		- 組み込みデータベースを選択したがファイルが存在しない場合: 確認要求を表示し、データベースを作成する
163	160		- コマンドラインアプリケーション用にログインフォームのコマンドライン/TUI バージョンを作成する(たとえば、curses ライブラリを使用)
164	161
165	162		この記事やコードの更新は大歓迎する。
166	163
167	164		## データベースデータを通常のコントロールに取り込む
168	165
169	166		> Note: このセクションを開始する前に、[[SQLdb Tutorial0/ja\|チュートリアル0の必要条件]] で指定されているようにサンプル従業員データベースが設定されていることを確認されたい。
170	167
171	168		前のチュートリアルでは、データバインドコントロールについて説明した。[[TDBGrid]] などの特別なコントロールは、そのコンテンツを [[TDataSource]] にバインドし、そのソースから更新を取得し、ユーザーの編集内容を送り返すことができる。
172	169
173	170		プログラム的にデータベースの内容を取得し、その内容を任意の種類のコントロール (または変数) に入力することも可能である。例として、サンプル従業員データベーステーブルの給与明細を stringgrid に入力する方法を見ていく。
174	171
175	172		メインフォームで [[TStringGrid]] を追加し、(例えば、OnCreate イベントで呼び出されるプロシージャ LoadSalaryGrid 経由で)データを取得する。
176	173
177	174		``` pascal
178	175		// データベースから取得
179	176		try
180	177		if not FConn.Connected then
181	178		FConn.Open;
182	179		if not FConn.Connected then
183	180		begin
184	181		ShowMessage('Error connecting to the database. Aborting data loading.');
185	182		exit;
186	183		end;
187	184
188	185		// 最低賃金
189	186		// 注意: ここで１行だけ取得したいが、SQLは様々なデータベースシステムで異なる
190	187		// 後にチュートリアルで、データベースに依存したSQLを扱うが、ここではMS SQL:
191	188		// のMS SQL: 'select top 1 '...を用いておく
192	189		FQuery.SQL.Text:='select ' +
193	190		' e.first_name, ' +
194	191		' e.last_name, ' +
195	192		' e.salary ' +
196	193		'from employee e ' +
197	194		'order by e.salary asc ';
198	195		// ISO SQL+Firebird SQL: では
199	196		//'rows 1 '; をここと以下に加えること。PostgreSQLでは動作しないが
200	197		FTran.StartTransaction;
201	198		FQuery.Open;
202	199		SalaryGrid.Cells[1,1]:=FQuery.Fields[0].AsString; // i.e. Cells[Col,Row]
203	200		SalaryGrid.Cells[2,1]:=FQuery.Fields[1].AsString;
204	201		SalaryGrid.Cells[3,1]:=FQuery.Fields[2].AsString;
205	202		FQuery.Close;
206	203		// 読み込むときでも、常にコミット(retain)すること
207	204		// これは読み直したときに他者によって更新することを可能にする
208	205		FTran.Commit;
209	206		...
210	207		end;
211	208		except
212	209		on D: EDatabaseError do
213	210		begin
214	211		FTran.Rollback;
215	212		MessageDlg('Error', 'A database error has occurred. Technical error message: ' +
216	213		D.Message, mtError, [mbOK], 0);
217	214		end;
218	215		end;
219	216		```
220	217
221	218		注意すべき点: try..except を使用してデータベースエラーを検出する。エラーが発生した場合にトランザクションをロールバックするのを忘れていることがわかるが、これは読者の演習として残されている。
222	219
223	220		クエリオブジェクトを Open し、それによって FQuery に SQL ステートメントを介してデータベースにクエリを実行するよう命ずる。これが完了すると、データの最初の行が表示される。私たちは単にデータが存在すると仮定する。これは実際にはプログラミングエラーである。FQuery.EOF が true (または FQuery.RecordCount が \>0) であるかどうかを確認する方がよりまともだ。
224	221
225	222		次に、結果の最初の行からデータを取得する。次の行に移動したい場合は、FQuery.Next を使用するが、ここではその必要はない。結果を stringgrid に入力し、リスト内の最低給与を示す。最高の給与についても同様のアプローチがとれる。
226	223
227	224		上で述べたように、さまざまなデータベースがさまざまなバージョンの SQL をサポートしている(公式 ISO SQL 標準に加えて、またはこれに反して)。幸いなことに、最終的に使用する DB に基づいてアプリケーションをカスタマイズできる。これは、従業員の給与の標準偏差を取得することで示される、例えば、PostgreSQL SQL では組み込みだが、例えば、Firebirdではデフォルトで利用できない。
228	225
229	226		この、LoadSalaryGrid プロシージャではPostgreSQLのSQLを用い、コードを他の全てのデータベースに対して構築する。初めに、どのデータベースが読み込まれたか検知する。他の行に以下を加える:
230	227
231	228		``` pascal
232	229		...
233	230		SalaryGrid.Cells[3,2]:=FQuery.Fields[2].AsString;
234	231		FQuery.Close;
235	232		// たとえ読み取り時でも、常にトランザクションをコミット(retain)すること
236	233		FTran.Commit;
237	234		//存在するコードの最後
238	235
239	236		if FConn.ConnectorType = 'PostGreSQL' then
240	237		begin
241	238		// PostgreSQLに対しては、それ固有の SQL 解決策:
242	239		FQuery.SQL.Text:='select stddev_pop(salary) from employee ';
243	240		FTran.StartTransaction;
244	241		FQuery.Open;
245	242		if not FQuery.EOF then
246	243		SalaryGrid.Cells[3,3]:=FQuery.Fields[0].AsString;
247	244		FQuery.Close;
248	245		// たとえ読み取り時でも、常にトランザクションをコミット(retain)すること
249	246		FTran.Commit;
250	247		end
251	248		else
252	249		begin
253	250		// 他のデータベースでは、このコードアプローチで:
254	251		....以下参照...
255	252		end;
256	253		```
257	254
258	255		ConnectorType の使用に注目すること。使用される文字列は正確に一致する必要がある。また、クエリからの空の結果も適切にチェックする (従業員テーブルが空の場合に発生する可能性がある)。
259	256
260	257		... ここで標準偏差をサポートしない他のデータベースのための、コードベースの解決策を実装する:
261	258
262	259		``` pascal
263	260		// 他のデータベースでは、コードによるアプローチを行う:
264	261		// 1. 値の平均を求める
265	262		FQuery.SQL.Text:='select avg(salary) from employee ';
266	263		FQuery.Open;
267	264		if FQuery.EOF then
268	265		SalaryGrid.Cells[3,3]:='No data'
269	266		else
270	267		begin
271	268		Average:=FQuery.Fields[0].AsFloat;
272	269		FQuery.Close;
273	270		// 2. それぞれの値に対し、平均値の二乗をとり、加え合わせると
274	271		FQuery.SQL.Text:='select salary from employee where salary is not null ';
275	272		FQuery.Open;
276	273		while not FQuery.EOF do
277	274		begin
278	275		DifferencesSquared:=DifferencesSquared+Sqr(FQuery.Fields[0].AsFloat-Average);
279	276		Count:=Count+1;
280	277		FQuery.Next;
281	278		end;
282	279		// 3. 次に、平均「二乗差」を計算し、平方根を取得する。
283	280		if Count>0 then // 0での除算を防ぐ
284	281		SalaryGrid.Cells[3,3]:=FloatToStr(Sqrt(DifferencesSquared/Count))
285	282		else
286	283		SalaryGrid.Cells[3,3]:='No data';
287	284		end;
288	285		FQuery.Close;
289	286		```
290	287
291	288		空のデータ(および0での除算など)を避けるためにFQuery.EOFを用いていることに注意すること。このループがそのやり方を示している: Note that we use FQuery.EOF to check for empty data (and avoid division by zero errors etc). The loop shows how to:
292	289
293	290		- データベースの値を変数に代入する
294	291		- 次のレコードに移動するためFQuery.Next を実行
295	292		- クエリデータセットが最後のレコードに達したことを適切にチェックし、データ取得を停止する
296	293
297	294		結果の画面は以下のようになるだろう - 十進のコンマが用いられていることに気をつけられたい - コンピューターのロケールによってはこれが現れるかもしれない:
298	295
299		-	~~<figure>~~
300		-	~~<img src="sqldbtutorial3mainform.png" title="sqldbtutorial3mainform.png" />~~
301		-	~~<figcaption>sqldbtutorial3mainform.png</figcaption>~~
302		-	~~</figure>~~
	296	+	![](/wiki-images/6/6a/Sqldbtutorial3mainform.png)
303	297
304	298		### 最低/最高給与を取得する
305	299
306	300		このセクションでは、SQL についてさらに役立つ詳細を説明するが、チュートリアルの残りの部分まで作業する必要はない
307	301
308	302		これで、さまざまなデータベース接続の検出に対処する方法がわかったので、最低給与と最高給与を取得する SQL を調整して、データベース固有の機能を利用できるようになる。
309	303
310	304		一例として: これは、返される行の数を最初の行のみに制限することで、MS SQL Server で機能するだろう:
311	305
312	306		``` SQL
313	307		select top 1
314	308		e.first_name, e.last_name, e.salary
315	309		from employee e
316	310		order by e.salary asc
317	311		```
318	312
319	313		最低給与を求めるために。
320	314
321	315		これにより効率的に 1 つのレコードが返される。他のデータベースでは、ISO ROWS 1 などの他の構文が使用される。勤勉な SQL の学習者は、その重要な部分を見逃して、必要な 1 つのレコードだけのために大きなレコードセット全体を要求しないことをすぐに気づくだろう!。
322	316
323	317		同じことを達成するための、知っておく価値のある他の方法を簡単に検討してみよう。
324	318
325	319		最低給与のレコードを取得する別の方法は次ようになるだろう:
326	320
327	321		``` SQL
328	322		SELECT e.first_name, e.last_name, e.salary FROM employee e WHERE e.salary=(SELECT min(salary) FROM employee)
329	323		```
330	324
331	325		SQL を学ぶものは、Common Table Expressionを研究することで大きな利益を得られるだろう。
332	326
333	327		CTE を使用すると、次の式で仮想一時テーブルを使用できるようになり、他の方法では不可能な非常に複雑なクエリを明確にコーディングできるようになる。 CTE について知っていれば、それを聞いたことのない同僚よりも先を行くことができる。たとえば、上記は次のように書き換えることができる (Microsoft SQL Server 構文の例):
334	328
335	329		``` SQL
336	330		WITH TheMinimum as
337	331		(
338	332		SELECT min(salary) as MinimumPay FROM Employee
339	333		)
340	334		SELECT e.first_name, e.last_name, e.salary FROM Employee e WHERE e.salary=(SELECT MinimumPay FROM TheMinimum)
341	335		```
342	336
343	337		このような一時テーブルをいくつか連結させて、それぞれが前のテーブルの結果を使用することができる。 JOIN を使用してレコードセットをリンクすると、これらの仮想テーブルをデータベース内の実際のテーブルであるかのように扱うことができる。また、ハードコードされたデータを使用した簡単なテストに非常に役立つ。これはデータベース接続なしで実行できる:
344	338
345	339		``` SQL
346	340		WITH TestEmployee as
347	341		(
348	342		SELECT 'Fred' as first_name, 'Bloggs' as last_name, 10500 as salary
349	343		UNION
350	344		SELECT 'Joe' as first_name, 'Public' as last_name, 10000 as salary
351	345		UNION
352	346		SELECT 'Mike' as first_name, 'Mouse' as last_name, 11000 as salary
353	347		),
354	348		TheMinimum as
355	349		(
356	350		SELECT min(salary) as MinimumPay FROM TestEmployee
357	351		)
358	352		SELECT e.first_name, e.last_name, e.salary FROM TestEmployee e WHERE e.salary=(SELECT MinimumPay FROM TheMinimum)
359	353		```
360	354
361	355		このような SQL クエリのコードは非常に長い文字列になる可能性があるが、それは 1つのクエリにすぎず、単純な1 つの式に限定されているどこからでも呼び出すことができます。関数やストアドプロシージャに頼ることなく、複雑なクエリに答えるのに役立つ。
362	356
363	357		## 通常のコントロールからデータベースへデータを取得する
364	358
365	359		これまでに以下を見てきた:
366	360
367	361		- データバインドコントロールを使用して SQLDB にデータベースを更新させる方法 (以前のチュートリアル)
368	362		- クエリを使用してデータベースからデータを取得する方法 (上記のセクション)
369	363
370	364		SQL を実行して、コード経由で任意のデータをデータベースに戻すこともできる。これにより、多少のコーディングを犠牲にして、データベースに対応するスライダーやカスタムコントロールなどのデータベース対応のない変数やコントロールを使用してデータベースにデータを入力できるようになる。
371	365
372	366		例として、ユーザーが stringgrid 内の最低給与と最高給与を変更できるようにする。
373	367
374	368		編集を容易にするために、グリッドの Options/goEditing を true に設定する。次に、以下のプロシージャをグリッドの OnValidate イベントに割り当てる。このイベントは、ユーザーがグリッドの更新を完了するたびに呼び出される。
375	369
376	370		### パラメータクエリ
377	371
378	372		次のコードは、パラメーター化されたクエリを使用して SQL インジェクション、文字列値の引用符の調整、日付の書式設定などを回避する方法も示している。
379	373
380	374		コードにあるように、パラメーターに任意の名前を付けて、SQL 内で先頭に : を付けることができる。その値を\<somequery\>.Params.ParamByName('\<thename\>').As'\<variabletype\>';で設定、取得できる。コードでは.AsFloatand.AsString''を示す。
381	375
382	376		パラメーター化されたクエリは、同じクエリを異なるパラメーターのみを使用してループ内で実行する場合に特に便利である (データの一括読み込みなどを考えてみてほしい)。
383	377
384	378		例を続ける:クエリ SQL とパラメータを設定した後、通常どおりトランザクションが開始され (その後コミットされ)、その後、ExecSQL を呼び出してクエリが実行される (結果セットは返されない。SQL ステートメントがデータを返す SELECT または INSERT...RETURNING である場合は、上記の例のように Open を使用する):
385	379
386	380		``` pascal
387	381		procedure TForm1.SalaryGridValidateEntry(sender: TObject; aCol, aRow: Integer;
388	382		const OldValue: string; var NewValue: String);
389	383		begin
390	384		// 最低、最高給与を持つセルのみ:
391	385		if (aCol=3) and ((aRow=1) or (aRow=2)) then
392	386		begin
393	387		// もし正の数値データが入力された場合、最低、最高給与を更新することを可能にする
394	388		if StrToFloatDef(NewValue,-1)>0 then
395	389		begin
396	390		// 主キーを次のように保存する。グリッド内の非表示のセルとそれを使用します。
397	391		// 更新クエリの方がクリーンだが、難しい方法でも実行できます:
398	392		FQuery.SQL.Text:='update employee set salary=:newsalary '+
399	393		' where first_name=:firstname and last_name=:lastname and salary=:salary ';
400	394		FQuery.Params.ParamByName('newsalary').AsFloat:=StrToFloatDef(NewValue,0);
401	395		FQuery.Params.ParamByName('firstname').AsString:=SalaryGrid.Cells[1,aRow];
402	396		FQuery.Params.ParamByName('lastname').AsString:=SalaryGrid.Cells[2,aRow];
403	397		FQuery.Params.ParamByName('salary').AsFloat:=StrToFloatDef(OldValue,0);
404	398		FTran.StartTransaction;
405	399		FQuery.ExecSQL;
406	400		FTran.Commit;
407	401		LoadSalaryGrid; //標準偏差を再び読み込み
408	402		end
409	403		else
410	404		begin
411	405		// その入力が誤っていることを伝える... さもないと迷わせることになる:
412	406		Showmessage('Invalid salary entered.');
413	407		NewValue:=OldValue;
414	408		end;
415	409		end
416	410		else
417	411		begin
418	412		// 他のセルの編集を隠蔽して廃棄する
419	413		NewValue:=OldValue;
420	414		end;
421	415		end;
422	416		```
423	417
424	418		データベースエラーを適切に捕捉して適切なエラーメッセージを表示するために、このコードに try..except ブロックを追加するのを忘れていることに注意すること。このチュートリアルで Firebird サンプル EMPLOYEE データベースを実行している場合は、給与を非常に低い値 (たとえば 1) に変更して、何が起こるかを確認されたい。
425	419
426	420		最後に、この例では UPDATE SQL クエリを示したが、INSERT クエリを実行してプログラムで新しいデータを挿入することもできる。また、テーブル/ビュー/プロシージャ名ではなく、フィールドにパラメータを使用する限り、あらゆる種類の SQL クエリ (SELECT、UPDATE など) でパラメータを使用できる。
427	421
428	422		## まとめ
429	423
430	424		このチュートリアルでは次のように説明した。
431	425
432	426		- 複数のデータベースタイプをコード化する方法
433	427		- ログインフォームを使用してプログラムからデータベースアクセス構成を分離する方法
434	428		- プログラムでデータを取得および更新する方法
435	429
436	430		## コード
437	431
438	432		2012 年 11 月以降、コードは \$(lazarusdir)examples/database/sqldbtutorial3 にある。
439	433
440	434		If you have an older version (e.g. Lazarus 1.0.2), you can also download the code via [the Lazarus SVN website](http://svn.freepascal.org/svn/lazarus/trunk/examples/database/sqldbtutorial3/)
441	435
442	436		## 関連情報
443	437
444	438		- [[SQLdb Tutorial1/ja]]: DB チュートリアルの第一の部分。データベースのデータを、どのように grid に表示させるかを学びます。
445	439		- [[SQLdb Tutorial2/ja]]: DB チュートリアルの第二の部分。データベースのデータの挿入や編集について学びます。
446	440		- [[SQLdb Tutorial3/ja]]: DB チュートリアルの第三の部分。複数のデータベースについてのプログラムやログインフォームの使い方を学びます。
447	441		- [[SQLdb Tutorial4/ja]]: DB チュートリアルの第四の部分。どのようにデータモジュールを用いるかを学びます。
448	442		- [[Lazarus Database Overview/ja]]: Lazarus がサポートしているデータベースについての情報。データベースごとの記述へのリンクを含みます。
449	443		- [[SQLdb Package/ja]]: SQLdb パッケージについての情報
450	444		- [[SQLdb Programming Reference/ja]]: SQLdb データベースコンポーネントの入出力の概要
451	445		- [[SqlDBHowto/ja]]: SQLdb パッケージを用いることについての情報
452	446		- [[Working With TSQLQuery/ja]]: TSQLQuery についての情報
453	447
454	448		---
455	449		From the Free Pascal wiki, page "SQLdb Tutorial3/ja", as it stood on 2024-04-01 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