vw_mrp_p.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Mrp_p.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Mrp_p *frmVW_Mrp_p;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Mrp_p::TfrmVW_Mrp_p(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 sgMrp->RowCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_p::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Mrp_p::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_Mrp_p::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_p::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_p::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_p::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_p::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_p::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Mrp_p::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =" select MrpGoods,GoodsName,MrpdRDate,MrpdQty ";
 Fromstr=" from SDVW_Mrp_p ";
 Wherestr="";
 if(FilterStr!="")
  Wherestr=" where "+FilterStr;
 Orderstr=" order by MrpdRDate,MrpGoods";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_p::FillGridWithData()
{
  TComResultSet *RsQuery;
  AnsiString ItemStr,sSql;
 //获取查询语句
  sSql=GetQueryStr();
  if(sSql=="")
    return;
  sgMrp->RowCount=1;
  RsQuery=NewResultSet();
  try
  {
    RsQuery->Open(sSql,"");
    RsQuery->MoveFirst();
    while( RsQuery->Eof == 0)
    {
      ItemStr=     RsQuery->FieldByName("MrpdRDate")+
          "\t"+RsQuery->FieldByName("MrpGoods" )+
          "\t"+RsQuery->FieldByName("GoodsName")+
          "\t"+RsQuery->FieldByName("MrpdQty"  );
      sgMrp->AddItem(ItemStr);
      RsQuery->MoveNext();
    }
    RsQuery->Close();
  }
  __finally
  {
    delete RsQuery;
  }
}
//---------------------------------------------------------------------------


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

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

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

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

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

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

void __fastcall TfrmVW_Mrp_p::tbGenDetailClick(TObject *Sender)
{
 if ( Application->MessageBox("确定要重新生成采购计划吗？","系统提示",MB_YESNO) == IDYES)
 {
  Generate(2);
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_p::Generate(int iType)
{
    AnsiString sSQL;
    TComResultSet *RsQuery=NewResultSet();
    try
    {
      StartWaitForm("正在生成采购计划...");
      sSQL=" EXEC sdBplan_AutoCreate "+AnsiString(iType)+",'"+g_sdUserCode+"'";
      RsQuery->Execute(sSQL);
    }
    __finally
    {
      delete RsQuery;
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------