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:beginif 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: beginMessageDlg('Teclee la sala',mtError,[mbok],0);
Sa_salas.SetFocusend;
2: beginMessageDlg('Seleccione el status',mtError,[mbok],0);
Sa_Status.SetFocusend;
End;
end;
Valora esta pregunta
0
