vw_macc.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Macc.h"
#include "VW_MaccBatch.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmVW_Macc *frmVW_Macc;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Macc::TfrmVW_Macc(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 sgMacc->RowCount=1;
 QueryGrid=sgMacc;
}
//---------------------------------------------------------------------------
__fastcall TfrmVW_Macc::TfrmVW_Macc(TComponent* Owner,AnsiString wherestr)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 sgMacc->RowCount=1;
 QueryGrid=sgMacc;

 tbControl->Enabled=false;
 TBorderIcons tempBI = BorderIcons;
 tempBI >> biMinimize;
 BorderIcons = tempBI;
 FilterStr=wherestr;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Macc::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =" select MaccFmonth,MaccGoods goods,goodsname=isnull((select GoodsName from sdGoods where goodscode=Maccgoods),''),LocName loc,MaccBoyQty,MaccBopQty,MaccIopQty,MaccSopQty,MaccAoyQty,";
 Selectstr+=" MaccIoyQty,MaccSoyQty,MaccPopQty,MaccLopQty,MaccDopQty,MaccRopQty,MaccFopQty ";
 Fromstr=" from SDVW_macc ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by MaccFmonth desc,MaccLoc,MaccGoods ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgMacc->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("MaccFmonth")+
          "\t"+RsQuery->FieldByName("Loc"       )+
          "\t"+RsQuery->FieldByName("goods"     )+
          "\t"+RsQuery->FieldByName("goodsname" )+ 
          "\t"+RsQuery->FieldByName("MaccBopQty")+
          "\t"+RsQuery->FieldByName("MaccIopQty")+
          "\t"+RsQuery->FieldByName("MaccSopQty")+
          "\t"+RsQuery->FieldByName("MaccPopQty")+
          "\t"+RsQuery->FieldByName("MaccLopQty")+
          "\t"+RsQuery->FieldByName("MaccDopQty")+
          "\t"+RsQuery->FieldByName("MaccRopQty")+
          "\t"+RsQuery->FieldByName("MaccFopQty")+
          "\t"+RsQuery->FieldByName("MaccBoyQty")+
          "\t"+RsQuery->FieldByName("MaccIoyQty")+
          "\t"+RsQuery->FieldByName("MaccSoyQty")+
          "\t"+RsQuery->FieldByName("MaccAoyQty");
  sgMacc->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------


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

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

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

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

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

}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Macc::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgMacc->RowCount < 2 || sgMacc->Row == 0 )    //当前行无效
  return("");

 Selectstr="select BthtBatch,BthtLoc,BthtBoyQty,BthtBopQty,BthtIopQty,BthtOopQty,BthtIoyQty,BthtOoyQty,BthtAoyQty"  ;
 Fromstr=" from sdBtht ";

 Wherestr=" where BthtGoods='"+sgMacc->Cells[2][sgMacc->Row]+"' and BthtFmonth='"+sgMacc->Cells[0][sgMacc->Row]+"'";

 Orderstr=" order by BthtBatch,BthtLoc ";
 

 return(Selectstr+Fromstr+Wherestr+Orderstr);
}

//---------------------------------------------------------------------------------
void __fastcall TfrmVW_Macc::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString l_pgtype;
 AnsiString ItemStr,sSql;
 TfrmVW_MaccBatch *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_MaccBatch(this);
  p->lblGoodsCode->Caption=sgMacc->Cells[2][sgMacc->Row];
  p->lblGoodsName->Caption=sgMacc->Cells[3][sgMacc->Row];
  p->lblFmonth->Caption   =sgMacc->Cells[0][sgMacc->Row];

  p->sgMaccBatch->RowCount=1;
  RsQuery=new TComResultSet(Handle,g_ClientHandle);;
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {

      ItemStr= RsQuery->FieldByName("BthtBatch")+   //批号
       "\t"+RsQuery->FieldByName("BthtLoc")+      //货位
       "\t"+RsQuery->FieldByName("BthtBoyQty")+
       "\t"+RsQuery->FieldByName("BthtBopQty")+
       "\t"+RsQuery->FieldByName("BthtIopQty")+      //入库数量
       "\t"+RsQuery->FieldByName("BthtOopQty")+ //来源单号
       "\t"+RsQuery->FieldByName("BthtIoyQty")+
       "\t"+RsQuery->FieldByName("BthtOoyQty")+
       "\t"+RsQuery->FieldByName("BthtAoyQty"); //来源行号  */



   p->sgMaccBatch->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgMaccBatch->RowCount >=1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}


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


void __fastcall TfrmVW_Macc::sgMaccDblClick(TObject *Sender)
{
int ARow=sgMacc->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
  }
}
//---------------------------------------------------------------------------