main.cpp

AbsDataBase5.16 最新版

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

#include "Main.h"
#include "uDatabase.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ABSMain"
#pragma link "ABSSecurity"
#pragma resource "*.dfm"
TfrmMain *frmMain;

const AnsiString DataBaseFileName = "..\\..\\Data\\Demos.abs";

//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::btnCreateClick(TObject *Sender)
{
  if (frmDatabase->ShowModal() == mrOk) {
    db->Password = frmDatabase->ePassword1->Text;
    db->CryptoAlgorithm = TABSCryptoAlgorithm(frmDatabase->cbCryptoAgorithm->ItemIndex);
    if (sdDatabase->Execute()) {
      db->Close();
      db->DatabaseFileName = sdDatabase->FileName;
      db->CreateDatabase();
      tEmployeeDemos->CopyTable(tEmployeeDemos->TableName, db->DatabaseFileName, db->Password);
      tEmployee->Open();
      btnChange->Enabled = True;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::btnOpenClick(TObject *Sender)
{
  if (odDatabase->Execute()){
    db->Close();
    db->DatabaseFileName = odDatabase->FileName;
    tEmployee->Open();
    btnChange->Enabled = True;
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::btnChangeClick(TObject *Sender)
{
  if (frmDatabase->ShowModal() == mrOk) {
    db->Close();
    db->ChangePassword(frmDatabase->ePassword1->Text, TABSCryptoAlgorithm(frmDatabase->cbCryptoAgorithm->ItemIndex));
    tEmployee->Open();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
  AnsiString CurDir;

  CurDir = ExtractFilePath(Application->ExeName);
  odDatabase->InitialDir = CurDir;
  sdDatabase->InitialDir = CurDir;
  dbDemos->DatabaseFileName = CurDir + DataBaseFileName;
  dbDemos->Open();
  tEmployeeDemos->Open();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::dbPassword(TObject *Sender, bool &Continue)
{
  AnsiString pwd;
  Continue = InputQuery("Database Password", "Please enter pasword:", pwd);
  db->Password = pwd;
}
//---------------------------------------------------------------------------