vw_argl.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Argl.h"
#include "VW_Arcl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmVW_Argl *frmVW_Argl;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Argl::TfrmVW_Argl(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgArgl->RowCount=1;
 QueryGrid=sgArgl;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::tbQueryClick(TObject *Sender)
{
 // if(!ShowQueryWindow())
  //  return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Argl::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select "
          +AnsiString("ArglFmonth, ")          //月份
          +AnsiString("ArglClient, ")          //客户
          +AnsiString("ClientName, ")
          +AnsiString("ArglBoyAmt, ")          //年初金额
          +AnsiString("ArglBopAmt, ")          //期初金额
          +AnsiString("ArglIopAmt, ")          //本期发生额
          +AnsiString("ArglOopAmt, ")          //本期收款额
          +AnsiString("ArglIoyAmt, ")          //本年发生额
          +AnsiString("ArglOoyAmt, ")          //本年收款额
          +AnsiString("ArglAoyAmt ");          //本年累计
 Fromstr=" from SDVW_Argl ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by ArglFmonth desc,ArglClient ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgArgl->RowCount=1;
 LateBillCode="";
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("ArglFmonth")+
          "\t"+RsQuery->FieldByName("ArglClient")+
          "\t"+RsQuery->FieldByName("ClientName")+
          "\t"+RsQuery->FieldByName("ArglBopAmt")+
          "\t"+RsQuery->FieldByName("ArglIopAmt")+
          "\t"+RsQuery->FieldByName("ArglOopAmt")+
          "\t"+RsQuery->FieldByName("ArglBoyAmt")+
          "\t"+RsQuery->FieldByName("ArglIoyAmt")+
          "\t"+RsQuery->FieldByName("ArglOoyAmt")+
          "\t"+RsQuery->FieldByName("ArglAoyAmt");
  sgArgl->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Argl::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 return("");
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::muFirstClick(TObject *Sender)
{
 if(sgArgl->RowCount > 1)
 {
  sgArgl->Row=1;
 }

}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::tbPreviousClick(TObject *Sender)
{
 if(sgArgl->RowCount > 1 && sgArgl->Row > 1)
 {
  sgArgl->Row=sgArgl->Row-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::muNextClick(TObject *Sender)
{
 if(sgArgl->RowCount > 1 && sgArgl->Row < sgArgl->RowCount-1)
 {
  sgArgl->Row=sgArgl->Row+1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::muLastClick(TObject *Sender)
{
 if(sgArgl->RowCount > 1)
 {
  sgArgl->Row=sgArgl->RowCount-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Argl::sgArglDblClick(TObject *Sender)
{
 int ARow;
 AnsiString stmp;
 ARow=sgArgl->Row;
 if(ARow < 1)
  return;
 TfrmVW_Arcl *p;
 try
 {
    StartWaitForm("正在启动应收货币账查询,请稍候...");
    stmp=" ArclFmonth='"+sgArgl->Cells[0][ARow]+"' and ArclClient='"+sgArgl->Cells[1][ARow]+"'";
    p=new TfrmVW_Arcl(this,stmp);
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;
}
//---------------------------------------------------------------------------