Навигация
Главная
Поиск
Форум
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
Содержание сайт... 65535
Вызов хранимых ... 65535
Эмулятор микроп... 65535
Приложение «Про... 61734
Организация зап... 61421
Invision Power ... 61065
Оператор выбора... 60427
Подключение Mic... 59209
Модуль Forms 59012
Создание отчето... 58625
ТЕХНОЛОГИИ ДОСТ... 54857
Программируемая... 53627
Пример работы с... 51589
Имитационное мо... 50280
21 ошибка прогр... 45245
Реклама
Сейчас на сайте
Гостей: 10
На сайте нет зарегистрированных пользователей

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

Меры близости на векторах в Delphi + Блок схемы
Принадлежит ли точка пересечению двух окружностей на Turbo Pascal + Отче...
База данных - словарь терминов на Delphi + Пояснительная записка

Реклама



Подписывайся на 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 Комментариев · 2404 Прочтений · Для печати

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


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



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

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

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

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

Пароль



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

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

Случайные загрузки
IPAddresseEdit
Мониторинг сервер...
Простой текстовый...
Модифицированная ...
DelphiX
PCX
IIIDTrans
JanComp
Разработка клиент...
PolyFlow
SendSMS для PHP-F...
Определние размер...
DemoEdit [Исходни...
AboutSystem
Abbrevia
Проигрыватель Mp3
NotePad Pro [Исхо...
PDA версия сайта
Дарахвелидзе П., ...
TrayComp

Топ загрузок
Приложение Клие... 100356
Delphi 7 Enterp... 81334
Converter AMR<-... 20037
Borland C++Buil... 10908
GPSS World Stud... 10005
Borland Delphi ... 7962
Turbo Pascal fo... 6939
Visual Studio 2... 4946
Калькулятор [Ис... 4195
FreeSMS v1.3.1 3500
Случайные статьи
Благодарности к пе...
ввод строки произв...
Закрытие документа...
Установка голубого...
ФАНТОМНЫЕ ФАЙЛЫ
Кумулятивные суммы
ТАБЛИЦЫ
Гибкость, расширяе...
Форматированный ввод
Решение задачи, ис...
Cannot evaluate th...
Требования к ресур...
Как попробовать се...
Сбор метаданных и ...
Порождение класса ...
Ошибки неоднозначн...
Процедура итерацио...
Закрепление материала
Быстрая индексация...
Упражнения для сам...
Размер фотографий ...
Рекурсивное постро...
Оптимизация КАМ-вы...
Септик
Жесты-подсказки в ...
Статистика



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


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