Курсовой проект «К защите допущена»




Скачать 344.41 Kb.
НазваниеКурсовой проект «К защите допущена»
страница4/4
ТипКурсовой проект
rykovodstvo.ru > Руководство эксплуатация > Курсовой проект
1   2   3   4

Поиск улиц, зданий

Искать дом или улицу будем посредством SQL-запроса в атрибутивных данных карты. К примеру, для поиска улицы напишем следующий код в обработчике событий для кнопки «Найти»:

var

NameStreet: String;

CentroidX: String;

CentroidY: String;

Layer: String;

Street: String;

Hom: String;

begin

Try

NameStreet := Edit1.Text; //информацию введённую в поле поиска улицы внесём в переменную

Layer := ComboBox1.Items[ComboBox1.ItemIndex]; //слой в котором будет производиться поиск

Street := ComboBox2.Items[ComboBox2.ItemIndex]; // поле в котором буде производиться поиск

OleMapInfo.Do ('Select * From '+Layer+' Where '+Street+' Like "%'+NameStreet+'%" Into Selection'); // SQl запрос на поиск улицы (Выбрать всё из слоя где поле = значению Edit1)

frmStreetFind.Top := 25; // помещаем форму с выводом результата в правый верхний угол, чтобы она не мешала отображению найденного объекта

frmStreetFind.Left := Screen.Width - frmStreetFind.Width;

CentroidX := OleMapInfo.Eval('CentroidX(Selection.Obj)'); //определяем центр найденного объекта по оси Х

CentroidY := OleMapInfo.Eval('CentroidY(Selection.Obj)'); // определяем центр найденного объекта по оси У

OleMapInfo.Do('Set Map Center ('+'"'+CentroidX+'",'+'"'+CentroidY+'")'); // перемещаем найденный окно карты в центр найденного объекта

OleMapInfo.Do('Set Map Scale 1 Units "cm" For 35 Units "m"');

Except

MessageDlg('Указанной улицы нет!', mtInformation, [mbOk], 0);

End;

frmGisFind.StatusBar1.Panels[1].Text := 'Найдено объектов: ' + OleMapInfo.Eval('SelectionInfo(3)') ; // в строку состояния выводим информацию о том сколько объектов найдено

end;
Для поиска здания используем следующий код в обработчике событий для кнопки «Найти»:

var

Ndom: String;

NameStreet: String;

CentroidX: String;

CentroidY: String;

Layer: String;

Street: String;

Hom: String;

begin

Try

NameStreet := Edit1.Text; //значение улице присваиваем переменной

Ndom := Edit2.Text; //значение дома присваиваем переменной

Layer := ComboBox1.Items[ComboBox1.ItemIndex]; // выбираем слой с домами

Street := ComboBox2.Items[ComboBox2.ItemIndex]; // выбираем поле улицы в слое с домами

Hom := ComboBox3.Items[ComboBox3.ItemIndex]; // выбираем поле дома в слоек с домами

OleMapInfo.Do ('Select * From '+Layer+' Where '+Street+' Like "%'+NameStreet+'%" and '+Hom+' = "'+Ndom+'" Into Selection'); // составляем SQL-запрос на поиск дома (Выбрать всё из слоя с домами где поле с улицей =Edit1 и поле с домом = Edit 2)

frmSQLdom.Top := 25; // помещаем окно с найденной информацией в правый верхней угол

frmSQLdom.Left := Screen.Width - frmSQLdom.Width;

CentroidX := OleMapInfo.Eval('CentroidX(Selection.Obj)');

CentroidY := OleMapInfo.Eval('CentroidY(Selection.Obj)');

OleMapInfo.Do('Set Map Center ('+'"'+CentroidX+'",'+'"'+CentroidY+'")');

OleMapInfo.Do('Set Map Scale 1 Units "cm" For 5 Units "m"');

Except

MessageDlg('Указанного дома нет!', mtInformation, [mbOk], 0);

End;

frmGisFind.StatusBar1.Panels[1].Text := 'Найдено объектов: ' + OleMapInfo.Eval('SelectionInfo(3)') ;

Создание подписей для домов и улиц

Для создание подписей в обработчике событий кнопки «Подписать» напишем следующий код:

begin

try

layerStr := ComboBox1.Items[ComboBox1.ItemIndex]; // выбор слоя для подписи улицы

layerHom := ComboBox3.Items[ComboBox3.ItemIndex]; // выбор слоя для подписи дома

PoleStr := ComboBox2.Items[ComboBox2.ItemIndex]; // выбор поля для подписи улицы

PoleHom := ComboBox4.Items[ComboBox4.ItemIndex]; // выбор поля для подписи дома

OleMapInfo.Do('Set Map Layer '+layerStr+' Label Font ("Arial CYR",1,9,16711680) With '+PoleStr+''); // посылаем команду ( подписать на слое улицы шрифтом Arial CYR, жирным красным цветом) информацию для подписи взять из поля подписи улицы

OleMapInfo.Do('Set Map Layer '+layerStr+' Label Auto On'); // включить подпись

OleMapInfo.Do('Set Map Layer '+layerHom+' Label Font ("Arial CYR",1,9,255) With '+PoleHom+''); // посылаем команду ( подписать на слое дома шрифтом Arial CYR, жирным синим цветом) информацию для подписи взять из поля подписи домов

OleMapInfo.Do('Set Map Layer '+layerHom+' Label Auto On'); // включить подпись

Close;

except

end;

Получение списка улиц и списка домов принадлежащей данной улице

Для получения списка в обработчике событий для кнопки «Список» напишем следующий код:

var

sMsgString : String;

sWinHand,s : String;

d,i : byte;

begin

ListBox1.Items.Clear;

sMsgString:='Select '+ComboBox2.Items[ComboBox2.ItemIndex]+' from '+ComboBox1.Items[ComboBox1.ItemIndex]+' group by '+ComboBox2.Items[ComboBox2.ItemIndex]+' order by '+ComboBox2.Items[ComboBox2.ItemIndex]+' into TMP';

oleMapInfo.Do(sMsgString); // запрос на получение списка из таблицы и поля, результат отсортировать по имени

s:=olemapinfo.eval('TableInfo("TMP", '+inttostr(8)+')');

d:=strtoint(s);

for i:=1 to d do

begin

oleMapInfo.Do('Fetch Rec '+ IntToStr(i) +' From TMP');

sMsgString := 'tmp.'+ComboBox2.Items[ComboBox2.ItemIndex]+'';

S := oleMapInfo.Eval(sMsgString);

listbox1.Items.Add(s); // вывести результат запроса в таблицу

end;

2.3. Инструкция пользователя

Для поиска необходимого дома выбираем на панели инструментов кнопку . В открывшемся окне указываем в поле «Таблица» указываем нужную таблицу, по которой мы будем искать нужный нам дом. В «Поле улицы» указываем нужную улицу. Затем указываем «Поле дома». В значениях мы пишем «Название улицы» и «Номер дома». Затем нажимаем кнопку «Найти» и у нас отображается найденный дом выделенным цветом. (Рис. 10.)
Рис. 10 Окно с найденным домом
Для поиска необходимой улицы выбираем кнопку и в открывшемся окне в поле «Таблица» указываем таблицу. Затем указываем поле улицы по которому мы будем искать. В значениях указываем улицу. Далее нажимаем кнопку «Найти» и на экране у нас отображается найденная улица в центре окна. (Рис. 11.)
Рис. 11. Окно с найденной улицей
Для того чтобы подписать улицы и дома нажимаем кнопку . Указываем в настройках шрифта таблицу с улицами. Затем указываем поле в которой которой хранится информация для подписей. Для подписей домов узазываем таблицу с домами и указываем из какого поля будут подписываться дома. Затем нажимаем кнопку «OK» и мы видим, что улицы подписываются красным цветом, а дома синим. При повторном нажатии на кнопку подписи исчезают. (Рис. 12.)
Рис. 12. Окно с подписями
Чтобы вывести список улиц, нажимаем кнопку , затем указываем с какого слоя нам брать список, и указываем поле. После этого в списке выбираем любую улицу, и она отображается у нас на экране. (Рис. 13.)


Рис. 13. Окно со списком улиц

Для того чтобы вывести список с домами также нажимаем кнопку , затем выбираем, с какого слоя нам брать список, и указываем поле. После этого в списке выбираем улицу и у нас будут отображаться дома, принадлежащей указанной улице. (Рис. 14.)


Рис. 14. Окно со списком домов
Вывод:

Пакетом MapInfo можно управлять, используя языки программирования, отличные от языка MapBasic (встроенного в MapInfo языка программирования). Написать интегрированное приложения можно на нескольких языках программирования, например, C/C++, Visual Basic, Borland Delphi.

Можно создать интерфейс пользователя, радикально отличающийся от интерфейса MapInfo. Внешний вид на экране приложения с интегрированной картой определяется разработчиком.

При создании интеграции MapInfo и Delphi, вместо того чтобы писать большой запрос, где используются различные элементы, мы упрощаем ряд функций. Запрос встраивается в приложение. Это является большим преимуществом. Разработчик сам решает, что будет в его приложении.

Заключение
Геоинформационные технологии бурно развивающееся направление современных информационных технологий.

С помощью ГИС решается ряд задач:

- ГИС позволяют точнейшим образом учитывать координаты объектов и площади участков. Благодаря возможности комплексного (с учетом множества географических, социальных и других факторов) анализа информации о качестве и ценности территории и объектов на ней, эти системы позволяют наиболее объективно оценивать участки и объекты, а также могут давать точную информацию о налогооблагаемой базе.

- В области транспорта ГИС давно уже показали свою эффективность благодаря возможности построения оптимальных маршрутов, как для отдельных перевозок, так и для целых транспортных систем, в масштабе отдельного города или целой страны.

- ГИС позволяют вести мониторинг экологической ситуации и учет природных ресурсов. Они не только могут дать ответ, где сейчас находятся "тонкие места", но и благодаря возможностям моделирования подсказать, куда нужно направить силы и средства, чтобы такие "тонкие места" не возникали в будущем.

- С помощью ГИС определяются взаимосвязи между различными параметрами (например, почвами, климатом и урожайностью сельскохозяйственных культур), выявляются места разрывов электросетей.

- Компания, занимающаяся инженерными коммуникациями, может четко спланировать ремонтные или профилактические работы, начиная с получения полной информации и отображения на экране компьютера (или на бумажных копиях) соответствующих участков, скажем водопровода, и, заканчивая автоматическим определением жителей, на которых эти работы повлияют, с уведомлением их о сроках предполагаемого отключения или перебоев с водоснабжением.

- ГИС помогает, например, в решении таких задач, как предоставление разнообразной информации по запросам органов планирования, разрешение территориальных конфликтов, выбор оптимальных (с разных точек зрения и по разным критериям) мест для размещения объектов и т. д. Требуемая для принятия решений информация может быть представлена в лаконичной картографической форме с дополнительными текстовыми пояснениями, графиками и диаграммами.

- ГИС служат для графического построения карт и получения информации, как об отдельных объектах, так и пространственных данных об областях, например о расположении запасов природного газа, плотности транспортных коммуникаций или распределении дохода на душу населения в государстве. Отмеченные на карте области во многих случаях гораздо нагляднее отражают требуемую информацию, чем десятки страниц отчетов с таблицами. [1]

Список литературы
1. Бугаевский Л. М. Геоинформационные системы / Л. М. Бугаевский, В. Я. Цветков. – Учебное пособие для вузов. – М.: «Златоуст», 2000. - 222с.: ил. 28.

2. Капралов Е. Г. Геоинформатика / Е. Г. Капралов, А. В. Кошкарев, В. С. Тикунов / Под редакцией В. С. Тикунова. – М.: Издательский центр «Академия», 2005. – 480с., с. цв. ил.:ил.

3. Руководство пользователя Map Basic

4. Самардак А. С. Геоинформационные системы / А. С. Самардак: Учебное пособие. – М.: Владивосток: ДВГУ, 2005. — 124 с.

5. Электронный справочник по ArcCIS

6. Электронный справочник по Map Info

7. Электронный справочник по AutoCAD Map 3D

8. ArcView GIS: Руководство пользователя. – М.: МГУ, 1998. – 365с.

9. http://www.dias.ru /products/Gis

10. http://ru.wikipedia.org/wiki/Gis

11. http://www.studfiles.ru/dir/cat42/subj1178//file9566/view96932.html

12. http://www.dataplus.ru/Industries/100_GIS/GIS.htm
1   2   3   4

Похожие:

Курсовой проект «К защите допущена» iconДипломная работа «Допущена к защите»
Введение Глава 1 Эволюция международного туризма как формы внешнеэкономической деятельности

Курсовой проект «К защите допущена» iconКурсовой проект 3 Тема, которую нам предписано
Целью курсовой работы является закрепление теоретического материала, приобретение практических навыков проектирования Windows приложений...

Курсовой проект «К защите допущена» iconЛутин Э. А. Л86 Радиолокационные системы вс: Пособие к изучению дисциплины,...
Л86 Радиолокационные системы вс: Пособие к изучению дисциплины, контрольные задания и задания на курсовой проект.– М.: Мгту га, 2002....

Курсовой проект «К защите допущена» iconКурсовой проект по дисциплине «Эксплуатация автомобильных дорог»
В соответствии с заданием на курсовое проектирование, следует разработать проект ремонта и содержания участка автомобильной дороги....

Курсовой проект «К защите допущена» iconКурсовой проект «Электроснабжение и энергосбережение на предприятии»
Методика выбора числа и мощности трансформаторов цеховых трансформаторных подстанций

Курсовой проект «К защите допущена» iconКурсовой проект по дисциплине "механизация процессов переработки продукции животноводства"
Кафедра технологического оборудования в животноводстве и перерабатывающих производств

Курсовой проект «К защите допущена» iconКурсовой проект «Проектирование цеха конвертерного передела»
...

Курсовой проект «К защите допущена» iconКурсовой проект по дисциплине: «Технологические методы управления качеством изделия»
Государственное образовательное учреждение высшего профессионального образования «Санкт-Петербургский государственный инженерно-экономический...

Курсовой проект «К защите допущена» iconКафедра вычислительной техники Технологии программирования Курсовой...
Программа может применяться пользователями персональных компьютеров для преобразования растрового изображения в ascii-графику

Курсовой проект «К защите допущена» iconКурсовой проект на тему: «Бизнес-план рекламного агентства»
Полное название проекта Открытие ра с целью получить прибыль, предложить рекламному рынку новые идей и решения по созданию и продвижению...

Курсовой проект «К защите допущена» iconКурсовой проект по дисциплине «Технология производства и ремонта вагонов»
Объектом исследования является тележка грузового вагона модели 18-100, сборочная единица – тормозной башмак с подвеской, деталь –...

Курсовой проект «К защите допущена» iconКурсовой проект по дисциплине «Физические процессы нефтегазового производства»
Тема проекта «Физические процессы при проведении гидравлического разрыва пласта для интенсификации добычи нефти»

Курсовой проект «К защите допущена» iconТребования к содержанию и оформлению курсовой работы Оренбургского филиала ранхиГС
Рекомендуемый объем курсовой работы должен составлять 25-40 страниц (без учета приложений)

Курсовой проект «К защите допущена» iconЗадание на курсовой проект
Кроме того, следует выпускать и много инженеров математиков, разрабатывающих соответствующее программное обеспечение. Для их обучения...

Курсовой проект «К защите допущена» iconКурсовой проект «Разработка конструкции упаковки для наручных часов»
Так, во-первых, в основе материала лежит натуральная целлюлоза, а значит, он является экологически безопасным в отличие от полиэтилена,...

Курсовой проект «К защите допущена» iconПрезидиум проект постановление
О мерах, принимаемых администрацией и Дорпрофжел на Крымской железной дороге по социально-экономической защите работников гуп рк...


Руководство, инструкция по применению






При копировании материала укажите ссылку © 2018
контакты
rykovodstvo.ru
Поиск