前提・実現したいこと
DelphiでMySQLのデータを検索する機能を作っています。
検索結果を出力した後に、画面を閉じ、再度画面を開いた際に、前回の検索結果が表示される状態にしたいと思っています。
どの点に着目して、どういう設定にすればいいのかご教授頂けたらと思います。
プロシージャ内のソースコードが怪しいのか、プロパティなどか、データモジュール側なのか。
その他など。
該当のソースコード
Delphi
1// 表示初期化 2procedure Tfrmitems2.FormShow(Sender: TObject); 3var 4 strSQL : String; 5begin 6 DataModuleitems.openModule; 7 8 strSQL := 'select 省略'; 9 with DataModuleitems.FDQmitem_list2 do 10 begin 11 SQL.Text := strSQL; 12 Active := False; 13 Active := True; 14 end; 15 16end; 17 18 19// 検索 20procedure Tfrmitems2.FrmBtn41btnsrchClick(Sender: TObject); 21var 22 strSQL1 : String; 23 strSQL2 : String; 24begin 25 FrmBtn41.btnsrchClick(Sender); 26 27 strSQL1 := 'select 省略 ' 28 strSQL2 := '省略'; 29 30 strSQL1 := strSQL1 + strSQL2 + ' order by 省略'; 31 with DataModuleitems.FDQmitem_list2 do 32 begin 33 SQL.Text := strSQL1; 34 Active := False; 35 Active := True; 36 end; 37 38end; 39 40// 閉じる 41procedure Tfrmitems2.FormClose(Sender: TObject; 42 var Action: TCloseAction); 43begin 44 DataModulePickitems.closeModule; 45end; 46 47
試したこと
上記の仕様が出来ているフレームがあり、そちらと見比べて、表示初期化、検索、クローズのソースコード、プロパティ、イベントなどを一通り見比べて修正デバッグ実行を試したのですが、上手くいきませんでした。
補足情報(FW/ツールのバージョンなど)
Embarcadero® Delphi 10.1 Berlin
<追記1>
検索フレームのソースコード、表示、検索、閉じるを追記。必要ない箇所はかなり簡略化しました。
SQL文とデータベース側は問題ないかと思われるのでテーブル情報は一先ず置いておいきます。
<追記2>
簡略化したコードを眺めて気づいたのですが、DataModuleitems.FDQmitem_list2に検索でSQL文を埋めた後、再表示すると元のSQL文をまた再表示してしまってることに気づきました。テーブルを別々にして試してみようと思います。
⇒データクエリを二つ作ってみたのですが、表示するグリッドを一つにしたいので断念しました。
回答2件
あなたの回答
tips
プレビュー