|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Авторизация в программе
Доброго времени суток!
Делаю авторизацию в программе, пользуюсь таким запросом. Код:
procedure TForm1.Button1Click(Sender: TObject); var username, password : string; begin username:= Edit1.Text; password:= Edit2.Text; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT * '); ADOQuery1.SQL.Add('FROM Pol '); ADOQuery1.SQL.Add('WHERE Password = "' + password + '" AND Login = "' + username + '"'); ADOQuery1.Open; ADOQuery1.Active:= true; if ADOQuery1.FieldByName('Dostup').AsString = 'Администратор' then begin Form2.ShowModal(); end else if ADOQuery1.FieldByName('Dostup').AsString = 'Пользователь' then begin Form4.ShowModal(); end else begin ShowMessage('Введен неверный пароль!'); end; Edit1.Clear; Edit2.Clear; end; |
#2
|
||||
|
||||
Цитата:
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |
#3
|
||||
|
||||
Как вариант
Код:
... if ADOQuery1.FieldByName('Dostup').AsString = 'Администатор' then Form2.ShowModal else with Form2 do begin Edit1.Visible:= false; Edit2.Enabled:= false; Button1.Visible:= false; Button2.Enabled:= false; {...} ShowModal; end; ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
poison-bla (10.06.2014)
|