[DELPHi7] Criando um Sistema de Cadastramento Basico.!

[bidoow 0]

Ae galera, não vi nada parecido e resolvir fazer um tutorial de como Criar um Sistema de Cadastro de Pessoas em Delphi 7!

 

Itens Necessarios : InterBase (IbConsole) , BDE Administrator e Delphi , todos vem no CD do delphi 7.

 

Vamos lá.

 

Abra o Ibconsole ( Iniciar -> Todos os Programas -> Interbase ), vai estar essa tela.

 

 

Agora vá no canto superior esquerdo, e clique no botão *Register a new InterBase Server*

 

Vai abrir uma janela, Coloque Local Server e em User Name Coloque "SYSDBA" e password "masterkey" (sem aspas)

 

Agora clique com o botão direito em Database e coloque Create Database

 

 

Em FileName coloque o destino do arquivo a ser criado. exemplo : C:\webcheats.gdb

E em Alias o nome do Arquivo , Aperte OK

 

Agora vamos criar a table - Va la em cima, tem um botao escrito SQL , aperte nele.

 

 

No campo que sugir, bote o seguinte codigo:

 

CREATE TABLE "CADCLIENTES"

(

"NOME" VARCHAR(100) NOT NULL,

"ENDE" VARCHAR(100),

"NUMTEL" VARCHAR(100),

CONSTRAINT "PK_CADCLIENTES" PRIMARY KEY ("NOME")

);

 

*¹ Se você for alterar quando for criar o seu, nunca se esqueça de diferenciar as MAIUSCULAS das MINUSCULAS . É case sensitive.

 

Agora aperte CTRL + E , se der tudo certo ficara tudo em branco, fexe o SQL e vá em tables que terá criado o CADCLIENTES.

 

---

 

Agora vamos abrir o BDE Administrador *(Inicio - Todos os Programas - Borland Delphi 7 - BDE Administrator.)**

 

Clique CTRL + N e crie como INTRBASE

 

 

Renomei o INTRBASE para o nome do seu arquivo. Agora vá em "SERVER NAME" clique nos 3 pontinhos ( ... ) e selecione o arquivo que você crio ( C:\webcheats.gdb lembra?)

Vá em User Name e coloque SYSDBA .

 

 

Clique CTRL + A aperte OK para salvar e pode fexar o BDE !

 

---

 

Agora vamos abrir o delphi 7 (finalmente!)

 

Adiciona um DataSource (aba DataAcess) um Database (aba BDE) e um Table (aba BDE)

 

Clique no DataBase - Vá no Object Inspector - Alias Name , clique na setinha pra baixo e selecione o nome do seu arquivo (que nois criamos no BDE) no Database Name coloque " CAD_CLIENTE " (sem aspas) e no Connect mude de False para True (se pedir para entrar coloque a senha masterkey lembra?) !

 

 

Agora va na Table - Object Inspector - DataBase name clique na setinha coloque CAD_CLIENTE | Na table name clique setinha para baixo e coloque CADCLIENTES | E em active mude de False para TRUE.

 

 

Agora clique no DataSource , vá em DataSet aperte setinha pra baixo e coloque Table 1.

 

Nossa Database, table e datasource estão configuradas.

 

Agora vá na aba Stardard, adicione 3 labels

 

Digite no label 1 : Nome:

label 2 : Endereço:

labes 3 : Num. Telefone:

 

Agora vá na aba datacontrols e adicione o DBEdit , 1 para cada label, ou seja, 3 dbedit.

 

Clique no DBEdit1 e vá as Object Inspector, na linha DataSource coloque DataSource 1 e em DataField coloque "NOME".

 

 

Clique no DBEdit2 e vá as Object Inspector, na linha DataSource coloque DataSource 1 e em DataField coloque "ENDE".

Clique no DBEdit3 e vá as Object Inspector, na linha DataSource coloque DataSource 1 e em DataField coloque "NUMTEL".

 

Agora vá a GUIA DataConstrols e adiciona DBnavigator.

Clique no DbNavigator, vá no Object Inspector, na linha Align como alBottom, e na linha DataSource clique na setinha e coloque DataSource1

 

 

Agora diminua o form para ficar mais bonito, aperte F9 e pronto, temos um sistema de cadastramento basico!

 

 

--- APRENDENDO A MEXER NO PROGRAMA ---

 

Você digita os Dados (NOME, ENDE, NUMTEL) clica no + , vai adicionar na DataBase . Dai é so ir pro lado e pro outro para ver os que voce adicionou! Se você quiser apagar aperte no - (menos)

 

----------------------------------------------------------

 

Mas bidoow, agora sempre quando eu entrar no programa vai pedir a senha ?

 

Da pra a gente tira isso.

 

Clique em DataBase1 - Params - Vai ta escrito (TStrings) , clique naqueles 3 pontinhus [ ... ]

Vai tar escrito KEY - USER NAME

Troque por PASSWORD masterkey

 

Ele não vai te pedir a senhaa!

 

----------------------------------------------------

 

Créditos :

 

Imagens : bidoow

Texto : bidoow

Codigo : tirei de um site ai

** Eu vi um tutorial desse num site, mais eu escrevi tudo esse texto e tirei as imagens.!

 

--------------------------------------

 

DUVIDAS ? PERGUNTE!

 

abraços pessoal, bom proveito!

[anonimo555 2]

Boa adorei merece meu agradecimento !

[‎‎‎1551822249 0]

Muito bom tutorial.. parabéns!. :D

[Surfistinha£ 20]

Muito bom mano adorei tambem belo conteudo ja nao es mas apreendiz em delphi ta melhorando mas e mas

 

Parabens

 

Tranks

[matheusguerra 3]

cara fico muito bom

se colocar coisas amais e deixalo com um visual legal, pode ser usado em comercio ou em lojas

ou simplesmente usalo para melhorar o conhecimento em delphi

vlw mesmo, levo thanks :D ^^

[bidoow 0]

claro matheus, de pra quebra o galo de alguma loja ai que precisa disso ^^ :D

[DarkSj 0]

no meu delphi n tem ib console to ferradoo

 

porqe n teem?

 

me ajudem!

[matheusguerra 3]

claro que tem

só ke não é no delphi

é na pasta onde esta localizado o delphi

[atirador_FN 0]

InterBase (IbConsole) , BDE Administrator não encontrei esses 2 na pasta do meu delphi7 '-', alguem pode ajudar? :D

[DarkSj 0]

eu até asho sóqe quando eu aperto para selecionar ele da um erro:

 

InterBase library gds32.dll not found in the path.Please instal InterBase to use this functionality.

 

alguem me ajuda!