My Visual Database — Помощь в проекте для Новичка

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

null@example.com (Новичок) — Sat, 09 Mar 2024 08:34:51 +0000

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;

Спасибо, работает отлично
я очень благодарен за помощь

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

null@example.com (pavlenko.vladimir.v) — Sat, 09 Mar 2024 07:37:16 +0000

Новичок 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;

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

null@example.com (Новичок) — Sat, 09 Mar 2024 07:14:56 +0000

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