IF FILE('&FileName1')
* Запуск просмотрщика изображений RUN /N1 &FileVeiwver &FileName1 ELSE
=MESSAGEBOX(’Пропал файл с изображением этого здания!’,; 48,’ Внимание’)
ENDIF
Оснастите своё рабочее место качественной функциональной http://www.cdmebel.ru/ с современным дизайном.
Код события Click кнопки Исправить:
*- Кнопка Исправить
* Первую страницу делаем недоступной ThisForm.PageFrame1.page1.Enabled=.F.
* Меняем заголовок второй страницы "Просмотр" на "Корректировка" ThisForm.PageFrame1.page2.Caption=[Корректировка]
* Делаем доступной кнопку "Записать" ThisForm.PageFrame1.page2.Command4.Enabled=.T.
* Делаем недоступной кнопку "Удалить" ThisForm.PageFrame1.page2.Command1.Enabled=.F.
* Делаем недоступной кнопку "Квартиры" ThisForm.PageFrame1.page2.Command2.Enabled=.F.
* Меняем заголовок кнопки "Выход" на "Отказ" ThisForm.PageFrame1.page2.Command3.Caption=[Отказ]
* Делаем доступным Класс Building1 ThisForm.PageFrame1.page2.Building1.Enabled=.T.
Код события Click кнопки Записать.
*- Кнопка Записать
lnMsgResult=MESSAGEBOX('Сейчас результаты корректировки ' + ;
'будут записаны на диск.',52,'Подтвердите!')
IF lnMsgResult=6
SELECT cBuilding SCATTER MEMO MEMVAR
* Корректировка в основной базе IF .NOT. USED ('Building')
USE Building IN 0 ENDIF
SELECT Building
* Выбираем индекс для быстрого поиска SET ORDER TO TAG ADDRESS
* Индексированный поиск здания в таблице
* SelectStreetAddress - номер улицы, на которой стоит здание
* SelectHouseAddress - номер дома
SEEK STR(SelectStreetAddress)+SelectHouseAddress
* Если записей мало, можно обойтись простым поиском
* SET EXACT ON
* LOCATE FOR Street=cBuilding.Street AND House=cBuilding.House
* SET EXACT OFF IF FOUND()
GATHER MEMO MEMVAR ELSE
=MESSAGEBOX('Нет доступа к таблице зданий ' + ;
' или в таблице отсутствует здание, данные которого '+;
'Вы редактировали.',48,'А вот Вам и проблема!')
ENDIF
THISFORM.Release
ENDIF
Код события Click кнопки Удалить:
lnMsgResult=MESSAGEBOX('Подтвердите!',52,'Удаление!')
IF lnMsgResult=6
* Удаление в основной базе IF .NOT. USED (’Building’)
USE Building IN 0 ENDIF
SELECT Building
* Выбираем индекс для быстрого поиска SET ORDER TO TAG ADDRESS
* Индексированный поиск здания в таблице зданий
* SelectStreetAddress - номер улицы, на которой стоит здание
* SelectHouseAddress - номер дома
SEEK STR(SelectStreetAddress)+SelectHouseAddress IF FOUND()
* Если здание найдено - удалить его DELETE ENDIF
THISFORM.Release
ENDIF
Код события Click кнопки Квартиры:
*- Кнопка Квартиры
* Выборка всех квартир дома в C:\WINNT\TEMP\cFlat.dbf SELECT Flat.Street,Flat.House,;
Flat.Flat,Flat.Storey,Flat.rooms,;
Flat.SquareFlat,Flat.Dwell,Flat.Branch,;
Flat.Balcony,Flat.Height,Flat.Account;
FROM Flat;
WHERE Flat.Street=SelectStreetAddress;
AND Flat.House==SelectHouseAddress;
INTO TABLE ’C:\WINNT\TEMP\cFlat.dbf’;
ORDER BY Flat
Опубликовал vovan666
May 18 2013 08:22:16 ·
0 Комментариев ·
4110 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
