soghquery.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "SoghQuery.h"
#include "SogdView.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmSoghQuery *frmSoghQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSoghQuery::TfrmSoghQuery(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 QueryGrid=sgSogh;
  iMidCode=MidCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmSoghQuery::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =AnsiString("select DISTINCT SOGHFMONTH,SOGHCLIENT,SOGHCODE,SOGHTYPENAME,SOGHDATE,SOGHCHECKID,")+
            AnsiString("SOGHCURRENCYNAME,SOGHENRATE,SOGHTAXNAME,SOGHAMT,SOGHTAXAMT,SOGHSUMAMT,")+//DONE:BUG NO.251 : DEL "SOGHZKAMT," 08-14
            AnsiString("SOGHSALER,SOGHUSER,SOGHCHECKER from sdvw_sogh");
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by soghfmonth,SoghClient,SoghDate";
 sSQL=Selectstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgSogh->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SOGHFMONTH")+
          "\t"+RsQuery->FieldByName("SOGHCLIENT")+
          "\t"+RsQuery->FieldByName("SOGHCODE")+
          "\t"+RsQuery->FieldByName("SOGHTYPENAME")+
          "\t"+RsQuery->FieldByName("SOGHDATE")+
          "\t"+RsQuery->FieldByName("SOGHCHECKID")+
          "\t"+RsQuery->FieldByName("SOGHCURRENCYNAME")+
          "\t"+RsQuery->FieldByName("SOGHENRATE")+
          "\t"+RsQuery->FieldByName("SOGHTAXNAME")+
          "\t"+RsQuery->FieldByName("SOGHAMT")+
          "\t"+RsQuery->FieldByName("SOGHTAXAMT")+
//DONE: BUG NO.251 REMARK THIS LINE , 08-14
//          "\t"+RsQuery->FieldByName("SOGHZKAMT")+
          "\t"+RsQuery->FieldByName("SOGHSUMAMT")+
          "\t"+RsQuery->FieldByName("SOGHSALER")+
          "\t"+RsQuery->FieldByName("SOGHUSER")+
          "\t"+RsQuery->FieldByName("SOGHCHECKER");
  sgSogh->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::muFirstClick(TObject *Sender)
{
  if(sgSogh->RowCount>1)
    sgSogh->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::muPreviousClick(TObject *Sender)
{
 if(sgSogh->Row>1)
  sgSogh->Row--;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::muNextClick(TObject *Sender)
{
 if(sgSogh->Row<sgSogh->RowCount-1)
   sgSogh->Row++;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::muLastClick(TObject *Sender)
{
  sgSogh->Row=sgSogh->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSoghQuery::sgSoghDblClick(TObject *Sender)
{
  if(sgSogh->Row>0&&sgSogh->Row<sgSogh->RowCount)
  {
    try{
         TfrmSogdView *frmSogdView= new TfrmSogdView(this,g_ClientHandle,iMidCode,sgSogh->TextMatrix[sgSogh->Row][3]);
//         frmSogdView->BillNumID=Trim(sgSogh->TextMatrix[sgSogh->Row][3]);
         frmSogdView->ShowModal();
         }
      catch(...)
         {
         delete frmSogdView;
          }
      delete frmSogdView;
    }

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

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