Анализ состояния геоинформационных технологий в решении типовых задач управления региональной недвижимостью Тульской области 
4.2 Организация конвертации
данных
Конвертация данных обеспечивается программным модулем,
реализующим процедуру обмена с использованием средств настройки (согласования)
данных с конкретной БД.
Рисунок 6. Схема выполнения конвертации
Задание на процедуру определяет:
состав и объем данных выгружаемых из БД
правила интерпретации данных выгружаемых в пакет обмена
состав и объем данных загружаемых в базу данных ГИС
правила интерпретации данных загружаемых в ГИС.
Схема, поясняющая процесс выполнения конвертации в
географическую базу для использования в ПК ЕГРЗ, представлена на рисунке 6.
4.3 Выбор среды программирования для реализации
конвертера
Для создания простого конвертера нет необходимости
прибегать к сложным языкам программирования. Единственное требование,
предъявляемое к среде разработчика – поддержка сервера баз данных InterBase,
BDE, а также поддержка нативных форматов MAP (специализированные графические
базы данных). Наиболее удобным инструментом для написания конвертера является
визуальный язык программирования. В настоящее время существует достаточно
большое количество визуальных языков таких, как C++, Visual Basic 6.0, Delphi
7.0, C#.
C++ и C#
С++ в настоящее время считается одним из господствующих
языков, используемых для разработки коммерческих программных продуктов. В
последние годы это господство слегка поколебалось вследствие аналогичных
претензий со стороны такого языка программирования, как Java, но маятник
общественного мнения качнулся в другую сторону, и многие программисты, которые
бросили С++ ради Jаvа, в последнее время поспешили вернуться к своей прежней
привязанности. В любом случае эти два языка настолько похожи, что, изучив один
из них, вы автоматически осваиваете 90% другого.
С# - это язык, разработанный Мiсгоsоft для сетевой
платформы. По существу С# является разновидностью С++, и несмотря на ряд
принципиальных отличий, языки С# и С++ совпадают примерно на 90%. Вероятно,
пройдет немало времени, прежде чем язык С# составит серьезную конкуренцию языку
С++; но даже если это и произойдет, то знание языка С++ окажется существенным
преимуществом.
С++ является языком программирования общего назначения.
Естественная для него область применения - системное программирование,
понимаемое в широком смысле этого слова. Кроме того, С++ успешно используется
во многих областях приложения, далеко выходящих за указанные рамки. Реализации
С++ теперь есть на всех машинах, начиная с самых скромных микрокомпьютеров - до
самых больших супер-ЭВМ, и практически для всех операционных систем
Достоинства языка C++:
Масштабируемость.
На языке C++ разрабатывают программы для самых различных платформ и систем;
Возможность работы на низком уровне с памятью, адресами, портами.
Что, при неосторожном использовании, может легко превратиться в недостаток;
C++ имеет мощный препроцессор,
унаследованный от C. Но, как и любой другой мощный
инструмент, требует осторожного использования;
Возможность создания обобщенных алгоритмов для разных
типов данных, их специализация, и вычисления на этапе компиляции, используя шаблоны.
Недостатки
языка C++:
Подключение интерфейса внешнего модуля через
препроцессорную вставку заголовочного файла (#include) серьезно замедляет
компиляцию, при подключении большого количества модулей. Для устранения этого
недостатка, многие компиляторы реализуют механизм прекомпиляции заголовочных
файлов Precompiled Headers;
Недостаток информации о типах данных во время компиляции;
Язык C++ является сложным для изучения и для компиляции;
Некоторые преобразования типов неинтуитивны. В частности,
операция над беззнаковым и знаковым числами выдаёт беззнаковый результат.
Microsoft Visual Basic
Visual Basic уже давно стал одним из наиболее популярных
инструментов для разработчиков программного обеспечения. И сейчас уже
подзабылись былые жаркие дискуссии о его достоинствах и недостатках, когда
профессионалы решали, принимать на вооружение этот инструмент или нет. Отметим
лишь, что критика в адрес VB велась (и продолжает вестись) с позиций пользователей
других средств Microsoft (VC++, Visual и пр.), других языковых систем (Java,
Pascal) и, наконец, конкурирующих систем класса RAD, в первую очередь Delphi.
Достоинства языка VB:
Visual Basic выгодно отличается от других языков
программирования своей простотой и наглядностью;
Visual Basic динамично развивающийся язык;
Visual Basic встроен в программы семейства Microsoft
Office. С его помощью можно управлять этими программами из других программ.
Недостатки языка VB:
значительное число ошибок в новой технологии работы с
базами данных ActiveX Data Objects;
неудовлетворительный объем и качество (ошибки, неудачная
система ссылок и пр.) встроенной справочной системы;
слишком быстро растущие требования к аппаратным средствам
и отсутствие прогресса в производительности;
минимальные улучшения в самом языке и явно недостаточный
прогресс в объектно-ориентированном программировании;
Delphi 2000
Как известно Delphi это потомок Pascal, а именно в основе
Delphi лежит объектно – ориентированное программирование на языке Pascal.
Одним из аргументов против Delphi является сравнительно
большой размер откомпилированного кода, т.е. исполняемого файла, но иногда этот
недостаток может явиться достоинством Delphi, а именно, такой большой размер
файла определяет его независимость от операционной системы, точнее от
библиотек, модулей и тому подобному. Размер exe-файла получаемого на Delphi не
так уж велик и к тому же можно дать гарантию, что этот исполняемый файл будет
работать на любом компьютере (под Windows), а вот за C++ Builder нельзя
поручиться. История знает большое количество случаев, когда программа,
написанная на C++ при тестировании на одном компьютере (на том, где программа
была написана) работала, а при установке на другой компьютер программа не
работала по причине отсутствия DLL библиотеки. Так же не может быть уверенности
в работе программы, написанной на Visual Basic. Что же касается
функциональности и возможностей, то здесь Delphi вполне может поспорить с C++
Builder и уж тем более с Visual Basic, к тому же сам язык, более информативен и
удобен для понимания и чтения.
Так же к достоинствам Delphi 2000 относятся:
Быстрота разработки приложения
Высокая производительность разработанного приложения
Hизкие требования разработанного приложения к ресурсам
компьютера
Hаращиваемость за счет встраивания новых компонент и
инструментов в среду Delphi
Удачная проработка иерархии объектов
Эти и другие достоинства Delphi решают выбор языка
программирования, программный продукт создан с использованием средств Delphi
2000.
4.4 Требования к аппаратному и
программному обеспечению
Для функционирования конвертера требуется следующее
обеспечение.
Аппаратная платформа – персональный компьютер, имеющий
следующие технические характеристики:
процессор тактовой частотой не ниже 2000 Мгц;
объем оперативной памяти не менее 512 Мб;
диагональ монитора 15 и более дюймов;
объем видеопамяти от 32 Мб;
разрешение монитора 640x480 при 16 битной палитре;
объем свободного места на разделе жесткого диска с
размещенным конвертером и конвертируемыми базами данных – не менее 4 Гб.
Как видно из перечисленных требований, к ресурсам ПК
предъявляются серъёзные требования. Это связано с большим количеством
обрабатываемой программным модулем информации.
Програмная конфигурация:
Операционная система Windows 98SE/Me/XP/2000/2003/Vista;
Borland Database Engine версии не
ниже 5.0;
InterBase версии не ниже 6.1;
Программный комплекс ЕГРЗ с запущенным компонентом
«Сервер безопасности».
4.5 Разработка и тестирование программного
модуля
Разработка программного модуля осуществлялась в среде
быстрой разработки приложений Delphi 2000 в соответствии с логической схемой,
изображенной на рисунке 6. Программный код модуля представлен в Приложении.
Тестирование программного продукта включало в себя
проведение опытной конвертации тестовой базы из формата GeoCad в программный
комплекс «ЕГРЗ» с последующим контролем целостности информации штатными
средствами программного комплекса. Также случайным образом была проведена
выборка данных из одной системы и ручная проверка переноса объектов в другую
методом непосредственного сравнения. Все проверки показали успешный перенос
данных из структуры, описанной в таблице 2 в структуру, описанную в таблице 3.
Таким образом, разработанный программный модуль конвертации прошёл
тестирование.
4.6 Инструкция пользователю
Интерфейс разработанной программы крайне простой, что
обусловлено требованиями технического задания на разработку программного продукта.
Графический вид интерфейса пользователя представлен на рисунке 7:
Рисунок 7. Окно конвертера данных
Для осуществления процесса конвертации пользователю
необходимо:
1. В левой части окна указать путь до файла данных ГИС
GeoCad. При этом осуществляется контроль по маске расширения выбираемого файла.
Выбрать не *.gcf-файл невозможно.
2. Указать актуальное имя пользователя и пароль.
Пользователь системы GeoCad должен иметь права на чтение разделов с данными.
3. В правой части окна необходимо указать путь до файла с
геоданными программного комплекса «ЕГРЗ». При этом защита от случайного выбора
не файла ГИС реализована по таким же принципам, как и в случае с файлом GeoCad.
4. Щёлкнуть левой кнопкой мыши по кнопке
«Конвертировать».
Будет начат процесс конвертации, сопровождаемый
индикацией. По окончании конвертации будет получен звуковой сигнал.
Следует учесть, что конвертация – достаточно длительный
процесс, в зависимости от конфигурации установленного оборудования и размера
рабочей базы данных длительность операции может варьироваться от 5 минут до
нескольких часов.
5.
Анализ эффективности использования геоинформационных технологий
5.1 Эффективность использования ГИС в решении типовых
задач управления региональной недвижимостью
Эффективность автоматизации заключается в увеличении
производительности работ по обработке вычислений за счет увеличении скорости их
выполнения и во много раз сократить вероятность появления любых ошибок. Так же
при автоматизации повышается производительность труда и приводит к уменьшению
расходов администрации за счёт более быстрого выполнения сотрудниками своих
задач, исключения дублирования информации. Кроме основного эффекта при
внедрении автоматизации имеется косвенный эффект – повышение качества работ,
квалификация сотрудников, культуры производства, сокращение расходов на
судопроизводство за счет принятия решений на базе достоверных и объективных
правовых данных.
Для решения этого типа задач рассчитать прямой
экономический эффект не представляется возможным, так как не известны входные
величины финансовых затрат.
К сожалению, нигде – ни в материалах конференций по
разработке и внедрению ГИС, ни в прессе – я не встретил даже упоминания о
конкретных результатах эксплуатации созданной ГИС, которые можно было бы
представить в цифровом виде. Ничего не говорится и о заработанных или
сэкономленных с помощью ГИС деньгах.
Отсюда следует вывод, что при создании ГИС-проектов почти
никогда не ставится задача эффективного использования создаваемой системы
(исключением являются только силовые структуры и МЧС – в силу специфики
решаемых ими задач).
И тем не менее ГИС-технологии продолжают и внедрять, и
применять… И почти все аргументы в пользу ГИС будут справедливы – это и
создание электронной картографической информации, и создание объединенных баз
данных, отображаемых на электронных картах, и т.д. Дело в том, что все
классические работы по ГИС-технологиям (и даже негативный опыт) убеждают:
использование ГИС-технологий обеспечивает не только значительное снижение
затрат на сбор данных, но и сокращение сроков принятия решений и повышения
качества анализа данных. Более того, создание ГИС как одного из компонентов
управляющей системы предприятия позволяет оперативно и на основе целостного
анализа данных принимать верные управленческие и инвестиционные решения.
Для предприятий, деятельность которых связана с большим
риском аварий, внедрение ГИС-технологий позволит организовать и провести
виртуальное ситуационное моделирование в случаях природотехногенных и природообусловленных
мероприятий. Кроме того, ГИС дает возможность повысить качество управленческих
решений на начальном уровне за счет формирования наборов сценариев изменения и
развития ситуаций.
Другими словами, классически правильно созданная и
эксплуатируемая система организации и управления геопространственными данными
(информацией, которая идентифицирует географическое местоположение и свойства
естественных или искусственно созданных объектов, а также их границ на земле)
жизненно необходима всем, кто собирает, анализирует и использует эти данные.
В настоящее время внедрение ГИС – это уже технология на
сформировавшемся рынке ГИС, так как консалтинговые услуги появляются на рынке
последними. И именно их появление может свидетельствовать о том, что рынок ГИС-технологий
полностью сформировался. Чтобы возникло предложение консалтинговых услуг, на
рынке должны сложиться определенные условия. Первое (и самое очевидное) –
возникновение спроса. Как только появилось осознание того, что консалтинговая
информация – это те же деньги (а может, и ресурс поважнее) и что обрабатывать
информацию без соответствующих знаний невозможно или невыгодно, возникает и
спрос на консалтинг. Второе – это зрелость самого рынка, поскольку для
появления квалифицированных экспертов и консультантов в области построения
сложных геоинформационных систем необходимы время и опыт
5.2 Экономическая эффективность использования конвертера
данных ГИС GeoCad
По существующей схеме обмена данными (без использования
конвертера) схема обмена информации выглядит следующим образом:
Рисунок 8. Существующая схема информационного обмена
При такой организации работ часто происходят ошибки, а
также нерационально используются человеческие ресурсы. Если в текущем году 249
рабочих дней, в день в среднем производится обмен данными по 10 объектам, а
выдача данных и их последующая набивка в ПК «ЕГРЗ» занимает 0,2, часа, то затраты
рабочего времени в год составят 249х10х0,2=498 рабочих часов.
При использовании конвертера геоданных схема работы иная:
Рисунок 9. Схема работы с использованием конвертера
геоданных
При такой организации работы ошибки практически
исключены, а затраты рабочего времени составят 249х10х0,01=24,9 рабочих часов.
Экономическая эффективность внедрения составит
498–24,9=473,1 рабочих часов.
Заключение
Нашего человека хлебом не корми — дай чем-нибудь
поуправлять. Особенно приятно, если объект управления будет крупным, обширным,
со множеством лесов, полей и рек. Правда, подобная масштабность имеет и
обратную сторону: «наши земли глазом не обшарить», а эффективный менеджмент,
напротив, подразумевает точное знание, что и где на управляемых территориях
расположено.
Другими словами, собственникам территорий, администрациям
городов и менеджерам предприятий ГИС нужны, как воздух.
Результаты анализа состояния геоинформационных технологий
в решении типовых задач управления региональной недвижимостью показали, что
использовать ГИС для последующего корпоративного управления объектами
недвижимости мешает нерешенность целого ряда вопросов.
В частности, одни материалы предоставляются в одних
системах координат, а другие – в других.
Кроме того, различаются форматы данных используемых ГИС,
а требования к картографической, топографической и обзорной информации плохо
формализованы. При этом определенные материалы, будучи интегрированными в
единый массив, автоматически становятся секретными, что существенно усложняет
работу с ними.
Вместе с тем требования к базе пространственных данных
довольно высоки: она должна содержать всю информацию об объектах недвижимости и
их окружении, полученную в результате инвентаризации и постановки на
государственный кадастровый учет; обеспечивать сбор и оценку первичных данных
об объектах недвижимости, правоустанавливающие и правоудостоверяющие документы,
планы в цифровой форме; поддерживать централизованное хранение и распределенный
доступ; осуществлять контроль сроков исполнения и стоимости работ, связанных с
постановкой на кадастровый учет земельных участков и регистрацией прав на
недвижимость; интегрироваться с информационными системами бухучета, SAP R/3 и
корпоративным реестром прав на недвижимое имущество.
С точки зрения геоинформационных задач подобная система
должна предусматривать однозначное позиционирование участка и его окружения,
включая объекты недвижимости, расположенные на этом участке, в пространстве по
координатам и некоординатным описаниям, возможность перепроецирования данных,
работу в едином координатном пространстве, контроль уникальности земельного
участка по кадастровому номеру, связь между участком и объектами недвижимости,
хранение большого объема пространственных и связанных с ними данных, а также
наличие топологических отношений между пространственными данными.
Такие жесткие требования пока может обеспечить далеко не
всякая ГИС.
В ГИС можно аккумулировать информацию с различных
источников: это и бумажные карты, которые при помощи оцифровки переводят в
необходимый формат, это и электронные таблицы, непосредственный ввод координат
объектов, а также данные со спутников.
Результаты можно выводить в виде карт,
в которых можно использовать для наглядности графики, диаграммы, таблицы. А
также в виде отчетов.
Эти и многие другие возможности отличают ГИС от других
информационных систем и обеспечивают уникальные возможности для ее применения в
широком спектре задач, связанных с анализом и прогнозом явлений и событий
окружающего мира, с осмыслением и выделением главных факторов и причин, а также
их возможных последствий, с планированием стратегических решений и текущих
последствий предпринимаемых действий. В настоящее время ГИС – это
многомиллионная индустрия, в которую вовлечены сотни тысяч людей во всем мире.
Эту технологию применяют практически во всех сферах человеческой деятельности –
будь то анализ таких глобальных проблем как перенаселение, загрязнение
территории, сокращение лесных угодий, природные катастрофы, так и решение
частных задач, таких как поиск наилучшего маршрута между пунктами, подбор
оптимального расположения нового офиса, поиск дома по его адресу, прокладка
трубопровода на местности, различные муниципальные задачи.
Приложения ГИС к различным задачам управления требуют
соответствующей квалификации пользователей таких систем.
Содержание и сложность тех реальных задач, которые
решаются с помощью ГИС-технологий, зачастую настолько велики, что пользователи
соответствующего программного продукта или соответствующих решений встают перед
острой необходимостью фактически заново проанализировать и простроить свою
управленческую деятельность в связи с применением ГИС-технологий для решения
соответствующих задач.
В данном дипломном проекте проанализировано большое
количество ГИС-ориентированных решений, произведены обоснованные выводы о не
оптимальности выбора программных компонентов существующего управленческого
комплекса и вынесены предложения по его реорганизации, включая разработку
программы по решению проблемы преобразования форматов ГИС.
Автору работы кажется естественным перевод всех процессов
управления объектами региональной недвижимости Тульской области в рамки
какой-то одной системы, удовлетворяющей подавляющее большинство потребностей
всех корпоративных пользователей. Тем более, что такая система (ГИС «Панорама»)
существует на рынке ГИС. Но внедрение новых систем часто нецелесообразно из
экономических (по крайней мере на начальных этапах) и некоторых других
соображений. Для конкретного случая информационного взаимодействия
землеустроительных организаций и ФГУ «Земельная кадастровая палата» был
разработан конвертер геоданных. Это экономически и организационно простое
решение, проблема заключается в том, что для каждой такой частной проблемы
необходимо проектирование нового программного обеспечения. Введение же
комплексной системы позволит избежать таких проблем. В любом случае, решение об
изменении существующих технологических схем и внедрении новых остаётся за ЛПР –
лицом, принимающим решение.
Исходя из вышесказанного, можно также отметить, что
данная работа может быть использована в земельных и градостроительных
комитетах, в федеральных органах, осуществляющих управление региональной
недвижимостью, в организациях, осуществляющих ведение государственного
земельного кадастра, риэлтерских агентствах, а также других организациях и
компаниях, использующих или планирующих использовать для свой деятельности
геоинформационные технологии с целью управления недвижимостью, но ещё не
определившимися с конкретными технологиями или испытывающими некоторые
сложности с внедряемыми ГИС-решениями.
Список
используемой литературы
1.
Архангельский А.Я. Delphi 7 Справочное пособие. - М.: Бином-Пресс.
-2004. -1024 с.
2.
Архангельский А.Я. Программирование в Delphi 7 + дискета, М.: Бином,
2005. – 987 с.
3.
Боголюбов С.А. Комментарий к Земельному кодексу Российской Федерации /
С.А.Боголюбов, Е.Л.Минина. [текст] – М.: Норма, 2002. –528 с.
4.
Болтянский В.Г. Математические методы оптимального управления.– Гл. ред.
физ.-мат. лит-ры, М.: 1966.–308с.
5.
Варламов, А.А. Мониторинг земель: Учебное пособие / А.А. Варламов, С.Н.
Захарова, С.А. Гальченко; TACIS FDRUS 9702. [текст] – М.: МСХА, 2000, - 107 с.
– (Укрепление реформ в сел. хоз-ве посредством образования).
6.
ГИС'97. Программно-аппаратное обеспечение, фонд цифрового материала,
геоинформатика в России, ежегодный обзор. – М.: ГИС-ассоциация, 1997.–273с.
7.
Глушаков С.В., Клевцов А.Л., Программирование в среде Delphi 7.0, Фолио
2003 – 415 с.
8.
Данчул А.Н. Информатика. Учебник, Изд-во РАГС, 2004. – 280 с.
9.
Законодательство о государственной регистрации прав на недвижимое
имущество и сделок с ним / Сост. П.В. Краменников. – 2-е изд. перераб. и доп.
[текст] – М.: Спарк, 1999. – 145 с.
10.
Земельное законодательство Российской Федерации: Сб. нормат. документов
/ Сост. М.В. Бархатов, А.В. Мазуров. [текст] – М.: Юрайт- Издат, 2002. – 585 с.
11.
Информационное обеспечение земельного кадастра: Учебное пособие / А.А.
Варламов, С.А. Гальченко, В.В. Тезиков и др. [текст] – М.: ГУЗ, 1999. – 87 с.
12.
Карпова И.В., Машинцов Е.А., Сергеев А.В. Построение тематических карт
заболеваемости по г. Туле в ГИС-постановке // VIII Международный экологический
симпозиум. Екатеринбург: Институт промышленной экологии, 2000, С.318-321
13.
Комментарий к Земельному кодексу Российской Федерации (постатейный) /
С.А. Боголюбов, Е.А. Галиновская, Д.Б. Горохов и [др]. [текст] – М.: Былина,
2002. – 378 с.
14.
Недвижимость в Москве: Приватизация, продажа, аренда, покупка, обмен:
Сб. нормат. актов с комментариями / Сост. А.С. Владимирова. [текст]- М.:
Агенство «Бизнес-информ», 1997.- 340 с.
15.
Попов В.В. Программирование в Delphi. Оптимальный подход, Век, 2005.-150
с.
16.
Проектирование информационных систем: Методическая разработка /
Банкрутенко В.В. – Нижний Новгород, 1997. – 256 с.
17.
Стоян А. Настройка и обслуживание компьютера: самоучитель; Питер,
2006.-340 с.
18.
Сухарев М.В. Основы Delphi. Профессиональный подход, Наука и техника,
2004.-420 с.
19.
Управление земельными ресурсами, земельный кадастр, землеустройство и
оценка земель (зарубежный опыт) / Под ред. С.Н. Кислова. [текст] – М.:
Технология ЦД, 2003. – 378 с.
20.
Фленов М.В. Программирование в Delphi глазами хакера + CD,
BHV-Санкт-Петербург,2004.-330 с.
21.
Хомоненко А. Д. Самоучитель Microsoft Word 2000. – СПб.: БХВ-Петербург,
2002. – 560 с.
22.
Юсупов Р.М., Заболотский В.П. Научно-методологические основы
информатизации, Наука, 2001.-87 с.
23.
#"_Toc162905035">Приложение
Программный код приложения CONV.exe
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, DB, IBDatabase,
IBCustomDataSet, IBQuery, Grids, DBGrids,
Provider, DBClient, DBLocal, DBLocalI,
StdCtrls, Buttons, ADODB, ExtCtrls, Gauges;
type
TForm1 = class(TForm)
IBOLD: TIBDatabase;
IBNEW: TIBDatabase;
IBTrOLD: TIBTransaction;
IBTrNEW: TIBTransaction;
IBQOLD: TIBQuery;
IBQNEW: TIBQuery;
DBGrid1: TDBGrid;
IBQNEWID_OBJ: TIBStringField;
IBQNEWNUMZAYAV_OBJLOT: TIBStringField;
IBQOLDID_OBJ: TIBStringField;
DataSource1: TDataSource;
IBQOLDNUMZAYAV_OBJLOT: TIBStringField;
DataSource2: TDataSource;
DBGrid2: TDBGrid;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
BitBtn2: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Bevel1: TBevel;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Label6: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Label7: TLabel;
Bevel2: TBevel;
Label8: TLabel;
OpenDialog2: TOpenDialog;
BitBtn3: TBitBtn;
Gauge1: TGauge;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
procedure Set_IBOLD_Params;
procedure Set_IBNEW_Params;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Set_IBOLD_Params;
begin
IBOLD.DatabaseName:=Edit3.Text;
with IBOLD.Params do begin
Clear;
Add('user_name='+trim(Edit1.Text));
Add('password='+trim(Edit2.Text));
Add('lc_ctype=WIN1251');
end;
end;
procedure TForm1.Set_IBNEW_Params;
begin
IBNEW.DatabaseName:=Edit6.Text;
with IBNEW.Params do begin
Clear;
Add('user_name='+trim(Edit4.Text));
Add('password='+trim(Edit5.Text));
Add('lc_ctype=WIN1251');
end;
end;
procedure TForm1.BitBtn1Click(Sender:
TObject);
begin
Gauge1.Visible:=True;
Gauge1.Progress:=0;
IBQOLD.First;
While NOT IBQOLD.Eof do
begin
if IBQOLDNUMZAYAV_OBJLOT.AsString<>''
then
begin
IBNEW.Close;
IBQNEW.SQL.Clear;
//IBQNEW.SQL.Text:='select * from objlot
where ID_OBJ='''+IBQOLDID_OBJ.AsString+'''';
IBQNEW.SQL.Text:='update objlot set
NUMZAYAV_OBJLOT='''+IBQOLDNUMZAYAV_OBJLOT.AsString+
''' where
ID_OBJ='''+IBQOLDID_OBJ.AsString+'''';
IBQNEW.ExecSQL;
// IBQNEW.Open;
Application.ProcessMessages;
end;
Application.ProcessMessages;
IBQOLD.Next;
Gauge1.Progress:=round(IBQOLD.RecNo/IBQOLD.RecordCount*100);
end;
ShowMessage('Operation COMPLETE');
Gauge1.Visible:=False;
//--------------------обработка в IB---------------
IBNEW.Close;
IBQNEW.SQL.Clear;
IBQNEW.SQL.Text:='SELECT * FROM objlot';
IBQNEW.Active:=True;
end;
procedure TForm1.BitBtn2Click(Sender:
TObject);
begin
with OpenDialog1 do
begin
Filter:='gсf - файлы GeoCad|*.gdb';
if Execute then Edit3.Text:=FileName;
end;
IBOLD.Close;
Set_IBOLD_Params;
IBOLD.Open;
IBQOLD.Open;
end;
procedure TForm1.BitBtn3Click(Sender:
TObject);
begin
with OpenDialog2 do
begin
Filter:='gdb - файлы БД|*.gdb';
if Execute then Edit6.Text:=FileName;
end;
IBNEW.Close;
Set_IBNEW_Params;
IBNEW.Open;
IBQNEW.Open;
end;
end.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9
|
