在已有的模块里,这样就可以使用astaClientDataset从数据库里取值了
with AstaClientDataSet1 do
begin
AstaClientSocket :=dm.ClientSocket ;
SQL.Text := 'select * from C_CustOrderDetail ';
Open;
endSQL:=endSQL+'C_CustOrderDetail.ID='+ AstaClientDataSet1.FieldByName('ID').AsString;
end;