unit2.cpp

来自「C++Builder高级应用开发指南随书源码」· C++ 代码 · 共 43 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDataModule2 *DataModule2;
//---------------------------------------------------------------------------
__fastcall TDataModule2::TDataModule2(TComponent* Owner)
    : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TDataModule2::DataModuleCreate(TObject *Sender)
{
	Table1->Open();
    Table2->Open();    
}
//---------------------------------------------------------------------------

void __fastcall TDataModule2::Table1BeforeDelete(TDataSet *DataSet)
{
  Table2->DisableControls(); // for faster table traversal.
  try
  {
    Table2->First();
    while(!Table2->Eof)
     Table2->Delete();
  }
  catch(...)
  {
    Table2->EnableControls();   //always re-enable controls after disabling
    return;
  }
  Table2->EnableControls();
}
//---------------------------------------------------------------------------