Файл: ...\Samples\Solution\Forms\Single.scx

Этот образец показывает простейший сценарий для формы ввода данных, основанной на одной таблице и используемой одним пользователем.

Свойство ControlSource каждого элемента управления типа textbox и combobox формы установлено в поле таблицы Customer.

Команда APPEND BLANK выдается в процедуре события Click командной кнопки cmdNew.

 CopyCode imageСкопировать код
APPEND BLANK
THISFORM.Refresh

Команда DELETE выдается в процедуре события Click командной кнопки cmdDelete.

 CopyCode imageСкопировать код
* cmdDelete.Click
#DEFINE MSGBOX_YES      6
#DEFINE C_MSGBOX1      36
#DEFINE C_DELETE_LOC   "Вы убуждены, что хотите удалить эту запись?"

IF MESSAGEBOX(C_DELETE_LOC,C_MSGBOX1) = MSGBOX_YES
   DELETE
   IF !EOF()
      SKIP 1
   ENDIF
   IF EOF() AND !BOF()
      SKIP -1
   ENDIF
   THISFORM.Refresh
ENDIF

Расширение формы ввода данных

Для создания более "умной" формы, которая позволила бы пользователю прекратить изменения или позволила бы множеству пользователей обращаться к одним и тем же данным, вам нужно будет использовать транзакции или буферирование таблицы или строки.

Смотрите также