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

Easy Delphi

Herança de formulários

Agilizando o desenvolvimento de telas de cadastros

No mundo relacional em que vivemos e aprendemos, fica difícil utilizar a Orientação a Objetos em nossos projetos. Talvez as próprias instituições de ensino tenham culpa, uma vez que ensinam os alunos a programar de forma estruturada e com banco de dados relacionais e, ao final do curso mostram pouco de como trabalhar com Orientação a Objetos.

Mas mesmo assim, podemos utilizar algumas técnicas mesmo que nosso sistema persista os dados em bancos relacionais. Neste artigo vamos aprender a utilizar a herança visual de formulários que ajudará a agilizar o desenvolvimento de telas de cadastros.

Caso de uso

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 (

  CODCLIENTEINTEGER NOT NULL,

  NOME VARCHAR(50) NOT NULL,

  DATANASCIMENTO DATE NOT NULL,

  EMAILVARCHAR(200),

  SITE VARCHAR(200),

 PRIMARY KEY ("CODCLIENTE"));

CREATE TABLE CODIGOS (

  CAMPOVARCHAR(50) NOT NULL,

  VALORINTEGER NOT NULL,

 PRIMARY KEY ("CAMPO"));