frm_main.~cp

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

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

#include "Frm_main.h"
#include "search.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzBckgnd"
#pragma link "RzLnEdit"
#pragma link "RzPanel"
#pragma link "RzStatus"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
Table1->Active=false;
Table1->TableName=OpenDialog1->FileName;
Table1->Active=true;
N10->Enabled=true;
Form1->Caption="本地数据库查看器——["+OpenDialog1->FileName+"]";
DBGrid1->Visible=true;
ToolBar1->Visible=true;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)
{
Table1->Active=false;
N10->Enabled=false;
Form1->Caption="本地数据库查看器";
DBGrid1->Visible=false;
ToolBar1->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
ShowMessage("华中师范大学物理系97级朱厚平");    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Exit1Click(TObject *Sender)
{
Close();    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
N8->Checked=!N8->Checked;
if(N8->Checked==true)
Form1->FormStyle=fsStayOnTop;
else
Form1->FormStyle=fsNormal;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->HintColor=TColor(RGB(130,160,190));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N10Click(TObject *Sender)
{

TFrm_Search *Search=new TFrm_Search(this);
Search->Show();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::N11Click(TObject *Sender)
{
try {
WinExec("OpenDB.exe",1);
}

catch (const Exception &E)
{
ShowMessage("新建窗口产上错误!检查文件是否已改名.");
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N12Click(TObject *Sender)
{
GroupBox2->Visible=true;    
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
GroupBox2->Visible=false;    
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N13Click(TObject *Sender)
{
N13->Checked=!N13->Checked;
if (N13->Checked==true)
RzStatusBar1->Visible=true;
else
RzStatusBar1->Visible=false;    
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(MessageBox(NULL,"真的要退出吗？","提醒",MB_OKCANCEL+MB_DEFBUTTON1)==IDOK)
CanClose=true;
else
CanClose=false;
}
//---------------------------------------------------------------------------