sexchquery.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "SexchQuery.h"
#include "SexcdView.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmSexchQuery *frmSexchQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSexchQuery::TfrmSexchQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 QueryGrid=sgSexch;
 iMidCode=MidCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmSexchQuery::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =AnsiString("select DISTINCT SexcHFMONTH,SexcHCLIENT,SexcHCODE,SexcHDATE,SexcHCHECKID,SexcHCURRENCYNAME,")+
            AnsiString("SexcHENRATE,SexcHAMT,SexcHEXES,SexcHUSER,SexcHCHECKER,")+
            AnsiString("SexcHRR from sdvw_Sexch");
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by Sexchfmonth,SexchClient,SexchDate";
 sSQL=Selectstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgSexch->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SexcHFMONTH")+
          "\t"+RsQuery->FieldByName("SexcHCLIENT")+
          "\t"+RsQuery->FieldByName("SexcHCODE")+
          "\t"+RsQuery->FieldByName("SexcHDATE")+
          "\t"+RsQuery->FieldByName("SexcHCHECKID")+
          "\t"+RsQuery->FieldByName("SexcHCURRENCYNAME")+
          "\t"+RsQuery->FieldByName("SexcHENRATE")+
          "\t"+RsQuery->FieldByName("SexcHAMT")+
          "\t"+RsQuery->FieldByName("SexcHEXES")+
          "\t"+RsQuery->FieldByName("SexcHUSER")+
          "\t"+RsQuery->FieldByName("SexcHCHECKER")+
          "\t"+RsQuery->FieldByName("SexcHRR");
  sgSexch->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::muFirstClick(TObject *Sender)
{
  if(sgSexch->RowCount>1)
     sgSexch->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::muPreviousClick(TObject *Sender)
{
 if(sgSexch->Row>1)
  sgSexch->Row--;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::muNextClick(TObject *Sender)
{
 if(sgSexch->Row<sgSexch->RowCount-1)
   sgSexch->Row++;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::muLastClick(TObject *Sender)
{
  sgSexch->Row=sgSexch->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSexchQuery::sgSexchDblClick(TObject *Sender)
{
  if(sgSexch->Row>0&&sgSexch->Row<sgSexch->RowCount)
  {
    try{
         TfrmSexcdView *frmSexcdView= new TfrmSexcdView(this,g_ClientHandle,iMidCode,sgSexch->TextMatrix[sgSexch->Row][3]);
//         frmSexcdView->BillNumID=Trim(sgSexch->TextMatrix[sgSexch->Row][3]);
         frmSexcdView->ShowModal();
         }
      catch(...)
         {
         delete frmSexcdView;
          }
      delete frmSexcdView;
    }

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

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