Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Використання геоінформаційних систем у сільському господарстві

Реферат Використання геоінформаційних систем у сільському господарстві





точки в серію з об'єкта FIncr відповідно до полем FTypeChart (тобто відповідно до виду відображення графіка)


Клас TLineMap=class (TLineSeries) DefineColor (iColor: Integer): TColor;

publicLoadFromFile (filename: String); GetFromBlob;

constructor Create (AOwner: TComponent); override ;; DefineColor (iColor: Integer): TColor;


Метод визначає колір, відповідний елементу з перерахування TColorLine. iColor -номер елемента в перерахуванні.

procedure LoadFromFile (filename: String);

Метод, в якому спочатку читаються дані з файлу filename, зокрема кількість координат, номер кольору в перерахуванні і самі координати. Причому координати записуються відразу в потоки для координат X і Y відповідно. Далі в результаті виконання sql-запиту додається запис з прочитаними даними з файлу в таблицю Map. Причому потоки завантажуються у відповідні blob-поля.

procedure GetFromBlob;

Метод, який в результаті виконання sql-запиту, що повертає всі записи таблиці Map, заносить ці записи в серію, причому кожного запису відповідає своя лінія у серії.


Клас TChartIncr

type

TChartIncr=class (TChart)

private

FTypeChart: TTypeChart;// визначає тип відображення інклінометрії

Timer: TTimer;// таймер необхідний для того, щоб коректно виконувалася перерисовка об'єктів типу TLabel при скролінгу і наближенні зображення

procedure FnTypeChart (TypeCh: TTypeChart); OnTimerIncr (Sender: TObject); OnActionIncr (Sender: TObject);

public: TLineMap;// серія містить різні лінії, що утворюють в сукупності карту місцевості

LineSeriesIncr: TLineSeriesIncr;// серія, яка містить точки свердловини

constructor Create (AOwner: TComponent); override; Destroy; override; TypeChart: TTypeChart read FTypeChart write FnTypeChart ;;

procedure OnTimerIncr (Sender: TObject);


Оброблювач подій для Timer. Таймер необхідний для того, щоб коректно виконувалася перерисовка об'єктів типу TLabelIncr при скролінгу і наближенні зображення.

Викликає метод класу TObjectListLabel - MakeLabels.

procedure OnActionIncr (Sender: TObject);

Оброблювач подій OnZoom, OnUndoZoom, OnScrolling для об'єкта типу TChartIncr

Метод для коректної промальовування об'єктів типу TLabelIncr запускає таймер.

Також додаток використовує модуль UStringIncr, з розташованими в ньому рядковими константами, необхідними для sql-запитів.


Назад | сторінка 8 з 8





Схожі реферати:

  • Реферат на тему: Procedure of preparation business-plan
  • Реферат на тему: Кондуктометричний метод аналізу та його використання в аналізі об'єктів ...
  • Реферат на тему: Метод Ньютона (метод дотичних). Рішення систем нелінійних алгебраїчних рів ...
  • Реферат на тему: Рішення систем нелінійніх рівнянь. Метод ітерацій. Метод Ньютона-Канторов ...
  • Реферат на тему: Метод координат в шкільному курсі геометрії