Как выйти из режима редактирования?
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [18.97.14.90] |
|
|
ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Обязательно указание:
1) типа базы данных (Paradox/Oracle/Interbase и т.п.)
2) способа доступа к базе данных (ODBC/ADO/DAO/BDE и т.п.)
Например: Paradox/BDE, MS Access/ADO
Наиболее часто задаваемые вопросы:
Базы даных для начинающих. Первые шаги. Понятие о BDE.
Переход на клиент-сервер и начала ADO
Приёмы работы с BLOB (OLE/Memo) полями
Запросы и параметры или как избавиться от многих проблем. Проблемы с датами в запросах.
Нужели мне нужно устанавливать BDE? (или почему не работает программа на другом компьютере)
Обязательно указание:
1) типа базы данных (Paradox/Oracle/Interbase и т.п.)
2) способа доступа к базе данных (ODBC/ADO/DAO/BDE и т.п.)
Например: Paradox/BDE, MS Access/ADO
Наиболее часто задаваемые вопросы:
Базы даных для начинающих. Первые шаги. Понятие о BDE.
Переход на клиент-сервер и начала ADO
Приёмы работы с BLOB (OLE/Memo) полями
Запросы и параметры или как избавиться от многих проблем. Проблемы с датами в запросах.
Нужели мне нужно устанавливать BDE? (или почему не работает программа на другом компьютере)
Как выйти из режима редактирования?
|
Сообщ.
#1
,
|
|
|
|
Вызваю форму для ввода данных в форме 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 остается в режиме редактирования. Как выйти из режима редактирования? |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0160 ] [ 16 queries used ] [ Generated: 8.02.25, 12:32 GMT ]