ydhjtj_d.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDhjtj_d.h"
#include "YDdatam.h"
#include "YDdbcs.h"
#include "YDfjbl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFhjtj_d *Fhjtj_d;
//---------------------------------------------------------------------------
__fastcall TFhjtj_d::TFhjtj_d(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFhjtj_d::FormCreate(TObject *Sender)
{
if (Fdbcs->DBComboBox6->Text=="户间分表")
 Label3->Caption="本表电量转到";
 TTable *Table1=new TTable(this);
 Table1->DatabaseName="YDDB";
 Table1->TableName="YHDA0000";
 Table1->Open();
 Table1->First();
 while (!Table1->Eof)
  {
    DBComboBox1->Items->Add(Table1->FieldByName("hhhh")->AsString);
    Table1->Next();
  }
 Table1->Close();
 delete Table1;

}
//---------------------------------------------------------------------------
void __fastcall TFhjtj_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==DBComboBox1->Text)
     DBComboBox2->Items->Add(Table2->FieldByName("dbbh")->AsString);
   Table2->Next();
  }
 delete Table2;

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

void __fastcall TFhjtj_d::DBComboBox2Change(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==DBComboBox1->Text&&
      Table2->FieldByName("dbbh")->AsString==DBComboBox2->Text&&
      Table2->FieldByName("dblb")->AsString.SubString(5,2)=="复")
      {
       Ffjbl=new TFfjbl(Application);
       Ffjbl->ShowModal();
       delete Ffjbl;
       break;
      }
   Table2->Next();
  }
 delete Table2;
 */
}
//---------------------------------------------------------------------------





void __fastcall TFhjtj_d::BitBtn1Click(TObject *Sender)
{
 AnsiString hhhh,dbbh,sql;
 TQuery *Query1=new TQuery(this);
 Query1->DatabaseName="YDDB";
 hhhh=DBComboBox1->Text;
 dbbh=DBComboBox2->Text;
 sql="select * from dbda0000 where hhhh='"+hhhh+"' and 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;

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