[Volhv]

Вызваю форму для ввода данных в форме FormAnketa;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TFormJrn.Button2Click(Sender: TObject); begin     FormAnketa.Tag:=1;     ADOTableAnketa.Append;     ADOTableAnketaKod_Pc.Value:=ADOTablePacientKod_Pc.Value;     ADOTableAnketa.Active;     ADOTableAnketa.Post;     FormAnketa.ShowModal;     if FormAnketa.Tag=1 then     begin         ADOTableAnketaData.Value:=FormAnketa.DateTimePicker1.Date; //        Выход из редактрования ADOTable     end;     if FormAnketa.Tag=0 then ADOTableAnketa.Cancel; end;

На форме ввожу данные имя фото, дату, ну и ComboBox-ы отмечаю.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TFormAnketa.Button1Click(Sender: TObject); begin     if OpenPicDialog.Execute then     begin         ADOTableFoto.Append;         ADOTableFotoKod_An.Value:=FormJrn.ADOTableAnketaKod_An.Value;         ADOTableFotoFUllName.Value:=OpenPicDialog.FileName;           ADOTableFoto.Active;         ADOTableFoto.Post;     end; end;

Таблица Anketa остается в режиме редактирования. Как выйти из режима редактирвания?

[lmikle]

А так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TFormJrn.Button2Click(Sender: TObject); begin     FormAnketa.Tag:=1;     ADOTableAnketa.Append;     ADOTableAnketaKod_Pc.Value:=ADOTablePacientKod_Pc.Value;     ADOTableAnketa.Active;     FormAnketa.ShowModal;     if FormAnketa.Tag=1 then     begin         ADOTableAnketaData.Value:=FormAnketa.DateTimePicker1.Date; //        Выход из редактрования ADOTable         ADOTableAnketa.Post;     end;     if FormAnketa.Tag=0 then ADOTableAnketa.Cancel; end;

PS. ShowModal - это функция. Возвращает ModalResult (можно назначить на кнопку). Это что-бы с Tag не мучаться:
В форме TFormAnketa на кнопку OK ставишь mrOK, на кнопку Отмена ставишь mrCancel. тогда в коде можно писать так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TFormJrn.Button2Click(Sender: TObject); begin     ADOTableAnketa.Append;     ADOTableAnketaKod_Pc.Value:=ADOTablePacientKod_Pc.Value;     ADOTableAnketa.Active; // Вот это для чего не понял...     If FormAnketa.ShowModal = mrOk        Then          begin            ADOTableAnketaData.Value:=FormAnketa.DateTimePicker1.Date;            ADOTableAnketa.Post;           end     Else ADOTableAnketa.Cancel; end;

[Volhv]

Спасибо но я не про это спрашивал. Post выдает ошибку.

[lmikle]

Какую ошибку, какой из 2х постов? Тут телепатов нет.

ЗЫ. Кстати, как я понимаю, поле ADOTableAnketaKod_An это что-то типа автоинкремента. А кто будет за тебя получать значение этого поля в ADOTableAnketa после Post? Автоматически оно не заполняется в этом случае.