1 Topic by guitar-craft (edited by guitar-craft 2019-10-24 02:37:58)

  • Registered: 2019-10-24
  • Posts: 2

Topic: Автозаполнение пользователя

Здравствуйте! Вход в программу осуществляется путем ввода логина и пароля. Как реализовать такой механизм, при котором когда человек вносит сведения автоматом проставлялся логин в сохраняемые сведения? Т.е. зашел человек под логином user01, создаешь запись и в ComboBox уже проставляется пользователь, т.е. user01

Post's attachments

Attachment icon 09.jpg 125.3 kb, 130 downloads since 2019-10-24 

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Автозаполнение пользователя

если пользователь указывается в combobox

Form2.ComboBox2.dbItemID := Form1.ComboBox1.dbItemID ;

если пользователь указывается в edit

var
user:Integer;
begin
user:=IntToStr(SQLExecute('SELECT id FROM user WHERE name='''+Form1.Edit1.Txt'''' ));
Form2.ComboBox2.dbItemID:=user;
end;

так же id пользователя можно записать в переменную в момент авторизации..

  • Registered: 2019-10-24
  • Posts: 2

Re: Автозаполнение пользователя

Можно объяснить как для тупого? smile Я не особо силен в скриптах, но нужно реализовать такую штуку для своей программки. У меня есть форма frmLogin, в ней TextBox с именем edUser. Через нее вводится логин, когда человек входит в программу. Далее человек нажимает кнопку внести новую запись, открывается форма Form2, там ComboBox4 в котором выходят все логины, но мне надо чтобы в этот момент например, проставлялся admin, если человек зашел под admin. Что где нужно настроить?

P.S. - своими силами попробовал - не получается

4 Reply by sibprogsistem (edited by sibprogsistem 2019-10-25 08:00:12)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Автозаполнение пользователя

глобальная переменая
ее нужно поместить в самом вверху вашего листа скриптов

var
 iduser:integer;

получаем id пользователя и записываем в глобальную переменную
разместите этот скрипт в событии OnAfterClick кнопки авторизации

begin
 iduser:= SQLExecute('SELECT id FROM Ваша_таблица WHERE поле_имени_пользователя=''' +frmLogin.edUser.Text+'''');
end;

теперь в событии OnShow формы Form2 разместите скрипт присваевающий соmbobox значение глобальной переменной

Form2.ComboBox4.dbItemID:=iduser;

5 Reply by derek (edited by derek 2019-10-25 14:03:28)

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,688

Re: Автозаполнение пользователя

Здравствуй Guitar-craft,
Вот два примера для вас.
Надеюсь, это поможет.
С уважением
Derek.

Post's attachments

Attachment icon guitarcraft.zip 677.31 kb, 294 downloads since 2019-10-25 

  • From: Новосибирск
  • Registered: 2019-11-03
  • Posts: 75

Re: Автозаполнение пользователя

да спасибо большое)

derek wrote:

Здравствуй Guitar-craft,
Вот два примера для вас.
Надеюсь, это поможет.
С уважением
Derek.

С уважением.