www.pudn.com > 2.rar > StudentUnit3.cpp

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
 
#include "StudentUnit4.h" //++ 
#include "StudentUnit3.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm3 *Form3; 
//--------------------------------------------------------------------------- 
__fastcall TForm3::TForm3(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button9Click(TObject *Sender) 
{ 
 Close(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button1Click(TObject *Sender) 
{ 
 Table1->Append(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button2Click(TObject *Sender) 
{ 
 Table1->Delete();         
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button3Click(TObject *Sender) 
{ 
 Table1->Refresh();         
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button4Click(TObject *Sender) 
{ 
 Form4->ShowModal(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button5Click(TObject *Sender) 
{ 
 Table1->First();         
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button6Click(TObject *Sender) 
{ 
 Table1->Next();         
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button7Click(TObject *Sender) 
{ 
 Table1->MoveBy(-1);         
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Button8Click(TObject *Sender) 
{ 
 Table1->Last();         
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::FormCloseQuery(TObject *Sender, bool &CanClose) 
{ 
 if(MessageDlg("Í˳ö?",mtConfirmation,TMsgDlgButtons() << mbOK << mbCancel,0)==mrCancel) 
  CanClose = false;        
} 
//---------------------------------------------------------------------------