Ya por último en esta semana pondré parte del Onactive del menú, ya que en el nos aseguramos de 2 cosas, primero que la tabla configuración tenga unos datos básicos y segundo de crear un primer usuario con nivel supervisor.
Código Delphi
[-] var VarSClaveIntroducida:String;
begin
if FMENU.Active=True then
begin
if DM.IBDConfiguracion.IsEmpty then
begin
try
DM.IBDConfiguracion.Insert;
DM.IBDConfiguracionNUMERADOR_CLIENTE.Value:=0;
DM.IBDConfiguracionNUMERADOR_UNIDAD.Value:=0;
DM.IBDConfiguracionNUMERADOR_VALOR_ALQUILER.Value:=0;
DM.IBDConfiguracionNUMERADOR_ALQUILER.Value:=0;
DM.IBDConfiguracionNUMERADOR_CAJA.Value:=0;
DM.IBDConfiguracionNUMERADOR_MOVIMIENTOS.Value:=0;
DM.IBDConfiguracionNUMERADOR_FORMATO.Value:=0;
DM.IBDConfiguracionNUMERADOR_FORMA_PAGO.Value:=0;
DM.IBDConfiguracionNUMERADOR_CARGOS.Value:=0;
DM.IBDConfiguracionNUMERADOR_GENERO.Value:=0;
DM.IBDConfiguracionNUMERADOR_USUARIOS.Value:=0;
DM.IBDConfiguracionSEGUNDOS_RETENIDOS.Value:=2;
DM.IBDConfiguracionSALTO_REGISTROS.Value:=20;
DM.IBDConfiguracionCOLOR_DISPONIBLE.Value:='clmoneygreen';
DM.IBDConfiguracionCOLOR_NO_DISPONIBLE.Value:='clwhite';
DM.IBDConfiguracionCOLOR_BLOQUEADA.Value:='clred';
DM.IBDConfiguracion.Post;
ShowMessage('Se ha creado los datos mínimos de la configuración, debe terminar de rellenar los datos' +
'de configuración'+ Chr(13) + Chr(13)+
' --- Este proceso no se volvera a repetir ---');
except
on E: Exception do
begin
MessageBeep(1000);
ShowMessage('Se ha producido un error y el proceso no se ha podido terminar Unidad:[ UMEnu ] Modulo:[ OnActive ]' + Chr(13) + Chr(13)
+ 'Clase de error: ' + E.ClassName + Chr(13) + Chr(13)
+ 'Mensaje del error:' + E.Message+Chr(13) + Chr(13)
+ ' '+Chr(13) + Chr(13)
+ 'El proceso ha quedado interrumpido');
DM.IBT.RollbackRetaining;
end;
end;
end;
if DM.IBDUsuarios.IsEmpty then
begin
MessageBeep(1000);
ShowMessage('SE va a crear el usuario supervisor. '+#13+#10+ #13+#10+
'Sin este no es posible crear nuevos usuarios'+#13+#10+ #13+#10+
'Recuerde los niveles son los siguientes:'+#13+#10+ #13+#10+
'[6] Usuario normal'+#13+#10+ #13+#10+
'[7] Usuario con privilegios (se le mostrará más información).'+#13+#10+ #13+#10+
'[8] Supervisor. Apartir de este nivel se crean los otros usuarios');
VarIModoApertura:=1;
FUsuarios.Show;
end;
No pongo el resto para no liarla ya que tengo que corregir algunas cosas aun.
Ya sabéis como siempre espero vuestros comentarios, dudas, aportaciones y criticas. también me gustaría ver el diseño que le vais dando comentando que componente habéis usado.