ydxtcs.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDxtcs.h"
#include "YDdatam.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFxtcs *Fxtcs;
//---------------------------------------------------------------------------
__fastcall TFxtcs::TFxtcs(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFxtcs::FormCreate(TObject *Sender)
{
  YDData->TBxtcs->Open();
  Panel1->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TFxtcs::SpeedButton1Click(TObject *Sender)
{
  Panel1->Enabled=true;
  SpeedButton1->Enabled=false;
  SpeedButton2->Enabled=true;
  SpeedButton3->Enabled=true;
//  if (YDData->TBxtcs->RecordCount==0)YDData->TBxtcs->Append();
//  else
    YDData->TBxtcs->Edit();

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

void __fastcall TFxtcs::SpeedButton2Click(TObject *Sender)
{
  SpeedButton1->Enabled=true;
  SpeedButton2->Enabled=false;
  SpeedButton3->Enabled=false;
//  YDData->TBxtcs->FieldByName("XT_QYRQ")->AsDateTime=DateTimePicker1->Date;
  YDData->TBxtcs->Post();
  YDData->TBxtcs->Close();
  YDData->TBxtcs->Open();
  Panel1->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TFxtcs::SpeedButton3Click(TObject *Sender)
{
  SpeedButton1->Enabled=true;
  SpeedButton2->Enabled=false;
  SpeedButton3->Enabled=false;
  YDData->TBxtcs->Cancel();
  Panel1->Enabled=false;
}
//---------------------------------------------------------------------------

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

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



/*
void __fastcall TFxtcs::SpeedButton5Click(TObject *Sender)
{
  if ( Application->MessageBox("初始化系统只能在系统开始使用前进行,\r一旦系统已经开始使用,执行此功能会删\r除您的所有数据,真的要初始化系统吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
   {
    YDData->TBbzyhda->Close();
    YDData->TBbzyhda->Exclusive=true;
    YDData->TBbzyhda->EmptyTable();
    YDData->TBbzyhda->Exclusive=false;

   }
}
*/
//---------------------------------------------------------------------------


void __fastcall TFxtcs::DateTimePicker1Change(TObject *Sender)
{
  YDData->TBxtcs->FieldByName("XT_HSQX")->AsString=DateToStr(DateTimePicker1->Date).SubString(1,7);

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