udatabase.cpp

AbsDataBase5.16 最新版

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

#include "uDatabase.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmDatabase *frmDatabase;
//---------------------------------------------------------------------------
__fastcall TfrmDatabase::TfrmDatabase(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmDatabase::FormShow(TObject *Sender)
{
  cbPageSize->Text = IntToStr(frmMain->db->PageSize);
  cbPageCountInExtent->Text = IntToStr(frmMain->db->PageCountInExtent);
  eMaxConnections->Text = IntToStr(frmMain->db->MaxConnections);
  ePassword1->Text = frmMain->db->Password;
  ePassword2->Text = frmMain->db->Password;
  cbCryptoAgorithm->ItemIndex = Integer(frmMain->db->CryptoAlgorithm);
  cbEncrypted->Checked = (frmMain->db->Password != "");
  cbEncryptedClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDatabase::cbEncryptedClick(TObject *Sender)
{
  ePassword1->Enabled = cbEncrypted->Checked;
  ePassword2->Enabled = cbEncrypted->Checked;
  cbCryptoAgorithm->Enabled = cbEncrypted->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TfrmDatabase::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
 if ((ModalResult == mrOk) && (cbEncrypted->Checked) &&
     (ePassword1->Text != ePassword2->Text)) {
   CanClose = False;
   MessageDlg("Password and Confirm password are not equal", mtError,TMsgDlgButtons()<<mbOK, 0);
  }

}
//---------------------------------------------------------------------------