Условие на включение MainMenu1.Items[1].Enabled

@Александр9797 · Регистрация: 17.11.2015

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

Здравствуйте. Есть форма: Form_passw где вводится Логин: Edit1 и пароль:Edit2.
Мне нужно написать условие: если в Edit1 введено admin то на форме: Form_glav компонент mainmenu1.Enabled включился.

Вот попытался сделать но что то не работает. Посмотрите пожалуйста что не так.

Delphi
1
2
3
4
if Edit1.text ='admin' then
begin
Form_glav.MainMenu1.Items[1].Enabled:=true;
end;

@northener · 06.03.2017, 19:35

А что именно не работает?

@Александр9797 · 06.03.2017, 19:42 **[ТС]**

Я когда захожу под логином admin он не включает MainMenu1 этот пункт Items[1]

Добавлено через 57 секунд
Может не туда условие в код ставлю посмотрите пожалуйста:

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 TForm_passw.Button1Click(Sender: TObject);
begin
DM.ADOQuery1.SQL.Clear;
DM.ADOQuery1.SQL.Add('SELECT Password FROM Users WHERE login='+#39+Edit1.Text+#39);
DM.ADOQuery1.Open;
if DM.ADOQuery1.IsEmpty
then
begin
MessageBox(0, PChar('Пользователь '+Edit1.Text+' не найден!'), 'Ошибка...',MB_ICONWARNING or  MB_OK);
Form_passw.Edit1.Text:='';
Form_passw.Edit2.Text:='';
end
else
begin
if DM.ADOQuery1.FieldByName ('Password').Value <> Edit2.Text
then
begin
MessageBox(0, 'Пароль введен неверно!', 'Ощибка...',MB_ICONWARNING or  MB_OK);
Form_passw.Edit2.Text:='';
end
else
begin
Form_glav.Show;
Form_passw.Visible:=false;
end;
begin
if Edit1.text ='admin' then
begin
Form_glav.MainMenu1.Items[1].Enabled:=true;
end;
end;
end;
end;

@northener · 06.03.2017, 20:17

А нужно включать именно Items[1]?

Добавлено через 6 минут
Ну и конечно не туда поставил.

Сообщение от Александр9797

if Edit1.text ='admin' then begin
Form_glav.MainMenu1.Items[1].Enabled:=true;
end;

Этот код будет выполняться даже при неверном пароле.

@Александр9797 · 06.03.2017, 20:23 **[ТС]**

Да вы правы именно Items[1].

Так и куда же нужно его сделать что бы все заработало?

@northener · 06.03.2017, 20:28

Не знаю что сделать чтобы всё заработало, но чтобы работало только при верном пароле, то эти строчки должны находиться в том же блоке кода что и строки 23, 24.
P.S. Настоятельно рекомендую научиться нормально форматировать код.

@Александр9797 · 06.03.2017, 20:45 **[ТС]**

Так и не включает что можно сделать?

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
procedure TForm_passw.Button1Click(Sender: TObject);
begin
DM.ADOQuery1.SQL.Clear;
DM.ADOQuery1.SQL.Add('SELECT Password FROM Users WHERE login='+#39+Edit1.Text+#39);
DM.ADOQuery1.Open;
if DM.ADOQuery1.IsEmpty
then
begin
MessageBox(0, PChar('Пользователь '+Edit1.Text+' не найден!'), 'Ошибка...',MB_ICONWARNING or  MB_OK);
Form_passw.Edit1.Text:='';
Form_passw.Edit2.Text:='';
end
else
begin
if DM.ADOQuery1.FieldByName ('Password').Value <> Edit2.Text
then
begin
MessageBox(0, 'Пароль введен неверно!', 'Ощибка...',MB_ICONWARNING or  MB_OK);
Form_passw.Edit2.Text:='';
end
else
begin
Form_glav.Show;
Form_passw.Visible:=false;
begin
if Edit1.text ='admin' then
Form_glav.MainMenu1.Items[1].Enabled:=true;
end;
end;
end;
end;

@northener · 06.03.2017, 21:09

А главную форму показывает? Если показывает, то не может не включать.
А может всё-таки не тот пункт меню пытаетесь включить? Попробуйте заменить Form_glav.MainMenu1.Items[1] на имя этого компонента (TMenuItem)

@Александр9797 · 07.03.2017, 03:24 **[ТС]**

Так и не работает.
Вот посмотрите что не так пожалуйста:

@northener · 07.03.2017, 03:44

Плохо видно. Но ясен пень что вас интересует не Form_glav.MainMenu1.Items[1].

@Александр9797 · 07.03.2017, 05:54 **[ТС]**

не правильно написал условие

Добавлено через 28 секунд
подскажите как правильно.

@Александр9797 · 07.03.2017, 05:59 **[ТС]**

Мне нужно что бы пункт 3 на картинки можно было включить если зашел под логином admin

@rusqwe · 07.03.2017, 11:49

n1 это имя кнопки, обратиться к ней вы можете напрямую

Delphi
1
if Edit1.text ='admin' then Form_glav.n1.Enabled:=true;

@Александр9797 · 07.03.2017, 13:40 **[ТС]**

Спасибо большое все работает. Вот еще один момент можно сделать так что бы вводя логин было без разнице какими ты буквами пишешь то есть "Большими" или "Маленькими". Это возможно?

Добавлено через 1 час 22 минуты
Всем спасибо. Ответили в другом раздели.
Может кому пригодиться:

Delphi
1
if AnsiUpperCase(Edit1.text) ='ADMIN' then Form_glav.n1.Enabled:=true;

@northener · 08.03.2017, 01:25

Сообщение от Александр9797

Спасибо большое все работает

Ну вот. А говорил

Сообщение от Александр9797

именно Items[1].

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@northener пофигист широкого профиля 4770 / 3205 / 862 Регистрация: 15.07.2013 Сообщений: 18,613
	06.03.2017, 19:35
	А что именно не работает? 0

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395
	06.03.2017, 20:23 [ТС]
	Да вы правы именно Items[1]. Так и куда же нужно его сделать что бы все заработало? 0

@northener пофигист широкого профиля 4770 / 3205 / 862 Регистрация: 15.07.2013 Сообщений: 18,613
	06.03.2017, 20:28
	Не знаю что сделать чтобы всё заработало, но чтобы работало только при верном пароле, то эти строчки должны находиться в том же блоке кода что и строки 23, 24. P.S. Настоятельно рекомендую научиться нормально форматировать код. 0

@northener пофигист широкого профиля 4770 / 3205 / 862 Регистрация: 15.07.2013 Сообщений: 18,613
	06.03.2017, 21:09
	А главную форму показывает? Если показывает, то не может не включать. А может всё-таки не тот пункт меню пытаетесь включить? Попробуйте заменить Form_glav.MainMenu1.Items[1] на имя этого компонента (TMenuItem) 0

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395
	07.03.2017, 03:24 [ТС]
	Так и не работает. Вот посмотрите что не так пожалуйста: Миниатюры 0

@northener пофигист широкого профиля 4770 / 3205 / 862 Регистрация: 15.07.2013 Сообщений: 18,613
	07.03.2017, 03:44
	Плохо видно. Но ясен пень что вас интересует не Form_glav.MainMenu1.Items[1]. 0

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395
	07.03.2017, 05:54 [ТС]
	не правильно написал условие Добавлено через 28 секунд подскажите как правильно. 0

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395
	07.03.2017, 05:59 [ТС]
	Мне нужно что бы пункт 3 на картинки можно было включить если зашел под логином admin Миниатюры 0

Условие на включение MainMenu1.Items[1].Enabled

Решение