vw_arcavh.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Arcavh.h"
#include "VW_Arcavd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmVW_Arcavh *frmVW_Arcavh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arcavh::TfrmVW_Arcavh(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 //初始化
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgArcavh->RowCount=1;
 QueryGrid=sgArcavh;
}
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arcavh::TfrmVW_Arcavh(TComponent* Owner,AnsiString wherestr)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
 LateBillCode="";
 sgArcavh->RowCount=1;
 QueryGrid=sgArcavh;

 TBorderIcons tempBI = BorderIcons;
 tempBI >> biMinimize;
 BorderIcons = tempBI;

 tbControl->Enabled=false;
 FilterStr=wherestr;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::tbQueryClick(TObject *Sender)
{
  //if(!ShowQueryWindow())
   // return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Arcavh::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select "
          +AnsiString("ArcavhCode, ")          //核销单号
          +AnsiString("ArcavhDate, ")          //核销日期
          +AnsiString("ArcavhDocType, ")       //单据类型
          +AnsiString("ArcavhDocCode, ")       //来款单据号
          +AnsiString("ArcavhUser, ")          //操作员
          +AnsiString("ArcavhCheck, ")         //审核
          +AnsiString("ArcavhChecker, ")       //审核人
          +AnsiString("ArcavhCheckDate, ")     //审核日期
          +AnsiString("ArcavhDesc ");          //备注
 Fromstr=" from SdVW_Arcavh ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by ArcavhCode ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgArcavh->RowCount=1;
 LateBillCode="";
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("ArcavhCode")+
          "\t"+RsQuery->FieldByName("ArcavhDate")+
          "\t"+DataConvert("DocType",RsQuery->FieldByName("ArcavhDocType"))+
          "\t"+RsQuery->FieldByName("ArcavhDocCode")+
          "\t"+(RsQuery->FieldByName("ArcavhCheck")=="1"?"√":"")+
          "\t"+RsQuery->FieldByName("ArcavhChecker")+
          "\t"+RsQuery->FieldByName("ArcavhCheckDate")+
          "\t"+RsQuery->FieldByName("ArcavhUser")+
          "\t"+RsQuery->FieldByName("ArcavhDesc");
  sgArcavh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Arcavh::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName == "DOCTYPE")
 {
  if(sFieldValue == "1")
   return("收款单");
  if(sFieldValue == "2")
   return("预收单");
  if(sFieldValue == "3")
   return("票据");
 }
 if(sFieldName == "DDOCTYPE")
 {
  if(sFieldValue == "1")
   return("应收发票");
  if(sFieldValue == "2")
   return("其他应收单");
 }
 return("");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Arcavh::GetDetailQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(sgArcavh->RowCount < 2 || sgArcavh->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("ArcavdLine, ")          //行号
          +AnsiString("ArcavdDocType, ")       //应收单类型
          +AnsiString("ArcavdDocCode, ")       //应收单号
          +AnsiString("ArcavdDocLine, ")       //应收单行号
          +AnsiString("ArcavdConv, ")          //换算系数
          +AnsiString("ArcavdRAmt, ")          //收款金额
          +AnsiString("ArcavdCAmt, ")          //核销金额
          +AnsiString("ArcavdDesc ");          //备注

 Fromstr=" from SdVW_Arcavd ";
 Wherestr =" where ArcavdCode='"+sgArcavh->Cells[0][sgArcavh->Row]+"'";
 Orderstr=" order by ArcavdLine";
 return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::FillGridWithDetail()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmVW_Arcavd *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmVW_Arcavd(this);
  p->seCode->Text=sgArcavh->Cells[0][sgArcavh->Row];
  p->seDocCode->Text=sgArcavh->Cells[3][sgArcavh->Row];
  p->seDocType->Text=sgArcavh->Cells[2][sgArcavh->Row];
  p->sgArcavd->RowCount=1;
  RsQuery=new  TComResultSet(Handle,g_ClientHandle);
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr=    RsQuery->FieldByName("ArcavdLine")+
          "\t"+DataConvert("DDocType",RsQuery->FieldByName("ArcavdDocType"))+
          "\t"+RsQuery->FieldByName("ArcavdDocCode")+
          "\t"+RsQuery->FieldByName("ArcavdDocLine")+
          "\t"+RsQuery->FieldByName("ArcavdConv")+
          "\t"+RsQuery->FieldByName("ArcavdRAmt")+
          "\t"+RsQuery->FieldByName("ArcavdCAmt")+
          "\t"+RsQuery->FieldByName("ArcavdDesc");

   p->sgArcavd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgArcavd->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arcavh::muFirstClick(TObject *Sender)
{
 if(sgArcavh->RowCount > 1)
 {
  sgArcavh->Row=1;
 }

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