1 Topic by savage (edited by savage 2014-09-24 09:25:57)

  • Registered: 2014-05-31
  • Posts: 201

Topic: [Решено] Login и подстановка его значения в соответ поле новой записи

День добрый.
есть вопрос:
1. Есть форма ввода логина ( комбобокс) пароля. Логин является и названием ответственного лица. При подтверждении логина и пароля, значение логина сохраняется в переменную.
2. Есть таблица с набором записей.
3. Есть форма ввода с  информацией для внесения в таблицу записей. Необходимо организовать вывод в одно из полей формы ввода ( комбобокс) наименования ответственного лица ( равно логину).
дело осложнено тем, что на обеих формах поля с инфо о логине представлены в виде комбобоксов.
PS извиняюсь за сумбур- пишу с мобилы.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Решено] Login и подстановка его значения в соответ поле новой записи

Приветствую,


1. создайте глобальную переменную
var
   idUser: integer;


2. в коде, где выполняется условие, в случае успешной авторизации, запомните id пользователя
idUser := FormLogin.ComboBoxLogin.dbItemID;


3. В событии формы OnShow для создания/редактирования записи напишите следующий код, который при создании новой записи, автоматически выберет в ComboBox текущего пользователя
procedure Form2_OnShow (Sender: string; Action: string);
begin
   if Action = 'NewRecord' then Form2.cbUser.dbItemID := idUser;
end;


4. Желательно компонент Form2.cbUser сделать заблокированным, чтобы пользователь сам не мог менять в нем значение
Form2.cbUser.Enabled := False;

Dmitry.
  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] Login и подстановка его значения в соответ поле новой записи

DriveSoft, спасибо. Буду разбираться. Только добрался до desktop

  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] Login и подстановка его значения в соответ поле новой записи

DriveSoft, все работает. Спасибо.