unit8.cpp

来自「《C++Builder数据库程序设计》配书光盘 1.光盘内容 Read」· C++ 代码 · 共 31 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit8.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//查找"语文<60"的记录，并移动当前记录位置到第一笔符合查找条件的记录上
ADOTable1->Filter="语文<60";
ADOTable1->Filtered=True;
}
//----------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//移动当前记录位置到下一笔数据上
ADOTable1->Next();
if (ADOTable1->Eof == True)
{ADOTable1->Last();}
}
//----------------------------------------------------