readmgunit.cpp

简单的C++小程序

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

#include <vcl.h>
#pragma hdrstop

#include "ReadmgUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TReaderMg *ReaderMg;
//---------------------------------------------------------------------------
__fastcall TReaderMg::TReaderMg(TComponent* Owner)
        : TForm(Owner)
{
        while(!ADOQuery1->Eof)
        {
                DBComboBox1->Items->Add(ADOQuery1->Fields->Fields[0]->AsString);
                ADOQuery1->Next();
        }
        StatusBar1->Panels->Items[0]->Text = AnsiString(ADOTable1->RecNo)
                                + "/" + AnsiString(ADOTable1->RecordCount);
}
//---------------------------------------------------------------------------
void __fastcall TReaderMg::mnuReaderMgExitClick(TObject *Sender)
{
        this->Close();        
}
//---------------------------------------------------------------------------
void __fastcall TReaderMg::FormClose(TObject *Sender, TCloseAction &Action)
{
        ADOQuery1->First();
        ADOTable1->First();
        ADOQuery1->Close();
        ADOTable1->Close();
        Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall TReaderMg::Button1Click(TObject *Sender)
{
        TLocateOptions Opts;
        Opts << loPartialKey;
        if(ADOTable1->Locate("借书证号",Edit1->Text,Opts))
        {
                ShowMessage("找到该借书证号");
        }
        else
        {
                ShowMessage("找不到该借书证号");
        }

}
//---------------------------------------------------------------------------
void __fastcall TReaderMg::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
        StatusBar1->Panels->Items[0]->Text = AnsiString(ADOTable1->RecNo)
                                + "/" + AnsiString(ADOTable1->RecordCount);        
}
//---------------------------------------------------------------------------
void __fastcall TReaderMg::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        switch(Key)
        {
                case VK_RETURN:
                        this->Button1->Click();
                        break;
                case VK_ESCAPE:
                        Edit1->Text = "";
                        break;
        }        
}
//---------------------------------------------------------------------------