目次

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

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

図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つ、フォームの右上に配置します。

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

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

DBComboBox1

DBRadioGroup1

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

図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)...」を選択します。「タブ順序の設定」ダイアログボックスで、コントロールの順序を、フォームの左上から順になるように変更します。

図04 タブ順序

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

図05タブ順序の設定

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

図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コンポーネントで選択するフィールドを変更すると並び順が変化するのを確認します。

図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(誕生日マスクエディット)