• Registered: 2023-08-19
  • Posts: 61

Topic: Помощь в проекте для Новичка

Здравствуйте.
Помогите мне с проектом.
При заполнении поля КЛЮЧ(Edit1) как сделать, что бы данные из базы данных подтягивались в поле Имя (Edit2)
Проект прилагаю.

Post's attachments

Attachment icon USER_key.zip 333.92 kb, 19 downloads since 2024-03-09 

2 Reply by pavlenko.vladimir.v (edited by pavlenko.vladimir.v 2024-03-09 07:37:30)

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 454

Re: Помощь в проекте для Новичка

Новичок wrote:

Здравствуйте.
Помогите мне с проектом.
При заполнении поля КЛЮЧ(Edit1) как сделать, что бы данные из базы данных подтягивались в поле Имя (Edit2)
Проект прилагаю.

procedure Form1_Edit1_OnChange (Sender: TObject);
begin
  if (Form1.Edit1.Text <> '') then
  Form1.Edit2.Text := SQLExecute('SELECT user_name FROM user_log WHERE user_key='''+Form1.Edit1.Text+'''') else
  Form1.Edit1.Text := '';
end;
  • Registered: 2023-08-19
  • Posts: 61

Re: Помощь в проекте для Новичка

pavlenko.vladimir.v wrote:
Новичок wrote:

Здравствуйте.
Помогите мне с проектом.
При заполнении поля КЛЮЧ(Edit1) как сделать, что бы данные из базы данных подтягивались в поле Имя (Edit2)
Проект прилагаю.

procedure Form1_Edit1_OnChange (Sender: TObject);
begin
  if (Form1.Edit1.Text <> '') then
  Form1.Edit2.Text := SQLExecute('SELECT user_name FROM user_log WHERE user_key='''+Form1.Edit1.Text+'''') else
  Form1.Edit1.Text := '';
end;

Спасибо, работает отлично
https://san2.ru/smiles/thank-you.gif я очень благодарен за помощь