Delphi - Problemas con case

 
Vista:

Problemas con case

Publicado por edgar adrian (2 intervenciones) el 19/05/2017 20:03:24
primero me manda si quiero actualizar. cuando debería ser que lo registrara, no usa clave, es solo registro con dos datos, alguien podria ayudarme?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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
                // Es una sala Nuevo
                GuardaSala('NUEVO');
                MessageDlg('Los Datos de la sala se guardaron', mtinformation, [mbOk], 0);
                end
                else
                 begin
                   // Quiere Actualizar la sala
 
                   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;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de rolisito
Val: 11
Ha mantenido su posición en Delphi (en relación al último mes)
Gráfica de Delphi

Problemas con case

Publicado por rolisito (3 intervenciones) el 25/05/2017 01:48:25
deberias plantear bien la pregunta no se entiende mucho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar