srewhquery.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "SrewhQuery.h"
#include "SrewdView.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmSrewhQuery *frmSrewhQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSrewhQuery::TfrmSrewhQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 QueryGrid=sgSrewh;
  iMidCode=MidCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmSrewhQuery::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =AnsiString("select DISTINCT SREWHFMONTH,SREWHCLIENT,SREWHCODE,SREWHDATE,SREWHCHECKID,SREWHCURRENCYNAME,")+
            AnsiString("SREWHENRATE,SREWHAMT,SREWHEXES,SREWHUSER,SREWHCHECKER,")+
            AnsiString("SREWHRR from sdvw_Srewh");
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by Srewhfmonth,SrewhClient,SrewhDate";
 sSQL=Selectstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgSrewh->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SrewHFMONTH")+
          "\t"+RsQuery->FieldByName("SrewHCLIENT")+
          "\t"+RsQuery->FieldByName("SrewHCODE")+
          "\t"+RsQuery->FieldByName("SrewHDATE")+
          "\t"+RsQuery->FieldByName("SrewHCHECKID")+
          "\t"+RsQuery->FieldByName("SrewHCURRENCYNAME")+
          "\t"+RsQuery->FieldByName("SrewHENRATE")+
          "\t"+RsQuery->FieldByName("SrewHAMT")+
          "\t"+RsQuery->FieldByName("SrewHEXES")+
          "\t"+RsQuery->FieldByName("SrewHUSER")+
          "\t"+RsQuery->FieldByName("SrewHCHECKER")+
          "\t"+RsQuery->FieldByName("SrewHRR");
  sgSrewh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::muFirstClick(TObject *Sender)
{
  if(sgSrewh->RowCount>1)
     sgSrewh->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::muPreviousClick(TObject *Sender)
{
 if(sgSrewh->Row>1)
  sgSrewh->Row--;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::muNextClick(TObject *Sender)
{
 if(sgSrewh->Row<sgSrewh->RowCount-1)
   sgSrewh->Row++;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::muLastClick(TObject *Sender)
{
  sgSrewh->Row=sgSrewh->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSrewhQuery::sgSrewhDblClick(TObject *Sender)
{
  if(sgSrewh->Row>0&&sgSrewh->Row<sgSrewh->RowCount)
  {
    try{
         TfrmSrewdView *frmSrewdView= new TfrmSrewdView(this,g_ClientHandle,iMidCode,sgSrewh->TextMatrix[sgSrewh->Row][3]);
        // frmSrewdView->BillNumID=Trim(sgSrewh->TextMatrix[sgSrewh->Row][3]);
         frmSrewdView->ShowModal();
         }
      catch(...)
         {
         delete frmSrewdView;
          }
      delete frmSrewdView;
    }

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

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