fadn.cpp

速达开源ERP系统

{
    TComResultSet *TResultSet=NewResultSet();
    AnsiString SQL=" select fadncode=faworkfadn from sdfawork  where (faworkfadn='"+seFadnCode->Text+"') union";
    SQL+=" select fadncode=FADECCODE from sdfadec  where  ( FADECFadn='"+seFadnCode->Text+"') union";
    SQL+=" select fadncode=faDisCardfadn from sdfaDisCard  where (faDisCardfadn='"+seFadnCode->Text+"') union";
    SQL+=" select fadncode=FachgFadn from sdFachg  where (faChgfadn='"+seFadnCode->Text+"') union ";
    SQL+=" select fadncode=FARENTFADN from sdFaRent  where (FARENTFADN='"+seFadnCode->Text+"') union ";
    SQL+=" select fadncode=FAStopFADN from sdFaStop  where (FAStopFADN='"+seFadnCode->Text+"') union ";
    SQL+=" select fadncode=FAFixFADN from sdFaFix  where (FAFixFADN='"+seFadnCode->Text+"') union ";
    SQL+=" select fadncode=FAAcdFADN from sdFaAcd  where (FAAcdFADN='"+seFadnCode->Text+"') union ";
    SQL+=" select fadncode=FACheckFADN from sdFaCheck  where (FACheckFADN='"+seFadnCode->Text+"') ";
    TResultSet->Close();
    TResultSet->Open(SQL,"");
    SetSomeVclState(true);
    if(TResultSet->RecordCount>0)
    {
      if(Application->MessageBox("相关字段已被引用,不能改，是否继续 ？","确认",MB_OKCANCEL)==IDOK)
     {
      delete TResultSet;
      TRecBaseForm::muEditDetailClick(Sender);
      SetSomeVclState(false);
     }
     else
     {
       TResultSet->Close();
       delete TResultSet;
       return ;
     }
    }
    else
      TRecBaseForm::muEditDetailClick(Sender);

    chkFadnAe->Enabled=true;
    if(chkFadnAe->Checked)
      sbadFaAe->Enabled=true;
    else
      sbadFaAe->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::SetSomeVclState(bool Flg)
{
   if(Flg)
   {
    FloatPanel4->Enabled=true;
    scFadnFaUse->Enabled=true;
    seFadnFat->Enabled=true;
    seFadnDept->Enabled=true;
    scFadnEuse->Enabled=true;
    scFadnAddType->Enabled=true;
    seFadnCode->Enabled=true;
    seFadnName->Enabled=true;
   }
   else
   {
    FloatPanel4->Enabled=false;
    scFadnFaUse->Enabled=false;
    seFadnFat->Enabled=false;
    seFadnDept->Enabled=false;
    scFadnEuse->Enabled=false;
    scFadnAddType->Enabled=false;
    seFadnCode->Enabled=false;
    seFadnName->Enabled=false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnZlGlkmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
   {
     seFadnZlGlkm->Text=GetGlkmValue("GLKMCODE");
     if(GetGlkmValue("GLKMDIR")=="1")
      raFadnZlDir0->Checked=true;
     else
      raFadnZlDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnZjGlkmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
   {
     seFadnZjGlkm->Text=GetGlkmValue("GLKMCODE");
    if(GetGlkmValue("GLKMDIR")=="1")
      raFadnZjDir0->Checked=true;
    else
      raFadnZjDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnQoGlkmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
   {
     seFadnQoGlkm->Text=GetGlkmValue("GLKMCODE");
     if(GetGlkmValue("GLKMDIR")=="1")
      raFadnQoDir0->Checked=true;
     else
      raFadnQoDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnCzGlkmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
   {
    seFadnCzGlkm->Text=GetGlkmValue("GLKMCODE");
    if(GetGlkmValue("GLKMDIR")=="1")
      raFadnCzDir0->Checked=true;
    else
      raFadnCzDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnQiGlkmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
   {
     seFadnQiGlkm->Text=GetGlkmValue("GLKMCODE");
     if(GetGlkmValue("GLKMDIR")=="1")
      raFadnQiDir0->Checked=true;
     else
      raFadnQiDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::RefreshUpdateData(int MsgSrc,int MsgType)
{
     AnsiString  sSql;
      switch(MsgSrc)
      {
        case euSdFat:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillEdit(seFadnFat,"select  fatcode ,fatname from sdfat order By fatcode","fatName","fatcode");
         break;
        case euSdFadm:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(scFadnFadm,"select fadmcode,fadmname from sdfadm order By fadmcode","fadmName","fadmCode");
         break;
        case euSdUnit:
          if(ShowUpdateMessage(MsgSrc,MsgType))
             FillComboBox(scFadnUnit,"select unitcode,unitname from sdunit order By unitcode","unitName","unitCode");
         break;
        case euSdSupply:
          if(ShowUpdateMessage(MsgSrc,MsgType))
              FillEdit(seFadnSupply,"select supplycode,supplyname from sdsupply  order By supplycode","supplyName","supplyCode");
         break;
        case euSdFaUse:
          if(ShowUpdateMessage(MsgSrc,MsgType))
             FillComboBox(scFadnFaUse,"select FaUsecode,FaUsename from sdFaUse order By FaUsecode","FaUseName","FaUseCode");
         break;
        case euSdFav:
          if(ShowUpdateMessage(MsgSrc,MsgType))
          {
            FillComboBox(scFadnAddType,"select Favcode,Favname from sdFav where favtype='1' order By Favcode","FavName","FavCode");
            FillComboBox(scFadnDecType,"select Favcode,Favname from sdFav where favtype='2' order By Favcode","FavName","FavCode");
            FillComboBox(scFadnFav,"select Favcode,Favname from sdFav where favtype='3' order By Favcode","FavName","FavCode");
          }
         break;
        case euSdDept:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillEdit(seFadnDept,"select Deptcode,Deptname from sdDept  order By Deptcode","DeptName","DeptCode");
         break;
        case euSdCurrency:
          if(ShowUpdateMessage(MsgSrc,MsgType))
          {
           sSql=AnsiString("select currencycode,currencyname,currencyrate=coalesce(rateratio,1) ,currencylocal from sdcurrency,sdrate");
           sSql+=" where currencycode*=ratecurrency and ratefmonth='"+g_sdEMonth+"'";
           FillEdit(seFadnCurrency,sSql,"CurrencyCode","CurrencyName","Currencyrate","currencyLocal");
          }
         break;
        case euSdFvct:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(scFadnFvct,"select Fvctcode,Fvctname from sdFvct order By FvctCode","FvctName","FvctCode");
         break;
       default:
          break;
      }
 }
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFadnCode->Text);
      GetDataFromComObject();
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::sbadFaAeClick(TObject *Sender)
{
   TfrmFaAe *FadnFaAe=new TfrmFaAe(this,seFadnCode->Text,seFadnName->Text);
   FadnFaAe->ShowModal();
   delete FadnFaAe;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::scFadnFadmClick(TObject *Sender)
{
  if(scFadnFadm->Text=="工作量法")
   {
     PW->Visible=true;
     seFadnPeriod->Text="0";
     seFadnAPeriod->Text="0";
     seFadnBPeriod->Text="0";
     seFadnBWork->SetFocus();
   }
   else
   {
     PW->Visible=false;
     seFadnTWork->Text="0";
     seFadnAWork->Text="0";
     seFadnBWork->Text="0";
     seFadnBPeriod->SetFocus();
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::sgFadnClick(TObject *Sender)
{
    if (sgFadn->Row > 0)
         comServer->LocateByKey(sgFadn->TextMatrix[sgFadn->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnCurrencyButtonClick(TObject *Sender)
{
    AnsiString sSql;
    TfrmWnQuery *p;
    sSql="004[货币代码][货币名称][货币汇率][本位币标志] select currencycode,currencyname,currencyrate=coalesce(rateratio,1) ,currencylocal from ";
    sSql+=" sdcurrency,sdrate where currencycode*=ratecurrency and ratefmonth='"+g_sdEMonth+"'";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"货币汇率查询",sSql);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
       seFadnCurrency->LocateKey(p->ColData[1]);
       seFadnCurrency->Text=p->ColData[2];
       if(p->ColData[4]=="1")
       {
        seFadnERate->Text="1";
        seFadnWbOVal->Text="0";
        seFadnWbOVal->Enabled=false;
        seFadnOVal->Enabled=true;
        seFadnPVal->SetFocus();
       }
       else
       {
        seFadnERate->Text=p->ColData[3];
        seFadnWbOVal->Enabled=true;
        seFadnOVal->Enabled=false;
        seFadnWbOVal->SetFocus();
       }
    }
    delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnWbOValExit(TObject *Sender)
{
    double TempOval;
     if(seFadnWbOVal->Text.IsEmpty())
      TempOval=0;
     else
      TempOval=seFadnWbOVal->Text.ToDouble();
      TempOval=DataCarry(TempOval/seFadnERate->Text.ToDouble(),2,0);
      seFadnOVal->Text=AnsiString(TempOval);

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnSupplyButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="002[供应商编码][供应商名称]select supplycode,supplyname from sdsupply where SupplyCancel=0 order By supplycode";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"供应商查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
      seFadnSupply->Text=p->ColData[2];
      seFadnSupply->LocateKey(p->ColData[1]);
    }
    delete p;

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnDeptButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="002[部门编码][部门名称]select Deptcode,Deptname from sdDept where deptend='1' order By Deptcode";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"部门查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
      seFadnDept->Text=p->ColData[2];
      seFadnDept->LocateKey(p->ColData[1]);
    }
    delete p;

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnFatButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="003[设备分类编码][设备分类名称][折旧方法]select  fatcode ,fatname,fadmname from sdfat,sdfadm where FATFADMCODE=fadmcode and fatend='1' order By fatcode";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"设备类型查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
      seFadnFat->Text=p->ColData[2];
      seFadnFat->LocateKey(p->ColData[1]);
    }
    scFadnFadm->Text=p->ColData[3];
    if(p->ColData[3]=="工作量法")
    {
     PW->Visible=true;
     seFadnPeriod->Text="0";
     seFadnAPeriod->Text="0";
     seFadnBPeriod->Text="0";
    }
    else
    {
     PW->Visible=false;
     seFadnTWork->Text="0";
     seFadnAWork->Text="0";
     seFadnBWork->Text="0";
    }
    delete p;

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::muAddDetailClick(TObject *Sender)
{
   TRecBaseForm::muAddDetailClick(Sender);
   SetSomeVclState(true);
}
//---------------------------------------------------------------------------