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);
private
public
modificacion:Boolean;
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;
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.