//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//执行查询语句,得到记录集
void __fastcall TForm1::Button2Click(TObject *Sender)
{
try
{
if(!ADOConnection1->Connected) return;
if(Memo1->Text.Trim()=="") return;
ADOQuery1->Active=false;
ADOQuery1->SQL->Text=Memo1->Text;
ADOQuery1->Active=true;
for(int i=0;i<DBGrid1->Columns->Count;i++)
{
DBGrid1->Columns->Items[i]->Width=60;
}
Label1->Caption="查询到" + IntToStr(ADOQuery1->RecordCount) + "条数据";
}catch(Exception &e){}
}
//连接数据库,并得到数据库中的表名和存储过程
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
ADOConnection1->Close();
ADOConnection1->
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//执行查询语句,得到记录集
void __fastcall TForm1::Button2Click(TObject *Sender)
{
try
{
if(!ADOConnection1->Connected) return;
if(Memo1->Text.Trim()=="") return;
ADOQuery1->Active=false;
ADOQuery1->SQL->Text=Memo1->Text;
ADOQuery1->Active=true;
for(int i=0;i<DBGrid1->Columns->Count;i++)
{
DBGrid1->Columns->Items[i]->Width=60;
}
Label1->Caption="查询到" + IntToStr(ADOQuery1->RecordCount) + "条数据";
}catch(Exception &e){}
}
//连接数据库,并得到数据库中的表名和存储过程
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
ADOConnection1->Close();
ADOConnection1->