qu_fadc.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "Qu_FaDc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmQu_FaDc *frmQu_FaDc;
//---------------------------------------------------------------------------
__fastcall TfrmQu_FaDc::TfrmQu_FaDc(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    m_SQL="";      //查询语句
    QueryGrid=sgFaDc;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::FillGridWithData()
{
 TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 AnsiString  ItemStr="";
 AnsiString  stemp="";
 if(FilterStr != "")
   stemp=" where "+FilterStr;
 m_SQL=" select * from sdVW_FaDc "+stemp+" order by FaDcFadn";
 sgFaDc->RowCount=1;
 try
 {
  RsQuery->Open(m_SQL,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr="\t"+RsQuery->FieldByName("FaDcFadn")+
          "\t"+RsQuery->FieldByName("FADNNAME")+
          "\t"+RsQuery->FieldByName("FaDcFMonth")+
          "\t"+RsQuery->FieldByName("FadmName")+
          "\t"+RsQuery->FieldByName("FaDcOVal")+
          "\t"+RsQuery->FieldByName("FaDcVal")+
          "\t"+RsQuery->FieldByName("FaDcDVal")+
          "\t"+RsQuery->FieldByName("FaDcEVal")+
          "\t"+RsQuery->FieldByName("FaDcTWork")+
          "\t"+RsQuery->FieldByName("FaDcAWork")+
          "\t"+RsQuery->FieldByName("FaDcPeriod")+
          "\t"+RsQuery->FieldByName("FaDcAPeriod")+
          "\t"+RsQuery->FieldByName("FaDcUser")+
          "\t"+(RsQuery->FieldByName("FaDcPost")=="1"? "是":"否")+
          "\t"+RsQuery->FieldByName("FaDcPzCode");
   sgFaDc->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
 }
 __finally
 {
   delete RsQuery;
 }  
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
        
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::tbRefreshClick(TObject *Sender)
{
    if(m_SQL!="")
      FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::muFirstClick(TObject *Sender)
{
   if(sgFaDc->RowCount > 1)
    sgFaDc->Row=1;
        
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::muPreviousClick(TObject *Sender)
{
   if( sgFaDc->Row>1)
    sgFaDc->Row--;
        
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::muNextClick(TObject *Sender)
{
   if( sgFaDc->Row < sgFaDc->RowCount-1)
    sgFaDc->Row++;
        
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaDc::muLastClick(TObject *Sender)
{
   if(sgFaDc->RowCount > 1)
    sgFaDc->Row=sgFaDc->RowCount-1;

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