对DBGrid 的巧妙用法实现查询

最新推荐文章于 2024-05-15 07:58:00 发布

recherlau

最新推荐文章于 2024-05-15 07:58:00 发布

阅读量728

点赞数

分类专栏： BCB 文章标签： query file class

本文链接：https://blog.csdn.net/recher/article/details/14465

版权

BCB 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

void __fastcall TForm1::DBGrid2DblClick(TObject *Sender)
{
// INGOODS‘ 是进货表

int sumno=0,i;

   INGOODS->Edit();
file://-----------------------------------------------------
   AnsiString thisgoodsname;
   DBGrid2->SelectedIndex=1;
   thisgoodsname=DBGrid2->SelectedField->Value;
   file://ShowMessage(thisgoodsname);
//
file://-----------------------------------------------------
   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<Query2->RecordCount;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="现总销售量：";
   file://Form4->DBText6->DataSource=DataSource1;
   file://Form4->DBText6->DataField="THISGOODSNO";
   Form4->Label7->Caption=IntToStr(sumno);
   file://Form4->Edit2->Text=
   Form4->Show();
}