yddbcs.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDdbcs.h"
#include "YDdatam.h"

#include "YDfjbl.h"
#include "YDhjtj_d.h"
#include "YDhntj_d.h"
#include "YDywsl.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TFdbcs *Fdbcs;
//---------------------------------------------------------------------------
__fastcall TFdbcs::TFdbcs(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------







void __fastcall TFdbcs::FormKeyPress(TObject *Sender, char &Key)
{
 if(Key==VK_RETURN)
   {
     SendMessage(this->Handle,WM_NEXTDLGCTL,0,0);
     Key=0;
   }

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

void __fastcall TFdbcs::DateTimePicker1Change(TObject *Sender)
{
  YDData->TBdbda->FieldByName("azsj")->AsString=DateToStr(DateTimePicker1->Date).SubString(1,10);

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

void __fastcall TFdbcs::DateTimePicker2Change(TObject *Sender)
{
  YDData->TBdbda->FieldByName("jysj")->AsString=DateToStr(DateTimePicker1->Date).SubString(1,10);
}
//---------------------------------------------------------------------------

void __fastcall TFdbcs::BitBtn1Click(TObject *Sender)
{
       YDData->TBtjgx->First();
       while (!YDData->TBtjgx->Eof)
         {
          if (YDData->TBtjgx->FieldByName("hhhhf")->AsString==YDData->TByhda->FieldByName("hhhh")->AsString&&
          YDData->TBtjgx->FieldByName("dbbhf")->AsString==DBEdit8->Text)
             {
               YDData->TBtjgx->Delete();
               break;

              }
         YDData->TBtjgx->Next();
         }

      if (Trim(DBComboBox6->Text)=="户间套接"||Trim(DBComboBox6->Text)=="户间分表")
        {
         YDData->TBtjgx->Append();
         YDData->TBtjgx->FieldByName("hhhh")->AsString=YDData->TBdbda->FieldByName("bbzj")->AsString;
         YDData->TBtjgx->FieldByName("dbbh")->AsString=YDData->TBdbda->FieldByName("zjbx")->AsString;
         YDData->TBtjgx->FieldByName("hhhhf")->AsString=YDData->TBdbda->FieldByName("hhhh")->AsString;
         YDData->TBtjgx->FieldByName("dbbhf")->AsString=DBEdit8->Text;
        if (Trim(DBComboBox6->Text)=="户间套接")
         YDData->TBtjgx->FieldByName("lb")->AsString="HT";
        else
         YDData->TBtjgx->FieldByName("lb")->AsString="FK";
         YDData->TBtjgx->Post();
        }

     AnsiString hhhh=YDData->TBdbda->FieldByName("hhhh")->AsString;
   //     YDData->TBdbda->Edit();
     YDData->TBdbda->FieldByName("gddy")->AsString=YDData->TByhda->FieldByName("gddy")->AsString;
     YDData->TBdbda->Post();
      AnsiString sql="select * from JXGX0000 where hhhh='"+hhhh+"'";
      TQuery *Query1=new TQuery(this);
      Query1->DatabaseName="YDDB";
      Query1->SQL->Add(sql);
      Query1->ExecSQL();
      Query1->Open();
      YDData->TByhda->Edit();
      if (Query1->RecordCount>0)
        YDData->TByhda->FieldByName("bz")->AsString="是";
      else
        YDData->TByhda->FieldByName("bz")->AsString="否";
     YDData->TByhda->Post();
   Query1->Close();
   delete Query1;
}
//---------------------------------------------------------------------------



void __fastcall TFdbcs::DBComboBox6Change(TObject *Sender)
{
 if (Trim(DBComboBox6->Text)=="户间套接"||Trim(DBComboBox6->Text)=="户间分表")
   {
    Fhjtj_d=new TFhjtj_d(Application);
    Fhjtj_d->ShowModal();
    delete Fhjtj_d;
   }
 if (Trim(DBComboBox6->Text)=="户内套接")
  {
    Fhntj_d=new TFhntj_d(Application);
    Fhntj_d->ShowModal();
    delete Fhntj_d;
  }
if (Trim(DBComboBox6->Text)=="")
   {
    YDData->TBdbda->FieldByName("bbzj")->AsString="";
    YDData->TBdbda->FieldByName("zjbx")->AsString="";

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

void __fastcall TFdbcs::DBComboBox2Change(TObject *Sender)
{
  if (DBComboBox2->Text.SubString(5,2)=="复")
   {
    DBCheckBox1->Enabled=true;
    DBEdit12->Enabled=true;
    DBEdit13->Enabled=true;
    DBComboBox7->Enabled=true;
    DBComboBox8->Enabled=true;
    DBComboBox9->Enabled=true;
    DBComboBox10->Enabled=true;
   }
   else
   {
    DBCheckBox1->Enabled=false;
    DBEdit12->Enabled=false;
    DBEdit13->Enabled=false;
    DBComboBox7->Enabled=false;
    DBComboBox8->Enabled=false;
    DBComboBox9->Enabled=false;
    DBComboBox10->Enabled=false;
   }

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


void __fastcall TFdbcs::FormCreate(TObject *Sender)
{
YDData->TBhydm->Open();
while (!YDData->TBhydm->Eof)
  {
    DBComboBox11->Items->Add(YDData->TBhydm->FieldByName("hy_hydm")->AsString+" "+YDData->TBhydm->FieldByName("hy_hymc")->AsString);
    YDData->TBhydm->Next();
  }
 YDData->TBhydm->Close();
 if (Fywsl->add)
   {
    int dbbhn;
    if (YDData->TBdbda->RecordCount>0)
       {
        YDData->TBdbda->Last();
        dbbhn=StrToInt(YDData->TBdbda->FieldByName("dbbh")->AsString)+1;
       }
    else
      dbbhn=1;
    int bhcd=IntToStr(dbbhn).Length();
    AnsiString qdl="0000";
    AnsiString dbbhc=qdl.SubString(1,4-bhcd)+IntToStr(dbbhn);
    YDData->TBdbda->Append();
    YDData->TBdbda->FieldByName("hhhh")->AsString=YDData->TByhda->FieldByName("hhhh")->AsString;
    YDData->TBdbda->FieldByName("xshbs")->AsString="N";
    YDData->TBdbda->FieldByName("dbbh")->AsString=dbbhc;
    YDData->TBdbda->FieldByName("dblb")->AsString="照明表";
    YDData->TBdbda->FieldByName("bs")->AsString="分摊";
    YDData->TBdbda->FieldByName("bl")->AsFloat=1;
    YDData->TBdbda->FieldByName("ws")->AsFloat=5;
    YDData->TBdbda->FieldByName("fx")->AsString="正转";
    YDData->TBdbda->FieldByName("yxzt")->AsString="投运";
    YDData->TBdbda->FieldByName("hsqx")->AsString=YDData->TBxtcs->FieldByName("xt_hsqx")->AsString;
    YDData->TBdbda->FieldByName("cszt")->AsString="0";
   }
 if (Fywsl->edit)
  {
   YDData->TBdbda->Edit();
    if (DBComboBox2->Text.SubString(5,2)=="复")
      {
        DBCheckBox1->Enabled=true;
        DBEdit12->Enabled=true;
        DBEdit13->Enabled=true;
        DBComboBox7->Enabled=true;
        DBComboBox8->Enabled=true;
        DBComboBox9->Enabled=true;
        DBComboBox10->Enabled=true;
      }
   }

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

void __fastcall TFdbcs::FormClose(TObject *Sender, TCloseAction &Action)
{
 Fywsl->add=false;
 Fywsl->edit=false;
 Fywsl->brow=true;
}
//---------------------------------------------------------------------------