Hola compañeros del foro, estoy tratando de ponerle un pequeño codigo de seguridad, este es el codigo:
Código Delphi
[-]procedure TFMain.FormCreate(Sender: TObject);
var Fecha: TDate;
begin
ShortDateFormat := 'dd/MM/yyyy';
DateSeparator := '/';
Fecha := Now;
if ARegistro.Fields[0].AsDateTime = Fecha then
begin
ShowMessage('El Tiempo se ha vencido, por favor realice tu pago para rehabilitar el software. Gracias.');
Application.Terminate;
end else begin
FLogin:=TFLogin.Create(self);
try
FLogin.ShowModal;
Finally
FLogin.Free;
end;
end;
end;
como ven en el codigo en la base de datos tengo un campo con una fecha especifica, trato de calcular que si la fecha de hoy es igual al que esta en la base de datos y mandar un mensaje y cerrar el programa, sino es asi sale la ventana de login, pero no me esta funcionando, me sale este error:
Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project SalonPlus.exe raised exception class EAccessViolation with message 'Access violation at address 004C244B in module 'SalonPlus.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
|
se que es algo sencillo de veras mis neuronas no estan funcionando hoy. Estoy utilizando Delphi 7 con Access, si Access porque el cliente me lo pidio
Saludos.