Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
nao consigo gravar meus dados na tabela, quando eu fecho meu sistema e abro novamento os dados nao estao gravados na tabela ...
vou postar os codigos dos meus botoes
botao inserir :
procedure Tfrm_cadastro.BitBtn1Click(Sender: TObject);
begin
SDS1.append; // cria um registro em branco apos o ultimo
DBEdit1.SetFocus; // Coloca o foco no DBEdit1
DBEdit12.Clear;
DBEdit1.Clear;
DBEdit2.Clear;
DBEdit3.Clear;
DBEdit4.Clear;
DBEdit6.Clear;
DBEdit7.Clear;
DBEdit8.Clear;
DBEdit9.Clear;
DBEdit10.Clear;
DBEdit11.Clear;
DBRichEdit1.Clear;
DBRadioGroup1.ItemIndex := 0;
DBEdit1.SetFocus ;
BitBtn4.Enabled:= true ;
end;
botao gravar:
begin
If not (DBEdit1.Text <> '') then // se o campo prontuario nao estiver em branco
Begin
ShowMessage('O Número do Prontuário é obrigatório');
DBEdit2.SetFocus ;
BitBtn4.Enabled:= true ;
end
else
If not (DBEdit2.Text <> '') then // se o campo nome nao estiver em branco
Begin
ShowMessage('O Nome do Paciente é obrigatório');
DBEdit2.SetFocus ;
BitBtn4.Enabled:= true ;
end
else
begin
if not (DBRadioGroup1.ItemIndex =0) then
begin
SDS1.FieldbyName('Sexo').asstring :='Feminino';
end
else
SDS1.FieldbyName('Sexo').asstring :='Masculino';
DBEdit1.Text := SDS1.FieldByName('prontuario').AsString;
DBEdit2.Text := SDS1.FieldByName('nome').AsString;
DBEdit3.Text := SDS1.FieldByName('dt_nasc').AsString;
DBEdit4.Text := SDS1.FieldByName('sus').AsString;
DBEdit6.Text := SDS1.FieldByName('endereco').AsString;
DBEdit7.Text := SDS1.FieldByName('bairro').AsString;
DBEdit8.Text := SDS1.FieldByName('cidade').AsString;
DBEdit9.Text := SDS1.FieldByName('tel_r').AsString;
DBEdit10.Text :=SDS1.FieldByName('tel_c').AsString;
DBEdit11.Text := SDS1.FieldByName('hipotese').AsString;
DBEdit12.Text := SDS1.FieldByName('encaminhado').AsString;
DBRichEdit1.Text := SDS1.FieldByName('observacao').AsString;
SDS1.post;
DBEdit1.Clear;
DBEdit2.Clear;
DBEdit3.Clear;
DBEdit4.Clear;
DBEdit12.Clear;
DBEdit6.Clear;
DBEdit7.Clear;
DBEdit8.Clear;
DBEdit9.Clear;
DBEdit10.Clear;
DBEdit11.Clear;
DBRichEdit1.Clear;
DBRadioGroup1.ItemIndex := 0;
DBEdit1.SetFocus ;
BitBtn4.Enabled:= false ;
end;
end;
O que que tá errado ai pessoal ?????
Carregando comentários...