投稿者: nakahira

OnGetTextイベントという名前だけは知っていたが、それがどのコンポーネント（？）のイベントなのかわからなかったので使い方がどうのまで進めなかった。OnGetTextイベントはTFieldが持っている。そのTFieldはどれが持っているかというと、DataSetが持っている。そのDataSetは何かというと、様々な種類のDataSetがある。TSQLDataSetやTIBDataSetやIBQueryやIBTableなんかもデータセットとして機能する。

使い方は、

IBQuery1.Fields[4].OnGetText := OnGetText;

でイベントを設定して、

procedure TForm1.OnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
  begin

  end;

でイベント発生時の処理を記述する。

それにしても、何故これでエラーが出ずに動くのかが不明。代入にパラメータを設定していないのに。同様のことをADOQueryでやってみたらエラーが出て実パラメータが足りませんと怒られたのに。

DBGrigのmultiselectプロパティをtrueに設定してみてもマウスドラッグでマルチセレクトされないから何か他の設定方法があるのかとおもいきや、操作方法が難しいだけだった。

– Ctrl + Mouse clicks
– Shift + Arrow Keys
http://delphi.about.com/od/usedbvcl/l/aa032503a.htm

確かにこの操作方法でマルチセレクトができることは確認したけれども、覚えなきゃならないようなマルチセレクトはやってられん。パソコン初心者にこれをやってもらうことができるのか。

StringReplace関数というものがあるのか。結構探してしまったが。usesにSystem.SysUtilsを追加で使える。日付の2012/04/01を2012-04-01に変換するのに使った。

replacedValue := StringReplace(targetValue, ‘/’, ‘-‘, [rfReplaceAll]);

IBQueryやIBDatasetで開いたテーブルをそのまま表示するなら、DBGridでやれば簡単だが、select文を実行した結果のテーブルセットにちょっと手を加えようと思ったらStringGridを使うようになる。面倒だけれども

サンプルコード

var
i,r : Integer;
sql : String;

begin
  sql := 'select count(*) as rcount from item'
  IBQuery1.SQL.SetText(Pwidechar(sql));
  IBQuery1.Open;
  r := IBQuery1.FieldByName('rcount').AsInteger;

  StringGrid1.ColCount := 3;
  StringGrid1.RowCount := r + 1;
  i := 1;

  sql := 'select id,name,item_num from item';
  IBQuery1.SQL.SetText(Pwidechar(sql));
  IBQuery1.Open;
  while not IBQuery1.Eof do
  begin
    StringGrid1.Cells[0,i] := IBquery1.FieldByName('inputDate').AsString;
    StringGrid1.Cells[1,i] := IBquery1.FieldByName('acId').AsString;
    StringGrid1.Cells[2,i] := IBquery1.FieldByName('catId').AsString;
    Inc(i);
    IBQuery1.Next;
  end;

end;

感想

心配なのは速度。行数が少ないなら無視できるが、千行とか何万行とかなるとどうなるのか未知数。DBGridで表示するのも内部的には同じ処理ならいいんだけれども、わからないので不安。

ところで、TStringGridとTDBGridの違いはデータソースコンポーネントかどうかという点に気づいた。TStringGridにはDataSourceやDetaSetなどを設定するプロパティは無いので、自分で好きなように加工した文字列などを表形式に表示する場合に使うのではないだろうか。TDBGridの場合はその逆で、あまり融通がきかないような印象。SQL文を工夫するか、プロシージャなどで結果セットを作成したりして、その結果を表示するだけというような気がする。（でもないか。OnGetTextイベントやOnDrawCellイベントを使ったりすると割りと自由に加工することができるかもしれない）

IBQuery

sql:= ‘select id,itemName from item’;
IBQuery1.SQL.SetText(Pwidechar(sql));
IBQuery1.Open;

IBSQL

sql:= ‘insert into item(id,itemName) values(100,”’test”’)’;
IBSQL1.SQL.SetText(PWideChar(sql));
IBSQL1.ExecQuery;

IBDataSet

sql:= ‘select id,itemName from item’;
IBDataSet1.SelectSQL.Text := sql;
IBDataSet1.Open;

どれを使えばいいのかわからない件

IBQueryとIBDataSetはIBDataSourceのdatasetプロパティに設定をすることができる。Openプロシージャでselect文の結果セットがDBGridにバインドされる。IBSQLというのはinsertやdeleteなどのSQLを実行するコンポーネント・・・という理解でいいのだろうか。delphi XE2ではdbExpressのコンポーネントを使うことが推奨されているらしいが、それにしても似たようなコンポーネントでしかも同じような使い道ができるものが多いため戸惑う。

どうでもいいけれどfirebirdはSQL文中の文字の値はシングルクォートで囲まないといけないのか。知らなかった。

下記のページがよくまとまってある。
Databases – Delphi/Firebird – SQL