[jose.ignacio.ve]

este seria el codigo completo..

Código Delphi [-]
    unit Uprincipal;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ComCtrls, Vcl.StdCtrls,
  Vcl.Mask, Vcl.DBCtrls, Vcl.Buttons, Vcl.Grids, Vcl.DBGrids,dateutils,
  Vcl.ExtCtrls;

type
  TFprincipal = class(TForm)
    MainMenu1: TMainMenu;
    Reportes1: TMenuItem;
    ListadodeAlumnos2: TMenuItem;
    ListadosdeVencimientos1: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    BSalir: TBitBtn;
    Beliminar: TBitBtn;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBapellido: TDBEdit;
    DBnombre: TDBEdit;
    DBdni: TDBEdit;
    DBdireccion: TDBEdit;
    DBtele: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    Label6: TLabel;
    DBEinicio: TDBEdit;
    Label7: TLabel;
    Bmodificar: TBitBtn;
    Label8: TLabel;
    Label9: TLabel;
    Enombres: TEdit;
    Edni: TEdit;
    RadioGroup1: TRadioGroup;
    procedure BitBtn1Click(Sender: TObject);
    procedure BmodificarClick(Sender: TObject);
    procedure EnombresChange(Sender: TObject);
    procedure EdniChange(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    //procedure BmodificarClick(Sender: TObject);
    //procedure BmodificarClick(Sender: TObject);
  private
    { Private declarations }
  public
  modificacion:Boolean;
    { Public declarations }
  end;

var
  Fprincipal: TFprincipal;

implementation
uses
umodulo;

{$R *.dfm}



procedure TFprincipal.BitBtn1Click(Sender: TObject);
var
vence:word;
inicio: tdate;
   
ruta:string;
begin

        vence:=   DaysInMonth(now);
        if modificacion=false then
              begin

                     fmodulo.talumnos.FieldByName('fecha_ingreso').AsDateTime:= now;
                    self.DBEinicio.Text:=DateToStr(now);

              end
         else
               begin
                    fmodulo.talumnos.Active:=true;
                    fmodulo.talumnos.Edit;
                    modificacion:=false;

               end;

         if self.dbapellido.Text='' then

                 begin
                      Application.MessageBox('El campo Apellido no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
                      self.dbapellido.SetFocus;
                      end
                   else
                    if self.DBnombre.Text='' then

                 begin
                      Application.MessageBox('El campo Nombre no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
                        self.DBnombre.SetFocus;
                 end
                   else
                    if self.DBEinicio.Text='' then
                      begin
                      Application.MessageBox('El campo Fecha de inicio no puede ser vacio','Gimnasio',MB_OK+MB_ICONWARNING);
                      self.DBEinicio.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 ;

                       begin

                  fmodulo.talumnos['fecha_vencimiento']:= fmodulo.talumnos['fecha_inicio'] + vence;
                  


            

                  fmodulo.talumnos.Post;
                  fmodulo.talumnos.Refresh;
                  fmodulo.talumnos.Close;
                  fmodulo.zqlistado_alumnos.Active:=true;
                  fmodulo.zqlistado_alumnos.Refresh;
                  fmodulo.zqmodificacionestado.ExecSQL;
                  fmodulo.ZQlisalumnosfecha.Active:=true;
                  fmodulo.zqlisalumnosfecha.refresh;
                  fmodulo.ZQlisalumnosfecha.Close;
                  fmodulo.zqlistado_alumnos.Refresh;
                 PageControl1.ActivePageIndex:=0;
                       end;
end;

procedure TFprincipal.BmodificarClick(Sender: TObject);
begin
      fmodulo.talumnos.Active:=true;
      fmodulo.talumnos.Locate('id_alumnos',fmodulo.zqlistado_alumnos.FieldByName('id_alumnos').AsString,[]);
      modificacion:=true;
      PageControl1.ActivePageIndex:=1;
      dbapellido.Enabled:=true;
      DBnombre.Enabled:=true;
      DBdni.Enabled:=true;
      DBdireccion.Enabled:=true;
end;

procedure TFprincipal.EdniChange(Sender: TObject);
begin
    fmodulo.zqlistado_alumnos.ParamByName('dni').AsString:='%'+self.Edni.Text+'%';
    fmodulo.zqlistado_alumnos.Refresh;
end;

procedure TFprincipal.EnombresChange(Sender: TObject);
begin

    fmodulo.zqlistado_alumnos.ParamByName('apellidos').AsString:='%'+self.enombres.Text+'%';
    fmodulo.zqlistado_alumnos.Refresh;
end;

procedure TFprincipal.PageControl1Change(Sender: TObject);
begin
if PageControl1.TabIndex = 0then
             begin
            fmodulo.zqlistado_alumnos.Active:=true;
            fmodulo.zqlistado_alumnos.ParamByName('apellidos').AsString:='%';
           fmodulo.zqlistado_alumnos.ParamByName('dni').AsString:='%';
           fmodulo.zqlistado_alumnos.ParamByName('estado').AsString:='A' ;
           fmodulo.zqlistado_alumnos.Refresh;
            fmodulo.ZQlisalumnosfecha.Active:=true;
            fmodulo.ZQlisalumnosfecha.Refresh;
            fmodulo.zqmodificacionestado.ExecSQL;
            fmodulo.zqlistado_alumnos.Refresh;
            fmodulo.talumnos.Close;
             end
            else
            begin
                fmodulo.zqlistado_alumnos.Close;
                fmodulo.talumnos.Active:=true;
                 fmodulo.talumnos.Insert;
                //fmodulo.talumnos.Refresh;
                DBEinicio.Text:= datetostr(now);
            end;
end;

procedure TFprincipal.RadioGroup1Click(Sender: TObject);
begin
if (self.RadioGroup1.ItemIndex= 0) then
       begin
        fmodulo.zqlistado_alumnos.ParamByName('estado').AsString:='A' ;

       end
     else
     if(self.RadioGroup1.ItemIndex=1) then
       begin
        fmodulo.zqlistado_alumnos.ParamByName('estado').AsString:='I';
       end;
        fmodulo.zqlistado_alumnos.Refresh;
end;

end.