|
justamente le puse esto para el loggueo y funciona de maravilla
procedure TForm6.Button1Click(Sender: TObject);
var
consulta : string;
begin
consulta := '';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
if Edit1.Text = '' then
begin
ShowMessage('Digite su Matricula por favor');
Edit1.SetFocus;
exit;
end
else if Edit2.Text = '' then
begin
ShowMessage('Digite su contraseña por favor ');
Edit2.SetFocus;
exit;
end
else
consulta := 'SELECT * FROM usuarios where matricula='+Edit1.Text+' and clave='+CHR(39)+Edit2.Text+CHR(39)+'';
ADOQuery1.SQL.Add(consulta);
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
Application.MessageBox('Usuario No Encontrado ó Contraseña Incorrecto favor de verificar ','Aviso ',MB_OK + MB_ICONerror);
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
exit;
end
else
begin
//aquí borro datos de los edit usados
Edit1.Clear;
Edit2.Clear;
ShowMessage('Felicidades usuario, en breve serás redirigido al escritorio de Windows...');
//aquí muestra el segundo form donde aparecerán en otro form datos en puros Tlabel
Form7.ShowModal;
//aquí cierra el form de loggue
Form6.Close;
end;
end;
pero no lo cierra ni lo oculta ya use hide y nada el form en sus propiedades puse, bordeStyle bsNone, le deshabilite el minimizar maximizar en Windowstate puse wsMaximized y no mas nada no lo oculta
ahora en el form 7 esto le he puesto
procedure TForm7.Button1Click(Sender: TObject);
begin
Form7.Close;
Form6.ShowModal;
end;
procedure TForm7.FormActivate(Sender: TObject);
begin
aquí leo en un txt bueno le puse formato para que no lo modificaran en un memo directamente a un label
Memo1.Lines.LoadFromFile('C:\win_PC99.jav');
Label10.Caption:=Memo1.Lines[0];
//Memo1.Lines.LoadFromFile('C:\win_PC99.jav');
//Label6.Caption:=Memo1.Lines[1];
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
// aquí quiero mostrar la consulta del usuario logueado y estos mismos valores guardalos a la base de datos
//Label5.Caption:=DBGrid1.DataSource.DataSet.FieldByName('nombre').AsString;
//Label6.Caption:=DBGrid1.DataSource.DataSet.FieldByName('status').AsString;
end;
procedure TForm7.Timer1Timer(Sender: TObject);
begin
//aquí muestro la fecha y las horas
Label14.caption:=timetostr(time);
Label12.caption:=datetostr(date);
end;
end.
al momento funciona todo de maravilla pero no se traer los valores de la consulta ni poder ocultar el form del loggin y que se vuelva a bloquear la pantalla, ni bloquear el botón inicio o el del admin alguna idea
|