Social Icons

^^

segunda-feira, 11 de janeiro de 2010

Aprenda a colocar os códigos nos botões de sua tabela no delphi 7

Botão Novo:


nome de sua table.Append;

Nome de sua edit principal.SetFocus;



Botão Excluir:

if MessageDlg('Deseja Excluir o registro?',

mtConfirmation,[mbYes, mbNo],0) = mrYes then

nome de sua table.Delete;



Botão Alterar/Modificar:

nome de sua table.Edit;



Botão proximo:

nome de sua table.Prior;

if nome de sua table.Bof then

nome de sua table..First;



Botão anterior:

nome de sua table.Next;

if nome de sua table.Eof Then

nome de sua table.Last;



Botão Salvar:

nome de sua table..Post;

ShowMessage('Registro Incluído');

nomde de sua edit principal.SetFocus;

2 comentários:

  1. como assim nome da table?

    ResponderExcluir
  2. É o nome de sua tabela, por exemplo: se o nome de sua tabela for TBMClientes então ficaria: TBMClientes.Append;

    ResponderExcluir

Popular Posts

- Arquivo -

 

Seguidores

Hora exata:

Total de visualizações de página