ydbbgs.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDbbgs.h"
#include "YDdatam.h"
#include "DFQDDY.h"
#include "YDcbztdy.h"
#include "YDDBCXDY.h"
#include "YDgddy.h"
#include "YDldyhdy.h"
#include "YDlssjdy.h"
#include "YDdytzd.h"
#include "YDqfqddy.h"
#include "YDqffp.h"
#include "YDyhbgdy.h"
#include "YDhhflbb.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFbbgssz *Fbbgssz;
//---------------------------------------------------------------------------
__fastcall TFbbgssz::TFbbgssz(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFbbgssz::FormCreate(TObject *Sender)
{
 YDData->TBxtcs->Open();
 Label1->Caption=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(1,4)+"年"+
YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(6,2)+"月";
}
//---------------------------------------------------------------------------

void __fastcall TFbbgssz::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBxtcs->Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFbbgssz::SpeedButton3Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TFbbgssz::TreeView1DblClick(TObject *Sender)
{
  if (TreeView1->Selected->Text=="用户分类统计表")
   {
    Edit1->Text="Fyhbgdy";
    Edit2->Text="用户分类统计表";
   }
}
//---------------------------------------------------------------------------