Пароль на строку меню

[fredi5]

Здравствуйте.
Как установить в определенной строке меню пароль на доступ к подпрограмме? (точнее пароль на
выполнение этого пункта меню).
Много прочитал, но ничего похожего не нашел.

[Finch]

fredi5, У каждого меню должен сушествовать обработчик. А по большому счету. Пользователя будет очень сильно раздражать, если каждый раз он будет вводить пароль. Лучше поставить авторизацию при запуске программы. И в зависимости, с каким логином зашел пользователь, отключать или включать доступные пункты меню.

[x77]

Finch, это верно только если за программой сидит один пользователь. на производстве зачастую комп всего один на весь цех, прога запущена вообще под левым логином, а пользователи (сиречь, работники цеха) подбегают на минуту чтобы вбить какую-нить муру (отчёт, даннные с оборудования и пр.). и вот тут нужна индивидуальная авторизация. (это я к примеру).

[PooH]

fredi5, ну так по нажатию на пункт меню, что-то же происходит? Что мешает перед этим действием запросить пароль?

[Finch]

x77, Ну можно применить принцип программы sudo. Она помнит пароль в течении 15 минут. Потом благополучно забывает. При каждом телодвижении вбивать пароль. Легче застрелится.

[PooH]

Все зависит от пункта меню... Может там так пункт "Увольться по собственному желанию" =)

[x77]

x77, Ну можно применить принцип программы sudo. Она помнит пароль в течении 15 минут. Потом благополучно забывает. При каждом телодвижении вбивать пароль. Легче застрелится.

тут вопрос в другом: нужна идентификация или авторизация пользователя. если идентификация - то это просто. по баркоду на бейдже сканером штрих-кодов, например. а если авторизация - то... там есть варианты. в идеале - это Single Sign On, т.е. юзер авторизуется где-то один раз, и дальше он только говорит проге, что это он (передаёт свои "credentials", тем же сканером штрих кодов, или по смарт-карте, или по SAM-модулю). поскольку на практике идеал недостижим и редкая контора даст время на разработку внятного key-management-а), то проще просто упростить ввод логина и пароля. секьюрным решение не будет, но ввод логина и пароля руками 50 раз в день - само по себе не самое секьюрное решение.

[fredi5]

Это набор таблиц, доступных в сети нашего предприятия. Пароль нужен для редакции таблиц, одним пользователем, раз в пол-года.
В принципе вопрос проверки пароля решен, но дальше я уперся в "бяку".
Создается дополнительная форма (Form4) в режиме автосоздания(форма простенькая. места занимает мало). Там-же производится идентификация пароля. И в случае положительного результата нужно  переменной  (var abc;) на  главной форме присвоить значание (ххх).
Это "прописка" дополнительной формы в главной.

Код:

unit Unit1;
......
.....
implementation
uses Unit3, Unit2, Unit4 ;
{$R *.dfm}

Это обработка пароля и переход на метку в главной форме.

Код:

unit Unit4;
.....
.....
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
       pas2 :=  Edit1.Text   ;
     if pas1 = pas2 then   
     Form1.abc := xxx
         else
  ShowMessage('хххх');
end;

Вроде все правильно. Но формы друг друга " не видят".

Код:

[Ошибка] Unit4.pas(25): Undeclared identifier: 'TForm1'
[Ошибка] Unit4.pas(40): Label expected
[Фатальная Ошибка] Unit1.pas(78): Could not compile used unit 'Unit4.pas'

Что  я не так сделал?

[zubr]

The label declaration, marked statement, and goto statement must belong to the same block. (See Blocks and scope.) Hence it is not possible to jump into or out of a procedure or function. Do not mark more than one statement in a block with the same label.

Delphi Help

Если тебе нужно выполнить какой то код из другой формы, то в классе той формы создай public метод с нужным кодом и вызывай его Form1.MyMetod

[fredi5]

Я понимаю, что отнимаю драгоценное время, но можно подробнее ...
В Delphi7 есть готовое окно ввода пароля на дополнительной форме.
Как это там действует ?

[RXL]

Честно говоря, лениво было всю тему читать - ограничился первым постом.

У любого пункта меню есть событие onClick - в нем можно показать другой модальный диалог, в котором попросить ввести пароль, а по результатам его работы решить, что делать дальше.
Программирую на BCB6, что примерно соответствует D7. Использую onClick меню для динамического созданию списка элементов меню.

[fredi5]

Вроде сам разобрался. Тему можно не продолжать.

[RXL]

fredi5, поздравляю. Я бы тоже сам справился.
Кстати, мне чаще всего тоже не отвечают — потому как не задаю простых вопросов

[glGizma]

Если я правильно понял, то:

Код:

procedure TForm2.JvXPButton1Click(Sender: TObject);
begin
if Form2.ModalResult=mrOk then 
   if Edit1.Text='123' then 
      begin
         Form3.Show; //показать главное окно
         Exit; //выйти из этой процедуры
      end;
Form2.ModalResult:=mrOk; //результат работы этого окна
Close; //закрыть это окно
end;