16,749
社区成员
发帖
与我相关
我的任务
分享
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;