ydyhdagl.cpp

来自「营业用电管理系统(网络版)是本公司推出的新一代软件产品」· C++ 代码 · 共 56 行

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

#include <vcl.h>
#pragma hdrstop

#include "YDyhdagl.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDqhxz.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFyhdagl *Fyhdagl;
//---------------------------------------------------------------------------
__fastcall TFyhdagl::TFyhdagl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFyhdagl::FormCreate(TObject *Sender)
{

 YDData->TBbzyhda->Open();
 YDData->TBbzyhda->First();
 YDData->TBdbcs->Open();
 YDData->TBjjjl->Open();
 YDData->TBzgjl->Open();
 }
//---------------------------------------------------------------------------
void __fastcall TFyhdagl::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBbzyhda->Close();
 YDData->TBdbcs->Close();
 YDData->TBjjjl->Close();
 YDData->TBzgjl->Close();
 Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------
void __fastcall TFyhdagl::SpeedButton1Click(TObject *Sender)
{
  Fqhxz=new TFqhxz(Application);
  Fqhxz->ShowModal();
  delete Fqhxz;
}
//---------------------------------------------------------------------------

void __fastcall TFyhdagl::SpeedButton4Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------