[tutorial] delphi6~7+ibexpert+firebird, banco de dados

[D.K.r 0]

Ola pessoal,

eu estou sempre aqui pedindo coisas e etc.

entaom como estou aprendendo uma pancada de

 

coisinhas interessantes e como nao vi nenhum tuto

 

disso por aqui resolvi criar um bem completo,

 

utilizando o metodo que eu aprendi hoje mesmo.

chega de "blá, blá, blá" e vamos ao que interessa:

 

*Você precisara:

=do Firebird 1.5(eu uso superserver ao invez de

 

classic, para + infos mande MP)

=do IBExpert

=e do Delphi6 ou 7.

 

1.1-

Abra o IBExpert e crie um novo "database" e em

 

seguida registre-a e conecte-a para que possa

 

começar a criar o seu banco de dados.

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

1.2.2-

criaremos agora + uma table(para que o tuto fique +

 

completo e coloquemos "casos reais" no qual

 

utilizariamos o programa, mas se preferir para

 

começo nao é necessario criar a 2ª table(abaixo

 

novamente segue a minha).

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

2.2-

crie + 1 form(1 para cada tabela que voce criou no

 

IBExpert)

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

2.3-

voltando ao form1, de um duplo clique no button1 e

 

na procedure adicione o codigo:

Begin

Form2.Showmodal;

end;

 

#caso tenha + algum button adicione o codigo:

Begin

Form3.Showmodal;

end;

e assim por diante

 

2.4-

mude as captions dos buttons de acordo com o titulo

 

para a abertura para a tela.Por exemplo, para a

 

tabela de cliente eu coloquei "Dados Cliente"

 

 

3.1-

agr vamos criar os forms e as conexoes que nos

 

interessa nesse tuto, para isso no Form2 adicione 1

 

Label para cada item(campo) da sua tabela, no caso

 

da minha sao 6 campos da tabela Clientes e 8 da

 

tabela Fornecedores.Aproveitando va até a aba "Data

 

Controls" e adicione 1 DBEdit para cada label de

 

seu form.

 

3.2-

Aproveitando ainda essa mesma aba, adicione um

 

DBGrid e 1 DBNavigator, e da aba dbExpress adicione

 

um SQLConnection(dependendo de sua versao será

 

TSQLConnection) e um SQLDataSet(ou

 

TSQLDataSet).#lembre-se q se vc estiver utilizando

 

outro conector deve-se buscar pelo controle

 

equivalente.

 

3.3-

da aba DataAccess adicione 1 DataSetProvider, 1

 

ClienteDataSet e um DataSource.Pronto temos tudo

 

que precisamos para a conexao.Let's Rock!

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

4.4-

agr de um clique no DataSetProvider e defina o

 

DataSet como SQLDataSet(nao defina como

 

ClientDataSet), alem disso defina a Constraints

 

como True

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

4.5-

no ClientDataSet defina a propriedade ProviderName

 

como DataSetProvider e caso o Active esteje False

 

mude-o para True.Nessa tela é só.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

4.6-

no ultimo controle nao muda muito a história,

 

clique no DataSource, e na propriedade DataSet

 

defina como ClienteDataSet(agora nao defina como

 

SQLDataSet) e deixe o Active como True.

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

4.8-

agora de um clique no DBNavigator e defina o seu

 

DataSource das propriedades como DataSource1 e faça

 

o mesmo com o DBGrid.

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

4.9-

agora é só fazer o mesmo com as demais tabelas caso

 

existam, e pronto.

 

5-

para que possamos salvar as infos faça o seguinte

 

comando:

a-)clique no ClientDataSet e nos Events de um duplo

 

clique na area "em branco" do AfterDelete, e na

 

procedure que ira abrir defina:

begin

ClientDataSet1.ApplyUpdate(0);

end;

b-)repida a procedure no AfterInsert.

 

' alt='70045005.jpg]'> Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/img]

 

 

###################

agora é só compilar o projeto e pronto.

Valeu ae pela atenção pessoal e espero que o tuto

 

esteje bom, é o meu primeiro e tentei deixa-lo o +

 

claro possível.

Agradecimentos ao Ravel Alves pelo video-tuto que

 

me ajudo e muito a como mecher nisso, graças a ele

 

eu aprendi e posso dividir isso com vcs.!

 

Tutorial 100% by D.K.r (Felipe Wandreus)

Caso for utiliza-lo por favor avise-me e credite-o!

[jaumlokednoob 0]

Muito bom, segui o tutorial e deu tudo certo , sofri um pouco mas... euheuehueh !

 

Agradeci já!

[D.K.r 0]

vlw...

em breve criarei um + avançado... algo q possamos dizer Util ^^