Hola. tengo un problema.
necesito dar de alta varios alumnos y deseo hacer que al cargar un alumno me muestre un cartel si deseo cargar otro alumno si acepta me de la opcion de cargar otro alumno. tengo el siguiente codigo.
Código Delphi
[-]
procedure TFAlumno.BitBtn1Click(Sender: TObject);
var
vence:word;
SEGUIR: boolean;
begin
repeat
vence:= DaysInMonth(now)-1;
if(modificacion= false)then
begin
fmodulo.tSocios['fecha_inicio']:=self.DBfecha_ini.Text;
end
else
begin
fmodulo.tSocios.Active:=true;
fmodulo.tSocios.Edit;
modificacion:=false;
end;
if self.dbapellido.Text='' then
begin
Application.MessageBox('El campo Apellidos no puede ser vacio','Gimnasio NENINA',MB_OK+MB_ICONWARNING);
self.dbapellido.SetFocus;
end
else
if self.DBnombre.Text='' then
begin
Application.MessageBox('El campo Nombres no puede ser vacio','Gimnasio NENINA',MB_OK+MB_ICONWARNING);
self.DBnombre.SetFocus;
end
else
if self.DBdni.Text='' then
begin
Application.MessageBox('El campo Dni no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
self.DBdni.SetFocus;
end
else
if self.DBfecha_ini.Text='' then
begin
Application.MessageBox('El campo Fecha de inicio no puede ser vacio','Gimnasio NENINA',MB_OK+MB_ICONWARNING);
self.DBfecha_ini.SetFocus;
end
else
if self.DBLookupComboBox1.KeyValue=null then
begin
Application.MessageBox('El campo tarifa no puede ser vacio','Gimnasio NENINA',MB_OK+MB_ICONWARNING);
self.DBLookupComboBox1.SetFocus;
end
else
if self.DBLookupComboBox2.KeyValue=null then
begin
Application.MessageBox('El campo disciplina no puede ser vacio','Gimnasio NENINA',MB_OK+MB_ICONWARNING);
self.DBLookupComboBox2.SetFocus;
end
else
begin
fmodulo.tSocios['fecha_fin']:= fmodulo.tSocios['fecha_inicio'] + vence;
fmodulo.tSocios.Post;
fmodulo.tSocios.Refresh;
fmodulo.zqlistado_Socios.Active:=true;
fmodulo.zqlistado_Socios.Refresh;
fmodulo.zqmodificacionestado.ExecSQL;
fmodulo.ZQlisalumnosfecha.Active:=true;
fmodulo.zqlisalumnosfecha.refresh;
fmodulo.zqlistado_Socios.Refresh;
end;
if (Application.MessageBox('¿DESEA CARGAR OTRO ALUMNO?','GIMNASIO NENINA', MB_YESNO +MB_ICONQUESTION)= ID_YES) then
begin
seguir:=true ;
end
else
seguir:=false;
until (NOT seguir) ;
fmodulo.ZQlisalumnosfecha.Close;
fmodulo.tSocios.Close;
fmodulo.ttarifa.Close;
fmodulo.tdisciplina.Close;
self.Close;
tengo un menu en un formulario principal. donde ahi creo el formulario de alta de alumnos.
yo necesito que si el usuario acepta cargar otro alumno me la opcion de seguir cargar, sin embargo lo que hace es directamente pasar a la verificacion de campos obligatorios y saltar hacia la pregunta de cargar otro alumno..