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;