[Médio] Criando um Banco de Dados

[xSlayerx 0]

Neste tutorial irei ensinar a criar um simples Banco de Dados utilizando o IBOConsole

 

Downloads:

IBOConsole (646KB ) - Clique qui

FireBird 1.5 (3,7mb) - Clique aqui

 

O tutorial será divisido em 2 partes:

 

◘ Criando e Registrando um Banco de Dados

◘ Acessando o FireBird com o Delphi

 

 

 

◘ Criando e Registrando um Banco de Dados ◘

 

 

1 - Criando um Servidor

 

• Abra o IBOConsole

• Selecionar a opção no menu: SERVER > REGISTER

• Preencha conforme a imagem abaixo. Lembrando que a senha é masterkey

 

• Clique em OK

 

2 - Criando um Banco de Dados (somente se você não tiver um)

 

• Certifique-se que seu servidor está ativo (marca verde na frente do nome)

• Selecione a opção: DATABASE > CREATE DATABASE

• Preencher conforme a imagem abaixo.

 

Onde:

* E:\ é o diretorio onde será criado o Banco de Dados. (coloque o que achar melhor)

* BANCO é o nome do seu Banco de Dados. (coloque o que achar melhor)

* Banco X é o apelido de seu banco de dados. (coloque o que achar melhor)

 

• Clique em OK

 

3 - Registrando um Banco de Dados (somente se você já tiver um)

 

Obs: Siga esse passo somente se você tiver criado o server e um Banco e fechou o IBOConsole... esse passo serve para abrir um banco ja existente, caso tenha acabado de criar um banco e seu status estiver ativo pule está parte e vá para a parte de Criar Tabelas

 

• Certifique-se que seu servidor está ativo (marca verde na frente do nome)

• Selecione a opção: DATABASE > REGISTER

• Preencha conforme a imagem abaixo. Lembrando que a senha é masterkey

 

Onde:

* E:\ é o diretorio onde está o Banco de Dados.

* BANCO é o nome do seu Banco de Dados.

* Banco de Dados é o apelido de seu banco de dados. (coloque o que achar melhor)

 

• Clique em OK

 

 

4 - Criando Tabelas

 

• Certifique-se que seu servidor e banco está ativo (marca verde na frente do nome)

• Clique no seu servidor, depois no seu banco, depois em Tables depois no botão SQL conforme a imagem abaixo.

 

• Iremos utilizar o comando Create Table. Sua Sintaxe é

Create Table Nome_Tabela (

NomeVariavel TipoVariavel

);

 

onde:

Nome_Tabela - é o nome da tabela que sera criada, só pode por letras de A à Z e numeros de 0 à 9 e _ (underline)

NomeVariavel - nome da variavel.

TipoVariavel - Tipo da variavel (smallint, integer, decimal, char, varchar...etc)

Exemplo:

Create Table CD (

cd_codigo smallint not null primary key,

cd_nome varchar(20),

cd_endereco varchar(50),

cd_cpf varchar(30)

);

 

onde:

smallint - Tipo da variavel

not null - A variavel que tiver isso não podera ser deixada em branco, terá que ter um valor

primary key - Chave primaria da tabela. A chave primaria não pode ser nula e nem repetida

 

neste exemplo temos por exemplo o cd_nome varchar(20), que é uma variavel do tipo varchar com 20 espaços

 

• Depois que criar sua tabela clique no botao que parece com um raio conforme a imagem abaixo

 

Suas tabelas ja estão criadas, agora vamos acessalas com o Delphi

 

 

◘ Acessando o FireBird com o Delphi ◘

 

 

1 - Cadastrando dados na tabela

 

 

 

• Abra o Delphi e inicie um novo projeto

 

 

• Clique File > New > Data Module

 

 

• Adicione os seguintes componentes no Data Module:

 

 

 

Paleta InterBase

 

 

1 IBTransaction

 

 

1 IBDataBase

 

 

1 IBTable para cada tabela que você criou

 

 

Paleta Data Access

 

 

1 DataSource para cada tabela que você criou

 

 

 

altere as propriedades dos seguintes componentes

 

 

IBTransaction:

 

 

Name = Transaction

 

 

Defaut DataBase = Database

 

 

 

IBDataBase

 

 

Name = Database

 

 

Defaut Transaction = Transaction

 

 

Dê dois cliques nele e coloque conforme a imagem abaixo:

 

 

 

 

 

IBTable:

 

 

Database = Database

 

 

TableName = Selecione a tabela

 

 

Name = Tbl_Nome (Nome nome da tabela q vc selecionou acima)

 

 

Dê duplo clique no componente, botao direito > add all fields

 

 

 

DataSource:

 

 

AutoEdit = False

 

 

DataSet = Selecione a tabela

 

 

Name = DS_Nome (Nome = Nome da tabela q vc selecionou acima)

 

 

 

• No evento ONCREATE do DataModule coloque:

 

 

Database.Open;

 

 

if not Transaction.InTransaction then

 

 

Transaction.StartTransaction;

 

 

Tbl_NOME.Open; //Fazer essa linha para cada TABLE

 

• No evento ONDESTROY do DataModule coloque:

 

 

if Tbl_NOME.State in [dsEdit, dsInsert] then

 

 

Tbl_NOME.Cancel; //Fazer esse IF para cada TABLE

 

 

Tbl_NOME.Close; //Fazer essa linha para cada TABLE

 

 

if Transaction.InTransaction then

 

 

Transaction.Commit;

 

 

Database.Close;

 

 

 

2 - Componentes finais

 

 

 

Pronto, está tudo configurado. Agora adicione no formulario os seguintes componentes

 

 

Paleta DataControls

 

 

1 DBGrid para cada tabela

 

 

1 DBNavigator para cada tabela

 

 

 

Depois clique no formulario, vá em file > Use Unit e adicione a unit do DataModule (se você não salvou nada até agora sera a Unit2)

 

 

 

 

Altere as seguintes propriedades:

 

 

 

DBGrid

 

 

DataSource = Selecione o DataSource da tabela desejada

 

 

 

DBNavigator

 

 

DataSource = Selecione o mesmo DataSource Selecionado acima

 

 

 

 

Pronto, seu primeiro programa envolvendo Banco de Dados está criado! É um banco bem simples apenas para cadastro e consultas

 

 

 

Qualquer duvida poste aki (Y)

 

 

 

CRÉDITOS 100% MEU

 

Editado 27 Março, 2009 por Marcandal

[Dark Skyllen 7]

Ótimo tutorial cara!

muito bom, com imagens bem explicado

continue postando mais tutoriais!

a área de programação do fórum ta muito abandonada :/

[Raphael Carnaúba 1]

O delphi já vem com o BDE Database que é muito bom, porque não usa ele ao invés do Firebird do Mozilla, é menos coisas p/ baixar!

 

Afinal, otimo tutorial

 

Gz.