//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "sql_sqk.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->Memo1->Clear();
//清空文本框
Form1->Timer1->Enabled=true;
//设置控件的有效状态
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Form1->ADOQuery1->Eof)
{
Form1->Button6->Enabled=false;
Form1->Button8->Enabled=false;
#include <vcl.h>
#pragma hdrstop
#include "sql_sqk.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->Memo1->Clear();
//清空文本框
Form1->Timer1->Enabled=true;
//设置控件的有效状态
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Form1->ADOQuery1->Eof)
{
Form1->Button6->Enabled=false;
Form1->Button8->Enabled=false;