データベースはコンポーネントのメソッドを使って操作したんだけど、SQLはどうやるんですか。教えて、高橋先生！

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

Hide image

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

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

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

プロジェクトがうまく開けたら、コンポーネントを入れ替えます。入れ替えるのは「住所」と「性別」のコンポーネントです。まず、dbedtAddressコンポーネントとdbcbxMaleコンポーネントを削除します。次に、新しいコンポーネントを配置します。画面右下のツールパレットの「Data Controls」カテゴリで「TDBComboBox」を１つ、「住所」のdbedtAddressコンポーネントがあった場所に配置します。それから、「Data Controls」カテゴリの「TDBRadioGroup」を1つ、フォームの右上に配置します。

Hide image

図02 コンポーネントの配置

コンポーネントが配置できたらプロパティを設定します。データとリンクさせるプロパティは、「DataSource」プロパティと「DataField」プロパティです。DBComboBox1を選択して画面左下のオブジェクトインスペクタ、プロパティページで、「データベース」カテゴリの「DataSource」に「DataSource1」を設定します。次に「データベース」カテゴリの「DataField」に、「ADDRESS」を選択します。同様にしてDBRadioGroup1の「DataSource」に「DataSource1」、「DataField」に「MALE」を設定します。ついでにNameプロパティも設定しておきます。

DBComboBox1

DBRadioGroup1

続いてdbcmbAddressコンポーネントの住所を一覧にするために「Items」プロパティを設定します。Itemsプロパティは通常のコンボボックスと同様に設定できます。「ローカライズ対象」カテゴリの「Items」プロパティで「…」ダイアログボタンをクリックして、近郊県名を入力します。

Hide image

図03 文字列リストの設定

dbrgpMaleコンポーネントの「Items」プロパティには、「男性」と「女性」と入力します。前回sdsProfileシンプルデータセットコンポーネントの「DisplayLabel」プロパティに「男性；女性」のように設定したので、男性の場合はTrue、女性の場合はFalseがデータベースに代入できるんですって。ついでにCaptionプロパティも設定します。

dbcmbAddress

dbrgpMale

プロパティが設定できたら、[追加(A)]ボタンをクリックしたときに初期値を代入できるようにするんだったわね。

初期値をセットするイベントハンドラを作ります。sdsProfileコンポーネントの「OnNewRecord」イベントでフィールドに初期値を設定します。sdsProfileコンポーネントを選択して、オブジェクトインスペクタ、イベントページで「その他」カテゴリの「OnNewRecord」イベントをダブルクリックします。

procedure TfrmProfileDB.sdsProfileNewRecord(DataSet: TDataSet);
begin
  sdsProfileMALE.Value := True;
  sdsProfilePET.Value := False;
end;

「性別」を右に移したので、調整して整えます。それからタブ順序を設定するんでしたよね？

では、タブ順序の設定をします。画面をフォームデザイナに切り替えて、パネルの上でマウスの右ボタンをクリックします。ショートカットメニューから「タブ順序(O)...」を選択します。「タブ順序の設定」ダイアログボックスで、コントロールの順序を、フォームの左上から順になるように変更します。

Hide image

図04 タブ順序

マウスでドラッグするか、矢印ボタンを使って、図05のように順序を変更します。

Hide image

図05タブ順序の設定

できたら、保存して実行します。ツールバーの[すべて保存]ボタンをクリックします。次にツールバーの[実行]ボタンをクリックして、実行します。いくつかデータを追加してみます。少しは入力しやすくなりましたね。

Hide image

図06 データの更新

さあ、いよいよSQLね。SQLって何の略だったっけ？SQLを使うとテーブルみたいなものができるんだったような気がするわ。教えて、高橋先生！

SELECT * FROM PROFILE

SQL文を設定してみます。フォームデザイナの画面に戻して、sdsPrifileを選択します。そしてプロパティページ、「その他」カテゴリのActiveプロパティをFalseにしておきます。「データベース」カテゴリの「DataSet」で[+]をクリックして展開します。CommandTypeプロパティを「ctQuery」にします。次にCommandTextプロパティで「…」(ダイアログボタン)をクリックして以下の文を記述します。

SELECT * FROM PROFILE

記述できたら、「その他」カテゴリのActiveプロパティをTrueに戻して、エラーが出ないか確認します。エラーが出たら、CommandTextプロパティを確認します。

SQLを使ってみたんだけど、変化がないからなんだか実感がわかないな。

SELECT * FROM PROFILE ORDER BY 並べ替えのキーにしたいフィールド名

では、並べ替えのコンボボックスを作ります。ツールパレット、「Standard」カテゴリの「TLabel」と「TComboBox」を選択して、「性別」ラジオグループコンポーネントの下辺りに配置します。配置できたらプロパティを設定します。TLabelはCaptionプロパティを、TComboBoxは「Name」プロパティと「Style」プロパティ、「Items」プロパティを設定します。Itemsプロパティは1つのフィールドを１行に記述します。

TLabel

TComboBox

プロパティが設定できたら、イベントハンドラを作成します。コンボボックスの値が変更されたときのイベント「OnChange」イベントに作成します。cmbSortを選択して、イベントページ、「その他」カテゴリの「OnChange」イベントをダブルクリックします。コードでは、まず、sdsProfileコンポーネントのActiveプロパティをFalseに設定して、閉じます。

次にCommandTextプロパティにSQLを記述してから、ActiveプロパティをTrueにして開きなおします。太字部分を追加します。

procedure TfrmProfileDB.cmbSortChange(Sender: TObject);
begin
  sdsProfile.Active := False;
  sdsProfile.DataSet.CommandText :=
    'SELECT * FROM PROFILE ORDER BY ' + cmbSort.Text;
  sdsProfile.Active := True;
end;

できたら保存して実行します。ツールバーの[すべて保存]ボタンをクリックしてから、[実行]ボタンをクリックします。cmbSortコンポーネントで選択するフィールドを変更すると並び順が変化するのを確認します。

Hide image

図07 並べ替え

SQL文で並べ替えができちゃいました。ORDER BY句にフィールド名を入力するだけだったわ。次はどんなSQL文が出てくるかな？教えて、高橋先生！

新しいフォームを作成します。メニューバーから「ファイル(F)|新規作成(N)」サブメニューで「フォーム - Delphi for Win32(E)」をクリックします。サイズが小さいので少し広げます。高さが大体「400」くらい幅が「350」くらいでいいです。フォームのプロパティも設定しておきます。表を参考にしてプロパティを設定します。ここではフォーム名を「Form1」として説明しますが、手順によっては「Form2」や「Form3」になる場合があります。

Form1フォーム

フォームができたら、コンポーネントを配置します。メインフォームの上部と似た感じにしたいのですがデータベースと関連付けるわけではないので、通常のエディットなどを使用します。フォームの上にTLabelコンポーネントを6個、TEditを2個、TComboBoxを3個、TMaskEditを1個、TButtonを2個配置します。ツールパレットの「Standard」カテゴリで「TLabel」をクリックして、フォームの左上から順に6つ配置します。名前はLabel1から設定していきますが、名前ではなくて上からの順を優先してプロパティを設定します。

Label1ラベル

Label2ラベル

Label3ラベル

Label4ラベル

Label5ラベル

Label6ラベル

次に、入力用のコンポーネントを配置します。「ID」と「名前」の右側に、「TEdit」をひとつずつ配置します。ツールパレットの「Standard」カテゴリで「TEdit」をクリックします。「ID」ラベルの右側に1つ、「名前」ラベルの右側に1つをそれぞれ配置します。「住所」と「性別」、「ペット」の右側には「TComboBox」を配置します。編集用のメインフォームではチェックボックスや、ラジオグループを使っていましたが、チェックボックスでは選択していない状態がわかりにくく、ラジオグループではスペースが必要ということで、ここではコンボボックスにしています。「Standard」カテゴリで「TComboBox」をクリックして、「住所」ラベル、「性別」ラベル、「ペット」ラベルの右側に１つずつ配置します。「誕生日」の右には「TMaskEdit」を配置します。「Additional」カテゴリで「TMaskEdit」をクリックします。「誕生日」ラベルの右側に配置します。最後に「TButton」コンポーネントを２つ配置します。「Standard」カテゴリで「TButton」を選択して、フォームの下部に左右に並べて配置します。

配置が完了したら、プロパティを設定します。NameプロパティとTextプロパティからはじめます。表を参考にして設定します。

Edit1(IDエディット)

Edit2(名前エディット)

ComboBox1(住所コンボボックス)

MaskEdit1(誕生日マスクエディット)

ComboBox2(性別コンボボックス)

ComboBox3(ペットコンボボックス)

設定できたら、そのほかのプロパティも設定します。コンボボックスの「Items」プロパティで選択項目を入力します。「cmbMale」と「cmbPet」のコンボボックスは「Style」プロパティで「csDropDownList」も設定して一覧以外から選択できないようにします。

cmbAddress(住所コンボボックス)

cmbMale(性別コンボボックス)

cmbPet(ペットコンボボックス)

誕生日のマスクエディットには年と月が入るようにします。年は西暦4桁を使用します。また、マスク文字を「文字列として保存」のチェックをはずして、何も入力されていないときには「''」(長さ0の文字列)となるようにします。

edtBirthday(誕生日マスクエディット)

さらに異なる条件文を持たせるので、その説明をラベルに追加します。ツールパレットの「Standard」カテゴリで「TLabel」を選択して、名前と誕生日の右横に1つずつラベルを配置します。配置できたらCaptionプロパティを設定します。

Label7ラベル

Label8ラベル

Hide image

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

ボタンコンポーネントは「Name」プロパティと「Caption」プロパティ、「Default」プロパティ、「Cancel」プロパティを設定します。以前ダイアログボックスを作成して、「ShowModal」メソッドでこのフォームを開いたとき、戻り値としてフォームの「ModalResult」プロパティにどのボタンが押されたのかをセットすることができました。そのときは、コードで「ModalResult」プロパティの値を代入していましたが、ボタンのプロパティでもセットできます。ボタンにも「ModalResult」プロパティがあって、ボタンをクリックしたときここにセットした値が、フォームの「ModalResult」プロパティになります。

Button1(OKボタン)

Button2(Cancelボタン)

これで検索条件のフォームが作成できました。保存しておきましょう。[ツールバーのすべて保存]ボタンをクリックして保存します。ユニット名は「FormSelect」にします。

Hide image

図09 検索条件フォーム

ここに入力した値をもとに抽出をするんですよね。いよいよ「WHERE」句の登場！教えて、高橋先生！

SELECT * FROM PROFILE WHERE ID = 2

SELECT * FROM PROFILE WHERE ID = + edtID.Text

SELECT * FROM PROFILE WHERE フィールド名 LIKE '任意の文字列%'

SELECT * FROM PROFILE WHERE (BIRTHDAY >= '1970/10/01')

SELECT * FROM PROFILE WHERE BIRTHDAY >= edtBirthday.Text + '/01'

まずは、抽出条件のフォームを表示するためのボタンをメインフォームに追加します。ついでに抽出を解除するボタンもつけておきます。

画面上部のタブで「FormProfileDB」を探してクリックします。フォームデザイナの画面でなければ切り替えておきます。ツールパレットの「Standard」カテゴリで「TButton」をクリックして、フォームの並べ替えコンボボックスの下に配置します。隣にもう1つボタンを配置します。NameプロパティとCaptionプロパティを設定します。表を参考にして設定します。

Button1(検索ボタン)

Button2(検索解除ボタン)

ボタンができたら、さっき作ったフォームをuses節に加えます。[ファイル(F)|ユニットを使う(U)...]で表示される「ユニットの使用」ダイアログボックスで「FormSelect」を選択して[OK]ボタンをクリックします。

イベントを作ります。btnSelectコンポーネントを選択して、イベントページの「入力」カテゴリで「OnClick」を探して、ダブルクリックします。コードエディタに切り替わったら、変数を宣言します。「begin」の前にvar節を置いて、「s」という変数名をstring型で宣言します。太字部分を追加します。

procedure TfrmProfileDB.btnSelectClick(Sender: TObject);
var
  s : string;
begin

end;

次に、検索条件フォームを開いて、「ModalResult」が「mrOK」かどうかのif文を作ります。if文の中は複数文あるので「begin」と「end;」でくくっておきます。また変数sに初期値として「''」(長さ0の文字列)を代入しておきます。太字部分を追加します。

procedure TfrmProfileDB.btnSelectClick(Sender: TObject);
var
  s : string;
begin
  s := '';
  frmSelect.ShowModal;
  if frmSelect.ModalResult = mrOk then
  begin

  end;
end;

変数sに代入する値を確認します。まずIDからチェックします。もしもedtIDに値が入っていれば、sに条件文「(ID = edtID.Text)」を代入します。

if frmSelect.edtID.Text <> '' then
  s := '(ID = ' + frmSelect.edtID.Text + ')';

このような文になります。

次は名前です。名前の前にIDの条件文が入っているとき、「AND」でつなげる必要があります。この後登場する項目すべてにつける必要があります。

if s <> '' then
  s := ' AND ';

名前の条件を設定する場合に、名前を「'」(シングルコーテーション)で囲む必要があります。文字列の中に「'」を代入するときは「''」(シングルコーテーション2つ)を入れると文字列の中に記号が埋め込まれるんですって。それからパターン検索のため「'」で囲んだ中の末尾に「%」も加えます。

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;

次の誕生日は末尾に「/01」を足してその日付以上かどうかを調べます。

if frmSelect.edtBirthday.Text <> '' then
begin
  if s <> '' then
    s := s + ' AND ';
  s := s + '(BIRTHDAY >= ''' + frmSelect. edtBirthday.Text + ''')';
end;

性別は男性のとき「TRUE」、女性のとき「FALSE」を代入するので、条件文は「'男性'」か「'女性'」かをそれぞれチェックします。

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;

s変数に値が入ったらsdsProfileのActiveプロパティをFalseにして閉じてから、「CommandText」プロパティにSQL文を代入します。文字列「'SELECT * FROM PROFILE WHERE '」にs変数を結合するとSQL文が完成します。次にsdsProfileのActiveプロパティをTrueにして、SQL文を実行します。すべての文をつなげると以下のようになります。太字部分を記述します。

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.edtBirthday.Text <> '' then
    begin
      if s <> '' then
        s := s + ' AND ';
      s := s + '(BIRTHDAY >= ''' + frmSelect. edtBirthday.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 :=
     'SELECT * FROM PROFILE WHERE ' + s;
    sdsProfile.Active := True;
  end;
end;

ふう。長かったですね。もう1つ「検索解除」ボタンも作ります。btnKaijoコンポーネントを選択して、イベントページの「入力」カテゴリで「OnClick」を探して、ダブルクリックします。コードエディタに切り替わったら、sdsProfileのCommandTextプロパティを元の状態に戻します。太字部分を追加します。

procedure TfrmProfileDB.btnKaijoClick(Sender: TObject);
begin
  sdsProfile.Active := False;
  sdsProfile.DataSet.CommandText := 'SELECT * FROM PROFILE';
  sdsProfile.Active := True;
end;

記述できたら、保存して実行してみます。ツールバーの[すべて保存] ボタンで保存して、[実行]ボタンで実行テストします。実行テストではいろいろな検索をしてみてください。検索を確かめるために、データを追加してもいいですよ。

Hide image

図10 完成図

Hide image

図11 検索結果