delphi kbmmemsql 查询

kbmmemsql 查询
procedure TForm6.btn8Click(Sender: TObject);
begin
//通过kbmmemsql查询

 ds1.DataSet := kbmsql1;
 cxGrid1DBTableView1.DataController.DataSource := ds1;
 try
    kbmsql1.Tables.Clear;
    kbmsql1.DisableControls;
    kbmsql1.Tables.Add('table1', kbmtbl1);
    kbmsql1.ExecSQL('select * from table1 where Id=1');
 finally
    kbmsql1.EnableControls;
 end;
 ds1.DataSet := kbmsql1;

end;