Esse artigo faz parte da revista Clube Delphi Edição 84. Clique aqui para ler todos os artigos desta edição

.35pt; TEXT-INDENT: -18pt; TEXT-ALIGN: left; tab-stops: list 64.35pt; mso-list: l4 level1 lfo3" align=left>·         Validação de Campo Nulo;

·         Validação de Intervalos de Valores;

·         Validação de Valores entre diferentes Campos.

Para criar esses cenários, crie um banco de dados, no Firebird ou InterBase, chamado “Empresa” e execute o script da Listagem 1.

 

Listagem 1. Script para criação das tabelas do banco

CREATE TABLE DEPARTAMENTOS

(

  CODDEPARTAMENTO         INTEGER,

  DESCRICAO           VARCHAR(60),

  SALARIO_MINIMO      NUMERIC(5,2),

  SALARIO_MAXIMO      NUMERIC(5,2) 

);

 

CREATE TABLE EMPREGADOS

(

  CODEMPREGADO      INTEGER,

  CODDEPARTAMENTO   INTEGER,

  NOMECOMPLETO      VARCHAR(100),

  CPF               VARCHAR(11),

  TELEFONE          VARCHAR(20)

);

 

Note que no script não temos campos Not Null, nem Primary Key e Foreign Key. Agora vamos começar nossa aplicação que, depois de pronta apresentará os dois cenários. Crie uma nova aplicação no Delphi e também um Data Module com o nome de “DMDados”, que será o repositório dos componentes de conexão ao banco.

Os componentes de acesso e suas respectivas configurações são:

·         SQLConnection

o        Name: “sqlConexao”

o        ConnectionName: IBConnection

o        LoginPrompt: False ...

Quer ler esse conteúdo completo? Tenha acesso completo