vw_arnr.cpp

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

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

#include <vcl.h>
#pragma hdrstop

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

 tbControl->Enabled=false;
 TBorderIcons tempBI = BorderIcons;
 tempBI >> biMinimize;
 BorderIcons = tempBI;
 FilterStr=wherestr;
 FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::tbQueryClick(TObject *Sender)
{
 // if(!ShowQueryWindow())
  //  return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Arnr::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr="select  "
          +AnsiString("ArnrCode, ")            //票据编码
          +AnsiString("ArnrFmonth, ")          //月份
          +AnsiString("ArnrDate, ")            //日期
          +AnsiString("CantName, ")            //票据类型
          +AnsiString("ClientName, ")          //客户
          +AnsiString("CurrencyName, ")        //币种
          +AnsiString("ArnrEnrate, ")          //汇率
          +AnsiString("ArnrAmt, ")             //票面金额
          +AnsiString("ArnrNiRate, ")          //票面利率
          +AnsiString("ArnrEiRate, ")          //到期利率
          +AnsiString("ArnrSdate, ")           //签发日期
          +AnsiString("ArnrEdate, ")           //到期日期
          +AnsiString("ArnrTerm, ")            //收款期限
          +AnsiString("ArnrCAmt, ")            //核销金额
          +AnsiString("ArnrDesc, ")            //备注
          +AnsiString("ArnrState, ")           //状态
          +AnsiString("ArnrUser, ")            //操作员
          +AnsiString("ArnrCheck, ")           //审核标志
          +AnsiString("ArnrChecker, ")         //审核人
          +AnsiString("ArnrCheckDate ");       //审核日期
 Fromstr=" from SDVW_Arnr ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by ArnrFmonth desc,ArnrClient,ArnrCode ";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgArnr->RowCount=1;
 LateBillCode="";
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("ArnrFmonth")+
          "\t"+RsQuery->FieldByName("ClientName")+
          "\t"+RsQuery->FieldByName("ArnrCode")+
          "\t"+RsQuery->FieldByName("ArnrDate")+
          "\t"+RsQuery->FieldByName("CantName")+
          "\t"+DataConvert("ArnrState",RsQuery->FieldByName("ArnrState"))+
          "\t"+RsQuery->FieldByName("CurrencyName")+
          "\t"+RsQuery->FieldByName("ArnrEnrate")+
          "\t"+RsQuery->FieldByName("ArnrAmt")+
          "\t"+RsQuery->FieldByName("ArnrNiRate")+
          "\t"+RsQuery->FieldByName("ArnrEiRate")+
          "\t"+RsQuery->FieldByName("ArnrSdate")+
          "\t"+RsQuery->FieldByName("ArnrEdate")+
          "\t"+RsQuery->FieldByName("ArnrTerm")+
          "\t"+RsQuery->FieldByName("ArnrCAmt")+
          "\t"+(RsQuery->FieldByName("ArnrCheck")=="1"?"√":"")+
          "\t"+RsQuery->FieldByName("ArnrChecker")+
          "\t"+RsQuery->FieldByName("ArnrCheckDate")+
          "\t"+RsQuery->FieldByName("ArnrUser")+
          "\t"+RsQuery->FieldByName("ArnrDesc");
  sgArnr->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Arnr::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName == "ARNRSTATE")
 {
  if(sFieldValue == "1")
   return("未处理");
  if(sFieldValue == "2")
   return("已收款");
  if(sFieldValue == "3")
   return("已贴现");
  if(sFieldValue == "4")
   return("已背书");
  if(sFieldValue == "5")
   return("已退回");
 }
 return("");
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::muFirstClick(TObject *Sender)
{
 if(sgArnr->RowCount > 1)
 {
  sgArnr->Row=1;
 }

}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::tbPreviousClick(TObject *Sender)
{
 if(sgArnr->RowCount > 1 && sgArnr->Row > 1)
 {
  sgArnr->Row=sgArnr->Row-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::muNextClick(TObject *Sender)
{
 if(sgArnr->RowCount > 1 && sgArnr->Row < sgArnr->RowCount-1)
 {
  sgArnr->Row=sgArnr->Row+1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::muLastClick(TObject *Sender)
{
 if(sgArnr->RowCount > 1)
 {
  sgArnr->Row=sgArnr->RowCount-1;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arnr::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();
}
//---------------------------------------------------------------------------