sjkll.~cpp

来自「数据库后台管理工具」· ~CPP 代码 · 共 32 行

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

#include <vcl.h>
#pragma hdrstop

#include "SJKLL.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFsjkll *Fsjkll;
//---------------------------------------------------------------------------
__fastcall TFsjkll::TFsjkll(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFsjkll::FormCreate(TObject *Sender)
{
  Table1->Open();        
}
//---------------------------------------------------------------------------
void __fastcall TFsjkll::BitBtn1Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFsjkll::FormClose(TObject *Sender, TCloseAction &Action)
{
 Table1->Close();        
}
//---------------------------------------------------------------------------