ydjjxz.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDjjxz.h"
#include "YDdatam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFjjxz *Fjjxz;
//---------------------------------------------------------------------------
__fastcall TFjjxz::TFjjxz(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFjjxz::BitBtn1Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFjjxz::FormClose(TObject *Sender, TCloseAction &Action)
{
 if (YDData->TBjjxm->RecordCount!=0)
 {
 jjdm=YDData->TBjjxm->FieldByName("jj_jjdm")->AsString;
 jjmc=YDData->TBjjxm->FieldByName("jj_jjmc")->AsString;
 jjdj=YDData->TBjjxm->FieldByName("jj_jjdj")->AsFloat;
 }

}
//---------------------------------------------------------------------------
void __fastcall TFjjxz::DBGrid1DblClick(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFjjxz::FormCreate(TObject *Sender)
{
 YDData->TBjjxm->Open();        
}
//---------------------------------------------------------------------------