Cadastramento Em Banco De Dados....

[woryon]

beleza gente

Tem como alguém me arrumar um código de cadastramento e loguin em Banco de Dados Paradox? Eu to igual loco pois sou iniciante.

Vlw

falou

[DELPHI-Man32]

kro amigo... você quer cadastrar em uma tabela é muito simples...

basta usar o comando "Append" no evento onclick de um botao para inserir um novo registro e usar o comando "Post" para gravar! também num onclick!

para verificar os dados registrados na tbl e verificar para efetuar o login, é só criar uma rotina para que o programa verifique os dados digitados com os dados da tbl! vou ver um exemplo pra você...

meu email: design-vagner@bol.com.br

abraços, VAGNER..

[woryon]

Entendi não

Desculpe

[DELPHI-Man32]

var

fmlogon: Tfmlogon;

iOK : integer;

implementation

uses main;

{$R *.DFM}

procedure Tfmlogon.BitBtn1Click(Sender: TObject);

begin

if Table1.Locate('Usuario;Senha',

VarArrayOf([ed_user.Text,ed_pass.Text]),[]) Then

begin

iOK := 625;

Close;

end

else

begin

Beep;

Panel1.Caption:='Os dados digitados são inválidos!';

ed_user.Setfocus;

end;

end;

procedure Tfmlogon.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if iOK <> 625 then Canclose := False;

end;

[Vinhosa]

beleza gente

Tem como alguém me arrumar um código de cadastramento e loguin em Banco de Dados Paradox? Eu to igual loco pois sou iniciante.

Vlw

falou

Acho que assim ajuda mais...

imagine que queremos pegar o que você digitou num EDIT e gravar no campo Nome da sua tabela.

A ESTRUTURA É SEMPRE ESSA:

begin

tabela.open; //abre a tabela

tabela.insert; // coloca a tabela em estado de gravação

tabela.fieldbyname('Nome').asstring:=edit1.text; // arrasta o conteudo do edit

tabela.post; // grava os dados

tabela.close; // fecha a tabela

a quantidade de fieldbyname depende de quantos campos você quer gravar.

Um abraço,

Cyro Vinhosa Braga

[Guest Gustavo Guimaraães (Prog. Delphi]

envia um email para mim ............ e tente detalhar um pouco mais o q você quer..

email. gustavoguim@yahoo.com.br.........