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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TLink *Link;
//---------------------------------------------------------------------------
__fastcall TLink::TLink(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TLink::FormClose(TObject *Sender, TCloseAction &Action)
{
   Action=caFree;
}
//---------------------------------------------------------------------------

void __fastcall TLink::Button1Click(TObject *Sender)
{
      try
     {             
        String str="Provider=Microsoft.Jet.OLEDB.4.0;Password='';User ID=Admin;Data Source=" + ExtractFileDir(Application->ExeName) + "\\xsmdata2000.mdb;Mode=Share Deny None;Extended Properties='';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password=" + this->Edit1->Text + " ;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password='';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
        Main->ADOConnection1->ConnectionString=str;
        Main->ADOConnection1->Connected=true;
        Main->ADOQuery1->Open(); 
        if(Main->ADOConnection1->Connected==true)
        {

                Main->Caption="客戶管理  當前記錄共 "+IntToStr(Main->ADOQuery1->RecordCount)+"條";
                MessageBox(Main->Handle,"連接數據庫成功","提示信息",MB_OK);
                Main->DBGrid1->Visible=true;
                Main->GroupBox1->Visible=true;
                Main->GroupBox2->Visible=true;
                Main->GroupBox3->Visible=true;
                Edit1->Text="";
                this->Close();

        }
     }
     catch(...)
     {
        this->Edit1->SetFocus();
        MessageBox(this->Handle,"登陸密碼錯誤!","提示信息",MB_OK);
     }
}
//---------------------------------------------------------------------------