物件:TMemo.TButton.TQuery.TDBGrid 如何在 Memo 上輸入 SQL 語法之後按下 Button 即可告知 TQuery 我所輸入的 SQL,並將結果 show 在 DBGrid 上呢?

多拉一個 TDataSource 元件, 假設它的 Name 屬性為 DataSource1

procedure TForm1.Butt1onClick(Sender: TObject);
begin
  DataSource1.DataSet := Query1;
  DBGrid1.DataSource := DataSource1;
  Query1.Close;
  Query1.SQL.Assign(Memo1.Lines);
  Query1.Open;
end;

-- 向 KTop 的弟兄們致敬!

Hi kate0921,    少了一個 TDataSource TDataSource.DataSet = TQuery; DBGrid.DataSource = TDataSource;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Assign(Memo1.Lines);
  Query1.Open;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

相當感謝兩位前輩在這麼快的時間為我解決問題~~ 因為 fishman 大大 昨天也回答過我問題 為了感謝您這麼熱心再度為我解決 所以給您得分，但也很感謝 hagar 在第一時間就給我幫助了