[Len@09]

Всем привет!
Подскажите, как к готовой программе сделать окно для ввода пользователя и пароля. Я делала так: в Access создала таблицу: ТаблицаПользователи. В ней создала 2-х пользователей: User и Инспектор и задала им пароли. В Delphi создала новую форму, поместила на нее ADOConnection1, ADOQuery (UserQuery), Edit1(LoginEdit) Edit2(PasswordEdit), 2 кнопки (Вход и Отмена). На кнопке Вход такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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.

[Len@09]

Для Form1 в свойстве OnActivate написала (взяла из другой программы) следующий код:

Код:

1 2 3 4 5

procedure TForm1.FormActivate(Sender: TObject); begin  If login='User' then N2.Visible:=true   else n2.Visible:=false; end;

При компиляции выдает ошибки:
Undeclared identifier: 'login'
Unsatisfied forward or external declaration: 'TForm1.FormCreate'
NalogProject.dpr(18): Could not compile used unit 'Unit1.pas'

[NIch]

Понятное дело переменную login где объявила? Видимо нигде...
Может лучше так...

Код:

1 2 3 4 5 6 7

procedure TForm1.FormActivate(Sender: TObject); var  login : string; begin  If login='User' then N2.Visible:=true   else n2.Visible:=false; end;

Admin: Предупреждение по тегам.

[NIch]

В твоем проекте...главное меню--Project--Options...--Forms там установи значение параметра MainForm

[Len@09]

Ну с этим я уже разобралась. А как сделать, чтоб у одного пользователя был полный доступ, а у другого только просмотр?