データベースについて何となくはわかったけど、もう一度聞いておきたいな。教えて、高橋先生！

前回やったことも少しは思い出しました。これからデータベースの操作をするのかな？

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

Hide image

図03 InterBase サービスマネージャー

次にプロジェクトを開きます。Turbo Delphiを起動して、画面中央の「ホームページ」で「ProfileDB.bdsproj」を選択。もし一覧に表示されていなければ、ツールバーの[プロジェクトを開く(Ctrl+F11)]ボタンをクリックします。「プロジェクトを開く」ダイアログボックスから「ProfileDB.bdsproj」を探します。もしも、プロジェクトを開くとき「dbExpressエラー:[0x0015]:接続失敗」といったエラーメッセージが表示されたら、もう1度InterBase サービスマネージャーを起動してInterBaseサーバーが起動しているか確認してみて欲しいんですって。

Hide image

図04 エラーメッセージ

画面上部の「FormProfileDB」タブを選択して、画面をフォームデザイナに切り替えます。フォーム上に前回作ったデータが表示されていなければ、「SQLConnection1」コンポーネントを探して「データベース」カテゴリで「Connected」プロパティを「True」にします。さらに「SimpleDataSet1」を選択して、「その他」カテゴリの「Active」プロパティを「True」にしておきます。

データベースに接続できたら、項目エディタを表示します。SimpleDataSet1コンポーネントを探してダブルクリック、もしくは右ボタンクリックして「項目の設定(T)...」を選択します。項目エディタに登録した項目コンポーネントを選択して、DisplayLabelプロパティを変更します。「ID」はそのままにして、以下の表を参考に変更します。

FULLNAME

ADDRESS

BIRTHDAY

MALE

PET

DBGrid1コンポーネントの上部にあるタイトルが変更できたことを確認します。うまく変更できたら、画面上部のTLabelとTDBEditのコンポーネントをすべて削除します。TLabelコンポーネントとTDBEditコンポーネントをすべて選択して、キーボードの[Delete]キーを押します。

Hide image

図05 コンポーネントの削除

次に、配置を整えるためにTPanelコンポーネントを配置します。データベース接続のSQLConnection1、SimpleDataSet1、DataSource1と、DBGrid1はそのままでいいので、画面右下のツールパレットから「Standard」カテゴリの「TPanel」をDBGrid1上部に１つ配置します。

Hide image

図06 TPanelコンポーネントの配置

ほかのコンポーネントを配置するためにプロパティも設定します。Panel1を選択して、画面左下のオブジェクトインスペクタ、プロパティページで「ローカライズ対象」カテゴリの「Caption」を削除します。「レイアウト」カテゴリの「Align」プロパティを「alTop」にします。

Panel1

さらに高さを広げてDBGrid1の近くまで伸ばします。次にDBGrid1のAlignプロパティも設定します。DBGrid1を選択して、「レイアウト」カテゴリの「Align」プロパティを「alClient」にしておきます。

DBGrid1

Hide image

図07 ベースのレイアウト

設定ができたら、項目エディタからすべての項目をドラッグしてパネルの左上に配置します。今度はラベルが日本語で表示されます。

Hide image

図08 項目コンポーネントの配置

次に配置したコンポーネントの幅を調整します。住所などはドラッグで調整しにくいのでDBEdit3コンポーネントを選択して、「Width」プロパティに「150」程度を入力してから幅を整えると操作しやすいです。

DBGrid1コンポーネントの項目の幅も調整します。こちらも住所が調整しにくいのでプロパティを使います。プロパティを使うためには「カラムエディタ」を使用します。DBGrid1コンポーネントをダブルクリックするか、右ボタンクリックして「カラムエディタ(L)...」を選択します。

Hide image

図09 カラムエディタ

ツールバーの左から3番目[すべての項目の追加]ボタンをクリックして項目を追加します。「ADDRESS」を選択してWidthプロパティを「100」程度にします。

Hide image

図10 幅の調整

ドラッグですべての項目がDBGrid1コンポーネントに表示できるように幅を調整します。設定できたらカラムエディタは閉じておきます。

Hide image

図11 配置完了

Boolean型のデータを、値に置き換えて表示できるようにします。項目エディタで「MALE」を選択します。プロパティページの「ローカライズ対象」カテゴリで「DisplayValues」プロパティに、「男性;女性」と入力します。「;」(セミコロン)は半角で入力します。同様にして項目エディタで「PET」を選択します。「DisplayValues」プロパティで「有;無」と入力します。DBGrid1を確認します。正しく設定できたら、性別欄は「男性」か「女性」ペット欄は「有」か「無」となります。

Hide image

図12 DisplayValuesの設定

じゃあ、設定してみます。項目エディタで「BIRTHDAY」を選択します。プロパティページの「ローカライズ対象」カテゴリで「EditMask」を探します。クリックすると「…」ダイアログボタンが表示されますので、それをクリックします。「入力マスクの設定」ダイアログボックスが表示されます。

Hide image

図13 入力マスクの設定

右側の「例(S):」から「日付」を選択します。「入力マスク(I):」に「!99/99/00;1;_」と表示されますので、「99」を付け足して「!9999/99/00;1;_」とします。これで西暦を2桁ではなく、4桁で表示することができるんですって。「テスト(T):」欄で試してみることができるんですって。半角数字で入力してみます。「/」は入力しなくてもいいのね。確認できたら[OK]ボタンをクリックします。

このあとコードを記述するので、コンポーネントのNameプロパティを設定します。ついでにフォームのCaptionプロパティも設定します。

※ 手順によってはフォーム名が異なる場合があります。

Form1(フォーム)

DBEdit1(ID)

DBEdit2(FULLNAME)

DBEdit3(ADDRESS)

DBEdit4(BIRTHDAY)

DBCheckBox1(MALE)

DBCheckBox2(PET)

DBGrid1

SimpleDataSet1

できたら保存しておきます。ツールバーの[すべて保存]ボタンをクリックします。sdsProfileコンポーネントの項目エディタも使わないので閉じてしまいます。

フォームの調整はできましたね。次はデータベースを使って何かするって言ってたけど、何をどうするのかな？教えて、高橋先生！

では、ボタンを2つ追加します。フォームデザイナの画面で、TDBEditコンポーネントとTDBGridコンポーネントの間に、ボタンを置くための隙間を作ります。次に、ツールパレット「Standard」ページからTButtonコンポーネントを探して、TDBEditコンポーネントとTDBGridコンポーネントの間の中央に2つ配置します。

Hide image

図14 [追加]ボタンと[削除]ボタンの配置

それぞれ「プロパティ」ページでプロパティを設定します。

Button1([追加]ボタン)

Button2([削除]ボタン)

配置できたらコードを記述します。まずは[追加(A)]ボタンから選択して、イベントページで「入力」カテゴリの「OnClick」をダブルクリックします。sdsProfileコンポーネントの「Append」メソッドでレコードの追加をします。太字部分を記述します。

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

[追加(A)]ボタンができたら、[削除(D)]ボタンを実装します。画面をフォームデザイナに切り替えて、[削除(D)]ボタンを選択します。イベントページの「入力」カテゴリで、「OnClick」をダブルクリックします。MessageDlg関数を使って、戻り値が「mrYes」だったらsdsProfileコンポーネントの「Delete」メソッドでレコードを削除します。太字部分を記述します。

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

できたら、保存して実行します。ツールバーの[すべて保存]ボタンをクリックします。次にツールバーの[実行]ボタンをクリックして、実行してみます。まずは[追加(A)]ボタンをクリックして、レコードを記述します。数件入力できたら、どれか1つのレコードを選択して[削除(D)]ボタンをクリックします。メッセージが表示されたら、[はい(Y)]ボタンをクリックして削除できることを確認します。できたらプログラムを終了します。もう1度[実行]ボタンをクリックして実行してみます。追加したレコードがなくなっていることを確認できたら、プログラムを終了します。

Hide image

図15 [追加]ボタンと[削除]ボタンの実行テスト

Hide image

図16 アンケートプログラムの再起動

えー、どういうことなんだろう？せっかく登録したのに、削除したもの以外もなくなっちゃっています。[削除(D)]ボタンって全部消しちゃうのかな？でも、最初からあった自分のレコードは残っていたわよね。教えて、高橋先生！

では、[保存(S)]ボタンを作ります。画面をフォームデザイナに変更して、ツールパレット「Standard」ページからTButtonコンポーネントを1つ[削除(D)]ボタンの右側に配置します。配置したらプロパティを設定します。

Button1([保存]ボタン)

Hide image

図18 [保存]ボタンの配置

設定できたら、コードを記述します。ApplyUpdatesメソッドには、許可するエラーの数をパラメータに設定できます。まず、[保存(S)]ボタンを選択して、イベントページ「入力」カテゴリの「OnClick」をダブルクリックします。今回は無制限でエラー許可する「-1」をセットします。太字部分を記述します。

procedure TfrmProfileDB.btnSaveClick(Sender: TObject);
begin
  sdsProfile.ApplyUpdates(-1);
end;

できたら、保存して実行します。ツールバーの[すべて保存]ボタンをクリックします。次にツールバーの[実行]ボタンをクリックして、実行します。実行できたら[追加(A)]ボタンをクリックして、レコードを記述します。数件入力できたら、どれか1つのレコードを選択して[削除(D)]ボタンをクリックします。メッセージが表示されたら、[はい(Y)]ボタンをクリックして削除できることを確認します。できたら[保存(S)]ボタンをクリックしてからプログラムを終了します。もう1度[実行]ボタンをクリックして実行してみます。追加したレコードが残っていることが確認できたら、プログラムを終了します。

Hide image

図19 データの保存を確認

レコードが増えて、なんだか嬉しい。でも、フォームデザイナの画面は反映しないのね。教えて、高橋先生！

ボタンを2つ作ります。フォームデザイナの画面で、ツールパレット「Standard」ページからTButtonコンポーネントを2つ、[追加(A)]ボタンの左側に並べて配置します。配置したらプロパティを設定します。

Button1([前へ]ボタン)

Button2([次へ]ボタン)

Hide image

図20 [前へ]ボタンと[次へ]ボタンの配置

[前へ(P)]ボタンから実装します。[前へ(P)]ボタンを選択して、イベントページ「入力」カテゴリの「OnClick」をダブルクリックします。sdsPrifileコンポーネントの「Prior」メソッドを使って前へ移動します。太字部分を記述します。

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

できたら、フォームデザイナの画面に戻って[次へ(N)]ボタンを選択します。OnClickイベントハンドラを作成します。イベントページ「入力」カテゴリの「OnClick」をダブルクリックします。sdsPrifileコンポーネントの「Next」メソッドを使って前へ移動します。太字部分を記述します。

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

記述したら、保存して実行します。ツールバーの[すべて保存]ボタンをクリックします。次にツールバーの[実行]ボタンをクリックして、実行します。[次へ(N)]ボタンや[前へ(P)]ボタンでカレントレコードの位置を変更してみます。

ボタンもたくさんできたわね。TSimpleDataSetのメソッドもいろいろ使ってみました。そろそろ完成？

もう1つボタンを追加します。フォームデザイナの画面に切り替えて、ツールパレットの「Standard」カテゴリから「TButton」を選択します。[削除(D)]ボタンと[保存(S)]ボタンの間に配置します。表のようにプロパティを変更します。

Button1([キャンセル]ボタン)

Hide image

図21[キャンセル]ボタンの配置

[キャンセル(C)]ボタンを選択して、イベントページ「入力」カテゴリの「OnClick」をダブルクリックします。sdsPrifileコンポーネントの「Cancel」メソッドを使って変更の取り消しをします。太字部分を記述します。

unit FormProfileDB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, WideStrings, Grids, DBGrids, StdCtrls, DBCtrls, DB, Mask,
  DBClient, SimpleDS, SqlExpr, ExtCtrls;

type
  TfrmProfileDB = class(TForm)
    SQLConnection1: TSQLConnection;
    sdsProfile: TSimpleDataSet;
    sdsProfileID: TIntegerField;
    sdsProfileFULLNAME: TStringField;
    sdsProfileADDRESS: TStringField;
    sdsProfileBIRTHDAY: TDateField;
    sdsProfileMALE: TBooleanField;
    sdsProfilePET: TBooleanField;
    DataSource1: TDataSource;
    dbgrdProfile: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    dbedtID: TDBEdit;
    Label2: TLabel;
    dbedtFullName: TDBEdit;
    Label3: TLabel;
    dbedtAddress: TDBEdit;
    Label4: TLabel;
    dbedtBirthday: TDBEdit;
    dbcbxMale: TDBCheckBox;
    dbcbxPet: TDBCheckBox;
    btnAddData: TButton;
    btnDelete: TButton;
    btnSave: TButton;
    btnNext: TButton;
    btnPrior: TButton;
    btnCancel: TButton;
    procedure btnAddDataClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnPriorClick(Sender: TObject);
    procedure btnNextClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  frmProfileDB: TfrmProfileDB;

implementation

{$R *.dfm}

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

procedure TfrmProfileDB.btnCancelClick(Sender: TObject);
begin
  sdsProfile.Cancel;
end;

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

procedure TfrmProfileDB.btnSaveClick(Sender: TObject);
begin
  sdsProfile.ApplyUpdates(-1);
end;

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

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

end.

記述したら、保存して実行します。ツールバーの[すべて保存]ボタンをクリックします。次にツールバーの[実行]ボタンをクリックして、実行します。適当に変更したあと、[キャンセル(C)]ボタンをクリックして、[保存(S)]ボタンをクリックしてアンケートプログラムを1度終了します。もう1度[実行]ボタンでデータに変化がないことを確認します。