srethquery.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 158 行

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

#include <vcl.h>
#pragma hdrstop

#include "SrethQuery.h"
#include "SretdView.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmSrethQuery *frmSrethQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSrethQuery::TfrmSrethQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 QueryGrid=sgSreth;
 iMidCode=MidCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmSrethQuery::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =AnsiString("select DISTINCT SRETHFMONTH,SRETHCLIENT,SRETHCODE,SRETHTYPENAME,SRETHDATE,SRETHCHECKID,SRETHCURRENCYNAME,")+
            AnsiString("SRETHENRATE,SRETHTAXNAME,SRETHAMT,SRETHTAXAMT,SRETHSUMAMT,SRETHUSER,SRETHCHECKER from sdvw_Sreth");
 if(FilterStr=="")                                                                         //DONE:BUG NO.251 SRETHCHECKERNAME -> SRETHCHECKNAME
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by srethfmonth,SrethClient,SrethDate";
 sSQL=Selectstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgSreth->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SRETHFMONTH")+
          "\t"+RsQuery->FieldByName("SRETHCLIENT")+
          "\t"+RsQuery->FieldByName("SRETHCODE")+
          "\t"+RsQuery->FieldByName("SRETHTYPENAME")+
          "\t"+RsQuery->FieldByName("SRETHDATE")+
          "\t"+RsQuery->FieldByName("SRETHCHECKID")+
          "\t"+RsQuery->FieldByName("SRETHCURRENCYNAME")+
          "\t"+RsQuery->FieldByName("SRETHENRATE")+
          "\t"+RsQuery->FieldByName("SRETHTAXNAME")+
          "\t"+RsQuery->FieldByName("SRETHAMT")+
          "\t"+RsQuery->FieldByName("SRETHTAXAMT")+
          "\t"+RsQuery->FieldByName("SRETHSUMAMT")+
          "\t"+RsQuery->FieldByName("SRETHUSER")+
          "\t"+RsQuery->FieldByName("SRETHCHECKER");
                      //DONE:BUG NO.251 SRETHCHECKERNAME -> SRETHCHECKNAME
  sgSreth->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::muFirstClick(TObject *Sender)
{
  if(sgSreth->RowCount>1)
      sgSreth->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::muPreviousClick(TObject *Sender)
{
 if(sgSreth->Row>1)
  sgSreth->Row--;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::muNextClick(TObject *Sender)
{
 if(sgSreth->Row<sgSreth->RowCount-1)
   sgSreth->Row++;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::muLastClick(TObject *Sender)
{
  sgSreth->Row=sgSreth->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrethQuery::sgSrethDblClick(TObject *Sender)
{
  if(sgSreth->Row>0&&sgSreth->Row<sgSreth->RowCount)
  {
    try{
         TfrmSretdView *frmSretdView= new TfrmSretdView(this,g_ClientHandle,iMidCode,sgSreth->TextMatrix[sgSreth->Row][3]);
//         frmSretdView->BillNumID=Trim(sgSreth->TextMatrix[sgSreth->Row][3]);
         frmSretdView->ShowModal();
         }
      catch(...)
         {
         delete frmSretdView;
          }
      delete frmSretdView;
    }

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

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