punish.cpp

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· C++ 代码 · 共 26 行

//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Punish.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TfmPunish *fmPunish;
//----------------------------------------------------------------------------
__fastcall TfmPunish::TfmPunish(TComponent *Owner)
	: TForm(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TfmPunish::FormCreate(TObject *Sender)
{
	Table1->Open();
}
//----------------------------------------------------------------------------
void __fastcall TfmPunish::FormClose(TObject *Sender, TCloseAction &Action)
{
    // 删除窗体并回收空间
    Action = caFree;       
}
//---------------------------------------------------------------------------