1 Topic by kunar80 (edited by kunar80 2015-03-25 16:56:56)

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

Topic: Как значение поля таблицы вывести на форму?

Есть таблица organization. В ней поле organization. Подразумевается, что там будет только одна запись. Как скриптом вывести запись из этого поля в Label или EditBox на Form1?
Предполагаю, что нужно для начала объявить переменные:

   sOrganization: string = '';   idOrganization: integer;

А дальше?

Не боги горшки лепят!
  • Registered: 2015-03-24
  • Posts: 3

Re: Как значение поля таблицы вывести на форму?

здравствуйте.
вероятно так.

Post's attachments

Attachment icon organization.zip 334.7 kb, 477 downloads since 2015-03-25 

3 Reply by kunar80 (edited by kunar80 2015-03-25 21:14:22)

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

Re: Как значение поля таблицы вывести на форму?

Спасибо! Label работает.
Но я всё же переделал на EditBox, т.к. у него, в отличие от  Label, есть возможность настройки выравнивания текста. Выглядит это так:

procedure frmPrograms_OnShow (Sender: string; Action: string);
begin 
frmPrograms.edOrganization.Text:=SQLExecute('SELECT organization FROM organization');
frmPrograms.edOrganization.Alignment := taRightJustify; // выравнивание текста справа
frmPrograms.edOrganization.BorderStyle := bsNone; // без бердюра
frmPrograms.edOrganization.Color := clBtnFace; // цвет фона
end;
Post's attachments

Attachment icon 2015-03-25_231324.jpg 17.82 kb, 440 downloads since 2015-03-25 

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