Есть две таблицы: "Пароль" и "Пользователь".
Kod - это код пользователя, он в обоих таблицах.
Код:
procedure TForm2.Button1Click(Sender: TObject);
var s,i:integer;
Code:Ansistring;
begin
s:=0;
Code:=Edit2.Text;
for i:=1 to length(Code) do Code[i]:=Chr(Ord(Code[i])-2) ;
If Table2.Locate('Login', Edit1.Text, []) then
s:=s+1;
If Table1.FieldByName('Kod').Value=Table2.FieldByName('Kod').Value then begin
If Table1.Locate('Parol', Code, []) then s:=s+1;
If s=2 then begin
Form1.Enabled:=True;
s:=0;
Form1.Label3.Caption:=Table2.FieldByName('Login').Value;
If Table2.FieldByName('Status').Value=1 then Form1.N2.Enabled:=False;
If Table2.FieldByName('Status').Value=2 then begin
Form1.N2.Enabled:=False;
Form1.N6.Enabled:=False;
end;
end; end;
Close;
Edit1.Clear;
Edit2.Clear;
s:=0;
end;
Там у меня ещё шифровка, без неё никак. Но это не правильная авторизация какая-то, потому что даже если логин и пароль не совпадают по коду но существуют в таблицах, то авторизация проходит. В общем надобно чтобы авторизация проходила, только когда логин и пароль совпадают по коду.