|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как сделать авторизацию с проверкой по логину и паролю
Есть две таблицы: "Пароль" и "Пользователь". 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; |
#2
|
||||
|
||||
Переделать полностью, включая формат базы.
Или, если уж работать с этим, то проверяй ID пользователя с введённым логином, и получай пароль по ID. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
|||
|
|||
из каких соображений две таблицы, а не одна если не секрет?
может так: PHP код:
|
Этот пользователь сказал Спасибо Pyro за это полезное сообщение: | ||
el_mexico (08.01.2012)
|
#4
|
|||
|
|||
Цитата:
|