sohquery.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "SohQuery.h"
#include "SodView.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmSohQuery *frmSohQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSohQuery::TfrmSohQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 QueryGrid=sgSoh;
  iMidCode=MidCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmSohQuery::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =AnsiString("select DISTINCT SOHCLIENT,SOHCODE,SOHTYPENAME,SOHDATE,SOHCLOSEID,SOHCHECKID,SOHCURRENCYNAME,SOHENRATE,")+
            AnsiString("SOHTAXNAME,SOHAMT,SOHTAXAMT,SOHSUMAMT = SOHAMT + SOHTAXAMT ,SOHSALER,SOHUSER,SOHCHECKER from sdvw_soh");
 if(FilterStr=="")                              //DONE: BUG NO.251 FIXED SOHSUMAMT , 08-14
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by SohClient,SohDate";
 sSQL=Selectstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgSoh->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SOHCLIENT")+
          "\t"+RsQuery->FieldByName("SOHCODE")+
          "\t"+RsQuery->FieldByName("SOHTYPENAME")+
          "\t"+RsQuery->FieldByName("SOHDATE")+
          "\t"+RsQuery->FieldByName("SOHCLOSEID")+
          "\t"+RsQuery->FieldByName("SOHCHECKID")+
          "\t"+RsQuery->FieldByName("SOHCURRENCYNAME")+
          "\t"+RsQuery->FieldByName("SOHENRATE")+
          "\t"+RsQuery->FieldByName("SOHTAXNAME")+
          "\t"+RsQuery->FieldByName("SOHAMT")+
          "\t"+RsQuery->FieldByName("SOHTAXAMT")+
          "\t"+RsQuery->FieldByName("SOHSUMAMT")+
          "\t"+RsQuery->FieldByName("SOHSALER")+
          "\t"+RsQuery->FieldByName("SOHUSER")+
          "\t"+RsQuery->FieldByName("SOHCHECKER");
  sgSoh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
// sgSoh->FixedCols=3;
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::muFirstClick(TObject *Sender)
{
  if(sgSoh->RowCount>1)
    sgSoh->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::muPreviousClick(TObject *Sender)
{
 if(sgSoh->Row>1)
  sgSoh->Row--;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::muNextClick(TObject *Sender)
{
 if(sgSoh->Row<sgSoh->RowCount-1)
   sgSoh->Row++;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::muLastClick(TObject *Sender)
{
  sgSoh->Row=sgSoh->RowCount-1;        
}
//---------------------------------------------------------------------------
void __fastcall TfrmSohQuery::sgSohDblClick(TObject *Sender)
{
  if(sgSoh->Row>0&&sgSoh->Row<sgSoh->RowCount)
  {
    try{
         TfrmSodView *frmSodView= new TfrmSodView(this,g_ClientHandle,iMidCode,sgSoh->TextMatrix[sgSoh->Row][2]);
//         frmSodView->BillNumID=Trim(sgSoh->TextMatrix[sgSoh->Row][2]);
         frmSodView->ShowModal();
         }
      catch(...)
         {
         delete frmSodView;
          }
      delete frmSodView;
    }

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

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