ydhntj_d.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDhntj_d.h"
#include "YDdatam.h"
#include "YDfjbl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFhntj_d *Fhntj_d;
//---------------------------------------------------------------------------
__fastcall TFhntj_d::TFhntj_d(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFhntj_d::FormCreate(TObject *Sender)
{
 TTable *Table1=new TTable(this);
 Table1->DatabaseName="YDDB";
 Table1->TableName="DBDA0000";
 Table1->Open();
 Table1->First();
 while (!Table1->Eof)
  {
  if (Table1->FieldByName("hhhh")->AsString==YDData->TBdbda->FieldByName("hhhh")->AsString)
    DBComboBox1->Items->Add(Table1->FieldByName("dbbh")->AsString);
    Table1->Next();
  }
 Table1->Close();
 delete Table1;

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

void __fastcall TFhntj_d::DBComboBox1Change(TObject *Sender)
{
/*
 TTable *Table2=new TTable(this);
 Table2->DatabaseName="YDDB";
 Table2->TableName="DBDA0000";
 Table2->Open();
 Table2->First();
 while (!Table2->Eof)
  {
   if (Table2->FieldByName("hhhh")->AsString==YDData->TBdbda->FieldByName("hhhh")->AsString&&
      Table2->FieldByName("dbbh")->AsString==DBComboBox1->Text&&
      Table2->FieldByName("dblb")->AsString.SubString(5,2)=="复")
      {
       Ffjbl=new TFfjbl(Application);
       Ffjbl->ShowModal();
       delete Ffjbl;
       break;
      }
   Table2->Next();
  }
 delete Table2;
 */
}
//---------------------------------------------------------------------------



void __fastcall TFhntj_d::FormClose(TObject *Sender, TCloseAction &Action)
{
  YDData->TBdbda->Edit();
  YDData->TBdbda->FieldByName("bbzj")->AsString=
  YDData->TByhda->FieldByName("hhhh")->AsString;

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

void __fastcall TFhntj_d::BitBtn1Click(TObject *Sender)
{
 AnsiString hhhh,dbbh,sql;
 TQuery *Query1=new TQuery(this);
 Query1->DatabaseName="YDDB";
 hhhh=YDData->TBdbda->FieldByName("hhhh")->AsString;
 dbbh=DBComboBox1->Text;
 sql="select * from dbda0000 where RTRIM(hhhh)='"+hhhh+"' and RTRIM(dbbh)='"+dbbh+"' and SUBSTRING(dblb,3,1)='复'";
 Query1->SQL->Add(sql);
 Query1->ExecSQL();
 Query1->Open();
 if (Query1->RecordCount>0)
  {
     Ffjbl=new TFfjbl(Application);
     Ffjbl->ShowModal();
     delete Ffjbl;
  }
  else
  {
   YDData->TBdbda->FieldByName("fgp")->AsString="";
  }
 delete Query1;
}
//---------------------------------------------------------------------------