sivohquery.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "SivohQuery.h"
#include "SivodView.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmSivohQuery *frmSivohQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSivohQuery::TfrmSivohQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 QueryGrid=sgSivoh;
  iMidCode=MidCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmSivohQuery::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr = AnsiString("select DISTINCT SIVOHFMONTH, SIVOHCLIENT,SIVOHCODE,SIVOHTYPENAME,SIVOHSOCODE,SIVOHDATE,SIVOHARDATE,")+
             AnsiString("SIVOHCHECKID,SIVOHCURRENCYNAME,SIVOHENRATE,SIVOHTAXNAME,SIVOHAMT,SIVOHTAXAMT,SIVOHZKAMT,")+
             AnsiString("SIVOHSUMAMT,SIVOHSALER,SIVOHUSER,SIVOHCHECKER from sdvw_Sivoh");
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by Sivohfmonth,SivohClient,SivohDate";
 sSQL=Selectstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgSivoh->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SivohFMONTH")+
          "\t"+RsQuery->FieldByName("SivohCLIENT")+
          "\t"+RsQuery->FieldByName("SivohCODE")+
          "\t"+RsQuery->FieldByName("SivohTYPENAME")+
          "\t"+RsQuery->FieldByName("SivohSoCODE")+
          "\t"+RsQuery->FieldByName("SivohDATE")+
          "\t"+RsQuery->FieldByName("SivohArDATE")+
          "\t"+RsQuery->FieldByName("SivohCHECKID")+
          "\t"+RsQuery->FieldByName("SivohCURRENCYNAME")+
          "\t"+RsQuery->FieldByName("SivohENRATE")+
          "\t"+RsQuery->FieldByName("SivohTAXNAME")+
          "\t"+RsQuery->FieldByName("SivohAMT")+
          "\t"+RsQuery->FieldByName("SivohTAXAMT")+
          "\t"+RsQuery->FieldByName("SivohZKAMT")+
          "\t"+RsQuery->FieldByName("SivohSUMAMT")+
          "\t"+RsQuery->FieldByName("SivohSALER")+
          "\t"+RsQuery->FieldByName("SivohUSER")+
          "\t"+RsQuery->FieldByName("SivohCHECKER");
  sgSivoh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::muFirstClick(TObject *Sender)
{
  if(sgSivoh->RowCount>1)
    sgSivoh->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::muPreviousClick(TObject *Sender)
{
 if(sgSivoh->Row>1)
  sgSivoh->Row--;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::muNextClick(TObject *Sender)
{
 if(sgSivoh->Row<sgSivoh->RowCount-1)
   sgSivoh->Row++;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::muLastClick(TObject *Sender)
{
  sgSivoh->Row=sgSivoh->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSivohQuery::sgSivohDblClick(TObject *Sender)
{
  if(sgSivoh->Row>0&&sgSivoh->Row<sgSivoh->RowCount)
  {
    try{
         TfrmSivodView *frmSivodView= new TfrmSivodView(this,g_ClientHandle,iMidCode,sgSivoh->TextMatrix[sgSivoh->Row][3]);
//         frmSivodView->BillNumID=Trim(sgSivoh->TextMatrix[sgSivoh->Row][3]);
         frmSivodView->ShowModal();
         }
      catch(...)
         {
         delete frmSivodView;
          }
      delete frmSivodView;
    }

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

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