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;

Estatisticas

Memo1.Lines.Clear;

with IBStatisticalService1 do

begin

  ServerName := 'localhost';

  DatabaseName := OpenDialog1.FileName;

  LoginPrompt := False;

  Params.Add('user_name=sysdba');

  Params.Add('password=masterkey');

  Active := True;

  ServiceStart;

  try

    Options := [DataPages, DbLog, HeaderPages, IndexPages];

...