Заполнение/наполнение поля MEMO (Page 2 of 2)

kovalenko

Так можно. Телефоны будут показаны в компонентах Edit2,Edit4,Edit5

пример:

procedure frmOrder_GridOrder_OnCellClick (Sender: string; ACol, ARow: Integer); 
var
    sl: TStringList;
begin
   //Первый метод
      //Form1.Edit2.Text := SQLExecute('SELECT firstname FROM employees WHERE id = ' + IntToStr(Form1.GridEmployees.dbItemID));
     //frmOrder.Edit2.Text := SQLExecute('SELECT notes FROM application WHERE id = ' + IntToStr(frmOrder.GridOrder.dbItemID));
     //frmOrder.Edit2.Text := SQLExecute('SELECT number FROM phones WHERE id = ' + IntToStr(frmApplication.edPhone.dbItemID));
     //Второй метод
     frmOrder.edNotes.Text := frmOrder.GridOrder.Cells[12, ARow];
     frmOrder.Edit1.Text := frmOrder.GridOrder.Cells[9, ARow];


     frmOrder.Edit2.Clear;
     frmOrder.Edit4.Clear;
     frmOrder.Edit5.Clear;
     sl := TStringList.Create;
     sl.Text := SQLExecute('SELECT group_concat(phones.number, char(13) || char(10)) FROM application LEFT OUTER JOIN client ON client.id=application.id_client LEFT OUTER JOIN phones ON phones.id_client=client.id WHERE Application.id='+frmOrder.GridOrder.sqlValue);
     if sl.Count > 0 then frmOrder.Edit2.Text := sl[0];
     if sl.Count > 1 then frmOrder.Edit4.Text := sl[1];
     if sl.Count > 2 then frmOrder.Edit5.Text := sl[2];
     sl.Free;
end;