Вывод ФИО пользователя(который авторизировался) в DBLookupComboBox

@kikaa · Регистрация: 24.04.2017

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

Здравствуйте, подскажите пожалуйста. Есть форма авторизации, проверяю так:

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
var
k: boolean;
begin
    DM.Users.Active:=True;
  DM.Users.First;
  k:= false;
    while not DM.Users.Eof do begin
    if DM.Users.FieldByName('login').Value=RzEdit1.Text then
      if DM.Users.FieldByName('Password').Value=RzEdit2.Text then begin
        k:=true;
      end;
    DM.Users.Next;
  end;
  if k then begin
    Timer1.Enabled:=True;
    cxProgressBar1.Visible:=True;
    rzLabel1.Visible:=true;
    With cxProgressBar1 do
    Begin cxProgressBar1.Position:=Position+1;
   if Position<>Properties.Max Then begin rzlabel1.font.color:=clred; rzLabel1.Caption:='Выполняется загрузка БД...' ;
   form1.RzBitBtn1.Enabled:=False;
   end;
   if Position=Properties.Max then
   begin
   form1.RzBitBtn1.Enabled:=TRUE;
   end;
   end;
 end
  else ShowMessage('Неверный логин или пароль.Обратитесь к администратору!');
end;

ФИО всех пользователей вывожу в DBLookupComboBox, SQL :

SQL
1
SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password FROM users

, проблема заключается в том, что при открытии формы - DBLookupComboBox пустой, приходится нажимать на кнопку чтобы выбрать ФИО пользователя, как сделать чтобы DBLookupComboBox при открытии формы отображал ФИО в зависимости от того, кто авторизировался?

@krapotkin · 05.09.2019, 05:53

мы ведь все еще говорим о "чистом" проекте где только главная форма и форма логина?
и главная открывается на заднем плане? чтото не верится

закрытие главной формы в делфи это выход из приложения, поэтому вряд ли это хорошее место для старта логина
нужно пересмотреть сценарий использования
сделать кнопку "сменить пользователя", "logout" или что-то в этом духе
по этой кнопке повторить вызов той же процедуры, CheckLogin, которую мы вызывали в конструкторе главной формы
но тогда скорее всего нужно пересмотреть ее поведение и по нажатию Отмена не делать Terminate а просто выходить из процедуры

@kikaa · 05.09.2019, 13:10 **[ТС]**

krapotkin, нет, была создана ещё форма: AddProducts, правда я не знаю,насколько я всё правильно сделал:
1)Я убрал эту форму из Auto-create forms.
2)Добавил её в:

Delphi
1
2
3
4
5
6
7
constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited;
   DM := TDM.Create(Self);
   AddProducts := TAddProducts.Create(Self);
   CheckLogin;
end;

3)Ну и открываю её по нажатию на кнопку из MainForm:

Delphi
1
AddProducts.ShowModal;

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

и главная открывается на заднем плане? чтото не верится

С этим всё нормально, извиняюсь)

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

но тогда скорее всего нужно пересмотреть ее поведение и по нажатию Отмена не делать Terminate а просто выходить из процедуры

Вызов процедуры то сделал, а вот закрыть Главную форму(MainForm) не получается.

@krapotkin · 05.09.2019, 16:37

главную форму не нужно закрывать
нужно придумывать сценарии, которые соответствуют штатному поведению
закрытие главной формы это закрытие приложения

@kikaa · 05.09.2019, 17:01 **[ТС]**

krapotkin, хм, ну тут я опять обращаюсь к Вам за помощью

@krapotkin · 05.09.2019, 21:24

какая помощь, если я не знаю, что нужно-то??

изначально у нас есть какая-то форма, которая не работает без авторизованного юзера
когда мы ее создаем, вызываем CheckLogin() можем туда даже параметр придумать - глушить программу или нет если чо
CheckLogin(Terminate:boolean)
...
if terminate then
Application.Teminate; // не просто так а по условию

тогда при создании формы вызовем CheckLogin(true)
а при нажатии Сменить пользователя - CheckLogin(False)
тогда нажатие Отмены в форме логина просто будет делать НИЧЕГО
а в остальном все ровно так же как и при первом входе
Сменили юзера и так и остались в главной форме.

В чем вопрос-то, я не понимаю...

@kikaa · 06.09.2019, 05:13 **[ТС]**

krapotkin, Все что нужно- это чтобы при нажатии кнопки "Сменить пользователя" исчезала главная форма и открывалась форма авторизации.

@krapotkin · 06.09.2019, 14:58

не нужно
просто откройте авторизацию

Новые блоги и статьи Все статьи Все блоги /
сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .	сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .
10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .	сукцессия 9. Математика подлости: как растения предали грибных друзей anaschu 27.06.2026 Статья 2. Глобальная фосфорная война: эволюционно-экономические механизмы распределения биомов Земли Введение: Экологический рынок как игра с нулевой суммой Традиционная экология долгое время. . .	сукцессия 8. Как я спорил с ИИ, которые - агенты растений и ненавистники грибов! anaschu 27.06.2026 Статья 1. Хроники грибного восстания: как Сократов диалог разрушил академические догмы ИИ Введение: Синдром «цифрового учебника» Современные большие языковые модели (LLM) обладают колоссальным. . .	Главный вопрос моделирования сукцессии anaschu 27.06.2026 главный вопрос. Если эктомикориза лучше добывает недоступный фосфор. И ее масса максимальна из всех. А широколиственный лес тоже имеет самую крутую биомассу. То почему не возникло их симбиоза? Это. . .

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,680 Записей в блоге: 21
	05.09.2019, 05:53
	мы ведь все еще говорим о "чистом" проекте где только главная форма и форма логина? и главная открывается на заднем плане? чтото не верится закрытие главной формы в делфи это выход из приложения, поэтому вряд ли это хорошее место для старта логина нужно пересмотреть сценарий использования сделать кнопку "сменить пользователя", "logout" или что-то в этом духе по этой кнопке повторить вызов той же процедуры, CheckLogin, которую мы вызывали в конструкторе главной формы но тогда скорее всего нужно пересмотреть ее поведение и по нажатию Отмена не делать Terminate а просто выходить из процедуры 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,680 Записей в блоге: 21
	05.09.2019, 16:37
	главную форму не нужно закрывать нужно придумывать сценарии, которые соответствуют штатному поведению закрытие главной формы это закрытие приложения 0

@kikaa 0 / 0 / 0 Регистрация: 24.04.2017 Сообщений: 158
	05.09.2019, 17:01 [ТС]
	krapotkin, хм, ну тут я опять обращаюсь к Вам за помощью 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,680 Записей в блоге: 21
	05.09.2019, 21:24
	Сообщение было отмечено kikaa как решение Решение какая помощь, если я не знаю, что нужно-то?? изначально у нас есть какая-то форма, которая не работает без авторизованного юзера когда мы ее создаем, вызываем CheckLogin() можем туда даже параметр придумать - глушить программу или нет если чо CheckLogin(Terminate:boolean) ... if terminate then Application.Teminate; // не просто так а по условию тогда при создании формы вызовем CheckLogin(true) а при нажатии Сменить пользователя - CheckLogin(False) тогда нажатие Отмены в форме логина просто будет делать НИЧЕГО а в остальном все ровно так же как и при первом входе Сменили юзера и так и остались в главной форме. В чем вопрос-то, я не понимаю... 1

@kikaa 0 / 0 / 0 Регистрация: 24.04.2017 Сообщений: 158
	06.09.2019, 05:13 [ТС]
	krapotkin, Все что нужно- это чтобы при нажатии кнопки "Сменить пользователя" исчезала главная форма и открывалась форма авторизации. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,680 Записей в блоге: 21
	06.09.2019, 14:58
	не нужно просто откройте авторизацию 0

Вывод ФИО пользователя(который авторизировался) в DBLookupComboBox

Решение