Как можно программно подставить поле в DBEdit? БД Access. Вот кусок кода.
Код:
procedure TFEditTchmi.TNChange(Sender: TObject); //FEditTchmi-это форма
begin
if Tchm.Checked then //Tchm-это RadioButton
begin
TN.DataSource := DM1.DSTchm; //TN-это DBEdit
TN.DataField := String(TN); //пробовал и без String, ошибка несоответствия полей
end;
end;
Вообщем ситуёвина такая-у меня через радиобаттон должны переключаться таблицы (всего две). И в зависимости от выбранной таблицы в дбэдитах должны отображаться данные из соответствующей таблице. Также на форме есть дбгрид, так там я настроил, а с дбэдитами не могу разобраться. Такое чувство, что свойство DataField не открывается. Там, после того, как в DataSource должна открыться таблица DSTchm, появится поле TN. Вот код для дбгрида:
Код:
procedure TFEditTchmi.TchmClick(Sender: TObject);
begin
if
Tchm.Checked = true then
DM1.ADOQueryTchm.SQL.Clear;
DM1.ADOQueryTchm.SQL.Add('SELECT TN AS [Таб №], Name1 AS [Фамилия] FROM Tchm ORDER BY Name1');
DBGrEditTchmi.DataSource := DM1.DSTchm; //DBGrEditTchmi-это дбгрид
DM1.ADOQueryTchm.Open;
end;
procedure TFEditTchmi.TchmpClick(Sender: TObject);
begin
if
Tchmp.Checked = true then
DM1.ADOQueryTchmp.SQL.Clear;
DM1.ADOQueryTchmp.SQL.Add('SELECT TN AS [Таб №], Name1 AS [Фамилия] FROM Tchmp ORDER BY Name1');
DBGrEditTchmi.DataSource := DM1.DSTchmp;
DM1.ADOQueryTchmp.Open;
end;
Админ: Пользумся тегом CODE