fdzbtjb.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "FdzBtjb.h"
#include "FdzBalanFil.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"

TfrmFdzBtjb *frmFdzBtjb;
//---------------------------------------------------------------------------
__fastcall TfrmFdzBtjb::TfrmFdzBtjb(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
   : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    QueryGrid=sgBalanTjb;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::tbQueryClick(TObject *Sender)
{
    if(!ShowQueryWindow())
       return;
    try{
       StartWaitForm("正在查询,请稍候...");
       FillGridWithData();
    }
    __finally
    {
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmFdzBtjb::ShowQueryWindow()
{
    TfrmFdzBalanFil *FQuery=new TfrmFdzBalanFil(this);
    FQuery->ShowModal();
    if(FQuery->FCurStatus=="Cancel")
    {
      delete FQuery;
      return false;
    }
    FFdzFmonth=FQuery->FFmonth;
    FFdzCacCode=FQuery->FCacCode;
    this->Caption="余额调节表-"+FFdzFmonth;
    delete FQuery;
    return true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::ClearControl(bool BringToNext)
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::GetDataFromComObject()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::WaitUserInput()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::RefreshGridData(int mAction)
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::DisplayBill()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::GetBill(AnsiString BillID)
{
    return;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFdzBtjb::GetHeadQueryStr()
{
    return "";
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFdzBtjb::GetSpace(int iNum)
{
    AnsiString strSpace;
    for(int i=1;i<iNum;i++)
      strSpace=strSpace+AnsiString(" ");
    return strSpace;
}
//---------------------------------------------------------------------------

void __fastcall TfrmFdzBtjb::FillGridWithData()
{
    AnsiString ItemStr,sSQL;
    sgBalanTjb->RowCount=1;

    TComResultSet *RsQuery;
    RsQuery=new  TComResultSet(Handle,g_ClientHandle);

    ItemStr="";
    ItemStr=AnsiString("出纳日记帐余额：")+"\t"+AnsiString("0.00")+"\t"+AnsiString("银行对帐单余额：")+"\t"+AnsiString("0.00");
    sgBalanTjb->AddItem(ItemStr);

    ItemStr=GetSpace(4)+"加：银行已收企业未收"+"\t"+AnsiString("")+"\t"+GetSpace(4)+"加：企业已收银行未收"+"\t"+AnsiString("");
    sgBalanTjb->AddItem(ItemStr);
    sSQL="select BcsZyMemo=isnull((select NoteBookText from  sdNoteBook where NoteBookCode=bcszy ),''), BcsAmt=isnull(BcsAmt,'0.00'), FbbZyMemo=isnull(((select NoteBookText from  sdNoteBook where NoteBookCode=fbbzy )),''), FbbAmt=isnull(FbbAmt,'0.00') from sdFbb,sdBcs";
    sSQL+=" where FbbCac=*BcsCac and FbbFmonth=*BcsFmonth and FbbDir=1 and FbbVerify=0 and";
    sSQL+=" BcsDir=1 and BcsVeriry=0 and BcsCac='"+FFdzCacCode+"' and BcsFmonth='"+FFdzFmonth+"'";
    RsQuery->Open(sSQL,"");
    RsQuery->MoveFirst();
    while(RsQuery->Eof==0)
    {
      ItemStr=GetSpace(6)+RsQuery->FieldByName("BcsZyMemo")+"\t"+
              FormatFloat("#,##0.00",RsQuery->FieldByName("BcsAmt").ToDouble())+"\t"+
              RsQuery->FieldByName("FbbZyMemo")+"\t"+
              FormatFloat("#,##0.00",RsQuery->FieldByName("FbbAmt").ToDouble());
      sgBalanTjb->AddItem(ItemStr);
      RsQuery->MoveNext();
    }

    ItemStr=GetSpace(4)+"减：银行已付企业未付"+"\t"+AnsiString("")+"\t"+GetSpace(4)+"减：企业已付银行未付"+"\t"+AnsiString("");
    sgBalanTjb->AddItem(ItemStr);
    sSQL="select BcsZyMemo=isnull((select NoteBookText from  sdNoteBook where NoteBookCode=bcszy ),''), BcsAmt=isnull(BcsAmt,'0.00'), FbbZyMemo=isnull(((select NoteBookText from  sdNoteBook where NoteBookCode=fbbzy )),''), FbbAmt=isnull(FbbAmt,'0.00') from sdFbb,sdBcs";
    sSQL+=" where FbbCac=*BcsCac and FbbFmonth=*BcsFmonth and FbbDir=-1 and FbbVerify=0 and";
    sSQL+=" BcsDir=-1 and BcsVeriry=0 and BcsCac='"+FFdzCacCode+"' and BcsFmonth='"+FFdzFmonth+"'";
    RsQuery->Close();
    RsQuery->Open(sSQL,"");
    RsQuery->MoveFirst();
    while(RsQuery->Eof==0)
    {
      ItemStr=GetSpace(6)+RsQuery->FieldByName("BcsZyMemo")+"\t"+
              FormatFloat("#,##0.00",RsQuery->FieldByName("BcsAmt").ToDouble())+"\t"+
              RsQuery->FieldByName("FbbZyMemo")+"\t"+
              FormatFloat("#,##0.00",RsQuery->FieldByName("FbbAmt").ToDouble());
      sgBalanTjb->AddItem(ItemStr);
      RsQuery->MoveNext();
    }

    ItemStr=AnsiString("调节后的余额（企业）")+"\t"+
            AnsiString("0.00")+"\t"+
            AnsiString("调节后的余额（银行）")+"\t"+
            AnsiString("0.00");
    sgBalanTjb->AddItem(ItemStr);

    RsQuery->Close();
    delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::muFirstClick(TObject *Sender)
{
    if(sgBalanTjb->RowCount > 1)
      sgBalanTjb->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::muNextClick(TObject *Sender)
{
    if(sgBalanTjb->RowCount > 1 && sgBalanTjb->Row < sgBalanTjb->RowCount-1)
       sgBalanTjb->Row=sgBalanTjb->Row+1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::muLastClick(TObject *Sender)
{
    if(sgBalanTjb->RowCount > 1)
       sgBalanTjb->Row=sgBalanTjb->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::tbRefreshClick(TObject *Sender)
{
    FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBtjb::muPreviousClick(TObject *Sender)
{
    if(sgBalanTjb->RowCount > 1 && sgBalanTjb->Row > 1)
       sgBalanTjb->Row=sgBalanTjb->Row-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmFdzBtjb::FormShow(TObject *Sender)
{
    tbQueryClick(this);
}
//---------------------------------------------------------------------------