たけ(tk)です

[mysql 08507] Re: Delphi+Mysql で Jpegを登録 にて
takuma watanabe <takuma@xxxxxxxxxx> さん曰く:

> > ソートを掛けた並びのキーのデータセットを取得する方法ではどうでしょうか？
> すみません。どのような内容かがいまいち理解できずにいます(^^;;
> もう少し詳しく教えていただけませんか？

あ、う、う。たけ(tk)が使っているのはApollo（DelphiをRubyでラップしたもの）
なので……、うまく説明できるかな。Delphiに直すとすると……

CalcField の作り方はご存じですか？ ご存じだとして……。

（１）queryを２個（キー用とデータ用）用意しておいて、

（２）データ用のquery2のsqlには'select * from USER where USERID = :key' 
をセットしておきます。

（３）キー用のquery1をグリッドに結びつけます。

（４）キー用のquery1にキー項目以外の項目を CalcField として追加します。

（５）キー用のquery1でOnCalcField を定義して、次のようにします。データ用
のquery2を開いて、そこからデータをコピーします。

procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
  Query2.params['key'].AsString := Query1['USERID'].AsString;
  Query2.open;
  Query1['USER_KIND'].AsInteger := Query2['USER_KIND'].asInteger;
  Query1['USERNAME'].AsString := Query2['USERNAME'].asString;
  //  …… 必要な項目をコピーする ……
  Query2.close;
end;

（６）キー用のquery1のsqlは次のようにします。

'select USERID from USER orderby USERNAME'

（７）これでquery1をopenすれば、グリッドに USERNAME 順で表示されるのでは
ないかと思います。

----

＊　Apolloではこんな感じ（↓）でうまくいっています。

  def new_datset_grid( info )
    // TQuery.create に相当。
    dataset = info.new_query
    // キー項目名
    key_field_name = info.key_field_name
    // キー項目以外の項目名を保存する。
    calc_fields_data = info.field_data.select{|f| f[0] != key_field_name }
    calc_fields = calc_fields_data.collect{|f|f[0]}
    // キー取得用queryのsqlをセットする。
    dataset.sql_text_ex = "select %k from %q order by %k"
    // 計算項目を追加する。
    dataset.add_calc_fields( calc_fields_data )
    // OnCalcFields イベントハンドラをセットする。Query1CalcFields 相当。
    dataset.on_calc_fields = proc{|dataset|
      hash = info.key_select( dataset.key_value ) // Query2 に相当
      calc_fields.each{|f| dataset[f].value = hash[f] }
    }
    return dataset
  end

＊　実を言うと、DelphiでのCalcFieldの追加方法を思い出せませんデス。上で
使っている add_calc_fields では実行時に動的に追加している。

http://www.freeml.com/message/ap-ext@xxxxxxxxxx/0000007
def add_calc_field( fname, ftype, fsize, index=nil )

＊　Apolloはここ（↓）

http://www.moriq.com/apollo/index.html

take_tk = kumagai hidetake