Заполнение edit из dbgrid

@above92 · Регистрация: 22.10.2015

Author24 — интернет-сервис помощи студентам

Delphi

1
2
3

DataModule2.ADOQuery10.sql.text:='select max(sotr_id) from sotr';;
DataModule2.ADOQuery10.open;
edit1.text:=IntToStr(DataModule2.ADOQuery10.fields[0].asInteger);

в edit1 выводится максимальный номер сотрудника, как сделать чтобы в edit2 выводилось его фио согласно последнему номеру?

@ZfoxAK · 05.04.2018, 05:35

Сообщение от above92

последнему номеру

Это вот не понятно, что за последний номер и почему у сотрудника их несколько.

Сообщение от above92

сделать чтобы в edit2 выводилось его фио

Примерно так:

Delphi

ADOQuery11.Close;
ADOQuery11.SQL.Text:='Select FIO From sotr where sotr_id = :sotr_id';
ADOQuery11.Parameters.ParamByName('sotr_id').Value:= Edit1.Text;
ADOQuery11.Open;
if ADOQuery11.FieldByName('FIO').Value <> null then
Edit2.Text := ADOQuery11.FieldByName('FIO').Value else
ShowMessage(Format('Сотрудник с таким - %S номером отсутствует', [Edit1.Text]));

	05.04.2018, 05:35