vw_mcr.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Mcr.h"
#include "Mcrd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Mcr *frmVW_Mcr;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Mcr::TfrmVW_Mcr(TComponent* Owner, HWND chWnd, AnsiString ClassCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,ClassCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 sgMcr->RowCount=1;

 tbControl->Enabled=false;
 TBorderIcons tempBI = BorderIcons;
 tempBI >> biMinimize;
 BorderIcons = tempBI;
 FilterStr=WhereStr;
 FillGridWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::ClearControl(bool BringToNext)
{
  return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::GetDataFromComObject()
{
  return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::WaitUserInput()
{
  return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::RefreshGridData(int mAction)
{
  return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::DisplayBill()
{
  return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::GetBill(AnsiString BillID)
{
  return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::FillGridWithData()
{
  TComResultSet *RsQuery = new  TComResultSet(Handle,g_ClientHandle);
  AnsiString ItemStr,sSql;
  //获取查询语句
  sSql=GetQueryStr();
  if(sSql=="")
    return;
  sgMcr->RowCount=1;
 // RsQuery=NewResultSet();
  try
  {
    RsQuery->Open(sSql,"");
    RsQuery->MoveFirst();
    while( RsQuery->Eof == 0)
    {
      ItemStr=    RsQuery->FieldByName("McrRDate")+
         "\t"+RsQuery->FieldByName("McrGoods")+
         "\t"+RsQuery->FieldByName("GoodsName")+
         "\t"+RsQuery->FieldByName("McrRQty")+
         "\t"+RsQuery->FieldByName("McrGQty")+
         "\t"+RsQuery->FieldByName("McrPlanner");
      sgMcr->AddItem(ItemStr);
      RsQuery->MoveNext();
    }
    RsQuery->Close();
  }
  __finally
  {
    delete RsQuery;
  }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmVW_Mcr::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =" select * ";
 Fromstr=" from SDVW_Mcr ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by McrRDate,McrGoods";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }        
}
//---------------------------------------------------------------------------


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

void __fastcall TfrmVW_Mcr::muPreviousClick(TObject *Sender)
{
   if( sgMcr->Row>1)
    sgMcr->Row--;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Mcr::muNextClick(TObject *Sender)
{
   if( sgMcr->Row < sgMcr->RowCount-1)
    sgMcr->Row++;        
}
//---------------------------------------------------------------------------

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

void __fastcall TfrmVW_Mcr::sgMcrDblClick(TObject *Sender)
{
    int ARow=sgMcr->Row;
    AnsiString FGoodsCode=sgMcr->Cells[1][ARow];
    AnsiString RDate=sgMcr->Cells[0][ARow];
    if(ARow>0)
       FillDataWithDetail(FGoodsCode,RDate);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Mcr::FillDataWithDetail(AnsiString FGoodsCode,AnsiString RDate)
{
    TComResultSet *RsQuery = new  TComResultSet(Handle,g_ClientHandle);
    AnsiString ItemStr,sSql;
    TfrmMcrd *Mcrd;
    sSql=AnsiString("select McrdGoods,McrdRDate,McrdFrom,McrdRQty from sdMcrd ")+
         AnsiString("where McrdGoods='"+FGoodsCode+"' ")+
         AnsiString("and McrdRDate='"+RDate+"' order by McrdGoods");
    try
    {
      Mcrd=new TfrmMcrd(this);
      Mcrd->sgMcrd->RowCount=1;
    //  RsQuery=NewResultSet();
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         AnsiString vKeyStr;
         vKeyStr= RsQuery->FieldByName("McrdGoods");
         g_sdRsGoods->LocateByKey(WideString(vKeyStr));
         ItemStr= vKeyStr+
                  "\t"+GetGoodsValue(gtInitRs,"GoodsName")+
                  "\t"+GetGoodsValue(gtInitRs,"GoodsUnitCode")+
                  "\t"+RsQuery->FieldByName("McrdRDate");
         if(RsQuery->FieldByName("McrdFrom")=="1")
            ItemStr=ItemStr+"\t"+"主生产计划";
         else
            ItemStr=ItemStr+"\t"+"独立需求";

         ItemStr=ItemStr+"\t"+RsQuery->FieldByName("McrdRqty");
        Mcrd->sgMcrd->AddItem(ItemStr);
        RsQuery->MoveNext();
      }
      RsQuery->Close();
      if(Mcrd->sgMcrd->RowCount > 1)
        Mcrd->ShowModal();
    }
    __finally
    {
      delete RsQuery;
       delete Mcrd;
    }
}
//---------------------------------------------------------------------------




void __fastcall TfrmVW_Mcr::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();        
}
//---------------------------------------------------------------------------