Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Gente sei que pra a maioria isso deve ser uma besteira mais estou aprendendo delphi a pouco tempo, é o seguinte criei um form para cadastro de usuarios nele existem 4 campos Tedit, quero pegar o que for preenchido nos campos e salvar na tabela do DB, mais num sei como faço num consegui colocar a instrução no botão salvar alguem pode me ajudar.
Estou usando BDE, consigo fazer com o botão chame a função do DbNavegator mais gostaria de fazer sem precisar usar ele.
Posta o código de um dos botões pode ser o salvar mesmo.
Geralmente usa - se os um desses comandos:
tabela.post;
tabela.refresh;
tabela.applyupdates();Segue abaixo o codigo do botão:
procedure TForm1.btnSalvarClick(Sender: TObject);
begin
with con_bd.DataModule1.Query1 do
begin
close;
sql.Clear;
sql.Add('insert into usuarios (ID,NOME,LOGIN,SENHA,NIVEL) values ('+dbeNome.Text+','+dbeLogin.Text+','+dbeSenha.Text+','+dbeNivel.Text+')');
open;
end;
end;end.
Winv, eu trabalho diferente, geralmente meus campos estão ligados direto ao BD, eu somente salvo com um post e depois um refresh isso no botão salvar.
Sempre fiz assim, mas já vi casos parecidos com o seu, cada um tem um estilo de programar, veja com qual você se adapta melhor !!!
beleza valeu pela ajuda mais ja consegui resolver, num sei se é a maniera mais correta mais funfou.
procedure TfrmCadastroUsuario.btnSalvarClick(Sender: TObject);
begin
with DataModule1.Query1 do
begin
close;
SQL.Clear;
SQL.Add('INSERT INTO USUARIOS (ID,NOME,LOGIN,SENHA,NIVEL) VALUES (:ICAMPO,:NCAMPO,:LCAMPO,:SCAMPO,:NICAMPO)');
Params.ParamByName('ICAMPO').Value := dbeId.Text;
Params.ParamByName('NCAMPO').Value := dbeNome.Text;
Params.ParamByName('LCAMPO').Value := dbeLogin.Text;
Params.ParamByName('SCAMPO').Value := dbeSenha.Text;
Params.ParamByName('NICAMPO').Value := dbeNivel.Text;
ExecSQL;
dbeId.Text := '';
dbeNome.Text := '';
dbeLogin.Text := '';
dbeSenha.Text := '';
dbeNivel.Text := '';
end;
end;
Que tipo de conexão você está usando ?