1 Topic by yevgeny2003 (edited by yevgeny2003 2015-06-10 17:22:10)

  • Registered: 2015-06-10
  • Posts: 44

Topic: базу показать в текстбоксах

как показать данные базы в текстбоксах?

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

Re: базу показать в текстбоксах

Пожалуйста, конкретизируйте вопрос.

Dmitry.
  • Registered: 2015-06-10
  • Posts: 44

Re: базу показать в текстбоксах

к примеру база данных содержит только фио, и при поиске показывать не в таблице а в трёх текстбоксах или лэйблах.

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

Re: базу показать в текстбоксах

так можно показать данные из базы в TextBox

Form1.Edit1.Text := SQLExecute ('SELECT firstname FROM tablename');

если это необходимо выполнить при открытии формы, можете использовать событие OnShow данной формы, например

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.Edit1.Text := SQLExecute ('SELECT firstname FROM tablename');
end;

как правильно создавать обработчики событий можно посмотреть здесь:
http://myvisualdatabase.com/help_ru/scr … rview.html

Dmitry.
  • Registered: 2015-06-10
  • Posts: 44

Re: базу показать в текстбоксах

с одним разобрался. спасибо. теперь второй вопрос)) вопрос картинка, как реализовать такой поиск ? чтобы данные показывались в textbox.

Post's attachments

Attachment icon 1.jpg 84.67 kb, 254 downloads since 2015-06-12 

6 Reply by kunar80 (edited by kunar80 2015-06-15 20:17:11)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: базу показать в текстбоксах

Вопросик по теме.
Если скрипт написан так

Form1.LabelT1.Caption := SQLExecute ('SELECT id_typecontact1 FROM abonents WHERE id='+Form1.TableGrid1.sqlValue);
Form1.LabelT2.Caption := SQLExecute ('SELECT id_typecontact2 FROM abonents WHERE id='+Form1.TableGrid1.sqlValue);
Form1.LabelT3.Caption := SQLExecute ('SELECT id_typecontact3 FROM abonents WHERE id='+Form1.TableGrid1.sqlValue);
Form1.LabelT4.Caption := SQLExecute ('SELECT id_typecontact4 FROM abonents WHERE id='+Form1.TableGrid1.sqlValue);
Form1.LabelT5.Caption := SQLExecute ('SELECT id_typecontact5 FROM abonents WHERE id='+Form1.TableGrid1.sqlValue);

то в Label отображается ID. А как записать, чтобы отображалось текстовое значение типа контакта (typecontact FROM typecontact)?

Post's attachments

Attachment icon phone.rar 5.93 kb, 390 downloads since 2015-06-15 

Не боги горшки лепят!