Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
ТЕХНОЛОГИИ ДОСТ... 64651
Имитационное мо... 58924
Реклама
Сейчас на сайте
Гостей: 1
На сайте нет зарегистрированных пользователей

Пользователей: 13,101
новичок: Limbo67
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

База данных студентов на Delphi (файл записей) + Блок схемы
Сравнение двух бинарных деревьев на Turbo Pascal + отчет
моделирование процесса поступления заявок в ЭВМ на GPSS + Пояснительная ...

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
ThisForm.PageFrame1.
Кнопка записать
* Проверка введенных значений IF cFlat.Flat=0
=МЕ88АОЕБОХ(,Вы забыли ввести номер квартиры!',48,'Ошибка!') ThisForm.PageFrame1.Page2.txtFlat.Setfocus RETURN ENDIF
IF cFlat.SquareFlat=0
=MESSAGEBOX(,Вы забыли про общую площадь!',48,'Ошибка!')
ThisForm.PageFrame1.Page2.txtSquareFlat.Setfocus
RETURN
ENDIF
IF cFlat.Account=0
=MESSAGEBOX('Введите номер лицевого счета',48,'Ошибка!')
ThisForm.PageFrame1.Page2.txtAccount.Setfocus
RETURN
ENDIF DO CASE
CASE IndFlat=1
* Добавление новой квартиры
* Есть ли уже квартира с таким номером IF .NOT. USED ('Flat')
USE Flat ENDIF
SELECT Flat
SET ORDER TO TAG FlatID
SEEK STR(SelectStreetAddress)+SelectHouseAddress+;
STR(cFlat.Flat)
IF FOUND()
=MESSAGEBOX('Квартира с таким номером уже есть!',;
48,'Ошибка!')
SELECT cFlat
ThisForm.PageFrame1.Page2.txtFlat.Setfocus
RETURN
ENDIF
SET DELETED OFF
SEEK STR(SelectStreetAddress)+SelectHouseAddress+;
STR(cFlat.Flat)
SET DELETED ON IF FOUND()
=MESSAGEBOX('Квартира с таким номером уже есть среди ' + ; 'удаленных!',48,'Ошибка!')
SELECT cFLAT
ThisForm.PageFrame1.Page2.txtFlat.Setfocus
RETURN
ENDIF
* Есть ли уже квартира с таким лицевым счетом IF .NOT. USED ('Flat')
USE Flat ENDIF
SELECT Flat
SET ORDER TO TAG Account SEEK cFlat.Account IF FOUND()
=MESSAGEBOX('Квартира с таким номером счета уже есть!',;
48,'Ошибка!')
SELECT cFlat
ThisForm.PageFrame1.Page2.txtAccount.Setfocus
RETURN
ENDIF
SELECT cFlat
lnMsgResult=MESSAGEBOX('Сейчас данные о новой квартире ' + ;
'будут записаны в базу.',52,'Подтвердите!')
IF lnMsgResult=6 && Кнопка Да
SELECT cFlat SCATTER MEMO MEMVAR M.Street=SelectStreetAddress M.House=SelectHouseAddress
* Запись в основную базу IF .NOT. USED ('Flat')
USE Flat IN 0 ENDIF
SELECT Flat APPEND BLANK GATHER MEMO MEMVAR THISFORM.Release ENDIF CASE IndFlat=2
* Редактирование квартиры
lnMsgResult=MESSAGEBOX('Сейчас результаты корректировки '+;
'будут записаны на диск.',52,'Подтвердите!')
IF lnMsgResult=6 SELECT cFlat SCATTER MEMO MEMVAR
* Корректировка в основной базе IF .NOT. USED ('Flat')
USE Flat IN 0
ENDIF
SELECT Flat
SET ORDER TO TAG FlatID
SEEK STR(SelectStreetAddress)+SelectHouseAddress+;
STR(cFlat.Flat)
IF FOUND()
GATHER MEMO MEMVAR
ELSE
=MESSAGEBOX('Нет доступа к таблице квартир, '+;
' или в таблице отсутствует квартира, '+;
' данные которой Вы редактировали.';
,48,'А вот Вам и проблема!')
ENDIF
SELECT cFlat THISFORM.Release
ENDIF
ENDCASE
Код события Click кнопки Удалить второй страницы формы Flat:
*- Кнопка Удалить
lnMsgResult=MESSAGEBOX('Подтвердите!',52,'Удаление!')
IF lnMsgResult=6
* Удаление в основной базе IF .NOT. USED ('Flat')
USE Flat IN 0 ENDIF
SELECT Flat
* Индексированный поиск SET ORDER TO TAG FlatID
SEEK STR(SelectStreetAddress)+SelectHouseAddress+;
STR(cFlat.Flat)
IF FOUND()
DELETE && Удаление
ELSE
=MESSAGEBOX('Нет доступа к таблице квартир, '+;
' или в таблице отсутствует квартира, '+;
'данные которой Вы хотите удалить.';
,48,'А вот Вам и проблема!')
ENDIF
THISFORM.Release
ENDIF
Код события Click кнопки Жильцы второй страницы формы Flat:
*- Кнопка Жильцы
* Номер выбранной квартиры SelectFlat=cFlat.Flat
* Остальные параметры адреса смотри:
* событие Activate второй страницы формы Building
* SelectStreetAddress - номер улицы
* SelectHouseAddress - номер дома SELECT * FROM Owners;
WHERE Street=SelectStreetAddress;
AND House=SelectHouseAddress;
AND Flat=SelectFlat;
INTO TABLE 'C:\WINNT\TEMP\cOwners.dbf';
ORDER BY Number SELECT cOwners DO FORM Owners
Код события Click кнопки Счет второй страницы формы Flat:
*- Кнопка Счет
* Номер выбранного лицевого счета SelectAccount=cFlat.Account
SELECT * FROM Account;
WHERE Account=SelectAccount;
INTO TABLE ’C:\WINNT\TEMP\cAccount.dbf' SELECT cAccount DO FORM Account
4.3.8. Форма Account - лицевой счет
Отличительная особенность формы (рис. 4.27) заключается в работе с таблицей, содержащей одну единственную запись. Если выполняется за-ведение лицевого счета, то эта запись - с пустыми полями. За выбор ре¬жима работы формы отвечает код события Load.
PUBLIC IndAccount
* Работа с таблицей-выборкой SELECT cAccount IF RECCOUNT()=0
* Если запись в таблице отсутствует
* Заведение лицевого счета
IndAccount=1 && Признак создания счета
SCATTER MEMO MEMVAR M.Account=SelectAccount APPEND BLANK GATHER MEMO MEMVAR ELSE
* Корректировка лицевого счета
IndAccount=2 && Признак корректировки
ENDIF
Работа с изображениями в этой форме выполнена по каноническим принципам Visual FoxPro. Фотографии не хранятся в отдельных файлах, как мы делали это ранее, а заносятся в поле General. Если быть более точным, то в поле General хранятся ссылки на место фотографии в файле cAccount.fpt. В этом же файле хранятся поля Memo. У нашей таблицы это поле pasport.
Откройте таблицу cAccount в окне просмотра Browse. Для этого в ко¬мандном окне Command наберите:
USE c:\winnt\temp\caccount.dbf EXCLUSIVE BROWSE
На экране дисплея появится окно Browse (рис. 4.28).
4.4. Создание процедур и форм поддержки
* Картинку на экран и в файл C:\WINNT\TEMP\Picture.jpg
_SCREEN.PICTURE=THISFORM.IMAGE1.PICTURE
FilePicture=THISFORM.IMAGE1.PICTURE
COPY FILE &FilePicture TO C:\WINNT\TEMP\Picture.jpg ENDIF
* Форму перерисовать THISFORM.Release
5. СОЗДАНИЕ ОТЧЕТОВ

Опубликовал vovan666 May 18 2013 12:17:30 · 0 Комментариев · 2873 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Пятнашки и крести...
Панель для реклам...
Самоучитель PHP 5...
Text3D
Assembler. Учебни...
Ранги для форума
Midi
Animation (Пример...
Создание лабиринт...
Черный круг двига...
Реализация ЭЦП по...
IMtale
Экранная лупа
Мод "проверочный ...
CABfiles
Разработка клиент...
SMExport
Последнее загруж...
База данных фильм...
Базы данных в Инт...

Топ загрузок
Приложение Клие... 100501
Delphi 7 Enterp... 89051
Converter AMR<-... 20086
GPSS World Stud... 14184
Borland C++Buil... 12385
Borland Delphi ... 8800
Turbo Pascal fo... 7067
Калькулятор [Ис... 5024
Visual Studio 2... 5011
FreeSMS v1.3.1 3550
Случайные статьи
ПРИМЕР ЭЛЕКТРОННОГ...
Раздел 2.6
Исследование
Печать
Чтение/показ из фа...
Важные замечания п...
Если 1IS требует к...
СТАНДАРТНЫЕ ЧИСЛОВ...
Слушание
Реализация собстве...
Абстрактные типы д...
Настройка управлен...
Класс TIcon
Виды Интернет Рекл...
Организация информ...
(Request Security)...
Безопасность веб-с...
В реальной системе...
Максимальная разни...
Форматирование объ...
Колебательные проц...
Автоматическое р...
Объединенные связи...
Клонирование и дру...
Подсистема STREAMS
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?