search.~cp

摘要：可以对本地数据库进行查看

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "search.h"
#include "ShowRe.h"
#include "Frm_main.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TFrm_Search *Frm_Search;
//---------------------------------------------------------------------
__fastcall TFrm_Search::TFrm_Search(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------

void __fastcall TFrm_Search::OKBtnClick(TObject *Sender)
{
bool show=true;;
TForm2 *Form=new TForm2(this);
try  {
Form->Query1->SQL=Memo1->Lines;
Form->Query1->Active=true;

     }
catch (const Exception &E)
{
ShowMessage("SQL语法错误!");
show=false;
     }
if (show==true)
Form->Show();
}
//---------------------------------------------------------------------------

void __fastcall TFrm_Search::CancelBtnClick(TObject *Sender)
{
Close();    
}
//---------------------------------------------------------------------------


void __fastcall TFrm_Search::FormPaint(TObject *Sender)
{

Edit1->Text=Form1->Table1->TableName.c_str();
}
//---------------------------------------------------------------------------


void __fastcall TFrm_Search::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==27)
Close();
}
//---------------------------------------------------------------------------