readclassunit.cpp

来自「简单的C++小程序」· C++ 代码 · 共 40 行

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

#include <vcl.h>
#pragma hdrstop

#include "ReadClassUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TReadClass *ReadClass;
//---------------------------------------------------------------------------
__fastcall TReadClass::TReadClass(TComponent* Owner)
        : TForm(Owner)
{
        StatusBar1->Panels->Items[0]->Text = AnsiString(ADOQuery1->RecNo)
                                + "/" + AnsiString(ADOQuery1->RecordCount);
}
//---------------------------------------------------------------------------
void __fastcall TReadClass::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        ADOQuery1->First();
        ADOQuery1->Close();
        Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall TReadClass::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
        StatusBar1->Panels->Items[0]->Text = AnsiString(ADOQuery1->RecNo)
                                + "/" + AnsiString(ADOQuery1->RecordCount);
}
//---------------------------------------------------------------------------
void __fastcall TReadClass::mnuReadClassExitClick(TObject *Sender)
{
        this->Close();        
}
//---------------------------------------------------------------------------