Блокировка одного пункта меню в приложении

@Den955 · Регистрация: 15.08.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте
При вводе логина User должен блокироваться 1 пункт меню (Безопасность), а при вводе логина Admin все пункты меню доступны. Но при любом вводе пункт меню безопасность блокируется. Здесь пункт описан как N16.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm10.ButtonEnterClick(Sender: TObject);
var SaveTxt:TStringList;
    iterIntCount:integer;
    LogAndPass:string;
 
begin
SaveTxt:=TStringList.Create;
SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName)+'RegEdit.txt');
LogAndPass:= EditLogin.Text+' '+EditPass.Text;
for iterIntCount:=0 to SaveTxt.Count -1 do
begin
if LogAndPass = SaveTxt[iterIntCount] then
begin
Label3.Caption:='Вход подтвержден!';
Form10.Hide;
Form1.Show;
If (EditLogin.Text='Admin') then Form1.N16.enabled:=True
else Form1.N16.enabled:=False;
Form1.Enabled:=True;
Form10.EditLogin.Clear;
Form10.EditPass.Clear;
end
else
Label3.Caption:='Вы ввели неверный логин и пароль! Проверьте правильность написания! Либо зарегистрируйтесь!';
Form10.EditLogin.Clear;
Form10.EditPass.Clear;
end;
end;

@krapotkin · 23.04.2015, 10:24

1. обращение к переменной Form10 внутри метода класса TForm10 - грубая ошибка
2. именуйте компоненты в соответствии с их значением. Вместо N16 вполне бы подошло miSecurity
3. на самом деле, и использование здесь ссылки на Form1 тоже крайне неверно. Правильно - вызывать эту форму в модальном режиме из Form1 и при возврате устанавливать нужные значения в Form1. Но переписывать всю программу за вас мне лень

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm10.ButtonEnterClick(Sender: TObject);
var SaveTxt:TStringList;
    iterIntCount:integer;
    LogAndPass:string;
 
begin
  SaveTxt:=TStringList.Create;
  try
  SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName)+'RegEdit.txt');
  LogAndPass:= EditLogin.Text+' '+EditPass.Text;
  for iterIntCount:=0 to SaveTxt.Count -1 do
  begin
    if LogAndPass = SaveTxt[iterIntCount] then
    begin
      Label3.Caption:='Вход подтвержден!';
      Hide;
      EditLogin.Clear;
      EditPass.Clear;
      Form1.Show;
      Form1.N16.enabled:=(EditLogin.Text='Admin');
      Form1.Enabled:=True;
      break;
    end
    else
    begin
      Label3.Caption:='Вы ввели неверный логин и пароль! Проверьте правильность написания, либо зарегистрируйтесь.';
    end;
  end;
  finally
    SaveTxt.free;
  end;
end;

DenNik · 23.04.2015, 23:00

Сообщение от krapotkin

обращение к переменной Form10 внутри метода класса TForm10 - грубая ошибка

это не грубая ошибка. компилятор даже хинт не показывает. это признак непроффесионализма и не знания ООП

@krapotkin · 24.04.2015, 00:13

я и говорю, грубая ошибка )

@northener · 24.04.2015, 01:20

Сообщение от DenNik

это не грубая ошибка. компилятор даже хинт не показывает. это признак непроффесионализма и не знания ООП

krapotkin, прав. Это не грубая, а очень грубая ошибка! Но вполне естественная для учеников кулинарных техникумов.

@krapotkin · 24.04.2015, 01:34

northener,
спасибо, товарищ))

@northener · 24.04.2015, 02:16

Не по теме:

krapotkin, как принято в шутку коверкать русский в моей семье - "нет за сто" ))

@Nuts_nio · 28.06.2018, 00:26

Можно так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.DEMO_no(Sender: TObject);
var
  N_btn: set of 1..20;
  i :Integer;
begin
 N_btn:=[];   //указать не активные элементы меню
  for i := 0 to ComponentCount-1 do
  begin
    with pm2 do
    begin
      if Components[i] is TMenuItem then
      if TMenuItem(Components[i]).Tag in N_btn then
          TMenuItem(Components[i]).Enabled:=false;
    end;
  end;
end;
 
procedure TForm1.DEMO_yes(Sender: TObject);
var
  N_btn: set of 1..20;
  i :Integer;
begin
 N_btn:=[];//указать активные элементы меню
  for i := 0 to ComponentCount-1 do
  begin
    with pm2 do
    begin
      if Components[i] is TMenuItem then
      if TMenuItem(Components[i]).Tag in N_btn then
          TMenuItem(Components[i]).Enabled:=True;
    end;
  end;
end;

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	24.04.2015, 00:13
	я и говорю, грубая ошибка ) 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	24.04.2015, 01:34
	northener, спасибо, товарищ)) 0

@northener
	24.04.2015, 02:16
	Не по теме: krapotkin, как принято в шутку коверкать русский в моей семье - "нет за сто" )) 0