vw_po_sum.cpp

速达开源ERP系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "VW_Po_Sum.h"
#include "VW_Poh.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Po_Sum *frmVW_Po_Sum;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Po_Sum::TfrmVW_Po_Sum(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 sgSum->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Po_Sum::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Po_Sum::ShowQueryWindow()
{
  TfrmQuForm *FQuery=new TfrmQuForm(this,this->Name);
  FQuery->ShowModal();
  if(FQuery->CancelQuery)
    return false;
  FilterStr=FQuery->CreateSqlString;
  delete FQuery;
  return true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Po_Sum::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Po_Sum::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Po_Sum::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Po_Sum::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Po_Sum::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Po_Sum::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Po_Sum::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Groupstr,Orderstr;
 Selectstr =" select PodGoods,GoodsName,PohSupply,SupplyName,";
 Selectstr+=" Qty=Sum(PodQty),Amt=Sum(PodAmt),DQty=Sum(PodDQty),RQty=Sum(PodRQty),";
 Selectstr+=" BQty=Sum(PodBQty),FQty=Sum(PodFQty),EQty=Sum(PodEQty),WQty=Sum(PodWQty)";
 Fromstr=" from SDVW_Po_Sum ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Groupstr=" group by PodGoods,GoodsName,PohSupply,SupplyName ";
 Orderstr=" order by PodGoods,PohSupply ";
 sSQL=Selectstr+Fromstr+Wherestr+Groupstr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Po_Sum::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgSum->RowCount=1;
 RsQuery=NewResultSet();
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("PodGoods")+
          "\t"+RsQuery->FieldByName("GoodsName"  )+
          "\t"+RsQuery->FieldByName("PohSupply"  )+
          "\t"+RsQuery->FieldByName("SupplyName" )+
          "\t"+RsQuery->FieldByName("Qty"        )+
          "\t"+RsQuery->FieldByName("Amt"        )+
          "\t"+RsQuery->FieldByName("DQty"       )+
          "\t"+RsQuery->FieldByName("RQty"       )+
          "\t"+RsQuery->FieldByName("BQty"       )+
          "\t"+RsQuery->FieldByName("FQty"       )+
          "\t"+RsQuery->FieldByName("EQty"       )+
          "\t"+RsQuery->FieldByName("WQty"       );
  sgSum->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------


void __fastcall TfrmVW_Po_Sum::muFirstClick(TObject *Sender)
{
 if(sgSum->RowCount > 1)
  sgSum->Row=1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Po_Sum::muPreviousClick(TObject *Sender)
{
 if(sgSum->RowCount > 1 && sgSum->Row > 1)
  sgSum->Row=sgSum->Row-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Po_Sum::muNextClick(TObject *Sender)
{
 if(sgSum->RowCount > 1 && sgSum->Row < sgSum->RowCount-1)
  sgSum->Row=sgSum->Row+1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Po_Sum::muLastClick(TObject *Sender)
{
 if(sgSum->RowCount > 1)
  sgSum->Row=sgSum->RowCount-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Po_Sum::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();

}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Po_Sum::sgSumDblClick(TObject *Sender)
{
 int ARow;
 AnsiString stmp;
 ARow=sgSum->Row;
 if(ARow < 1)
  return;
 TfrmVW_Poh *p;
 try
 {
    StartWaitForm("正在启动采购单查询,请稍候...");
    stmp=" PodGoods='"+sgSum->Cells[0][ARow]+"' and PohSupply='"+sgSum->Cells[2][ARow]+"' and PohCheck=1";
    if(FilterStr != "")
     stmp=stmp+" and "+FilterStr;
    p=new TfrmVW_Poh(this,stmp);
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;
}
//---------------------------------------------------------------------------