CONSIDERANDO QUE A MINHA TABELA DE USUARIO TEMHA A SEGUINTE ESTRUTURA.
CODIGO
NOME_USER
EMAIL_USER
LOGIN
SENHA
VALIDADE_DATA
procedure TFormLogin.bsSkinButton1Click(Sender: TObject);
begin
if trim(bsSkinEdit1.Text) = \'\' then //VERIFICA SE FOI PREENCHIDO CAMPO USUARIO
begin
formMain.MensagemSistema.MessageDlg(\'Por favor informe um nome de usuario!\',mtWarning, [mbOk], 0);
bsSkinEdit1.SetFocus;
exit;
end;
begin
if trim(bsSkinPasswordEdit1.Text) = \'\' then //VERIFICA SE FOI PREENCHIDO CAMPO SENHA
begin
formMain.MensagemSistema.MessageDlg(\'Por favor informe a senha!\',mtWarning, [mbOk], 0);
bsSkinPasswordEdit1.SetFocus;
exit;
end;
begin //CONSULTA SQL(EU USO O FIREIRD)
with dmbase.ZQueryUser do begin
close;
sql.Clear;
sql.Add(\'select USUARIOS.login, USUARIOS.SENHA, usuarios.TIPO_USER, USUARIOS.VALIDADE_DATA, usuarios.NOME_USER from USUARIOS where USUARIOS.login = \'\'\'+uppercase(bsSkinEdit1.text)+\'\'\' AND USUARIOS.SENHA = \'\'\'+uppercase(bsSkinPasswordEdit1.text)+\'\'\'\');
open;
end;
end;
begin
if dmbase.ZQueryUser.FieldByName(\'VALIDADE_DATA\').AsDateTime <= date then
begin
// AQUI VC COLOCA O QUE DEVE FAZER CASO A VALIDADE DO USUARIO TEMHA EXPIRADO
end;
end;
BEGIN
if DMBASE.ZQueryUser.IsEmpty then
BEGIN
formMain.MensagemSistema.MessageDlg(\'Senha ou Usuario incorretos!\'+#13+\'Tente novamente!\',mtError, [mbOk], 0);
END ELSE BEGIN
formMain.JvGradientHeaderPanel1.LabelCaption:= \'Bem vindo(a) \'+dmbase.ZQueryUser.FieldByName(\'NOME_USER\').Text;
label1.Caption:= \'OK\';
if dmbase.ZQueryUser.FieldByName(\'TIPO_USER\').Text = \'1\' then
begin
formMain.acformigrejas.Enabled:=false;
formMain.acusuarios.Enabled:=false;
formMain.acauxiliares.Enabled:=false;
formMain.acconfigurar.Enabled:=false;
end;
formLogin.Close;
END;
END;
end;
