Paradox, funções amp; procedimentos
ola pessoal...sou programar novato em delphi e eu estou montando um programa simples com aplicaçoes de bd no paradox...
Gostaria de saber com exemplos faceis como criar procedimentos e fuçoes (privadas e publicas), pois tentei fazer e naum consegui...minha outra duvida sobre a operaçoes de tabelas(incluir,alterar,excluir,confirmar) como faço isso no paradox sem usar o dbnavigator??? de maneira simples para meu sistema....agradeço a todos deste ja
Gostaria de saber com exemplos faceis como criar procedimentos e fuçoes (privadas e publicas), pois tentei fazer e naum consegui...minha outra duvida sobre a operaçoes de tabelas(incluir,alterar,excluir,confirmar) como faço isso no paradox sem usar o dbnavigator??? de maneira simples para meu sistema....agradeço a todos deste ja
Erradicador
Curtidas 0
Respostas
Skaarj
02/02/2003
Coloca lá os speedbutons e é assim:
Table1.Insert = Inserir
Table1.Delete = Apagar
Table1.Edit = Editar
Table1.Post = Gravar
Table1.Cancel = Cancelar
Table1.Refresh Atualizar
Table1.Next = Proximo
Table1.Prior = Anterior
Table1. First = Primeiro
Table1.Last = Ultimo
Procedures?
Exemplo bem simples pra limpar 2 edits:
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure limpar;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure tform1.limpar;
begin
edit1.clear;
edit2.clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
limpar;
end;
end.
Table1.Insert = Inserir
Table1.Delete = Apagar
Table1.Edit = Editar
Table1.Post = Gravar
Table1.Cancel = Cancelar
Table1.Refresh Atualizar
Table1.Next = Proximo
Table1.Prior = Anterior
Table1. First = Primeiro
Table1.Last = Ultimo
Procedures?
Exemplo bem simples pra limpar 2 edits:
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure limpar;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure tform1.limpar;
begin
edit1.clear;
edit2.clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
limpar;
end;
end.
GOSTEI 0