qu_fadn.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "Qu_Fadn.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmQu_Fadn *frmQu_Fadn;
//---------------------------------------------------------------------------
__fastcall TfrmQu_Fadn::TfrmQu_Fadn(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    m_SQL="";      //查询语句 
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Fadn::ClearControl(bool BringToNext)
{ return; }
void __fastcall TfrmQu_Fadn::GetDataFromComObject()
{ return; }
void __fastcall TfrmQu_Fadn::WaitUserInput()
{ return; }
void __fastcall TfrmQu_Fadn::RefreshGridData(int mAction)
{ return; }
void __fastcall TfrmQu_Fadn::DisplayBill()
{ return; }
void __fastcall TfrmQu_Fadn::GetBill(AnsiString BillID)
{ return; }
void __fastcall TfrmQu_Fadn::FillGridWithData()
{
    TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
    AnsiString  ItemStr="";
    AnsiString  stemp="";
    if(FilterStr != "")
        stemp=" where "+FilterStr;
    m_SQL=" select * from sdVW_Fadn  "+stemp+" order by FadnCODE";
    sgFadnB->RowCount=1;
    sgFadnM->RowCount=1;
    sgFadnF->RowCount=1;
    try
    {
     RsQuery->Open(m_SQL,"");
     RsQuery->MoveFirst();
     while( RsQuery->Eof == 0)
     {
     ItemStr="\t"+RsQuery->FieldByName("FadnCode")+       //设备编码
           "\t"+RsQuery->FieldByName("FadnName")+       //设备名称
           "\t"+RsQuery->FieldByName("Fatname")+       //设备类型
           "\t"+RsQuery->FieldByName("Unitname")+       //计量单位
           "\t"+RsQuery->FieldByName("FadnModel")+       //规格型号
           "\t"+RsQuery->FieldByName("FadnArea")+       //产地
           "\t"+RsQuery->FieldByName("FadnAddr")+       //存放地点
           "\t"+RsQuery->FieldByName("FadnOfDate")+       //出厂日期
           "\t"+RsQuery->FieldByName("FadnSupply")+       //供应商
           "\t"+RsQuery->FieldByName("FadnFactory");       //制造商

      sgFadnB->AddItem(ItemStr);
      ItemStr="\t"+RsQuery->FieldByName("deptname")+       //部门
           "\t"+(RsQuery->FieldByName("FadnEuse")=="1"?"经营用":"非经营用")+       //经济用途
           "\t"+RsQuery->FieldByName("FadnDate")+       //入帐日期
           "\t"+RsQuery->FieldByName("FadnUDate")+       //使用日期
           "\t"+RsQuery->FieldByName("fausename")+       //使用状态
           "\t"+RsQuery->FieldByName("FadnFav")+       //变动方式
           "\t"+RsQuery->FieldByName("FadnAddType")+       //增加方式
           "\t"+RsQuery->FieldByName("FadnDecType")+       //减少方式
           "\t"+(RsQuery->FieldByName("FadnStop")=="1"?"是":"否")+       //停用标志
           "\t"+(RsQuery->FieldByName("FadnDiscard")=="1"?"是":"否")+       //报废标志
           "\t"+(RsQuery->FieldByName("FadnRent")=="1"?"是":"否")+       //租出标志
           "\t"+(RsQuery->FieldByName("FadnFix")=="1"?"是":"否")+       //大修标志
           "\t"+(RsQuery->FieldByName("FadnDec")=="1"?"是":"否")+       //减少标志
           "\t"+(RsQuery->FieldByName("FadnFc")=="1"?"是":"否")+       //封存标志
           "\t"+(RsQuery->FieldByName("FadnAe")=="1"?"是":"否");      //是否有附属设备

      sgFadnM->AddItem(ItemStr);
      ItemStr="\t"+RsQuery->FieldByName("FadnFadmname")+    //折旧方法
           "\t"+RsQuery->FieldByName("currencyname")+   //币种
           "\t"+RsQuery->FieldByName("FadnERate")+      //汇率
           "\t"+RsQuery->FieldByName("FadnPVal")+       //最初原值
           "\t"+RsQuery->FieldByName("FadnWbOVal")+     //外币原值
           "\t"+RsQuery->FieldByName("FadnOVal")+       //本币原值
           "\t"+RsQuery->FieldByName("FadnEVal")+       //预计残值
           "\t"+RsQuery->FieldByName("FadnBVal")+       //入帐前累计折旧
           "\t"+RsQuery->FieldByName("FadnDVal")+       //累计折旧
           "\t"+RsQuery->FieldByName("FadnBWork")+      //入帐前累计工作量
           "\t"+RsQuery->FieldByName("FadnAWork")+      //累计工作量
           "\t"+RsQuery->FieldByName("FadnTWork")+      //总工作量
           "\t"+RsQuery->FieldByName("FadnBPeriod")+    //入帐前累计使用期限
           "\t"+RsQuery->FieldByName("FadnAPeriod")+    //累计使用期限
           "\t"+RsQuery->FieldByName("FadnPeriod");     //使用期限
       sgFadnF->AddItem(ItemStr);
       RsQuery->MoveNext();
      }
    RsQuery->Close();
   }
   __finally
   {
    delete RsQuery;
   } 
}
void __fastcall TfrmQu_Fadn::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;  
  try{ 
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
     }
   __finally
   {
    EndWaitForm();
   }

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

void __fastcall TfrmQu_Fadn::muFirstClick(TObject *Sender)
{
   if(sgFadnB->RowCount > 1)
    sgFadnB->Row=1;
   if(sgFadnM->RowCount > 1)
    sgFadnM->Row=1;
   if(sgFadnF->RowCount > 1)
    sgFadnF->Row=1;

}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Fadn::muPreviousClick(TObject *Sender)
{
   if( sgFadnB->Row>1)
    sgFadnB->Row--;
   if( sgFadnM->Row>1)
    sgFadnM->Row--;
   if( sgFadnF->Row>1)
    sgFadnF->Row--;

}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Fadn::muNextClick(TObject *Sender)
{
   if( sgFadnB->Row < sgFadnB->RowCount-1)
    sgFadnB->Row++;
   if( sgFadnM->Row < sgFadnM->RowCount-1)
    sgFadnM->Row++;
   if( sgFadnF->Row < sgFadnF->RowCount-1)
    sgFadnF->Row++;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Fadn::muLastClick(TObject *Sender)
{
   if(sgFadnB->RowCount > 1)
    sgFadnB->Row=sgFadnB->RowCount-1;
   if(sgFadnM->RowCount > 1)
    sgFadnM->Row=sgFadnM->RowCount-1;
   if(sgFadnF->RowCount > 1)
    sgFadnF->Row=sgFadnF->RowCount-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQu_Fadn::tbRefreshClick(TObject *Sender)
{
    if(m_SQL!="")
      FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Fadn::tbExportClick(TObject *Sender)
{
    if(PageControl1->ActivePageIndex==0)
      QueryGrid=sgFadnB;
    if(PageControl1->ActivePageIndex==1)
      QueryGrid=sgFadnM;
    if(PageControl1->ActivePageIndex==2)
      QueryGrid=sgFadnF;
    TQueryBaseForm::tbExportClick(Sender);
}
//---------------------------------------------------------------------------