• Registered: 2014-04-16
  • Posts: 64

Topic: автозаполнение edit через выбор combobox

DriveSoft, подскажите как реализовать заполнение полей при выборе комбобобкса, к примеру банк: выбираю определенный банк, и автоматически заполняются поля "БИК" и "корреспондетскский счет"

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

Re: автозаполнение edit через выбор combobox

procedure frmEmployee_OnShow (Sender: string; Action: string);
begin
   frmEmployee_ComboBox1_OnChange ('');
end;

procedure frmEmployee_ComboBox1_OnChange (Sender: string);
begin
     frmEmployee.Edit1.Text := SQLExecute ('SELECT bic FROM bank WHERE id = ' + IntToStr(frmEmployee.ComboBox1.dbItemID) );
     frmEmployee.Edit2.Text := SQLExecute ('SELECT Account FROM bank WHERE id = ' + IntToStr(frmEmployee.ComboBox1.dbItemID) );
end;

Также можете скачать проект с примером данной реализации.

Post's attachments

Attachment icon Employees bank combobox details.zip 5.74 kb, 760 downloads since 2014-10-05 

Dmitry.
  • Registered: 2018-03-12
  • Posts: 91

Re: автозаполнение edit через выбор combobox

Подскажите пожалуйста как можно справится со схожей, но более сложной задачей.
Есть текст бокс который заполняется в ручную по маске 00.0.0.0.0000.
И есть комбо боксы которые соответствуют каждой группе цифр в маске, можно ли организовать автозаполнение текстбокса с помощью нескольких комбобоксов?

Post's attachments

Attachment icon 01.JPG 52.08 kb, 134 downloads since 2019-10-04 

  • Registered: 2015-02-16
  • Posts: 2,688

Re: автозаполнение edit через выбор combobox

Привет Metatron,
Если я правильно понимаю ваш вопрос, вы можете попытаться сделать это следующим образом.
Но есть и другие способы.
С Уважением,
Derek
(с гугл переводчиком)

Post's attachments

Attachment icon autofill.zip 338.55 kb, 282 downloads since 2019-10-04 

  • Registered: 2018-03-12
  • Posts: 91

Re: автозаполнение edit через выбор combobox

Hi, derek. This method suits me. Thanks.
But, the last 0000 must be entered manually.
Tell me how I can automatically move the text input cursor to the end of the TextBox when it is selected, to enter the last four digits.

  • Registered: 2015-02-16
  • Posts: 2,688

Re: автозаполнение edit через выбор combobox

Здравствуй Metatron,
Возможно, попробуйте сделать это так.
Он работает как с помощью клавиатуры (вкладка), так и мыши.
Derek.
.
Hello Metatron,
Perhaps try to do it like this.
It works both with the keyboard (tab) and the mouse.

Post's attachments

Attachment icon autofill.zip 338.86 kb, 275 downloads since 2019-10-05