Всем привет!
Подскажите, как к готовой программе сделать окно для ввода пользователя и пароля. Я делала так: в Access создала таблицу: ТаблицаПользователи. В ней создала 2-х пользователей: User и Инспектор и задала им пароли. В Delphi создала новую форму, поместила на нее ADOConnection1, ADOQuery (UserQuery), Edit1(LoginEdit) Edit2(PasswordEdit), 2 кнопки (Вход и Отмена). На кнопке Вход такой код:
Код:
procedure TUserForm.SpeedButton1Click(Sender: TObject);
begin
If (LoginEdit.Text<>'') and (PasswordEdit.Text<>'') then //поля не пустые
begin
UserQuery.Active:=false;
UserQuery.Parameters.ParamByName('log').Value:=LoginEdit.Text;
UserQuery.Active:=true;
If UserQuery.RecordCount<>0 then
begin
If UserQuery.FieldByName('Пароль').AsString=PasswordEdit.Text then begin
login:=LowerCase(LoginEdit.Text);
If UserQuery.FieldByName('Доступ').AsString='True' then Dostup:=true//есть доступ
else Dostup:=false;
Close;
end
else Showmessage('Пароль не верный!');
end;
end
else ShowMessage(Введите имя пользователя и пароль!'); //пустые поля
end;
Эта форма (UserForm)должна запускаться перед главной формой (Form1).
А у меня сразу запускается Form1.