|
#1
|
|||
|
|||
Доступ к базе
Всем привет!
Подскажите, как к готовой программе сделать окно для ввода пользователя и пароля. Я делала так: в 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; А у меня сразу запускается Form1. |
#2
|
|||
|
|||
Для Form1 в свойстве OnActivate написала (взяла из другой программы) следующий код:
Код:
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' |
#3
|
||||
|
||||
Понятное дело переменную login где объявила? Видимо нигде...
Может лучше так... Код:
procedure TForm1.FormActivate(Sender: TObject); var login : string; begin If login='User' then N2.Visible:=true else n2.Visible:=false; end; В начале был Бит, потом Байт и только потом появилось Слово... Последний раз редактировалось Admin, 21.10.2009 в 15:03. |
#4
|
||||
|
||||
В твоем проекте...главное меню--Project--Options...--Forms там установи значение параметра MainForm
В начале был Бит, потом Байт и только потом появилось Слово... |
#5
|
|||
|
|||
Ну с этим я уже разобралась. А как сделать, чтоб у одного пользователя был полный доступ, а у другого только просмотр?
|