Авторизация пользователя

procedure TForm21.Button1Click(Sender: TObject);
begin
DataModule1. AdoQuery1.SQL.Clear;
DataModule1. AdoQuery1.SQL.Add('SELECT * FROM Авторизация WHERE Логин = ' + QuotedStr(DBLookupComboBox1.Text));
DataModule1. AdoQuery1.Active := true;
DataModule1. AdoQuery1.ExecSQL;
DataModule1. AdoQuery1.First;
if(DataModule1. AdoQuery1.FieldByName('Пароль').AsS tring = DBLookupComboBox1.Text) then
begin
if(Length(DBLookupComboBox1.Text) = 0) or (Length(DBEdit1.Text) = 0) then
 
ShowMessage('Успешная авторизация!') else
if DBEdit1.Text = DataModule1.AdoQuery1.FieldByName(' Пароль').AsString then
begin
DataModule1.ADOConnection1.Connecti onString := 'Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=db.mdb;Persist Security Info=False;Jet OLEDB:Database Password='+QuotedStr('1111');
DataModule1.ADOConnection1.Connecte d := true;
end
else
ShowMessage('Неверно введен пароль!');
try
begin
DataModule1.ADOQuery1.ExecSQL;
// ShowMessage('Успешная авторизация! ');
end
except
ShowMessage('Ошибка записи!');
end;
 
form21.hide; form1.show;
 
end; end; end.

  DataModule1. AdoQuery1.SQL.Text:='SELECT * FROM Авторизация WHERE ( Пароль= :пароль) and (Логин = :логин)';
  DataModule1. AdoQuery1.Parameters.ParamByName('пароль').Value := DBLookupComboBox1.Text;
  DataModule1. AdoQuery1.Parameters.ParamByName('логин').Value := Edit1.Text;
  DataModule1. AdoQuery1.Open;
  if DataModule1.ADOQuery1.RecordCount > 0 then
  begin
    if DataModule1.ADOQuery1.FieldValues['Администратор']='1111' then
     showmessage('Вход в систему под Администратором выполнен. Вы верно ввели данные')
    else
      showmessage('Вход в систему под Администратором выполнен. Вы верно ввели данные');
     Edit1.Clear;
    Form21.Visible:=false;
    Form1.Visible:=true;
    Form1.Height:=560;
  end else
  begin
    showmessage('Введён неверный логин или пароль');
    //DBLookupComboBox1.Clear;
    Edit1.Clear;
  end;
end;  end.

procedure TUserForm.Button1Click(Sender: TObject);
begin
    If (EditLogin.Text<>'') and (EditPassword.Text<>'') then
  begin
  ADOQueryUser.Active:=false;
  ADOQueryUser.Parameters.ParamByName('log').Value := EditLogin.Text;
  ADOQueryUser.Active:=true;
    If ADOQueryUser.RecordCount<>0 then
      begin
        If ADOQueryUser.FieldByName('Пароль').AsString = EditPassword.Text then begin
          login:=LowerCase(EditLogin.Text);
        If ADOQueryUser.FieldByName('Доступ').AsString = 'True' then  Dostup:=true
        else Dostup:=false;
             Close;
        end
    else Showmessage('Пароль не верный!');
     end;
 end
    else ShowMessage('Введите имя пользователя и пароль!');
end;

begin
  DataModule1. AdoQuery1.SQL.Text:='SELECT * FROM Àâòîðèçàöèÿ WHERE ( Ïàðîëü= :ïàðîëü) and (Ëîãèí = :ëîãèí)';
  DataModule1. AdoQuery1.Parameters.ParamByName('ïàðîëü').Value := DBLookupComboBox1.Text;
  DataModule1. AdoQuery1.Parameters.ParamByName('ëîãèí').Value := Edit1.Text;
  DataModule1. AdoQuery1.Open;
  if DataModule1.ADOQuery1.RecordCount > 0 then
  begin
    if DataModule1.ADOQuery1.FieldValues['Àäìèíèñòðàòîð']='1111' then
      showmessage('Âõîä â ñèñòåìó ïîä Àäìèíèñòðàòîðîì âûïîëíåí.')
    else
      showmessage('Âõîä â ñèñòåìó ïîä Ïîëüçîâàòåëåì âûïîëíåí.');
 
   Form21.Hide;
   Form1.Show;
  end else
  begin
    showmessage('Ââåä¸í íåâåðíûé ëîãèí èëè ïàðîëü');
 //DBLookupComboBox1.Clear;
    Edit1.Clear;
  end;
end;

procedure TForm21.Button1Click(Sender: TObject);
begin
  DataModule1. AdoQuery1.SQL.Clear;
  DataModule1. AdoQuery1.SQL.Add('SELECT * FROM Авторизация WHERE Логин= ' + QuotedStr(DBLookupComboBox1.Text));
  DataModule1. AdoQuery1.Active := true;
  DataModule1. AdoQuery1.ExecSQL;
  DataModule1. AdoQuery1.First;
 if(DataModule1. AdoQuery1.FieldByName('Пароль').AsString = DBLookupComboBox1.Text) then
begin
   if(Length(DBLookupComboBox1.Text) = 0) or (Length(Edit1.Text) = 0) then
 
   ShowMessage('Успешная авторизация') else
    if Edit1.Text = DataModule1.AdoQuery1.FieldByName('Пароль').AsString then
     begin
        DataModule1.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False;Jet OLEDB:Database Password='+QuotedStr('****');
  DataModule1.ADOConnection1.Connected := true;
     end
  else
     ShowMessage('Успешная авторизация!');
      try
        begin
          DataModule1.ADOQuery1.ExecSQL;
        //  ShowMessage('Óñïåøíàÿ àâòîðèçàöèÿ! ');
        end
        except
          ShowMessage('Веден не верный пароль!');
        end;
 
         form21.hide; form1.show;
 
end;  end;   end.

procedure TForm21.Button1Click(Sender: TObject);
var
  log: String;
begin
  log := DBLookupComboBox1.Text;
  with AdoQuery1, Parameters do
  begin
    SQL.Text:='SELECT * FROM Àâòîðèçàöèÿ  WHERE ( Ëîãèí= :ëîãèí) and (Ïàðîëü = :ïàðîëü)';
    ParamByName('ëîãèí').Value := log;
    ParamByName('ïàðîëü').Value := Edit1.Text;
    Open;
    if RecordCount > 0 then
    begin
      if FieldValues['Ëîãèí'] = '1111' then
        showmessage('Âõîä â ñèñòåìó ïîä àäìèíèñòðàòîðîì âûïîëíåí.')
      else
        showmessage('Âõîä â ñèñòåìó ïîä ïîëüçîâàòåëåì âûïîëíåí.');
 
      Form21.Hide;
      Form1.Show;
    end else
    begin
      SQL.Text:='SELECT * FROM Àâòîðèçàöèÿ';
      Open;
      Edit1.Clear;
      showmessage('Âåäåí íåâûðíûé ïàðîëü');
    end;
  end;
end;