void __fastcall TForm1::dbGrid2DblClick(Tobject *Sender)
{
// INGOODS‘ 是进货表
int sumno=0,i;
INGOODS->Edit();
AnsiString thisgoodsname;
DBGrid2->selectedIndex=1;
thisgoodsname=DBGrid2->SelectedField->Value;
(thisgoodsname);
//
Query2->Close();
Query2->sql->Clear();
Query2->DatabaseName=".";
Query2->SQL->Add("Select * from INGOODS");
Query2->SQL->Add("where GOODSNAME=+thisgoodsname+");
Query2->Prepare();
Query2->Open();
for(i=0;i
sumno+=Query2->FieldByName("INGOODSNO")->AsInteger;
Query2->Next();
}
Form4=new TForm4(this);
Form4->DBText1->Datasource=DataSource1;
Form4->DBText1->DataField="ID";
Form4->DBText2->DataSource=DataSource1;
Form4->DBText2->DataField="GOODSNAME";
Form4->DBText3->DataSource=DataSource1;
Form4->DBText3->DataField="CLASS";
Form4->DBText4->DataSource=DataSource1;
Form4->DBText4->DataField="THENMAN";
Form4->Label5->Caption="最近出货时间： ";
Form4->DBText5->DataSource=DataSource1;
Form4->DBText5->DataField="LASTTIME";
Form4->Label6->Caption="现总销售量：";
>DBText6->DataSource=DataSource1;
>DBText6->DataField="THISGOODSNO";
Form4->Label7->Caption=IntToStr(sumno);
>Edit2->Text=
Form4->Show();
}
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10748419/viewspace-1008536/ ，如需转载，请注明出处，否则将追究法律责任。
