vw_mrp_m.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 141 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "VW_Mrp_m.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmVW_Mrp_m *frmVW_Mrp_m;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Mrp_m::TfrmVW_Mrp_m(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  FilterStr="";
  sSQL="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_m::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_m::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_m::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_m::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_m::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_m::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_m::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Mrp_m::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =" select MrpGoods,GoodsName,MrpdRDate,MrpdQty ";
 Fromstr=" from SDVW_Mrp ";
 Wherestr=" where MrpFrom=2 and MrpdType=6 and MrpdQty>0 ";
 if(FilterStr!="")
  Wherestr+=" and "+FilterStr;
 Orderstr=" order by MrpdRDate,MrpGoods";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mrp_m::FillGridWithData()
{
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgMrp->RowCount=1;
 TComResultSet *RsQuery;
 RsQuery=new TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(WideString(sSql),WideString(""));
 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();
}
//---------------------------------------------------------------------------


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

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

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

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

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

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