FGarcia
07-10-2006, 20:45:05
Saludos!
Este no es un Login de conexion a una BD!. Se trata que al hacer click en un elemento de menu en el formulario principal se abra una ventana que solicite una clave de acceso antes de abrir el formulario de configuracion. Con el codigo que anexo lo he podido realizar sin embargo tengo el problema de que al ingresar un valor erroneo y le hago click dos veces al boton de ok del mensaje de error se abre el formulario de configuracion, no he podido encontrar la causa, ¡se agradece la ayuda y las mejoras al codigo!
Al hacer Click en el menu
procedure TForm1.Ajustes1Click(Sender: TObject);
var
Respuesta : integer;
begin
frmCfg := TfrmCfg.Create(nil); //Este es el formulario de Login
frmCfg.ShowModal ;
Respuesta := frmCfg.ShowModal;
if Respuesta = mrOK then
begin
frmConfigura := TfrmConfigura.Create(nil); //Este es el formulario de configuracion
try
frmConfigura.ShowModal;
finally
frmConfigura.Free;
end;
end;
frmCFG.Close ;
frmCFG.Free ;
end;
Al ingresar la clave de acceso y presionar el boton de OK
procedure TfrmCfg.BitBtn1Click(Sender: TObject);
var
K: string;
begin
K := DatetoStr(Date) + 'CFG'; // dd/mm/yyyyCFG
if edit1.Text <> '' then
begin
if (Edit1.Text = K) then
frmCfg.ModalResult := mrOk
else
begin
showmessage('¡Clave de acceso invalida!');
Edit1.Text := '';
end;
end
else
ShowMessage('Debe ingresar una clave valida');
end;
¡Lo siento! Trate de editar las etiquetas para resaltar el codigo delphi pero no me salio, En la Prevista me sale bien pero al hacer el post no.
Este no es un Login de conexion a una BD!. Se trata que al hacer click en un elemento de menu en el formulario principal se abra una ventana que solicite una clave de acceso antes de abrir el formulario de configuracion. Con el codigo que anexo lo he podido realizar sin embargo tengo el problema de que al ingresar un valor erroneo y le hago click dos veces al boton de ok del mensaje de error se abre el formulario de configuracion, no he podido encontrar la causa, ¡se agradece la ayuda y las mejoras al codigo!
Al hacer Click en el menu
procedure TForm1.Ajustes1Click(Sender: TObject);
var
Respuesta : integer;
begin
frmCfg := TfrmCfg.Create(nil); //Este es el formulario de Login
frmCfg.ShowModal ;
Respuesta := frmCfg.ShowModal;
if Respuesta = mrOK then
begin
frmConfigura := TfrmConfigura.Create(nil); //Este es el formulario de configuracion
try
frmConfigura.ShowModal;
finally
frmConfigura.Free;
end;
end;
frmCFG.Close ;
frmCFG.Free ;
end;
Al ingresar la clave de acceso y presionar el boton de OK
procedure TfrmCfg.BitBtn1Click(Sender: TObject);
var
K: string;
begin
K := DatetoStr(Date) + 'CFG'; // dd/mm/yyyyCFG
if edit1.Text <> '' then
begin
if (Edit1.Text = K) then
frmCfg.ModalResult := mrOk
else
begin
showmessage('¡Clave de acceso invalida!');
Edit1.Text := '';
end;
end
else
ShowMessage('Debe ingresar una clave valida');
end;
¡Lo siento! Trate de editar las etiquetas para resaltar el codigo delphi pero no me salio, En la Prevista me sale bien pero al hacer el post no.