Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2025, 16:53   #1
Vvolhv
Пользователь
 
Регистрация: 05.07.2013
Сообщений: 28
По умолчанию Как выйти из режима редактирования

Вызываю форму для ввода данных в форме FormAnketa.
Код:
    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-ы отмечаю.
Код:
    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 остается в режиме редактирования. Как выйти из режима редактирования?
Delphi 12 Architect
Vvolhv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как выйти из подпрограммы? tilbakekomst Помощь студентам 12 06.01.2016 14:13
как процедуру идля текстового режима переделать для графического режима sanchoys Паскаль, Turbo Pascal, PascalABC.NET 4 29.05.2013 20:44
Как выйти из полноэкранного режима??? ser70 Общие вопросы C/C++ 4 23.04.2013 07:53
Как можно программно выйти из ждущего режима xakkkkker Win Api 1 13.03.2009 17:26