ydzgjl.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDzgjl.h"
#include "YDdatam.h"
#include "YDdbxz.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFzgjl *Fzgjl;
//---------------------------------------------------------------------------
__fastcall TFzgjl::TFzgjl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFzgjl::BitBtn1Click(TObject *Sender)
{
 if (Trim(Edit1->Text)!="")
  {
   YDData->TBzgjl->Post();
   Close();
  }
  else
   ShowMessage("必须输入转供区户号,请重新输入!");
 }
//---------------------------------------------------------------------------
void __fastcall TFzgjl::BitBtn2Click(TObject *Sender)
{
YDData->TBzgjl->Cancel();
 Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFzgjl::FormCreate(TObject *Sender)
{
  YDData->TBdbcx->Open();
  if (YDData->TBzgjl->RecordCount==0)
   {
   YDData->TBzgjl->Append();
   Panel1->Enabled=true;
//   YDData->TBzgjl->FieldByName("zg_sqh")->AsString=
//   YDData->TBbzsq->FieldByName("sq_bh")->AsString;
//   YDData->TBzgjl->FieldByName("zg_qh")->AsString=
//   YDData->TBbzsq->FieldByName("sq_qh")->AsString;
//   YDData->TBzgjl->FieldByName("zg_hh")->AsString=
//   YDData->TBbzsq->FieldByName("sq_hh")->AsString;
   YDData->TBzgjl->FieldByName("zg_hm")->AsString=
   YDData->TBbzyhda->FieldByName("yd_yhmc")->AsString;
  }
}
//---------------------------------------------------------------------------




void __fastcall TFzgjl::Edit1Exit(TObject *Sender)
{
  AnsiString sqh="";
  YDData->TBdbcx->First();
  while (!YDData->TBdbcx->Eof)
   {
    if (YDData->TBdbcx->FieldByName("DB_QHZFM")->AsString.SubString(1,9)==Edit1->Text)
      {
       sqh=YDData->TBdbcx->FieldByName("DB_SQH")->AsString;
       break;
       }
    YDData->TBdbcx->Next();
   }
  if (YDData->TBdbcx->Eof)
    {
     ShowMessage("此用户不存在,请重新输入!");
     Edit1->Text="";
    }
  else
    {
      YDData->TBdbcx->Filtered=true;
      YDData->TBdbcx->Filter="DB_SQH='"+sqh+"'";
      Fdbxz=new TFdbxz(Application);
      Fdbxz->ShowModal();
      YDData->TBzgjl->Edit();
      YDData->TBzgjl->FieldByName("zg_zgsqh")->AsString=YDData->TBdbcx->FieldByName("db_sqh")->AsString;
      YDData->TBzgjl->FieldByName("zg_zghh")->AsString=YDData->TBdbcx->FieldByName("db_hh")->AsString;
      YDData->TBzgjl->FieldByName("zg_zghm")->AsString=YDData->TBdbcx->FieldByName("db_yhmc")->AsString;
      YDData->TBzgjl->FieldByName("zg_bzh")->AsString=YDData->TBdbcx->FieldByName("db_bzh")->AsString;
      YDData->TBzgjl->FieldByName("zg_zfgx")->AsString=YDData->TBdbcx->FieldByName("db_zfgx")->AsString;
      YDData->TBdbcx->Filtered=false;
      delete Fdbxz;

    }

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