ydczrz.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDczrz.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDrzbb.h"
#include "YDRZSX.h"
#include "YHDL.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFczrz *Fczrz;
//---------------------------------------------------------------------------
__fastcall TFczrz::TFczrz(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFczrz::SpeedButton7Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TFczrz::FormClose(TObject *Sender, TCloseAction &Action)
{
    Fmain->gnjs(Fmain->tcjc);
    Action = caFree;
}
//---------------------------------------------------------------------------


void __fastcall TFczrz::FormCreate(TObject *Sender)
{
 if (CLogin->kzqx=="1")SpeedButton5->Enabled=true;

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


void __fastcall TFczrz::SpeedButton2Click(TObject *Sender)
{
 Fpczrz=new TFpczrz(Application);
 Fpczrz->QuickRep1->Preview();
 delete Fpczrz;

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


void __fastcall TFczrz::SpeedButton3Click(TObject *Sender)
{
   Frzsx=new TFrzsx(Application);

    Frzsx->ShowModal();
   if (Frzsx->ok)
    {
     YDData->TBczrz->Filtered=true;
     YDData->TBczrz->Filter=Frzsx->rzsx;
    }
   else YDData->TBczrz->Filtered=false;
   delete Frzsx; 
}
//---------------------------------------------------------------------------

void __fastcall TFczrz::SpeedButton4Click(TObject *Sender)
{
    YDData->TBczrz->Filtered=false;
}
//---------------------------------------------------------------------------

void __fastcall TFczrz::SpeedButton5Click(TObject *Sender)
{
  YDData->TBczrz->LockTable(ltWriteLock);
  YDData->TBczrz->First();
  while (!YDData->TBczrz->Eof)
  {
   YDData->TBczrz->Delete();
   YDData->TBczrz->First();
   continue;
//   YDData->TBczrz->Next();
  }
   YDData->TBczrz->UnlockTable(ltWriteLock);
}
//---------------------------------------------------------------------------

void __fastcall TFczrz::FormActivate(TObject *Sender)
{
  YDData->TBczrz->Close();
  YDData->TBczrz->Open();
        
}
//---------------------------------------------------------------------------