Указание даты при добавлении DBDateTimeEditEh

[Dozent]

Как отрыть тогда? в чём ошибка?

[Dozent]

  frmClients.ClientsView(); // вызов формы

function TfrmClients.ClientsView( { var IDs: array of integer } ): boolean;
begin
  qRecords.Open(ClientSQL);
  qRecords.FetchAll;
  mtRecords.Data := qRecords.Data;
  Show;
end;
// открытие формы, передаётс статус, создания, изменения, просто открытие
  frmClientCard.ClientOpenCard(ClientSQL, mtRecords.FieldValues['id_cl'], 1);

procedure TfrmClientCard.ClientCreateCard;
begin
  //mtRecord.Active := false;
  mtRecord.Insert;
  btnSave.Visible := true;
end;

function TfrmClientCard.ClientOpenCard(sSQL: string; ClientID: integer;
  Status: integer): boolean;
begin
  mtRecord.Active := false;
  btnSave.Visible := false;
  qRecord.Open(sSQL + ' WHERE ' + IntToStr(ClientID));
  qRecord.FetchAll;
  mtRecord.Data := qRecord.Data;
  if Status = 1 then
    ClientCreateCard;
  self.Show;
end;

Вот так обрабатываю...

[Dozent]

Да и ещё небольшой прикол в том что грид не связан с мемтейблом, я перемещаю указатель по гриду а отрывается постояно первая запись

[Dozent]

mtRecord.AppendRecord([1, '']); вместо инсерт

[stirenko]

Сообщение от Аватар

Лучше уж две формы - одна для отображения, другая для вставки. Или использовать при вставке ClientDataSet c размеченными полями и активизируемый методом CreateDataSet. Append-ом в него пустую запись, соответственно перенацелить на него DB-компоненты. После использовать данные из его полей для создания записи в таблице базы

Лучше всего ипользовать при вставке ClientDataSet c размеченными полями и активизируемый методом CreateDataSet