Artigo Clube Delphi 89 - Herança de formulários

Para aplicar o artigo na prática criaremos uma base de dados no Firebird, que terá uma tabela chamada CLIENTES e uma tabela para controlar o campo auto-incremento. Essa solução poderá ser utilizada em qualquer banco de dados, pois não utilizará Trigger e Generators específicos do Firebird, assim o sistema pode ser portado para outros bancos de dados. Na Listagem 1 temos o script do banco que deverá ser criado.

Listagem 1. Script do banco para exemplo

CREATE TABLE CLIENTES (

  CODCLIENTE          INTEGER NOT NULL,

  NOME                  VARCHAR(50) NOT NULL,

  DATANASCIMENTO DATE NOT NULL,

  EMAIL         VARCHAR(200),

  SITE VARCHAR(200),

 PRIMARY KEY ("CODCLIENTE"));

CREATE TABLE CODIGOS (

  CAMPO       VARCHAR(50) NOT NULL,

  VALOR        INTEGER NOT NULL,

 PRIMARY KEY ("CAMPO"));

Criando a aplicação

Para esse artigo utilizarei o Delphi 7, mas fique a vontade para utilizar outra versão do Delphi que suporte aplicações Win32. Crie uma nova aplicação através do menu File>New>Application. Como o primeiro formulário é o principal (será executado ao iniciar o sistema) altere seu Name para “frmPrincipal” e salve o arquivo como “uPrincipal.pas”. Salve também o projeto informando “pHeranca.dpr” para o nome. Agora crie um Data Module através do menu File>New>Data Module. Altere sua propriedade Name para “dmDados” e salve o arquivo como “uDados.pas”.

Para o acesso ao banco de dados usaremos um SQLConnection da paleta dbExpress. Altere seu Name para “Banco” e coloque False para a propriedade LoginPrompt. Clique duas vezes sobre o componente e configure a conexão informando o Database (caminho para o banco), bem como User_Name e Password caso sejam diferentes do padrão do Firebird.

Não se esqueça de mudar o SQLDialect para “3”, pois temos um campo do tipo Date que só é reconhecido nesse Dialect. Agora adicione e configure os seguintes componentes:

SQLDataSet1 (dbExpress)

·         Mude a propriedade SQLConnection para Banco;

·         CommandText para “select * from CLIENTES where CODCLIENTE = :pCODCLIENTE”;

·         ...