emhdl.cpp

邮 电 公 司 erp源码

        b_FadnDate="";
        b_FadnFmonth="";
        b_FadnFaUse="";
        b_FadnAddr="";
        b_FadnEuse=0;
        b_FadnFav="";
        b_FadnModel="";
        b_FadnSupply="";
        b_FadnFactory="";
        b_FadnArea="";
        b_FadnOfDate="";
        b_FadnDept="";
        b_FadnCurrency="";
        b_FadnERate=0;
        b_FadnOVal=0;
        b_FadnWbOVal=0;
        b_FadnPVal=0;
        b_FadnEVal=0;
        b_FadnCVal=0;
        b_FadnDVal=0;
        b_FadnBVal=0;
        b_FadnTWork=0;
        b_FadnAWork=0;
        b_FadnBWork=0;
        b_FadnPeriod=0;
        b_FadnAPeriod=0;
        b_FadnBPeriod=0;
        b_FadnFadm="";
        b_FadnUDate="";
        b_FadnAddType="";
        b_FadnDecType="";
        b_FadnStop=0;
        b_FadnDiscard=0;
        b_FadnRent=0;
        b_FadnFix=0;
        b_FadnDec=0;
        b_FadnAe=0;
        b_FadnFc=0;
        b_FadnFvct="";
        b_FadnYzGlkm="";
        b_FadnYzDir=0;
        b_FadnZjGlkm="";
        b_FadnZjDir=0;
        b_FadnQoGlkm="";
        b_FadnQoDir=0;
        b_FadnQiGlkm="";
        b_FadnQiDir=0;
        b_FadnCzGlkm="";
        b_FadnCzDir=0;
        b_FadnZlGlkm="";
        b_FadnZlDir=0;
      break;
     }
}
//---------------------------------------------------------------------------
void TsdFadn::BatchLetValue()
{
    m_FadnCode=m_Query->FieldValues["FadnCode"];
    m_FadnName=m_Query->FieldValues["FadnName"];
    m_FadnDesc=m_Query->FieldValues["FadnDesc"];
    m_FadnFat=m_Query->FieldValues["FadnFat"];
    m_FadnUnit=m_Query->FieldValues["FadnUnit"];
    m_FadnDate=m_Query->FieldValues["FadnDate"];
    m_FadnFmonth=m_Query->FieldValues["FadnFmonth"];
    m_FadnFaUse=m_Query->FieldValues["FadnFaUse"];
    m_FadnAddr=m_Query->FieldValues["FadnAddr"];
    m_FadnEuse=m_Query->FieldValues["FadnEuse"];
    m_FadnFav=m_Query->FieldValues["FadnFav"];
    m_FadnModel=m_Query->FieldValues["FadnModel"];
    m_FadnSupply=m_Query->FieldValues["FadnSupply"];
    m_FadnFactory=m_Query->FieldValues["FadnFactory"];
    m_FadnArea=m_Query->FieldValues["FadnArea"];
    m_FadnOfDate=m_Query->FieldValues["FadnOfDate"];
    m_FadnDept=m_Query->FieldValues["FadnDept"];
    m_FadnCurrency=m_Query->FieldValues["FadnCurrency"];
    m_FadnERate=m_Query->FieldValues["FadnERate"];
    m_FadnOVal=m_Query->FieldValues["FadnOVal"];
    m_FadnWbOVal=m_Query->FieldValues["FadnWbOVal"];
    m_FadnPVal=m_Query->FieldValues["FadnPVal"];
    m_FadnEVal=m_Query->FieldValues["FadnEVal"];
    m_FadnCVal=m_Query->FieldValues["FadnCVal"];
    m_FadnDVal=m_Query->FieldValues["FadnDVal"];
    m_FadnBVal=m_Query->FieldValues["FadnBVal"];
    m_FadnTWork=m_Query->FieldValues["FadnTWork"];
    m_FadnAWork=m_Query->FieldValues["FadnAWork"];
    m_FadnBWork=m_Query->FieldValues["FadnBWork"];
    m_FadnPeriod=m_Query->FieldValues["FadnPeriod"];
    m_FadnAPeriod=m_Query->FieldValues["FadnAPeriod"];
    m_FadnBPeriod=m_Query->FieldValues["FadnBPeriod"];
    m_FadnFadm=m_Query->FieldValues["FadnFadm"];
    m_FadnUDate=m_Query->FieldValues["FadnUDate"];
    m_FadnAddType=m_Query->FieldValues["FadnAddType"];
    m_FadnDecType=m_Query->FieldValues["FadnDecType"];
    m_FadnStop=m_Query->FieldValues["FadnStop"];
    m_FadnDiscard=m_Query->FieldValues["FadnDiscard"];
    m_FadnRent=m_Query->FieldValues["FadnRent"];
    m_FadnFix=m_Query->FieldValues["FadnFix"];
    m_FadnDec=m_Query->FieldValues["FadnDec"];
    m_FadnAe=m_Query->FieldValues["FadnAe"];
    m_FadnFc=m_Query->FieldValues["FadnFc"];
    m_FadnFvct=m_Query->FieldValues["FadnFvct"];
    m_FadnYzGlkm=m_Query->FieldValues["FadnYzGlkm"];
    m_FadnYzDir=m_Query->FieldValues["FadnYzDir"];
    m_FadnZjGlkm=m_Query->FieldValues["FadnZjGlkm"];
    m_FadnZjDir=m_Query->FieldValues["FadnZjDir"];
    m_FadnQoGlkm=m_Query->FieldValues["FadnQoGlkm"];
    m_FadnQoDir=m_Query->FieldValues["FadnQoDir"];
    m_FadnQiGlkm=m_Query->FieldValues["FadnQiGlkm"];
    m_FadnQiDir=m_Query->FieldValues["FadnQiDir"];
    m_FadnCzGlkm=m_Query->FieldValues["FadnCzGlkm"];
    m_FadnCzDir=m_Query->FieldValues["FadnCzDir"];
    m_FadnZlGlkm=m_Query->FieldValues["FadnZlGlkm"];
    m_FadnZlDir=m_Query->FieldValues["FadnZlDir"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdFadn::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_FadnCode.IsEmpty()==true)
        throw Exception("单号不能为空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
      {
        m_StoredProc->ProcedureName="sdFadn_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@FadnCode",ftString,pdInput,18,m_FadnCode);
        m_StoredProc->Parameters->CreateParameter("@FadnName",ftString,pdInput,20,m_FadnName);
        m_StoredProc->Parameters->CreateParameter("@FadnDesc",ftString,pdInput,40,m_FadnDesc);
        m_StoredProc->Parameters->CreateParameter("@FadnFat",ftString,pdInput,18,m_FadnFat);
        m_StoredProc->Parameters->CreateParameter("@FadnUnit",ftString,pdInput,18,m_FadnUnit);
        m_StoredProc->Parameters->CreateParameter("@FadnDate",ftString,pdInput,10,m_FadnDate);
        m_StoredProc->Parameters->CreateParameter("@FadnFmonth",ftString,pdInput,6,m_FadnFmonth);
        m_StoredProc->Parameters->CreateParameter("@FadnFaUse",ftString,pdInput,18,m_FadnFaUse);
        m_StoredProc->Parameters->CreateParameter("@FadnAddr",ftString,pdInput,40,m_FadnAddr);
        m_StoredProc->Parameters->CreateParameter("@FadnEuse",ftInteger,pdInput,1,m_FadnEuse);
        m_StoredProc->Parameters->CreateParameter("@FadnFav",ftString,pdInput,18,m_FadnFav);
        m_StoredProc->Parameters->CreateParameter("@FadnModel",ftString,pdInput,18,m_FadnModel);
        m_StoredProc->Parameters->CreateParameter("@FadnSupply",ftString,pdInput,18,m_FadnSupply);
        m_StoredProc->Parameters->CreateParameter("@FadnFactory",ftString,pdInput,40,m_FadnFactory);
        m_StoredProc->Parameters->CreateParameter("@FadnArea",ftString,pdInput,40,m_FadnArea);
        m_StoredProc->Parameters->CreateParameter("@FadnOfDate",ftString,pdInput,10,m_FadnOfDate);
        m_StoredProc->Parameters->CreateParameter("@FadnDept",ftString,pdInput,18,m_FadnDept);
        m_StoredProc->Parameters->CreateParameter("@FadnCurrency",ftString,pdInput,18,m_FadnCurrency);
        m_StoredProc->Parameters->CreateParameter("@FadnERate",ftFloat,pdInput,12,m_FadnERate);
        m_StoredProc->Parameters->CreateParameter("@FadnOVal",ftFloat,pdInput,12,m_FadnOVal);
        m_StoredProc->Parameters->CreateParameter("@FadnWbOVal",ftFloat,pdInput,12,m_FadnWbOVal);
        m_StoredProc->Parameters->CreateParameter("@FadnPVal",ftFloat,pdInput,12,m_FadnPVal);
        m_StoredProc->Parameters->CreateParameter("@FadnEVal",ftFloat,pdInput,12,m_FadnEVal);
        m_StoredProc->Parameters->CreateParameter("@FadnCVal",ftFloat,pdInput,12,m_FadnCVal);
        m_StoredProc->Parameters->CreateParameter("@FadnDVal",ftFloat,pdInput,12,m_FadnDVal);
        m_StoredProc->Parameters->CreateParameter("@FadnBVal",ftFloat,pdInput,12,m_FadnBVal);
        m_StoredProc->Parameters->CreateParameter("@FadnTWork",ftFloat,pdInput,12,m_FadnTWork);
        m_StoredProc->Parameters->CreateParameter("@FadnAWork",ftFloat,pdInput,12,m_FadnAWork);
        m_StoredProc->Parameters->CreateParameter("@FadnBWork",ftFloat,pdInput,12,m_FadnBWork);
        m_StoredProc->Parameters->CreateParameter("@FadnPeriod",ftInteger,pdInput,10,m_FadnPeriod);
        m_StoredProc->Parameters->CreateParameter("@FadnAPeriod",ftInteger,pdInput,10,m_FadnAPeriod);
        m_StoredProc->Parameters->CreateParameter("@FadnBPeriod",ftInteger,pdInput,10,m_FadnBPeriod);
        m_StoredProc->Parameters->CreateParameter("@FadnFadm",ftString,pdInput,18,m_FadnFadm);
        m_StoredProc->Parameters->CreateParameter("@FadnUDate",ftString,pdInput,10,m_FadnUDate);
        m_StoredProc->Parameters->CreateParameter("@FadnAddType",ftString,pdInput,18,m_FadnAddType);
        m_StoredProc->Parameters->CreateParameter("@FadnDecType",ftString,pdInput,18,m_FadnDecType);
        m_StoredProc->Parameters->CreateParameter("@FadnStop",ftInteger,pdInput,1,m_FadnStop);
        m_StoredProc->Parameters->CreateParameter("@FadnDiscard",ftInteger,pdInput,1,m_FadnDiscard);
        m_StoredProc->Parameters->CreateParameter("@FadnRent",ftInteger,pdInput,1,m_FadnRent);
        m_StoredProc->Parameters->CreateParameter("@FadnFix",ftInteger,pdInput,1,m_FadnFix);
        m_StoredProc->Parameters->CreateParameter("@FadnDec",ftInteger,pdInput,1,m_FadnDec);
        m_StoredProc->Parameters->CreateParameter("@FadnAe",ftInteger,pdInput,1,m_FadnAe);
        m_StoredProc->Parameters->CreateParameter("@FadnFc",ftInteger,pdInput,1,m_FadnFc);
        m_StoredProc->Parameters->CreateParameter("@FadnFvct",ftString,pdInput,18,m_FadnFvct);
        m_StoredProc->Parameters->CreateParameter("@FadnYzGlkm",ftString,pdInput,18,m_FadnYzGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnYzDir",ftFloat,pdInput,5,m_FadnYzDir);
        m_StoredProc->Parameters->CreateParameter("@FadnZjGlkm",ftString,pdInput,18,m_FadnZjGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnZjDir",ftFloat,pdInput,5,m_FadnZjDir);
        m_StoredProc->Parameters->CreateParameter("@FadnQoGlkm",ftString,pdInput,18,m_FadnQoGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnQoDir",ftFloat,pdInput,5,m_FadnQoDir);
        m_StoredProc->Parameters->CreateParameter("@FadnQiGlkm",ftString,pdInput,18,m_FadnQiGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnQiDir",ftFloat,pdInput,5,m_FadnQiDir);
        m_StoredProc->Parameters->CreateParameter("@FadnCzGlkm",ftString,pdInput,18,m_FadnCzGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnCzDir",ftFloat,pdInput,5,m_FadnCzDir);
        m_StoredProc->Parameters->CreateParameter("@FadnZlGlkm",ftString,pdInput,18,m_FadnZlGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnZlDir",ftFloat,pdInput,5,m_FadnZlDir);
 
        m_StoredProc->ExecProc();
        m_StoredProc->Close();
   }
  else
    {
        m_StoredProc->ProcedureName="sdFadn_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_FadnCode",ftString,pdInput,18,b_FadnCode);
        m_StoredProc->Parameters->CreateParameter("@FadnCode",ftString,pdInput,18,m_FadnCode);
        m_StoredProc->Parameters->CreateParameter("@FadnName",ftString,pdInput,20,m_FadnName);
        m_StoredProc->Parameters->CreateParameter("@FadnDesc",ftString,pdInput,40,m_FadnDesc);
        m_StoredProc->Parameters->CreateParameter("@FadnFat",ftString,pdInput,18,m_FadnFat);
        m_StoredProc->Parameters->CreateParameter("@FadnUnit",ftString,pdInput,18,m_FadnUnit);
        m_StoredProc->Parameters->CreateParameter("@FadnDate",ftString,pdInput,10,m_FadnDate);
        m_StoredProc->Parameters->CreateParameter("@FadnFmonth",ftString,pdInput,6,m_FadnFmonth);
        m_StoredProc->Parameters->CreateParameter("@FadnFaUse",ftString,pdInput,18,m_FadnFaUse);
        m_StoredProc->Parameters->CreateParameter("@FadnAddr",ftString,pdInput,40,m_FadnAddr);
        m_StoredProc->Parameters->CreateParameter("@FadnEuse",ftInteger,pdInput,1,m_FadnEuse);
        m_StoredProc->Parameters->CreateParameter("@FadnFav",ftString,pdInput,18,m_FadnFav);
        m_StoredProc->Parameters->CreateParameter("@FadnModel",ftString,pdInput,18,m_FadnModel);
        m_StoredProc->Parameters->CreateParameter("@FadnSupply",ftString,pdInput,18,m_FadnSupply);
        m_StoredProc->Parameters->CreateParameter("@FadnFactory",ftString,pdInput,40,m_FadnFactory);
        m_StoredProc->Parameters->CreateParameter("@FadnArea",ftString,pdInput,40,m_FadnArea);
        m_StoredProc->Parameters->CreateParameter("@FadnOfDate",ftString,pdInput,10,m_FadnOfDate);
        m_StoredProc->Parameters->CreateParameter("@FadnDept",ftString,pdInput,18,m_FadnDept);
        m_StoredProc->Parameters->CreateParameter("@FadnCurrency",ftString,pdInput,18,m_FadnCurrency);
        m_StoredProc->Parameters->CreateParameter("@FadnERate",ftFloat,pdInput,12,m_FadnERate);
        m_StoredProc->Parameters->CreateParameter("@FadnOVal",ftFloat,pdInput,12,m_FadnOVal);
        m_StoredProc->Parameters->CreateParameter("@FadnWbOVal",ftFloat,pdInput,12,m_FadnWbOVal);
        m_StoredProc->Parameters->CreateParameter("@FadnPVal",ftFloat,pdInput,12,m_FadnPVal);
        m_StoredProc->Parameters->CreateParameter("@FadnEVal",ftFloat,pdInput,12,m_FadnEVal);
        m_StoredProc->Parameters->CreateParameter("@FadnCVal",ftFloat,pdInput,12,m_FadnCVal);
        m_StoredProc->Parameters->CreateParameter("@FadnDVal",ftFloat,pdInput,12,m_FadnDVal);
        m_StoredProc->Parameters->CreateParameter("@FadnBVal",ftFloat,pdInput,12,m_FadnBVal);
        m_StoredProc->Parameters->CreateParameter("@FadnTWork",ftFloat,pdInput,12,m_FadnTWork);
        m_StoredProc->Parameters->CreateParameter("@FadnAWork",ftFloat,pdInput,12,m_FadnAWork);
        m_StoredProc->Parameters->CreateParameter("@FadnBWork",ftFloat,pdInput,12,m_FadnBWork);
        m_StoredProc->Parameters->CreateParameter("@FadnPeriod",ftInteger,pdInput,10,m_FadnPeriod);
        m_StoredProc->Parameters->CreateParameter("@FadnAPeriod",ftInteger,pdInput,10,m_FadnAPeriod);
        m_StoredProc->Parameters->CreateParameter("@FadnBPeriod",ftInteger,pdInput,10,m_FadnBPeriod);
        m_StoredProc->Parameters->CreateParameter("@FadnFadm",ftString,pdInput,18,m_FadnFadm);
        m_StoredProc->Parameters->CreateParameter("@FadnUDate",ftString,pdInput,10,m_FadnUDate);
        m_StoredProc->Parameters->CreateParameter("@FadnAddType",ftString,pdInput,18,m_FadnAddType);
        m_StoredProc->Parameters->CreateParameter("@FadnDecType",ftString,pdInput,18,m_FadnDecType);
        m_StoredProc->Parameters->CreateParameter("@FadnStop",ftInteger,pdInput,1,m_FadnStop);
        m_StoredProc->Parameters->CreateParameter("@FadnDiscard",ftInteger,pdInput,1,m_FadnDiscard);
        m_StoredProc->Parameters->CreateParameter("@FadnRent",ftInteger,pdInput,1,m_FadnRent);
        m_StoredProc->Parameters->CreateParameter("@FadnFix",ftInteger,pdInput,1,m_FadnFix);
        m_StoredProc->Parameters->CreateParameter("@FadnDec",ftInteger,pdInput,1,m_FadnDec);
        m_StoredProc->Parameters->CreateParameter("@FadnAe",ftInteger,pdInput,1,m_FadnAe);
        m_StoredProc->Parameters->CreateParameter("@FadnFc",ftInteger,pdInput,1,m_FadnFc);
        m_StoredProc->Parameters->CreateParameter("@FadnFvct",ftString,pdInput,18,m_FadnFvct);
        m_StoredProc->Parameters->CreateParameter("@FadnYzGlkm",ftString,pdInput,18,m_FadnYzGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnYzDir",ftFloat,pdInput,5,m_FadnYzDir);
        m_StoredProc->Parameters->CreateParameter("@FadnZjGlkm",ftString,pdInput,18,m_FadnZjGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnZjDir",ftFloat,pdInput,5,m_FadnZjDir);
        m_StoredProc->Parameters->CreateParameter("@FadnQoGlkm",ftString,pdInput,18,m_FadnQoGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnQoDir",ftFloat,pdInput,5,m_FadnQoDir);
        m_StoredProc->Parameters->CreateParameter("@FadnQiGlkm",ftString,pdInput,18,m_FadnQiGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnQiDir",ftFloat,pdInput,5,m_FadnQiDir);
        m_StoredProc->Parameters->CreateParameter("@FadnCzGlkm",ftString,pdInput,18,m_FadnCzGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnCzDir",ftFloat,pdInput,5,m_FadnCzDir);
        m_StoredProc->Parameters->CreateParameter("@FadnZlGlkm",ftString,pdInput,18,m_FadnZlGlkm);
        m_StoredProc->Parameters->CreateParameter("@FadnZlDir",ftFloat,pdInput,5,m_FadnZlDir);
 
       m_StoredProc->ExecProc();
       m_StoredProc->Close();
   }
  TsdFadn *p=new TsdFadn();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,p->FadnCode);
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->FadnCode,this->b_FadnCode);
    }
}
//---------------------------------------------------------------------------
void TsdFadn::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_FadnCode.IsEmpty()==true)
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdFadn_Delete";
    m_StoredProc->Parameters->Clear();
    m_StoredProc->Parameters->CreateParameter("@W_FadnCode",ftString,pdInput,18,b_FadnCode);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_FadnCode);
}
//---------------------------------------------------------------------------
void TsdFadn::Assign(TsdFadn *p)
{
    this->SetActionID(p->CurStatus);
    this->m_FadnCode=p->m_FadnCode;
    this->m_FadnName=p->m_FadnName;
    this->m_FadnDesc=p->m_FadnDesc;
    this->m_FadnFat=p->m_FadnFat;
    this->m_FadnUnit=p->m_FadnUnit;
    this->m_FadnDate=p->m_FadnDate;
    this->m_FadnFmonth=p->m_FadnFmonth;
    this->m_FadnFaUse=p->m_FadnFaUse;
    this->m_FadnAddr=p->m_FadnAddr;
    this->m_FadnEuse=p->m_FadnEuse;
    this->m_FadnFav=p->m_FadnFav;
    this->m_FadnModel=p->m_FadnModel;
    this->m_FadnSupply=p->m_FadnSupply;
    this->m_FadnFactory=p->m_FadnFactory;
    this->m_FadnArea=p->m_FadnArea;
    this->m_FadnOfDate=p->m_FadnOfDate;
    this->m_FadnDept=p->m_FadnDept;
    this->m_FadnCurrency=p->m_FadnCurrency;
    this->m_FadnERate=p->m_FadnERate;
    this->m_FadnOVal=p->m_FadnOVal;
    this->m_FadnWbOVal=p->m_FadnWbOVal;
    this->m_FadnPVal=p->m_FadnPVal;
    this->m_FadnEVal=p->m_FadnEVal;
    this->m_FadnCVal=p->m_FadnCVal;
    this->m_FadnDVal=p->m_FadnDVal;
    this->m_FadnBVal=p->m_FadnBVal;
    this->m_FadnTWork=p->m_FadnTWork;
    this->m_FadnAWork=p->m_FadnAWork;
    this->m_FadnBWork=p->m_FadnBWork;
    this->m_FadnPeriod=p->m_FadnPeriod;
    this->m_FadnAPeriod=p->m_FadnAPeriod;
    this->m_FadnBPeriod=p->m_FadnBPeriod;
    this->m_FadnFadm=p->m_FadnFadm;
    this->m_FadnUDate=p->m_FadnUDate;
    this->m_FadnAddType=p->m_FadnAddType;
    this->m_FadnDecType=p->m_FadnDecType;
    this->m_FadnStop=p->m_FadnStop;
    this->m_FadnDiscard=p->m_FadnDiscard;
    this->m_FadnRent=p->m_FadnRent;
    this->m_FadnFix=p->m_FadnFix;
    this->m_FadnDec=p->m_FadnDec;
    this->m_FadnAe=p->m_FadnAe;
    this->m_FadnFc=p->m_FadnFc;
    this->m_FadnFvct=p->m_FadnFvct;
    this->m_FadnYzGlkm=p->m_FadnYzGlkm;
    this->m_FadnYzDir=p->m_FadnYzDir;
    this->m_FadnZjGlkm=p->m_FadnZjGlkm;
    this->m_FadnZjDir=p->m_FadnZjDir;
    this->m_FadnQoGlkm=p->m_FadnQoGlkm;
    this->m_FadnQoDir=p->m_FadnQoDir;
    this->m_FadnQiGlkm=p->m_FadnQiGlkm;
    this->m_FadnQiDir=p->m_FadnQiDir;
    this->m_FadnCzGlkm=p->m_FadnCzGlkm;
    this->m_FadnCzDir=p->m_FadnCzDir;
    this->m_FadnZlGlkm=p->m_FadnZlGlkm;
    this->m_FadnZlDir=p->m_FadnZlDir;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdFadn::AssignValue()
{
    TsdFadn *p=(TsdFadn *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdFadn::Query()
{
    AnsiString m_SqlStr;
    m_SqlStr=QueryString;
    if(FilterString.IsEmpty()==false)
        m_SqlStr=m_SqlStr+" where  "+FilterString;
    if(OrderString.IsEmpty()==false)
        m_SqlStr=m_SqlStr+" Order by "+OrderString;
    m_Query->Close();
    m_Query->SQL->Clear();
    m_Query->SQL->Add(m_SqlStr);
    m_Query->Open();
    ClearRecord();
    if(m_Query->RecordCount>0)
    {
        m_Query->First();
        while(!m_Query->Eof)
        {
            BatchLetValue();
            TsdFadn *p=new TsdFadn();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->FadnCode);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdFadn::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表达式不能为空");