いくつかデータを更新してみると、時々変になるんですよね。これって私がドジなせい？教えて、高橋先生！

では、皆さんも一緒にやってみて、うまくいかないかどうか確認してみてください。InterBaseサーバーを起動します。Windows OSのスタートメニューで「Borland InterBase 7.5 Developer [instance = gds_db]」の「InterBase サービスマネージャー [instance = gds_db]」をクリックします。「ステータス(T)」欄に、「InterBaseをWindowsサービスとして起動する」にチェックが付いていないことを確認して、「InterBaseサーバーは停止中」となっていれば、[起動(S)]ボタンをクリックして起動します。「InterBaseサーバーは稼動中」と変化したのを確認して[閉じる](×)ボタンで終了します。

次にプロジェクトを開きます。Turbo Delphiを起動して、画面中央の「ホームページ」で「ProfileDB.bdsproj」を選択。もし一覧に表示されていなければ、ツールバーの[プロジェクトを開く(Ctrl+F11)]ボタンをクリックします。「プロジェクトを開く」ダイアログボックスから「ProfileDB.bdsproj」を探します。

そのまま、ツールバーの[実行]ボタンをクリックして、プログラムを起動します。DBグリッドコンポーネントからどれかひとつレコード（今回はIDが7のレコード）を選択して「名前」フィールドと「誕生日」フィールドを変更します。変更できたら、[追加]ボタンをクリックして、新しいレコードを作ります。表を参考にして入力します。

「ID」フィールドが既存のものとダブっているけど、そのまま入力します。実際にはうっかり間違って、IDがダブってしまったんです。だけど、今回は同じ現象を確認していただくために、わざと同じIDを使います。このように編集と追加ができたら[保存(S)]ボタンをクリックします。

Hide image

図01 データの加工

ボタンをクリックするとすぐにエラーメッセージが表示されます。設定によってはエラーメッセージを表示しないようになっている場合があります。表示されなくても問題はありません。これはメッセージを読んで[継続(C)]ボタンをクリックすればいいんですって。英語のところは読めないから読み飛ばして、「メッセージ'データベースエラー:～～'」って書いてあるわね。データベースが悪いんだ。

Hide image

図02 エラーメッセージ1

よし、[継続(C)]ボタンをクリック。またメッセージが出ちゃいました。今度は日本語多くてよかった。「メッセージ'レコードが見つかりませんでした。キーを指定されていません'」ってことね。

Hide image

図03 エラーメッセージ2

日本語だけどよくわかりませんね。「レコードが見つかりません」って出てくるけど検索なんかしていないのになぁ。[継続(C)]ボタンで続けます。画面上ではちゃんと変更と追加がされていますよね。確認できたら、このままフォームの[閉じる](×)ボタンで終了します。そして、もう1度ツールバーの[実行]ボタンをクリックしてみます。あー、名前などを変更したレコード（今回はIDが7のレコード）は有効なんですが、追加したデータがなくなっちゃっているんです。

Hide image

図04 再実行時のデータ

新たに追加したレコードがありませんね。「ID」フィールドを間違えたのがまずかったわね。IDがダブらないように、気をつけていても間違うことってありますよね。そうするとレコードがなくなっちゃうかもしれないってことかな？名前などを変更したレコードが有効になっていて、追加のレコードが無くなっていることを確認できたらアンケートプログラムを終了します。

エラーが起こるかどうか見張っておいてくれるなんて安心。これもデータベースの機能の1つなのかな？

トランザクションはエラーがないかチェックする処理グループということまでは、わかってきました。今度はコードに記述する番ね。どのように書いたらいいのかな？

var
  td : TTransactionDesc;
begin
  td.TransactionID := 1;
  td.IsolationLevel := xilREADCOMMITTED;
｜
end;

if not SQLConnection1.InTransaction then
   SQLConnection1.StartTransaction(td);

さっそく、ここまで記述してみましょう。画面をコードエディタに変更します。次にbtnSaveClickイベントハンドラを探します。見つかったら「begin」の前にパラメータ用のtd変数を宣言します。処理は「sdsProfile.ApplyUpdates(-1);」の前に記述します。空行を挿入して、太字部分を追加します。

procedure TfrmProfileDB.btnSaveClick(Sender: TObject);
var
  td : TTransactionDesc;
begin
  td.TransactionID := 1;
  td.IsolationLevel := xilREADCOMMITTED;
  if not SQLConnection1.InTransaction then
     SQLConnection1.StartTransaction(td);
  sdsProfile.ApplyUpdates(-1);
end;

では、コードの続きを記述してみます。btnSaveClickイベントハンドラでは、いったん「sdsProfile.ApplyUpdates(-1);」の行を削除します。戻り値が0のとき「Commit」メソッドを使います。そうでないとき「Rollback」メソッドを使います。太字部分を追加します。

procedure TfrmProfileDB.btnSaveClick(Sender: TObject);
var
  td : TTransactionDesc;
begin
  td.TransactionID := 1;
  td.IsolationLevel := xilREADCOMMITTED;
  if not SQLConnection1.InTransaction then
     SQLConnection1.StartTransaction(td);
  if sdsProfile.ApplyUpdates(-1) = 0 then
    SQLConnection1.Commit(td)
  else
    SQLConnection1.Rollback(td);
end;

ここまでできたら、保存して実行してみますね。ツールバーの[すべて保存]ボタンをクリックし、次に[実行]ボタンをクリックしてプログラムを実行します。まずは、レコードをどれか選択して名前フィールドだけ書き換えます。次に[追加(A)]ボタンをクリックして、最初に追加したレコードをもう一度入力してみます。住所フィールドまででかまいません。

Hide image

図07 トランザクションを使った更新

[保存(S)]をクリックすると、エラーメッセージが表示されます。メッセージボックスは[継続(C)]ボタンで進めます。

エラーになる更新なので、Rollbackメソッドが働いて元に戻るはずよね。って、アレ画面上は何も変わらないみたい。教えて、高橋先生！

実行中の場合は終了しておきます。表示をコードエディタにして、btnSaveClickイベントハンドラを探します。以下のように太字の部分を追加します。

procedure TfrmProfileDB.btnSaveClick(Sender: TObject);
var
  td : TTransactionDesc;
begin
  td.TransactionID := 1;
  td.IsolationLevel := xilREADCOMMITTED;
  if not SQLConnection1.InTransaction then
     SQLConnection1.StartTransaction(td);
  if sdsProfile.ApplyUpdates(-1) = 0 then
    SQLConnection1.Commit(td)
  else
  begin
    SQLConnection1.Rollback(td);
    sdsProfile.CancelUpdates;
    sdsProfile.Refresh;
  end;
end;

追加できたら、保存して実行します。ツールバーの[すべて保存]ボタンをクリックしたら、そのまま[実行]ボタンをクリックします。先ほどと同じように、レコードを1つ選択して名前を変更します。[追加(A)]ボタンをクリックして、IDフィールドを「1」にしたデータを追加します。入力できたら[保存(S)]ボタンをクリックします。エラーメッセージが表示されますので、[継続(C)]ボタンをクリックして処理を進めます。プログラムを起動しなおさなくても、画面は元の状態に戻ります。

ちゃんとトランザクションで[保存(S)]ボタンでの更新処理が、全部元に戻りました。でもレコードを登録するときに、何がいけなかったのかよくわからないわね。変更したレコードと追加したレコードのどっちが悪かったか、わかるといいのに。

i := Dataset.FieldByName('ID').AsInteger;

では、エラーメッセージを出すコードを記述します。表示をフォームデザイナに変更してsdsProfileコンポーネントを選択します。オブジェクトインスペクタ、イベントページの「OnReconcileError」を探してダブルクリックします。イベントハンドラが作成できたら、UpdateKindパラメータを使ったメッセージから作成します。case文を使うんだったわね。「case UpdateKind of」のあと[Enter]キーを押すと自動的に分岐の値が入力されます。

procedure TfrmProfileDB.sdsProfileReconcileError(DataSet: TCustomClientDataSet;
  E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
  case UpdateKind of  //ここで[Enter]キー
    ukModify: ;
    ukInsert: ;
    ukDelete: ;
  end;
end;

続いてメッセージボックスを表示します。太字部分を記述します。

procedure TfrmProfileDB.sdsProfileReconcileError(DataSet: TCustomClientDataSet;
  E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
  case UpdateKind of
    ukModify: ShowMessage('変更エラー');
    ukInsert: ShowMessage('追加エラー');
    ukDelete: ShowMessage('削除エラー');
  end;
end;

次に、レコードの内容をメッセージボックスに表示します。メッセージの内容は変数に代入しておきます。Messageの文字から数文字とって「msg」変数とします。値だけが表示されてもわかりにくいので「ID:」と「名前:」のように見出しをつけたほうが親切ですね。「ID:」のうしろと「名前:」の前後には空白があったほうが読みやすくなります。IDフィールドはInteger型なので型変換関数でstring型にします。太字部分を追加します。

unit FormProfileDB;

interface

(中略)

implementation

uses FormSelect;

{$R *.dfm}

procedure TfrmProfileDB.btnAddDataClick(Sender: TObject);
begin
  sdsProfile.Append;
end;

procedure TfrmProfileDB.btnDeleteClick(Sender: TObject);
begin
  if MessageDlg('削除してもいいですか？',mtConfirmation,
    [mbYes,mbNo],0) = mrYes  then
    sdsProfile.Delete;
end;

procedure TfrmProfileDB.btnNextClick(Sender: TObject);
begin
  sdsProfile.Next;
end;

procedure TfrmProfileDB.btnPriorClick(Sender: TObject);
begin
  sdsProfile.Prior;
end;

procedure TfrmProfileDB.btnSaveClick(Sender: TObject);
var
  td : TTransactionDesc;
begin
  td.TransactionID := 1;
  td.IsolationLevel := xilREADCOMMITTED;
  if not SQLConnection1.InTransaction then
    SQLConnection1.StartTransaction(td);
  if sdsProfile.ApplyUpdates(-1) = 0 then
    SQLConnection1.Commit(td)
  else
  begin
    SQLConnection1.Rollback(td);
    sdsProfile.CancelUpdates;
    sdsProfile.Refresh;
  end;
end;


procedure TfrmProfileDB.btnSelectClick(Sender: TObject);
var
  s : string;
begin
  s := '';
  frmSelect.ShowModal;
  if frmSelect.ModalResult = mrOk then
  begin
    if frmSelect.edtID.Text <> '' then
      s := '(ID = ' + frmSelect.edtID.Text + ')';
    if frmSelect.edtFullName.Text <> '' then
    begin
      if s <> '' then
        s := s + ' AND ';
      s :=s +  '(FULLNAME LIKE ''' + frmSelect.edtFullName.Text + '%'')';
    end;
    if frmSelect.cmbAddress.Text <> '' then
    begin
      if s <> '' then
        s := s + ' AND ';
      s := s + '(ADDRESS = ''' + frmSelect.cmbAddress.Text + ''')';
    end;
    if frmSelect.medtBirthday.Text <> '' then
    begin
      if s <> '' then
        s := s + ' AND ';
      s := s + '(BIRTHDAY >= ''' + frmSelect. medtBirthday.Text + ''')';
    end;
    if frmSelect.cmbMale.Text <> '' then
    begin
      if s <> '' then
        s := s + ' AND ';
      if frmSelect.cmbMale.Text = '男性' then
        s := s + '(MALE = TRUE)'
      else if frmSelect.cmbMale.Text = '女性' then
        s := s + '(MALE = FALSE)';
    end;
    if frmSelect.cmbPet.Text <> '' then
    begin
      if s <> '' then
        s := s + ' AND ';
      if frmSelect.cmbPet.Text = '飼っている' then
        s := s + '(PET = TRUE)'
     else if frmSelect.cmbPet.Text = '飼っていない' then
       s := s + '(PET = FALSE)';
    end;
    sdsProfile.Active := False;
    sdsProfile.DataSet.CommandText :=