vw_arcl.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 305 行

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Arcl.h"
#include "VW_Arsl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmVW_Arcl *frmVW_Arcl;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arcl::TfrmVW_Arcl(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 PageControl1->ActivePage=TabSheet1;
 sgArcl->RowCount=1;
 sgArcl_N->RowCount=1;
}
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arcl::TfrmVW_Arcl(TComponent* Owner,AnsiString wherestr)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 PageControl1->ActivePage=TabSheet1;
 sgArcl->RowCount=1;
 sgArcl_N->RowCount=1;

 tbControl->Enabled=false;
 TBorderIcons tempBI = BorderIcons;
 tempBI >> biMinimize;
 BorderIcons = tempBI;
 FilterStr=wherestr;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::tbQueryClick(TObject *Sender)
{
  //if(!ShowQueryWindow())
   // return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Arcl::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select  "
          +AnsiString("ArclFmonth, ")          //月份
          +AnsiString("ArclClient, ")          //客户
          +AnsiString("ArclCurrency, ")        //币种
          +AnsiString("ArclBoyAmt, ")          //年初金额
          +AnsiString("ArclNBoyAmt, ")         //本币金额
          +AnsiString("ArclBopAmt, ")          //期初金额
          +AnsiString("ArclNBopAmt, ")         //本币期初金额
          +AnsiString("ArclIopAmt, ")          //本期发生额
          +AnsiString("ArclNIopAmt, ")         //本币本期发生额
          +AnsiString("ArclOopAmt, ")          //本期收款额
          +AnsiString("ArclNOopAmt, ")         //本币本期收款额
          +AnsiString("ArclIoyAmt, ")          //本年发生额
          +AnsiString("ArclNIoyAmt, ")         //本币本年发生额
          +AnsiString("ArclOoyAmt, ")          //本年收款额
          +AnsiString("ArclNOoyAmt, ")         //本币本年收款额
          +AnsiString("ArclAoyAmt, ")          //本年累计
          +AnsiString("ArclNAoyAmt ");         //本币本年累计
 Fromstr=" from SDVW_Arcl ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by ArclFmonth desc,ArclClient ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgArcl->RowCount=1;
 sgArcl_N->RowCount=1;
 LateBillCode="";
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("ArclFmonth")+
          "\t"+RsQuery->FieldByName("ArclClient")+
          "\t"+RsQuery->FieldByName("ArclCurrency")+
          "\t"+RsQuery->FieldByName("ArclBopAmt")+
          "\t"+RsQuery->FieldByName("ArclIopAmt")+
          "\t"+RsQuery->FieldByName("ArclOopAmt")+
          "\t"+RsQuery->FieldByName("ArclBoyAmt")+
          "\t"+RsQuery->FieldByName("ArclIoyAmt")+
          "\t"+RsQuery->FieldByName("ArclOoyAmt")+
          "\t"+RsQuery->FieldByName("ArclAoyAmt");
  sgArcl->AddItem(ItemStr);
  ItemStr=     RsQuery->FieldByName("ArclFmonth")+
          "\t"+RsQuery->FieldByName("ArclClient")+
          "\t"+RsQuery->FieldByName("ArclCurrency")+
          "\t"+RsQuery->FieldByName("ArclNBopAmt")+
          "\t"+RsQuery->FieldByName("ArclNIopAmt")+
          "\t"+RsQuery->FieldByName("ArclNOopAmt")+
          "\t"+RsQuery->FieldByName("ArclNBoyAmt")+
          "\t"+RsQuery->FieldByName("ArclNIoyAmt")+
          "\t"+RsQuery->FieldByName("ArclNOoyAmt")+
          "\t"+RsQuery->FieldByName("ArclNAoyAmt");
  sgArcl_N->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Arcl::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 return("");
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::muFirstClick(TObject *Sender)
{
 if(PageControl1->ActivePage == TabSheet1)
 {
   if(sgArcl->RowCount > 1)
   {
    sgArcl->Row=1;
   }
 }
 else
 {
   if(sgArcl_N->RowCount > 1)
   {
    sgArcl_N->Row=1;
   }
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::tbPreviousClick(TObject *Sender)
{
 if(PageControl1->ActivePage == TabSheet1)
 {
   if(sgArcl->RowCount > 1 && sgArcl->Row > 1)
   {
    sgArcl->Row=sgArcl->Row-1;
   }
 }
 else
 {
   if(sgArcl_N->RowCount > 1 && sgArcl_N->Row > 1)
   {
    sgArcl_N->Row=sgArcl_N->Row-1;
   }
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::muNextClick(TObject *Sender)
{
 if(PageControl1->ActivePage == TabSheet1)
 {
   if(sgArcl->RowCount > 1 && sgArcl->Row < sgArcl->RowCount-1)
   {
    sgArcl->Row=sgArcl->Row+1;
   }
 }
 else
 {
   if(sgArcl_N->RowCount > 1 && sgArcl_N->Row < sgArcl_N->RowCount-1)
   {
    sgArcl_N->Row=sgArcl_N->Row+1;
   }
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::muLastClick(TObject *Sender)
{
 if(PageControl1->ActivePage == TabSheet1)
 {
   if(sgArcl->RowCount > 1)
   {
    sgArcl->Row=sgArcl->RowCount-1;
   }
 }
 else
 {
   if(sgArcl_N->RowCount > 1)
   {
    sgArcl_N->Row=sgArcl_N->RowCount-1;
   }
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcl::sgArclClick(TObject *Sender)
{
 int ARow;
 if(PageControl1->ActivePage == TabSheet1)
 {
  ARow=sgArcl->Row;
  sgArcl_N->Row=ARow;
 }
 else
 {
  ARow=sgArcl_N->Row;
  sgArcl->Row=ARow;
 }
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Arcl::sgArclDblClick(TObject *Sender)
{
 int ARow;
 AnsiString stmp;
 if(PageControl1->ActivePage == TabSheet1)
  ARow=sgArcl->Row;
 else
  ARow=sgArcl_N->Row;
 if(ARow < 1)
  return;
 TfrmVW_Arsl *p;
 try
 {
    StartWaitForm("正在启动应收明细账查询,请稍候...");
    stmp=" ArslFmonth='"+sgArcl->Cells[0][ARow]+"' and ArslClient='"+sgArcl->Cells[1][ARow]
        +"' and ArslCurrency='"+sgArcl->Cells[2][ARow]+"'";
    p=new TfrmVW_Arsl(this,stmp);
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;

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


void __fastcall TfrmVW_Arcl::tbExportClick(TObject *Sender)
{
 if(PageControl1->ActivePage == TabSheet1)
  QueryGrid=sgArcl_N;
 else
  QueryGrid=sgArcl;
 TQueryBaseForm::tbExportClick(Sender);
}
//---------------------------------------------------------------------------