Tengo problemas con el case, al momento de ejecutarlo y querer registrarlo lo primero que me manda es que si deseo actualizar el registro, cuando nisiquiera esta registrado, alguien prodria ayudarme? de antemano muchas gracias
Código Delphi
[-]var Error: Integer;
begin
error := 0;
if Sa_salas.Text = '' then Error := 1 else
if Sa_status.Text = '' then Error := 2;
Case Error of
0:begin
if BD.QG1.Eof then
begin
GuardaSala('NUEVO');
MessageDlg('Los Datos de la sala se guardaron', mtinformation, [mbOk], 0);
end
else
begin
if MessageDlg('Ya exíste esa sala ''' + Sa_salas.Text + '''' + #13 + '¿Deseas Actualizar sus datos?',mtconfirmation,[mbyes, mbno],0) = mryes then
begin
Sa_sal := Sa_salas.Text;
GuardaSala('ACTUALIZA');
MessageDlg('Se Actualizaron los Datos de la sala', mtinformation, [mbOk], 0);
end;
end;
SpeedButton3Click(Sender);
end;
1: begin
MessageDlg('Teclee la sala',mtError,[mbok],0);
Sa_salas.SetFocus
end;
2: begin
MessageDlg('Seleccione el status',mtError,[mbok],0);
Sa_Status.SetFocus
end;
End;
end;