Анализ состояния геоинформационных технологий в решении типовых задач управления региональной недвижимостью Тульской области

Список используемой литературы

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. http://atn.ru/soft/wmakler/wmakler.shtml, 3Mb

24. http://www.allrent.ru/allrent/default.htm, 1,5Mb

25. http://www.basegroup.ru/, 0.7Mb

26. http://www.cadis-east.com.ua/Projects/Products/prdRealtyAgency.htm, 0.5Mb

27. http://www.kadastr.ru/, 1Mb

28. http://mos-arenda.boom.ru/, 4Mb

29. http://www.realprice.ru/, 0.8 Mb

Приложение

Программный код приложения 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.

 Скачать реферат