Curso Online Firebird - Cap 8 - Exercícios - IBAdmin

Exercícios - IBAdmin

Vamos criar um projeto onde faremos a administração de um banco de dados InterBase, utilizando os componentes IB Admin. Para isso tome por base a Figura 8.2 para criar o formulário.

Figura 8.2. Formulário de exemplo da aplicação

A seguir temos o código dos respectivos botões da aplicação (altere a indicação do localhost pelo nome ou IP do servidor):

Selecionar Banco de Dados

OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);

if OpenDialog1.Execute then

  if OpenDialog1.FileName <> '' then

edtBanco.Text := OpenDialog1.FileName;

Selecionar Backup

OpenDialog2.InitialDir := ExtractFilePath(Application.ExeName);

if OpenDialog2.Execute then

  if OpenDialog2.FileName <> '' then

edtBackup.Text := OpenDialog2.FileName;