Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 89
1

Вывод сообщения о не верном пароле

02.06.2016, 21:45. Показов 749. Ответов 4
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Имеется авторизация
Код прилагается:
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133

procedure TForm_login.Button2Click(Sender: TObject);
begin
ADOQuery1.SQL.Text := 'SELECT * FROM polzovatel WHERE (Пароль = :pass) and (Должность = :log)';
ADOQuery1.Parameters.ParamByName('log').Value := combobox1.Text;
ADOQuery1.Parameters.ParamByName('pass').Value := Edit1.Text;
ADOQuery1.Open;
if ADOQuery1.RecordCount > 0 then
Case Combobox1.itemIndex of
0:begin Edit1.Clear;
   Form_login.Visible:=false;
    Showmessage('Вход в систему под  должностью "Кассир" выполнен.');
    Form_general.Show;
    Form_general.Panel4.Visible:=True;
    Form_general.DBNavigator1.Enabled:=False;
    Form_general.N8.Visible:=False;
    form_sklad.Button8.Enabled:=False;
    form_sklad.Button9.Enabled:=False;
    form_sklad.Button23.Enabled:=False;
    form_sklad.Button24.Enabled:=False;
    form_sklad.Button17.Enabled:=False;
    form_sklad.Button18.Enabled:=False;
    form_sklad.Button11.Enabled:=False;
    form_sklad.Button12.Enabled:=False;
    form_sklad.Button20.Enabled:=False;
    form_sklad.Button21.Enabled:=False;
    form_sklad.Button14.Enabled:=False;
    form_sklad.Button15.Enabled:=False;
    form_sklad.N8.Visible:=False;
    Form_prog.N8.Visible:=False;
    Form_zayav_rem.N8.Visible:=False;
end;
1:begin Edit1.Clear;
 Form_login.Visible:=false;
 Showmessage('Вход в систему под должностью "Директор" выполнен.');
 Form_general.Show;
 Form_general.DBNavigator1.Enabled:=False;
 Form_general.DBGrid1.Enabled:=False;
 Form_Dobav_Polzvt.Button2.Visible:=False;
 Form_Dobav_Polzvt.Button7.Visible:=False;
 
end;
2:begin Edit1.Clear;
 Form_login.Visible:=false;
 Showmessage('Вход в систему под должностью "IT-специалист" выполнен.');
 Form_general.Show;
 Form_zayav_rem.Label1.Visible:=true;
 Form_zayav_rem.ComboBox4.Visible:=True;
 Form_zayav_rem.Button1.Visible:=True;
 Form_Dobav_Polzvt.Label1.Visible:=true;
 Form_Dobav_Polzvt.Edit1.Visible:=true;
 Form_Dobav_Polzvt.Button1.Visible:=True;
 Form_Dobav_Polzvt.ADOQuery1DSDesigner6.Visible:=True;
 
end;
3:begin Edit1.Clear;
 Form_login.Visible:=false;
 Showmessage('Вход в систему под должностью "Бухгалтер" выполнен.');
 Form_general.Show;
end;
4:begin Edit1.Clear;
 Form_login.Visible:=false;
 Showmessage('Вход в систему под должностью "Зам.директора" выполнен.');
 Form_general.Show;
end;
5:begin Edit1.Clear;
 Form_login.Visible:=false;
 Showmessage('Вход в систему под должностью "Рабочий" выполнен.');
 Form_general.Show;
end;
6:begin Edit1.Clear;
 Form_login.Visible:=false;
 Showmessage('Вход в систему под должностью "Начальник отдела кадров" выполнен.');
 Form_general.Show;
     form_general.Panel4.Visible:=true;
    form_general.N37.Visible:=False;
    form_general.N15.Visible:=False;
    form_general.N29.Visible:=False;
    form_general.N30.Visible:=False;
    form_general.N31.Visible:=False;
    form_general.N32.Visible:=False;
    form_general.N33.Visible:=False;
    form_general.N34.Visible:=False;
    Form_Dobav_Polzvt.Button7.Visible:=False;
    Form_Dobav_Polzvt.N37.Visible:=False;
    Form_Dobav_Polzvt.N15.Visible:=False;
    Form_Dobav_Polzvt.N29.Visible:=False;
    Form_Dobav_Polzvt.N30.Visible:=False;
    Form_Dobav_Polzvt.N31.Visible:=False;
    Form_Dobav_Polzvt.N32.Visible:=False;
    Form_Dobav_Polzvt.N33.Visible:=False;
    Form_Dobav_Polzvt.N34.Visible:=False;
    form_sklad.Button8.Enabled:=False;
    form_sklad.Button9.Enabled:=False;
    form_sklad.Button23.Enabled:=False;
    form_sklad.Button24.Enabled:=False;
    form_sklad.Button17.Enabled:=False;
    form_sklad.Button18.Enabled:=False;
    form_sklad.Button11.Enabled:=False;
    form_sklad.Button12.Enabled:=False;
    form_sklad.Button20.Enabled:=False;
    form_sklad.Button21.Enabled:=False;
    form_sklad.Button14.Enabled:=False;
    form_sklad.Button15.Enabled:=False;
    form_sklad.N37.Visible:=False;
    form_sklad.N15.Visible:=False;
    form_sklad.N29.Visible:=False;
    form_sklad.N30.Visible:=False;
    form_sklad.N31.Visible:=False;
    form_sklad.N32.Visible:=False;
    form_sklad.N33.Visible:=False;
    form_sklad.N34.Visible:=False;
    Form_prog.N37.Visible:=False;
    Form_prog.N15.Visible:=False;
    Form_prog.N29.Visible:=False;
    Form_prog.N30.Visible:=False;
    Form_prog.N31.Visible:=False;
    Form_prog.N32.Visible:=False;
    Form_prog.N33.Visible:=False;
    Form_prog.N34.Visible:=False;
    Form_zayav_rem.Button3.Visible:=False;
    Form_zayav_rem.N37.Visible:=False;
    Form_zayav_rem.N15.Visible:=False;
    Form_zayav_rem.N29.Visible:=False;
    Form_zayav_rem.N30.Visible:=False;
    Form_zayav_rem.N31.Visible:=False;
    Form_zayav_rem.N32.Visible:=False;
    Form_zayav_rem.N33.Visible:=False;
    Form_zayav_rem.N34.Visible:=False;
end;
 
end;
 
end;
Не получается сделать так чтобы при не верном пароле выходило сообщение
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 02.06.2016, 21:45
Ответы с готовыми решениями:

Wi-Fi сеть выдает "неверный" пароль при верном пароле
Доброго дня После переустановки Винды (7ка), при подключении к моему домашнему вай-фаю выдает,...

Вывод сообщений при не верном заполнении таблицы
Здравствуйте, мне надо добавить в программу процедуру которая будет выдавать сообщения при не...

Вывод на экран сообщения в "телеграфном" стиле: буквы сообщения должны появляться по одной, с задержкой
Написать программу, которая выводит на экран сообщение в "телеграфном" стиле: буквы сообщения...

Обработка ошибки при не верном расширении
Всем привет. Стоит задача вместо ошибок 404 и тп перенаправлять пользователя на определенную...

4
5395 / 4323 / 1060
Регистрация: 29.08.2013
Сообщений: 27,130
Записей в блоге: 3
02.06.2016, 23:04 2
вот вы пишите
Цитата Сообщение от Slesar Посмотреть сообщение
if ADOQuery1.RecordCount > 0 then
больше нуля значит в базе что-то нашлось

а если ноль, значит в базе ничего не нашлось и надо показать сообщение

ЗЫ а 100500 кнопок убирайте, это неправильно
0
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 89
04.06.2016, 12:53  [ТС] 3
qwertehok, Не выводит ни чего
0
5395 / 4323 / 1060
Регистрация: 29.08.2013
Сообщений: 27,130
Записей в блоге: 3
04.06.2016, 12:59 4
кто не выводит?
0
7 / 7 / 3
Регистрация: 03.05.2016
Сообщений: 35
04.06.2016, 14:03 5
Можешь сделать следующее. Получить пароль из БД необходимого пользователя (Присвоев его допустим S), а потом просто сравнить:
Delphi
1

if s=edit.text then (Верно) else (Неверно)
0
04.06.2016, 14:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 04.06.2016, 14:03
Помогаю со студенческими работами здесь

Rich Text .appendtext текст в не верном порядке
из рисунка можно увидеть что текст на двух полях обработанном в одном цикле отображается по...

По каким причинам file_get_contents может возвращать null при верном url?
Для некоторых страниц file_get_contents не работает, возвращая null, хотя url верный. Тот же самый...

Вывод сообщения
После вывода вещественного числа, не могу вывести сообщение. TASM .286C .model small .data ...

Вывод сообщения
Здравствуйте! На ассемблере пишу первый раз но не могу понять. Как мне вывести какое либо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru