ydfdbl.cpp

营业用电管理系统(网络版)是本公司推出的新一代软件产品

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

#include <vcl.h>
#pragma hdrstop

#include "YDfdbl.h"
#include "YDywsl.h"
#include "YDdatam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFfdbl *Ffdbl;
//---------------------------------------------------------------------------
__fastcall TFfdbl::TFfdbl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TFfdbl::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBmldj->Close();
 Fywsl->add=false;
 Fywsl->edit=false;
 Fywsl->brow=true;

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

void __fastcall TFfdbl::BitBtn1Click(TObject *Sender)
{
    YDData->TBdjkp->FieldByName("klbs")->AsString=YDData->TByhda->FieldByName("klbs")->AsString;
    YDData->TBdjkp->FieldByName("xzq")->AsString=YDData->TByhda->FieldByName("xzq")->AsString;
    YDData->TBdjkp->FieldByName("gddy")->AsString=YDData->TByhda->FieldByName("gddy")->AsString;
    YDData->TBmldj->First();
    while (!YDData->TBmldj->Eof)
     {
      if (YDData->TBmldj->FieldByName("dy")->AsString+" "+
      YDData->TBmldj->FieldByName("lb")->AsString==DBComboBox1->Text)
       {
         if (YDData->TBdjkp->FieldByName("gddy")->AsString=="不满1千伏")
           {
             YDData->TBdjkp->FieldByName("djf")->AsFloat=YDData->TBmldj->FieldByName("dj1f")->AsFloat;
             YDData->TBdjkp->FieldByName("djp")->AsFloat=YDData->TBmldj->FieldByName("dj1")->AsFloat;
             YDData->TBdjkp->FieldByName("djg")->AsFloat=YDData->TBmldj->FieldByName("dj1g")->AsFloat;
           }
         if (YDData->TBdjkp->FieldByName("gddy")->AsString=="1-10千伏")
            {
             YDData->TBdjkp->FieldByName("djf")->AsFloat=YDData->TBmldj->FieldByName("dj2f")->AsFloat;
             YDData->TBdjkp->FieldByName("djp")->AsFloat=YDData->TBmldj->FieldByName("dj2")->AsFloat;
             YDData->TBdjkp->FieldByName("djg")->AsFloat=YDData->TBmldj->FieldByName("dj2g")->AsFloat;
            }
         if (YDData->TBdjkp->FieldByName("gddy")->AsString=="35千伏及以上")
            {
             YDData->TBdjkp->FieldByName("djf")->AsFloat=YDData->TBmldj->FieldByName("dj3f")->AsFloat;
             YDData->TBdjkp->FieldByName("djp")->AsFloat=YDData->TBmldj->FieldByName("dj3")->AsFloat;
             YDData->TBdjkp->FieldByName("djg")->AsFloat=YDData->TBmldj->FieldByName("dj3g")->AsFloat;
            }
         if (YDData->TBdjkp->FieldByName("gddy")->AsString=="110千伏及以上")
            {
             YDData->TBdjkp->FieldByName("djf")->AsFloat=YDData->TBmldj->FieldByName("dj4f")->AsFloat;
             YDData->TBdjkp->FieldByName("djp")->AsFloat=YDData->TBmldj->FieldByName("dj4")->AsFloat;
             YDData->TBdjkp->FieldByName("djg")->AsFloat=YDData->TBmldj->FieldByName("dj4g")->AsFloat;
            }
       }
      YDData->TBmldj->Next();
     }

     YDData->TBydfl->Open();
     while (!YDData->TBydfl->Eof)
        {
          if (YDData->TBydfl->FieldByName("fl_bkdj")->AsString.AnsiPos(DBComboBox1->Text.SubString(1,DBComboBox1->Text.AnsiPos(" ")-1))>0)
            {
              YDData->TBdjkp->FieldByName("ydfl")->AsString=YDData->TBydfl->FieldByName("fl_mc")->AsString;
              break;
            }
          YDData->TBydfl->Next();
        }
     YDData->TBydfl->Close();
     YDData->TBdjkp->Post();
     YDData->TBdjkp->Close();
     YDData->TBdjkp->Open();

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

void __fastcall TFfdbl::BitBtn3Click(TObject *Sender)
{
    YDData->TBdjkp->Cancel();          
}
//---------------------------------------------------------------------------

void __fastcall TFfdbl::FormCreate(TObject *Sender)
{
 YDData->TBmldj->Open();
 YDData->TBmldj->First();
 while (!YDData->TBmldj->Eof)
  {
   AnsiString dmmc=YDData->TBmldj->FieldByName("dy")->AsString+" "+
   YDData->TBmldj->FieldByName("lb")->AsString;
   if (Trim(YDData->TBmldj->FieldByName("lb")->AsString)!="")
        DBComboBox1->Items->Add(dmmc);
   YDData->TBmldj->Next();
  }

 if (Fywsl->add)
   {
    int khn;
    if (YDData->TBdjkp->RecordCount>0)
     {
      YDData->TBdjkp->Last();
      khn=StrToInt(YDData->TBdjkp->FieldByName("kh")->AsString)+1;
     }
    else
      khn=1;
    int khcd=IntToStr(khn).Length();
    AnsiString qdl="0000";
    AnsiString khc=qdl.SubString(1,4-khcd)+IntToStr(khn);
    YDData->TBdjkp->Append();
    YDData->TBdjkp->FieldByName("hhhh")->AsString=YDData->TByhda->FieldByName("hhhh")->AsString;
    YDData->TBdjkp->FieldByName("dbbh")->AsString=YDData->TBdbda->FieldByName("dbbh")->AsString;
    YDData->TBdjkp->FieldByName("kh")->AsString=khc;
    YDData->TBdjkp->FieldByName("ydfl")->AsString="";
    YDData->TBdjkp->FieldByName("hsqx")->AsString=YDData->TBxtcs->FieldByName("xt_hsqx")->AsString;

  }

   YDData->TBdjkp->Edit();
    if (YDData->TBdbda->FieldByName("dblb")->AsString.SubString(5,2)=="复")
      {
        DBEdit2->Enabled=true;
        DBEdit4->Enabled=true;
        DBComboBox2->Enabled=true;
        DBComboBox4->Enabled=true;
      }
      else
      {
        DBEdit2->Enabled=false;
        DBEdit4->Enabled=false;
        DBComboBox2->Enabled=false;
        DBComboBox4->Enabled=false;
      }

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