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




Скачать 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Курсовой проект 3 Тема, которую нам предписано
Целью курсовой работы является закрепление теоретического материала, приобретение практических навыков проектирования Windows приложений...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Курсовой проект «К защите допущена» iconИнститут нефти и газа методические указания
Систематические консультации в течение семестра позволяют выполнить проект на достаточно высоком уровне и представить его к защите...


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






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