Topic: Отображение данных с TableGrid в поле Edit
Помогите пожалуйста. Есть TableGrid, в нем имеются кое какие записи. Нужно сделать так, чтобы при выборе записи из TableGrid данные отображались в поле Edit, вытягивая данные из таблицы базы данных.
Используя скрипт:
procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
Form1_ProcessSelectedRecordNR;
end;
procedure Form1_ProcessSelectedRecordNR;
begin
Form1.Edit3.Text := SQLExecute('SELECT vvv FROM dfg WHERE dfg.id='+Form1.TableGrid1.sqlValue); //
Form1.Edit4.Text := SQLExecute('SELECT zzx FROM dfg WHERE dfg.id='+Form1.TableGrid1.sqlValue); //
end;
procedure Form1_TableGrid1_OnKeyDown(Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
case Key of
VK_UP, VK_DOWN: // Обработка нажатия клавиш вверх и вниз
begin
Form1_ProcessSelectedRecordNR;
end;
end;
end;,
работает корректно только когда выбираю запись мышкой, а если кнопками на клавиатуре (стрелками вверх или вниз), то данные отображаются с предыдущей записи, т.е. не правильно.
Post's attachments
Test.rar 293.89 kb, 50 downloads since 2023-09-24
