Навигация
Главная
Поиск
Форум
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
Эмулятор микроп... 65535
Подключение Mic... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Invision Power ... 65289
Организация зап... 63938
Модуль Forms 60856
Создание отчето... 60717
ТЕХНОЛОГИИ ДОСТ... 57040
Создание потоко... 56385
Пример работы с... 54279
Имитационное мо... 52491
Реклама
Сейчас на сайте
Гостей: 9
На сайте нет зарегистрированных пользователей

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

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

Реклама



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

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


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



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

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

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

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

Пароль



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

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

Случайные загрузки
Borland C++Builde...
Animated Menus
AlnComponents
Blib [Исходник на...
DiskInfo
Xrumer 4 Platinum...
MiniTetris [Исход...
Разработка распре...
С. Г. Горнаков - ...
MiniChat
Программирование ...
Counter [Исходник...
isoCanvas (Редакт...
В.Понамарев - COM...
Синтаксический ан...
Эффект лампы на р...
Программа рисует ...
Исправление проц...
CoolDev TipsSyste...
Ics

Топ загрузок
Приложение Клие... 100376
Delphi 7 Enterp... 83089
Converter AMR<-... 20046
Borland C++Buil... 11178
GPSS World Stud... 10907
Borland Delphi ... 8124
Turbo Pascal fo... 6973
Visual Studio 2... 4963
Калькулятор [Ис... 4359
FreeSMS v1.3.1 3510
Случайные статьи
Формирование запро...
Карта JOB
Базовые элементы и...
только соединиться...
Введение
Переходить ли в но...
Различные команды ...
Эффект локализации...
Свойства информаци...
Анализ классическо...
ws — объект
Настройка политики...
Вулкан онлайн - ву...
Непосредственная а...
Функция GetMaxMode...
Ячейки
Как сервер отслежи...
Как работают модули
Модули DTD или схемы
Поперечное сечение...
Мануал по созданию...
Копирование и удал...
Обработка исключит...
Обычно файлы PostS...
Основные игры в он...
Статистика



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


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