vw_bdpgl.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Bdpgl.h"
#include "VW_Bdpsl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmVW_Bdpgl *frmVW_Bdpgl;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Bdpgl::TfrmVW_Bdpgl(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 //初始化
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgBdpgl->RowCount=1;
 QueryGrid=sgBdpgl;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::tbQueryClick(TObject *Sender)
{
  //if(!ShowQueryWindow())
   // return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Bdpgl::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select "
          +AnsiString("BdpglFmonth, ")         //月份
          +AnsiString("BdpglBoyAmt, ")         // 年初数
          +AnsiString("BdpglBopAmt, ")         //期初数
          +AnsiString("BdpglIopAmt, ")         //本期发生数
          +AnsiString("BdpglOopAmt, ")         //本期退回数
          +AnsiString("BdpglIoyAmt, ")         //本年发生数
          +AnsiString("BdpglOoyAmt, ")         //本年退回数
          +AnsiString("BdpglAoyAmt ");         //本年累计
 Fromstr=" from SdBdpgl ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by BdpglFmonth ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgBdpgl->RowCount=1;
 LateBillCode="";
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("BdpglFmonth")+
          "\t"+RsQuery->FieldByName("BdpglBopAmt")+
          "\t"+RsQuery->FieldByName("BdpglIopAmt")+
          "\t"+RsQuery->FieldByName("BdpglOopAmt")+
          "\t"+RsQuery->FieldByName("BdpglBoyAmt")+
          "\t"+RsQuery->FieldByName("BdpglIoyAmt")+
          "\t"+RsQuery->FieldByName("BdpglOoyAmt")+
          "\t"+RsQuery->FieldByName("BdpglAoyAmt");
  sgBdpgl->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Bdpgl::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName == "TYPE")
 {
  if(sFieldValue == "1")
   return("坏账损失");
  if(sFieldValue == "2")
   return("坏账收回");
  if(sFieldValue == "3")
   return("坏账准备记提");
 }
 return("");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Bdpgl::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgBdpgl->RowCount < 2 || sgBdpgl->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("BdpslFmonth, ")         //月份
          +AnsiString("BdpslDocType, ")        //单据类型
          +AnsiString("BdpslDocCode, ")        //单据号
          +AnsiString("BdpslDate, ")           //日期
          +AnsiString("BdpslAmt ");            //金额
 Fromstr=" from SdBdpsl ";
 Wherestr =" where BdpslFmonth='"+sgBdpgl->Cells[0][sgBdpgl->Row]+"'";
 Orderstr=" order by BdpslDate,BdpslDocType,BdpslDocCode ";
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Bdpsl *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Bdpsl(this);
  p->sgBdpsl->RowCount=1;
  RsQuery=new  TComResultSet(Handle,g_ClientHandle);
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("BdpslFmonth")+
          "\t"+DataConvert("Type",RsQuery->FieldByName("BdpslDocType"))+
          "\t"+RsQuery->FieldByName("BdpslDocCode")+
          "\t"+RsQuery->FieldByName("BdpslDate")+
          "\t"+RsQuery->FieldByName("BdpslAmt");
   p->sgBdpsl->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgBdpsl->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::muFirstClick(TObject *Sender)
{
 if(sgBdpgl->RowCount > 1)
 {
  sgBdpgl->Row=1;
 }

}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::tbPreviousClick(TObject *Sender)
{
 if(sgBdpgl->RowCount > 1 && sgBdpgl->Row > 1)
 {
  sgBdpgl->Row=sgBdpgl->Row-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::muNextClick(TObject *Sender)
{
 if(sgBdpgl->RowCount > 1 && sgBdpgl->Row < sgBdpgl->RowCount-1)
 {
  sgBdpgl->Row=sgBdpgl->Row+1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::muLastClick(TObject *Sender)
{
 if(sgBdpgl->RowCount > 1)
 {
  sgBdpgl->Row=sgBdpgl->RowCount-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpgl::sgBdpglDblClick(TObject *Sender)
{
 int ARow=sgBdpgl->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 }
}
//---------------------------------------------------------------------------