nao consigo gravar os dados na tabela

[shananans 0]

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 ?????

[kadu_17 3]

se você mi fala oq se ta fazenu ai seria melhor =)

 

exemplo esta linha faze oq?

 

DBEdit12.Text := SDS1.FieldByName('encaminhado').AsString;

ela joga o valor do campo 'encaminhado' para um DBEdit12.Text mais pra q isso?

 

hmm no caso se os dbedit tive certinhu so colokar (edit, post) q ja resolve contudo verifique os dbedit

 

flww

[shananans 0]

eu tirei essas linhas ai que você faloou...

 

 

mais eu ainda nao entendi o ( edit;post) q você escreveu na resposta ...

 

você nao pode colocar o codigo ai pra mim ??

 

 

valeww

[kadu_17 3]

tipo o comando para gravação eh o post

 

se os bdedit tao certinho so você colocar no botao gravar o nome_da_tabela.post

so que para você n gravar por cima de outro registro você tem q dar um insert na tabela =)

 

tem varios programas ai na net de cadastro basico da uma procurada e estuda vai ser muito instrutivo =)

 

flww