szrhquery.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "SzrhQuery.h"
#include "SzrdView.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmSzrhQuery *frmSzrhQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSzrhQuery::TfrmSzrhQuery(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
 FilterStr="";
 sSQL="";
}
//---------------------------------------------------------------------------
bool __fastcall TfrmSzrhQuery::ShowQueryWindow()
{
  TfrmQuForm *FQuery=new TfrmQuForm(this,"frmSzrhQuery");
  FQuery->ShowModal();
  if(FQuery->CancelQuery)
    return false;
  FilterStr=FQuery->CreateSqlString;
  delete FQuery;
  return true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmSzrhQuery::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =AnsiString("select DISTINCT SZRHCLIENT,SZRHCODE,SZRHDATE,SZRHCHECKID,SZRHCURRENCYNAME,SZRHENRATE,")+
            AnsiString("SZRHAMT,SZRHCASHAMT,SZRHUSERNAME,SZRHCHECKERNAME from sdvw_Szrh");
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by SzrhClient,SzrhDate";
 sSQL=Selectstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgSzrh->RowCount=1;
 RsQuery=NewResultSet();
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SzrHCLIENT")+
          "\t"+RsQuery->FieldByName("SzrHCODE")+
          "\t"+RsQuery->FieldByName("SzrHDATE")+
          "\t"+RsQuery->FieldByName("SzrHCHECKID")+
          "\t"+RsQuery->FieldByName("SzrHCURRENCYNAME")+
          "\t"+RsQuery->FieldByName("SzrHENRATE")+
          "\t"+RsQuery->FieldByName("SzrHAMT")+
          "\t"+RsQuery->FieldByName("SzrHCASHAMT")+
          "\t"+RsQuery->FieldByName("SzrHUSERNAME")+
          "\t"+RsQuery->FieldByName("SzrHCHECKERNAME");
  sgSzrh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::muFirstClick(TObject *Sender)
{
  if(sgSzrh->RowCount>1)
     sgSzrh->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::muPreviousClick(TObject *Sender)
{
 if(sgSzrh->Row>1)
  sgSzrh->Row--;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::muNextClick(TObject *Sender)
{
 if(sgSzrh->Row<sgSzrh->RowCount-1)
   sgSzrh->Row++;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::muLastClick(TObject *Sender)
{
  sgSzrh->Row=sgSzrh->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::sgSzrhDblClick(TObject *Sender)
{
  if(sgSzrh->Row>0&&sgSzrh->Row<sgSzrh->RowCount)
  {
    try{
         TfrmSzrdView *frmSzrdView= new TfrmSzrdView(this);
         frmSzrdView->BillNumID=Trim(sgSzrh->TextMatrix[sgSzrh->Row][2]);
         frmSzrdView->ShowModal();
         }
      catch(...)
         {
         delete frmSzrdView;
          }
      delete frmSzrdView;
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmSzrhQuery::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------

void __fastcall TfrmSzrhQuery::tbRefreshClick(TObject *Sender)
{
      if(sSQL=="")
       return;
       FillGridWithData();
}
//---------------------------------------------------------------------------