Há algum tempo não utilizo o delphi para desenvolver aplicativos. Utilizo mais o java e em alguns casos (bem raramente) utilizo o csharp.
Mas para aqueles que pretendem iniciar em programação e consideram cSharp ou Java muito complicado para começar, e isso poderia ser desmotivante, resolvi fazer um simples cadastro em Delphi, a pedido de um amigo.
No entanto, sugiro que este exemplo seja apenas o começo, pois seria interessante começarmos a utilizar as linguagens mais próximas das novas tecnologias principalmente Java ou até mesmo Csharp.
Nesta primeira parte, vou fazer um simples cadastro utilizando um arquivo dbf (poderia utilizar firebird ou access, mas escolhi dbf pela facilidade ). Pretendo dar prosseguimento a este tópico e futuramente estaremos utilizando banco de dados relacionais.
Simples cadastro em delphi
Antes de iniciar o projeto, crie um arquivo dbf com dois campos: codigo e nome, ambos tipo caractere com tamanho de 5 e 40, respectivamente.
Criar um novo projeto
Salvar o novo projeto em c:\cadastro
inserir um table -> paleta BDE
name (nome que voce vai atribuir ao objeto) --> tabCliente ou Table1
databasename (nome do banco de dados ou onde estão as tabelas) --> c:\cadastro
tablename (nome da tabela a ser usada) --> cliente
active (abrir ou fechar a tabela) --> true
inserir um datasource -> paleta DATA CONTROLS
name (nome que voce vai atribuir ao objeto) --> ds_cliente ou datasource1
Dataset (nome do objeto a ser ligado, no nosso caso a table) --> tabCliente ou Table1
inserir um DBGrid -> paleta Data Controls
name (nome que voce vai atribuir ao objeto) --> DBGridCliente ou DBGrid1
Datasource (nome da fonte de dados) --> ds_cliente ou datasource1
inserir
label
caption -> Código
edit
name -> e_codigo
text -> deixe em branco
label
caption -> Nome
edit
name -> e_nome
text -> deixe em branco
button
name -> btOk
no evento onClick (ou clica-se duas vezes no botao) entre o begin e o end, digite
table1.insert;
table1.fieldbyname('codigo').value = e_codigo.text;
table1.fieldbyname('nome').value = e_nome.text;
table1.post
DBGridCliente.refresh;
obs: 1 - se voce trocou o nome dos componentes, troque também quando for se referir a ele. Por exemplo
table1.insert deve ser mudado para DBGridCliente.insert
2 - O delphi, diferente de csharp, java entre outras, não é sensitive case, ou seja,
tanto faz letras maiusculas e minusculas
pronto! para executar, pressione f9.
se der algum erro e ficar travado, pressione ctrl-f2
Adicione outros edits e labels ao projeto e faca um cadastro completo.
Para deletar, insira um botao e no evento onclick coloque table1.delete
até a proxima!
