qu_fachg.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "Qu_FaChg.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmQu_FaChg *frmQu_FaChg;
//---------------------------------------------------------------------------
__fastcall TfrmQu_FaChg::TfrmQu_FaChg(TComponent* Owner)
        : TQueryBaseForm(Owner)
{
    m_FilterStr=""; //查询条件字串
    m_SQL="";      //查询语句
    RsQuery=NewResultSet();
    scFaChgType->AddItems("所有变动");
    scFaChgType->AddItems("原值变动");
    scFaChgType->AddItems("累计折旧变动");
    scFaChgType->AddItems("折旧方法变动");
    scFaChgType->AddItems("使用年限变动");
    scFaChgType->AddItems("工作总量变动");
    scFaChgType->AddItems("净残值变动");
    scFaChgType->ItemIndex=0;
    FillComboBox(scFadm,"select  FADMCODE,FADMNAME from sdfadm order By FADMCODE","FADMNAME","FADMCODE");
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::FillGridWithData()
{
 AnsiString  ItemStr="";
 if(m_FilterStr=="")
   m_FilterStr="";
 else
   m_FilterStr=" where "+m_FilterStr;
 m_SQL=" select * from sdVW_FaChg "+m_FilterStr+" order by FaChgCODE";
 sgFaChg->RowCount=1;
  RsQuery->Open(m_SQL,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr="\t"+RsQuery->FieldByName("FaChgCODE")+
          "\t"+RsQuery->FieldByName("FaChgDate")+
          "\t"+RsQuery->FieldByName("FaChgFMonth")+
          "\t"+RsQuery->FieldByName("FaChgDesc")+
          "\t"+RsQuery->FieldByName("fadnname")+
          "\t"+GetChangeType(RsQuery->FieldByName("FaChgType"),1)+
          "\t"+GetChangeType(RsQuery->FieldByName("FaChgType"),2)+
          "\t"+GetChangeType(RsQuery->FieldByName("FaChgType"),3)+
          "\t"+(RsQuery->FieldByName("FaChgCheck")=="1"?"是":"否")+
          "\t"+RsQuery->FieldByName("FaChgUser")+
          "\t"+RsQuery->FieldByName("FaChgChecker")+
          "\t"+RsQuery->FieldByName("FaChgCheckDate")+
          "\t"+(RsQuery->FieldByName("FaChgPost")=="1"?"是":"否")+
          "\t"+RsQuery->FieldByName("FaChgSysDate");
   sgFaChg->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
}
//---------------------------------------------------------------------------
bool __fastcall TfrmQu_FaChg::ShowQueryWindow()
{
  TfrmQuForm *FQuery=new TfrmQuForm(this,this->Name);
  FQuery->ShowModal();
  if(FQuery->CancelQuery)
    return false;
  m_FilterStr=FQuery->CreateSqlString;
  delete FQuery;
  return true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQu_FaChg::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
    scFaChgType->ItemIndex=0;
  }
  __finally
  {
    EndWaitForm();
  }
        
}
//---------------------------------------------------------------------------

void __fastcall TfrmQu_FaChg::tbRefreshClick(TObject *Sender)
{
    if(m_SQL=="")
      FillGridWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmQu_FaChg::scFaChgTypeClick(TObject *Sender)
{

    switch(scFaChgType->ItemIndex)
    {
     case 0:
      m_FilterStr="";
     break;
     case 1:
      m_FilterStr=" FACHGTYPE=1 or FACHGTYPE=2 ";
     break;
     case 2:
      m_FilterStr=" FACHGTYPE=3 or FACHGTYPE=4 ";
     break;
     case 3:
      m_FilterStr=" FACHGTYPE=5 ";
     break;
     case 4:
      m_FilterStr=" FACHGTYPE=6 ";
     break;
     case 5:
      m_FilterStr=" FACHGTYPE=7 ";
     break;
     case 6:
      m_FilterStr=" FACHGTYPE=8 ";
     break;
     default:
     break;
  }
    FillGridWithData();

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

void __fastcall TfrmQu_FaChg::muFirstClick(TObject *Sender)
{
   if(sgFaChg->RowCount > 1)
    sgFaChg->Row=1;
        
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::muPreviousClick(TObject *Sender)
{
   if( sgFaChg->Row>1)
    sgFaChg->Row--;
        
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::muNextClick(TObject *Sender)
{
   if( sgFaChg->Row < sgFaChg->RowCount-1)
    sgFaChg->Row++;
        
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_FaChg::muLastClick(TObject *Sender)
{
   if(sgFaChg->RowCount > 1)
    sgFaChg->Row=sgFaChg->RowCount-1;

}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmQu_FaChg::GetChangeType(AnsiString type,int three)
{
   if(three==1)
   {
    switch(type.ToInt())
    {
    case 1:
      return "原值增加";
    case 2:
      return "原值减少";
    case 3:
      return "累计折旧增加";
    case 4:
      return "累计折旧减少";
    case 5:
      return "折旧方法变动";
    case 6:
      return "使用年限变动";
    case 7:
      return "工作总量变动";
    case 8:
      return "净残值变动";
     default :
     return "";
    }
   }
   if(three==2)
   {
    switch(type.ToInt())
    {
    case 1:
    case 2:
      return RsQuery->FieldByName("FaChgOOVal");
    case 3:
    case 4:
      return RsQuery->FieldByName("FaChgODVal");
    case 5:
     {
      scFadm->LocateKey(RsQuery->FieldByName("FaChgOFadm"));
      return scFadm->ItemData[0];
     }
    case 6:
      return RsQuery->FieldByName("FaChgOPeriod");
    case 7:
      return RsQuery->FieldByName("FaChgOWork");
    case 8:
      return RsQuery->FieldByName("FaChgONVal");
     default :
     return "";
    }
   }
   if(three==3)
   {
    switch(type.ToInt())
    {
    case 1:
    case 2:
      return RsQuery->FieldByName("FaChgNOVal");
    case 3:
    case 4:
      return RsQuery->FieldByName("FaChgNDVal");
    case 5:
     {
      scFadm->LocateKey(RsQuery->FieldByName("FaChgNFadm"));
      return scFadm->ItemData[0];
     }
    case 6:
      return RsQuery->FieldByName("FaChgNPeriod");
    case 7:
      return RsQuery->FieldByName("FaChgNWork");
    case 8:
      return RsQuery->FieldByName("FaChgNNVal");
     default :
     return "";
    }
   }
   return "";
}
void __fastcall TfrmQu_FaChg::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    TQueryBaseForm::FormClose(Sender,Action);
    delete RsQuery;
}
//---------------------------------------------------------------------------