ITPub博客

首页 > 数据库 > 数据库开发技术 > 对DBGrid 的巧妙用法实现查询 (转)

对DBGrid 的巧妙用法实现查询 (转)

原创 数据库开发技术 作者:amyz 时间:2007-10-29 08:30:23 0 删除 编辑
对DBGrid 的巧妙用法实现查询 (转)[@more@]

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;iRecordCount;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();
}


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-979276/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7338473