fadn.cpp

科思ERP部分源码及控件

    {
        seFadnYzGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
        if(GetGlkmValue(gtOpenForm, "GLKMDIR")=="1")
            raFadnYzDir0->Checked=true;
        else
        raFadnYzDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::muEditDetailClick(TObject *Sender)
{
    TComResultSet *TResultSet=new  TComResultSet(Handle,g_ClientHandle);
    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)
    {
      delete TResultSet;
      TRecBaseForm::muEditDetailClick(Sender);
      SetSomeVclState(false);
    }
    else
    {
       delete TResultSet;
       TRecBaseForm::muEditDetailClick(Sender);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::SetSomeVclState(bool Flg)
{
   if(Flg)
   {
    FloatPanel4->Enabled=true;
    scFadnFaUse->Enabled=true;
    scFadnEuse->Enabled=true;
    scFadnAddType->Enabled=true;
    seFadnCode->Enabled=true;
    seFadnName->Enabled=true;
   }
   else
   {
    FloatPanel4->Enabled=false;
    scFadnFaUse->Enabled=false;
    scFadnEuse->Enabled=false;
    scFadnAddType->Enabled=false;
    seFadnCode->Enabled=false;
    seFadnName->Enabled=false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnZlGlkmButtonClick(TObject *Sender)
{
   if(OpenGlkmForm())
   {
     seFadnZlGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
     if(GetGlkmValue(gtOpenForm, "GLKMDIR")=="1")
      raFadnZlDir0->Checked=true;
     else
      raFadnZlDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnZjGlkmButtonClick(TObject *Sender)
{
   if(OpenGlkmForm())
   {
        seFadnZjGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
        if(GetGlkmValue(gtOpenForm, "GLKMDIR")=="1")
            raFadnZjDir0->Checked=true;
        else
            raFadnZjDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnQoGlkmButtonClick(TObject *Sender)
{
   if(OpenGlkmForm())
   {
        seFadnQoGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
        if(GetGlkmValue(gtOpenForm, "GLKMDIR")=="1")
        raFadnQoDir0->Checked=true;
        else
        raFadnQoDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnCzGlkmButtonClick(TObject *Sender)
{
   if(OpenGlkmForm())
   {
        seFadnCzGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
        if(GetGlkmValue(gtOpenForm, "GLKMDIR")=="1")
        raFadnCzDir0->Checked=true;
        else
        raFadnCzDir1->Checked=true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnQiGlkmButtonClick(TObject *Sender)
{
   if(OpenGlkmForm())
   {
        seFadnQiGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
        if(GetGlkmValue(gtOpenForm, "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(Query,seFadnFat,"select  fatcode ,fatname from sdfat order By fatcode","fatName","fatcode");
         break;
        case euSdFadm:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(Query,scFadnFadm,"select fadmcode,fadmname from sdfadm order By fadmcode","fadmName","fadmCode");
         break;
        case euSdUnit:
          if(ShowUpdateMessage(MsgSrc,MsgType))
             FillComboBox(Query,scFadnUnit,"select unitcode,unitname from sdunit order By unitcode","unitName","unitCode");
         break;
        case euSdSupply:
          if(ShowUpdateMessage(MsgSrc,MsgType))
              FillEdit(Query,seFadnSupply,"select supplycode,supplyname from sdsupply  order By supplycode","supplyName","supplyCode");
         break;
        case euSdFaUse:
          if(ShowUpdateMessage(MsgSrc,MsgType))
             FillComboBox(Query,scFadnFaUse,"select FaUsecode,FaUsename from sdFaUse order By FaUsecode","FaUseName","FaUseCode");
         break;
        case euSdFav:
          if(ShowUpdateMessage(MsgSrc,MsgType))
          {
            FillComboBox(Query,scFadnAddType,"select Favcode,Favname from sdFav where favtype='1' order By Favcode","FavName","FavCode");
            FillComboBox(Query,scFadnDecType,"select Favcode,Favname from sdFav where favtype='2' order By Favcode","FavName","FavCode");
            FillComboBox(Query,scFadnFav,"select Favcode,Favname from sdFav where favtype='3' order By Favcode","FavName","FavCode");
          }
         break;
        case euSdDept:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillEdit(Query,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(Query,seFadnCurrency,sSql,"CurrencyCode","CurrencyName","Currencyrate","currencyLocal");
          }
         break;
        case euSdFvct:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(Query,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::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="004[设备分类编码][设备分类名称][折旧方法代码][折旧方法名称]select  fatcode ,fatname,FATFADMCODE,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->LocateKey(p->ColData[1]);
      seFadnFat->Text=p->ColData[2];
      scFadnFadm->LocateKey(p->ColData[3]);
      scFadnFadm->Text=p->ColData[4];
    }
    delete p;

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


void __fastcall TfrmFadn::FormClose(TObject *Sender, TCloseAction &Action)
{
   //delete g_sdRsGlkm; //此在基类声明,不能在这Free;
   TRecBaseForm::FormClose(Sender,Action);

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::chkFadnAeMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(chkFadnAe->Checked)
    {
      if(seFadnCode->Text.IsEmpty())
       throw Exception("设备编码不能为空");
      TfrmFaAe *p=new TfrmFaAe(this,g_ClientHandle,"1150407","",seFadnCode->Text,seFadnName->Text);
      p->ShowModal();
      delete p;
    }
}
//---------------------------------------------------------------------------