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;