ydtjgx.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDtjgx.h"
#include "YDdatam.h"
#include "YDdbcs.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFtjgx *Ftjgx;
//---------------------------------------------------------------------------
__fastcall TFtjgx::TFtjgx(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFtjgx::FormCreate(TObject *Sender)
{
if (Fdbcs->DBComboBox6->Text!="户内套接")
 {
 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();
  }
 delete Table1;
 }
 else
 {
  DBComboBox1->Items->Add(YDData->TBdbda->FieldByName("hhhh")->AsString);
  YDData->TBdbda->FieldByName("hhhh")->AsString;
 }
}
//---------------------------------------------------------------------------
void __fastcall TFtjgx::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;

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