SQLDELPHIDataSet
调试运行这个程序时,点击调用其中一个窗体,程序立即终止,提示:编译器遇到一个未知错误。procedure TinForm.FormShow(Sender: TObject);
begin
with self.SimpleDataSet1 do
begin
SimpleDataSet1.Active:=false;
SimpleDataSet1.DataSet.CommandText:='select wint.orderid,it.productname,sut.suppliername,wint.model,wint.unit,wint.unitprice,wint.amount,stt.storagename,wint.cost,wint.username,wint.indate,wint.remark '+' from warehousein_table wint,inventory_table it,supplier_table sut,storage_table stt where wint.productid=it.productid and wint.supplierid=sut.supplierid and wint.storageid=stt.storageid';
SimpleDataSet1.Active:=true;
end;
end;