Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

Добавить. Изменить. Удалить. Применить

Добавить

PUBLIC lflotm&& Флаг отмены действия ("Добавть" или "Изменить")

append blank

go bottom

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

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

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

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

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

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

thisform.txtKod_avt.setfocus&& Получение фокуса полем Kod_avt

thisform.command8.Visible = .T.

thisform.command9.Visible = .T.

thisform.method_avt&&Переходнаметодmethod_avt

_screen.ActiveForm.Refresh()

thisform.command6.click &&Вызовкодакнопки "Изменить"

lflotm = "Добавть"

Изменить

publiclkod, lfio, lmest, lroz, lsmrt, lbio&&Объявлениеглобальныхпеременных

PUBLIC lflotm&& Флаг отмены действия ("Добавть" или "Изменить")

lflotm = "Изменить"

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

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

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

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

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

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

thisform.txtKod_avt.setfocus&& Получение фокуса полем Kod_avt

thisform.command1.enabled=.F. &&He доступна "Начало"

thisform.command2.enabled=.F. && He доступна "Конец"

thisform.command3.enabled=.F. && He доступна "Вперёд"

thisform.command4.enabled=.F. && He доступна "Назад"

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

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

thisform.command8.visible=.T. &&видимa кнопка "Применить"

thisform.command9.visible=.T. &&видимакнопка "Отменить"

thisform.command5.visible=.F. &&He видимакнопка "Добавить"

thisform.command6.visible=.F. &&He видимакнопка "Изменить"

&&глобальнымпеременнымlkod, lfio, lmest, lroz, lsmrt, lbio

&& присваивается новое значение, введенное в соответствующее поле

lkod=thisform.txtKod_avt.value

lfio=thisform.txtFio.value

lmest=thisform.txtMest_roz.value

lroz=thisform.txtData_roz.value

lsmrt=thisform.txtData_smrt.value

lbio=thisform.txtBiograf.value

Удалить

Locate for DELETED ()

If found () &&Функция определяет успешность поиска записи для команд CONTINUE, FIND, LOCATE, SEEK. Возвращает логическое значение .F., если нет искомой записи или в указанной РОП нет открытой ТБД. Возвращает логическое значение .Т., если запись найдена.

IF MESSAGEBOX("Вы действительно хотите удалить ВСЕ записи помеченные на удаление?",4) = 6

Pack               &&Физически удаляется найденная запись

Endif

Endif

*IF MESSAGEBOX("Вы действительно хотите удалить ВСЕ записи помеченные на удаление?",4) = 6

*PACK

thisform.command1.click

endif

_screen. ActiveForm. Refresh

Применить

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.command7.enabled=.T. &&доступна "Удалить"

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

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

Отменить

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