Отменить

IF lflotm = "Добавть" THEN

DELETE &&логически удаляется текущая запись

PACK

thisform.command4.Click

ELSE

thisform.txtKod_avt.value=lkod

thisform.txtFio.value=lfio

thisform.txtMest_roz.value=lmest

thisform.txtData_roz.value=lroz

thisform.txtData_smrt.value=lsmrt

thisform.txtBiograf.value=lbio

ENDIF

thisform.command8.visible=.F. &&невидима "Применить"

thisform.command9.visible=.F. &&невидима "Отменить"

thisform.command5.visible=.T. &&видима "Добавить"

thisform.command6.visible=.T. &&видима "Изменить"

thisform.txtKod_avt.ReadOnly=.T. &&не Доступна для ввода значение поля Kod_avt

thisform.txtFio.ReadOnly=.T. && не Доступна для ввода значение поля Fio

thisform.txtMest_roz.ReadOnly=.T. && не Доступна для ввода значение поля Mest_roz

thisform.txtData_roz.ReadOnly=.T. && не Доступна для ввода значение поля Data_roz

thisform.txtData_smrt.ReadOnly=.T. && не Доступна для ввода значение поля Data_smrt

thisform.txtBiograf.ReadOnly=.T. && не Доступна для ввода значение поля Biograf

thisform.command10.enabled =.T. &&доступна "Выход"

thisform.command7.enabled =.T. &&доступна "Удалить"

thisform.method_avt&&вызовметодаmethod_avt

Выход

iffile("tmp.dbf") &&Функция возвращает логическое значение Т.,

&&если файл с указанным именем найден

deletefile"tmp.dbf" &&Удаляется временный файл

endif

closedatabases&&3акрывает текущую базу данных и все её таблицы

&&Устанавливает текущей первую рабочую область

use"D:\ИНСТИТУТ\3 курс\Курсовая БД\kursovaya\avtor" exclusive&&Открывает ТБД avtor в монопольном режиме

&&и помещает файл в РОП1

Locatefor DELETED() &&Отыскивается первая запись, помеченная для удаления

IF FOUND() &&Функция определяет успешность поиска для команд

&&CONTINUE, FIND, LOCATE, SEEK.

&&Возвращает логическое значение.F., если нет искомой

&&записи (или в указанной РОПе нет открытой таблицы)

&&и значение.Т. - если найдена

pack&&Физически удаляется ВСЕ помеченные на удаление записи

endif

if MESSAGEBOX("Oтсортировать файл?",4+32+256,"Сортировать по коду поставщика")=6

&&4-Yes и No;32-?;

&&256 - 2я командная кнопка по умолчанию (No)

&& 6 - выбрана Yes

sort to tmpon kod_avt&&Сновасортируетсяavtor. Вновь отсортированный файл

&& с помеченными записями создаётся под именем tmp

closedatabases

&&Повторение блока команд с комментариями

use"D:\ИНСТИТУТ\3 курс\Курсовая БД\kursovaya\avtor" exclusive&&B файлеavtor помечает для удаления

deleteall &&все записи внутри файла

pack &&Физическое удаление всех помеченных записей

appendfromtmp &&Переписывает файл tmp с помеченными

&&записями в файл avtorendif

iffile("tmp.dbf") &&Функция возвращает логическое значение Т.,

&&если файл с указанным именем найден

deletefile"tmp.dbf" &&Удаляется временный файл

endif

endif

if MESSAGEBOX("Завершить редактирование?",4+32+256,"Завершить")=6

_screen.ActiveForm.Release()

else

_screen.ActiveForm.Refresh()

Endif

Дата добавления: 2015-08-17