Primeiramente criaremos o form principal, ficando ao seu critério critério a montagem do layout. O meu ficou da seguinte maneira:

Figura 01 - Menu principal do sistema

Nesse momento, estou criando o menu para meu sistema e, para criar-lo basta selecionar o componente main menu, localizado na palheta Standard. Para o configurar, após colocado no form, dê um duplo clique sobre o mesmo.

Antes de criarmos o primeiro formulário de cadastro, é preciso desmarcar uma opção, para que os forms não sejam automaticamente criados quando aberto o sistema. Para isso, basta ir em Tools > Environment Options > Designer e desmarcar a opção "auto create forms & data modules".

Figura 02 - Desmarcando a opção para não criar os forms automaticamente

Após iss,o basta clicar em ok e criaremos o Cadastro de clientes.

Primeiramente, iremos em File > new > form, assim criaremos um novo formulário, nomeando-o de frmCadCliente. Em seguida, adicione uma SQLQuery, um ClientDataSet, um DataSetProvider e um Datasource.

Após adicionar os componentes, mude os nomes da seguinte maneira :

  SQLQuery        – qryForm
  ClientDataSet   – cdsForm
  DataSetProvider – dspForm
  DataSource      – dsForm

Feito isso, ligue os componentes na seguinte ordem:

  dspForm – mude a propriedade DataSet para qryform.
  cdsForm – mude a propriedade providername para dspForm.
  dsForm  – mude a propriedade dataset para cdsForm

Você pode se perguntar: Por que não setamos a qryForm como dataset ao invez do cdsForm?

A resposta é a seguinte: Porque a query é um componente unidirecional, ou seja, só anda pra frente, impossibilitando o trabalho com um DBGrid, por exemplo. Por este motivo é que estamos usando o componente ClientDataSet, por não ter essa característica (ClientDataSet's são bi-direcionais).

Agora, configuremos o componente qryForm para a seguinte instrução SQL:

SELECT 
  IDCLIENTE,
  NOME_CLIENTE, 
  TELEFONE,
  EMAIL
FROM
  CLIENTE
WHERE
  IDCLIENTE = :IDCLIENTE

Nessa instrução SQL estamos selecionando os campo da tabela e passando o IDCLIENTE como parâmetro.

Após essas conexões e configurações, ative a qryform e vá ao cdsform. Dê um duplo clique e abrirá uma janela como na figura abaixo. Clique com o botão direito e selecione a opção "Add All Fields".

Figura 03 - Adicionando Campos ao ClientDataSet

Crie sua tela de cadastro depois vamos à codificação. No evento onCreate do form de cadastro, coloque assim:

procedure TfrmCadCliente.FormCreate(Sender: TObject);
begin
  cdsform.Open;
end;

Agora, implementemos os botões, mas antes, veja a tela que montei para que possa associar o código ao seu respectivo botão:

Figura 04 - Tela de cadastro

procedure TfrmCadCliente.btnSalvarClick(Sender: TObject);
begin
  cdsForm.Post;
end;

procedure TfrmCadCliente.btnAlterarClick(Sender: TObject);
begin
  cdsForm.Edit;
end;

procedure TfrmCadCliente.btnExcluirClick(Sender: TObject);
begin
 cdsForm.Delete;
end;

procedure TfrmCadCliente.btnRetonarClick(Sender: TObject);
begin
  close;
end;

Agora voltaremos ao form principal para codificarmos a chamada deste form, ficando assim:

  Application.CreateForm(tfrmCadCliente, frmCadCliente);
  frmCadCliente.ShowModal;

Pronto pessoal, criamos o formulário de cadastro. No próximo artigo vamos criar o auto-incremento para o campo chave deste cadastro (IDCLIENTE).

Até a próxima! Bye!

Clique aqui para fazer o download dos fontes do projeto até aqui.

Por: Fernando Farah
Contato: fernando.farah@hotmail.com