软件源代码

水利地理信息系统软件（V1.0） 1

unit ObjApp;

interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Main, Menus, ImgList, OleCtrls, MapXLib_TLB, ExtCtrls, ComCtrls,

ToolWin,Db,AdoDB,CommClass,StdCtrls;

Type

TApp=Class(TAdoS)

private

Procedure LoadObjsToListview(Var Liv:TlistView;var Ado:TAdodataset);

public

Constructor Create(AOwner:TComponent);OverRide;

procedure CreateCusTool(Var map:TMap);

Procedure LoadTv(Var Tv:TTreeview);

Procedure LoadType(Var liv:TListView);

Procedure LoadObjs(Var Liv:TListView;AType,AManaCode:String);

Procedure LoadTypeToComboBox(Var Comb:TCombobox);

Procedure LoadQuery(Var Liv:TListView;AType,AMana,ACode,AName:String);

Procedure LoadDetial(Var Liv:TListView;AType,ACode,AName,Amana,A TypeName:String);

Procedure Loadmap(Var map:TMap);

procedure LoadSmallMap(Var Map:TMap);

end;

implementation

uses ObjManaTree, CommApp, DM;

{ TApp }

constructor TApp.Create(AOwner: TComponent);

var

Sqls:String;

begin

Sqls:='Select Top 1 * from T_App';

InHerited Create(Sqls,AOwner);

end;

procedure TApp.CreateCusTool(var map: TMap);

begin

Map.CreateCustomTool(CUST_TOOL_POINT , miToolTypePoint , miSelectCursor , miArrowCursor, miArrowCursor, emptyParam);

Map.CreateCustomTool(CUST_TOOL_RECT , miToolTypeMarquee , miRectSelectCursor, miArrowCursor, miArrowCursor, emptyParam);

Map.CreateCustomTool(CUST_TOOL_CIRCLE , miToolTypeCircle, miRadiusSelectCursor , miArrowCursor, miArrowCursor, emptyParam);

end;

procedure TApp.LoadDetial(var Liv: TListView; AType, ACode,AName,Amana,ATypeName: String);

Sqls,FieldName:String;

OObj:TBaseClass;

OFields:TAdos;

Lt:TListItem;

begin

OObj:=TbaseClass.Create(Acode,A Type,'F_Code',1);

try

Sqls:='Select * from T_ObjClass where F_Code='''+AType+''' Order by F_ID';

OFields:=TAdos.Create(sqls,Nil );

try

liv.Items.Clear;

Lt:=liv.Items.Add;

lt.ImageIndex:=38;

Lt.Caption:='编号';

lt.SubItems.Add(ACode);

Lt:=liv.Items.Add;

lt.ImageIndex:=38;

Lt.Caption:='名称';

lt.SubItems.Add(AName);

Lt:=liv.Items.Add;

lt.ImageIndex:=38;

Lt.Caption:='类别';

lt.SubItems.Add(ATypeName);

Lt:=liv.Items.Add;

lt.ImageIndex:=38;

Lt.Caption:='所在地';

lt.SubItems.Add(AMana);

while not OFields.Eof do

begin

Lt:=Liv.Items.Add;

lt.ImageIndex:=38;

lt.Caption:=Ofields.fieldbyname('F_Note').AsString;

FieldName:=Ofields.fieldbyname('F_FName').AsString;

lt.SubItems.Add(GetFieldvalue(OObj.cAdo,Fieldname));

OFields.Next;

end;

finally

OFields.Close;

OFields.Free;

end;

finally

OObj.Free;

end;

end;

procedure TApp.Loadmap(var map: TMap);

var

Fn:String;

Ol:Tados;

fn:=MapPath+'\'+fieldByname('F_Gst').AsString;

map.GeoSet:=fn;

map.Title.Visible :=false;

//装入标注图层

Ol:=Tados.Create('select * From T_BindLayer where F_ShowLabel=1',nil); try

map.DataSets.RemoveAll;

while not Ol.Eof do

begin

LabelLayer( map,

Dm.DataModule1.ADOConnection1,

ol.fieldbyname('F_BindLayername').AsString ,

ol.fieldbyname('F_DsName').AsString ,

ol.fieldbyname('F_Sql').AsString ,

ol.fieldbyname('F_Key').AsString ,

ol.fieldbyname('F_Cap').AsString );

Ol.Next;

end;

finally

Ol.Close;

Ol.Free;

end;

end;

procedure TApp.LoadObjs(var Liv: TListView; AType, AManaCode: String); var

Sqls:String;

OObjs:TAdos;

Lt:TListItem;

begin

Sqls:='select * from V_objs where '+

'F_Type In('+AType+') and '+

'F_XiangCode='''+AManaCode+''' '+

'Order by F_Type Desc,F_Code';

OObjs:=TAdos.Create(sqls,Nil);

try

LoadObjsToListview(liv,TAdoDataset(OOBJS));

finally

OObjs.Close;

OObjs.Free;

end;

end;

procedure TApp.LoadObjsToListview(var Liv: TlistView;

var Ado: TAdodataset);

var

Lt:TListItem;

begin

Liv.Items.Clear;

while not ado.Eof do

Lt:=Liv.Items.Add;

lt.ImageIndex:=37;

lt.Caption:=GetFieldvalue(TAdoquery(Ado),'F_Code');

Lt.SubItems.Add(GetFieldvalue(TAdoquery(Ado),'F_Name'));

Lt.SubItems.Add(GetFieldvalue(TAdoquery(Ado),'F_TypeName'));

Lt.SubItems.Add(GetFieldvalue(TAdoquery(Ado),'F_XiangName'));

lt.SubItems.Add(GetFieldvalue(TAdoquery(Ado),'F_Type'));

Ado.Next;

end;

end;

procedure TApp.LoadQuery(var Liv: TListView; AType,AMana,ACode, AName: String); var

sqls,tj:String;

Lt:TlistItem;

Otype,OObjs:TAdos;

begin

sqls:='select * from V_Objs ';

tj:='';

//类型

if Atype<> '全部对象' then

begin

Otype:=Tados.Create(

'select top 1 * From T_ObjClass where F_Name='''+AType+'''',

Nil

);

try

tj:=tj+'F_Type='''+Otype.fieldbyname('F_Code').AsString+''' and ';

finally

Otype.Close;

Otype.Free;

end;

end;

//管理区域

if AMana<>'-1' then

tj:=tj+'F_XiangCode ='''+trim(AMana)+''' And ';

//编号

if ACode<>'-1' then

tj:=tj+'F_Code like ''%'+trim(ACode)+'%'' And ';

//名称

if AName<>'-1' then

tj:=tj+'F_Name like ''%'+trim(AName)+'%'' And ';

if tj<>'' then

begin

tj:=copy(tj,1,length(tj)-4);

Sqls:=sqls+' where '+tj;

end ;

Sqls:=sqls+' Order By F_Type Desc,F_Code';

//生成查询记录

OObjs:=Tados.Create(sqls,nil);

try

LoadObjsToListview(Liv,TAdoDataset(OObjs ));

finally

OObjs.Close;

OObjs.Free;

end;

end;

procedure TApp.LoadSmallMap(var Map: TMap);

var

Fn:String;

begin

fn:=MapPath+'\Small'+fieldByname('F_Gst').AsString;

map.GeoSet:=fn;

map.Title.Visible :=false;

end;

procedure TApp.LoadTv(var Tv: TTreeview);

var

OMaShi,OMaXian,OMaXiang:TAdos;

sqls:String;

NkShi,NkXian,NkXiang:NodeKey;

Rd,RdShi,RdXian,RdXiang:TTreenode;

i:Integer;

begin

sqls:='select * from V_Manatree where F_Level=0';

//市

OMaShi:=TAdos.Create(sqls,Nil);

Try

Tv.Items.Clear ;

while not OMaShi.Eof do

begin

new(NkShi);

NkShi.F_Key:=GetFieldvalue(TAdoquery(OMaShi),'F_Code');

NkShi.F_Caption:=GetFieldvalue(TAdoquery(OMaShi),'F_Name');

NkShi.F_TypeName:=GetFieldvalue(TAdoquery(OMaShi),'F_Type');

NkShi.F_Level:=GetFieldvalue(TAdoquery(OMaShi),'F_Level');

RdShi:=tv.Items.AddObject(nil,NkShi.F_Caption,NkShi);

//县

Sqls:='select * from V_Manatree where F_Level=1 and F_PareKey='+

''''+GetFieldvalue(TAdoquery(OMaShi),'F_Code')+'''';

OMaXian:=TAdos.Create(sqls,nil);

try

while not OMaXian.Eof do

begin

new(NkXian);

NkXian.F_Key:=GetFieldvalue(TAdoquery(OMaXian),'F_Code');

NkXian.F_Caption:=GetFieldvalue(TAdoquery(OMaXian),'F_Name');

NkXian.F_TypeName:=GetFieldvalue(TAdoquery(OMaXian),'F_Type');

NkXian.F_Level:=GetFieldvalue(TAdoquery(OMaXian),'F_Level');

RdXian:=tv.Items.AddChildObject(RdShi,NkXian.F_Caption,NkXian);

//乡

Sqls:='select * from V_Manatree where F_Level=2 and F_PareKey='+

''''+GetFieldvalue(TAdoquery(OMaXian),'F_Code')+'''';

OMaXiang:=TAdos.Create(sqls,nil);

try

while not OMaXiang.Eof do

begin

new(NkXiang);

NkXiang.F_Key:=GetFieldvalue(TAdoquery(OMaXiang),'F_Code');

NkXiang.F_Caption:=GetFieldvalue(TAdoquery(OMaXiang),'F_Name');

NkXiang.F_TypeName:=GetFieldvalue(TAdoquery(OMaXiang),'F_Type');

NkXiang.F_Level:=GetFieldvalue(TAdoquery(OMaXiang),'F_Level');

RdXiang:=tv.Items.AddChildObject(RdXian,NkXiang.F_Caption,NkXiang);

OMaXiang.Next;

end;

finally

OMaXiang.Close;

OMaXiang.Free;

end;

OMaXian.Next;

end;

finally

OMaxian.Close;

OMaxian.Free;

end;

OMaShi.Next;

end;

finally

OMaShi.Free;

end;

For i:=0 to Tv.Items.Count-1 do

begin

tv.Items[i].ImageIndex:=37;

tv.Items[i].SelectedIndex:=38;

tv.Items[i].Expanded:=false;

end;

Tv.Items[0].Expanded:=true;

end;

procedure TApp.LoadType(var liv: TListView);

var

Lt:TListItem;

OType:TAdos;

sqls:String;

begin

sqls:='select distinct F_Code,F_name from T_ObjClass order by F_Code Desc';

Otype:=Tados.Create(sqls,Nil);

try

Liv.Items.Clear;

while not OType.Eof do

7 begin

Lt:=Liv.Items.Add;

lt.ImageIndex:=4;

Lt.Caption:=OType.fieldByname('F_Name').AsString;

Lt.SubItems.Add(OType.fieldByname('F_Code').AsString);

Lt.Checked:=true;

OType.Next;

end;

finally

OType.Close;

OType.Free;

end;

end;

procedure TApp.LoadTypeToComboBox(var Comb: TCombobox);

var

OTypes:TAdos;

begin

OTypes:=Tados.Create('select Distinct F_Code,F_Name From T_ObjClass Order By F_Code Desc',Nil);

try

ComB.Items.Clear;

Comb.Items.Add('全部对象');

While not OTypes.Eof do

begin

COmB.Items.Add(OTypes.fieldByname('F_Name').AsString);

OTypes.Next;

end;

finally

OTypes.Close;

OTypes.Free;

end;

end;

end.

unit UnitFrmMain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Main, Menus, ImgList, OleCtrls, MapXLib_TLB, ExtCtrls, ComCtrls,

ToolWin, StdCtrls, Buttons,adodb,db;

type

TFrmMainNtWater = class(TFrmMain)

PageControl3: TPageControl;

tabObjs: TTabSheet;

TabSheet4: TTabSheet;

lisDet: TListView;

Splitter4: TSplitter;

lisObjs: TListView;

lisDetSelect: TListView;

lisType: TListView;

Splitter5: TSplitter;

TabSheet3: TTabSheet;

Label1: TLabel;

comType: TComboBox;

chkCode: TCheckBox;

edtCode: TEdit;

chkName: TCheckBox;

edtName: TEdit;

BitBtn1: TBitBtn;

Splitter6: TSplitter;

lisQuery: TListView;

Splitter7: TSplitter;

lisQueryDet: TListView;

chkMana: TCheckBox;

Map2: TMap;

N19: TMenuItem;

N20: TMenuItem;

lisSelect: TListView;

Splitter8: TSplitter;

procedure FormCreate(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure TvClick(Sender: TObject);

procedure lisTypeClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure lisObjsClick(Sender: TObject);

procedure lisQueryClick(Sender: TObject);

procedure Map1Error(ASender: TObject; Number: Smallint;

var Description: WideString; Scode: Integer; const Source,

HelpFile: WideString; HelpContext: Integer;

var CancelDisplay: WordBool);

procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Map1MapDraw(ASender: TObject; Flag: Smallint);

procedure Map2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N20Click(Sender: TObject);

procedure lisObjsDblClick(Sender: TObject);

procedure lisQueryDblClick(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure Map1ToolUsed(ASender: TObject; ToolNum: Smallint; X1, Y1, X2, Y2, Distance: Double; Shift, Ctrl: WordBool;

var EnableDefault: WordBool);

procedure lisSelectClick(Sender: TObject);

procedure lisDetDblClick(Sender: TObject);

procedure lisDetSelectDblClick(Sender: TObject);

procedure lisQueryDetDblClick(Sender: TObject);

procedure lisObjsChange(Sender: TObject; Item: TListItem;

Change: TItemChange);

procedure lisSelectChange(Sender: TObject; Item: TListItem;

Change: TItemChange);

procedure lisQueryChange(Sender: TObject; Item: TListItem;

Change: TItemChange);

private

{ Private declarations }

public

editType,editCode:String;

{ Public declarations }

procedure SetSmallMap;

procedure SetMainMap(x,y:Integer);

end;

var

Save8087cw:Word;

FrmMainNtWater: TFrmMainNtWater;

implementation

uses ObjApp, CommApp, ObjT_Qiao, ObjT_Hedao, ObjT_Gaodihan, CommClass, ObjT_Zha;

{$R *.dfm}

procedure TFrmMainNtWater.FormCreate(Sender: TObject);

V AR

Oapp:TApp;

begin

inherited;

//

Save8087cw:=Default8087cw;

//

Oapp:=Tapp.Create(nil);

try

Caption:=Oapp.fieldbyName('F_Title').AsString;

StatusBar1.Panels[0].Text:=Oapp.fieldbyName('F_StatusBar').AsString;

Oapp.LoadType(LisType);

Oapp.LoadTypeToComboBox(comType);

Oapp.Loadmap(map1);

Oapp.LoadSmallMap(map2);

Comtype.ItemIndex:=0;

Oapp.CreateCusTool(map1);

finally

OApp.Close;

Oapp.Free;

end;

N2.OnClick(self);

end;

procedure TFrmMainNtWater.N2Click(Sender: TObject);

var

Oapp:TApp;

begin

inherited;

oApp:=Tapp.Create(nil);

Oapp.LoadTv(Tv);

finally

OApp.Close;

OApp.Free;

end;

end;

procedure https://www.360docs.net/doc/f21704727.html,Click(Sender: TObject);

Var

Oapp:TApp;

Ofe:TFeature;

i:integer;

Lt:TListItem;

TypeStr:String;

begin

inherited;

if Tv.Selected=nil then

exit;

chkMana.Caption:=tv.Selected.Text+'范围内查询';

chkMana.Visible:=true;

Oapp:=Tapp.Create(nil);

try

TypeStr:='';

for i:=0 to Listype.Items.Count-1 do

begin

Lt:=LisType.Items[i];

if lt.Checked then

TypeStr:=TypeStr+''''+lt.SubItems[0]+''',';

end;

if TypeStr<>'' then

TypeStr:=copy(TypeStr,1,length(TypeStr)-1);

Oapp.LoadObjs(LisObjs,TypeStr,NodeKey(Tv.Selected.data).F_Key); finally

OApp.Close;

OApp.Free;

end;

Ofe:=TFeature.Create(NodeKey(Tv.Selected.data).F_Key,

NodeKey(Tv.Selected.data).F_TypeName ,

'F_Code',

nil);

try

if ofe.MoveMap(map1)=0 then

MessageBox(Handle,' 未记录坐标！','提示',MB_OK); finally

Ofe.Close;

Ofe.Free ;

end;

PageControl3.ActivePage:=tabObjs;

procedure TFrmMainNtWater.lisTypeClick(Sender: TObject); begin

inherited;

Tv.OnClick(nil);

end;

procedure TFrmMainNtWater.BitBtn1Click(Sender: TObject); var

vType,vMana,vCode,vname:String;

OApp:TAPP;

begin

inherited;

vType:=comType.Items[comType.ItemIndex];

if chkCode.Checked then

vCode:=edtCode.Text

else

vCode:='-1';

vmana:='-1';

if tv.Selected<> nil then

if chkMana.Checked then

vMana:=NodeKey(tv.Selected.data).F_Key;

if chkName.Checked then

vName:=edtname.Text

else

vName:='-1';

OApp:=TApp.Create(nil);

try

Oapp.LoadQuery(LisQuery,vtype,vMana,vCode,vName); finally

OApp.Close;

OApp.Free;

end;

end;

procedure TFrmMainNtWater.lisObjsClick(Sender: TObject); var

OApp:TApp;

Item:TListItem;

begin

inherited;

if lisObjs.Selected<>nil then

begin

Item:=LisObjs.Selected;

OApp:=Tapp.Create(nil);

try

Oapp.LoadDetial(LisDet,

Item.SubItems[3],

Item.Caption,

Item.SubItems[0],

Item.SubItems[2],

Item.SubItems[1]);

finally

Oapp.Close;

OApp.Free;

end;

edittype:=item.SubItems[item.SubItems.count-1];

editcode:=item.Caption;

end;

end;

procedure TFrmMainNtWater.lisQueryClick(Sender: TObject);

var

OApp:TApp;

Item:TListItem;

begin

inherited;

if lisQuery.Selected<>nil then

begin

Item:=lisQuery.Selected;

OApp:=Tapp.Create(nil);

try

Oapp.LoadDetial(LisQueryDet,

Item.SubItems[3],

Item.Caption,

Item.SubItems[0],

Item.SubItems[2],

Item.SubItems[1]);

finally

Oapp.Close;

OApp.Free;

end;

edittype:=item.SubItems[item.SubItems.count-1];

editcode:=item.Caption;

end;

end;

procedure TFrmMainNtWater.Map1Error(ASender: TObject; Number: Smallint; var Description: WideString; Scode: Integer; const Source,

HelpFile: WideString; HelpContext: Integer; var CancelDisplay: WordBool); begin

inherited;

CancelDisplay:=true;

end;

procedure TFrmMainNtWater.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

inherited;

https://www.360docs.net/doc/f21704727.html,yers.RemoveAll ;

//Map1.Free;

Set8087cw(Save8087cw);

end;

procedure TFrmMainNtWater.SetSmallMap;

var

f:Feature;

L:layer;

i:integer;

pt:Point;

pts:Points;

begin

for i:=1 to https://www.360docs.net/doc/f21704727.html,yers.Count do

if https://www.360docs.net/doc/f21704727.html,yers.Item[i].Name='rect' then

begin

https://www.360docs.net/doc/f21704727.html,yers.Remove(i);

break;

end;

l:=https://www.360docs.net/doc/f21704727.html,yers.CreateLayer(

'rect',

emptyparam,emptyparam,emptyparam,emptyparam

);

pt:=copoint.Create;

pts:=copoints.Create;

pt.Set_(map1.Bounds.XMin,map1.Bounds.YMin);

pts.Add(pt,emptyparam);

pt.Set_(map1.Bounds.XMax,map1.Bounds.YMin);

pts.Add(pt,emptyparam);

pt.Set_(map1.Bounds.XMax,map1.Bounds.YMax);

pts.Add(pt,emptyparam);

pt.Set_(map1.Bounds.XMin,map1.Bounds.YMax);

pts.Add(pt,emptyparam);

f:=map2.FeatureFactory.CreateRegion(pts,map2.DefaultStyle);

f.Style.RegionPattern:= miPatternNoFill;

f.Style.RegionBorderColor:=miColorRed;

l.Editable:=true;

l.AddFeature(f,emptyparam);

l.Editable:=false;

l.Refresh;

end;

procedure TFrmMainNtWater.Map1MapDraw(ASender: TObject; Flag: Smallint); var

OApp:TApp;

begin

inherited;

if map1.Zoom <3 then

map1.ZoomTo(3.2,map1.CenterX ,map1.CenterY );

if map1.Zoom>240 then

begin

Oapp:=TApp.Create(nil);

try

oapp.Loadmap(map1);

14

finally

oapp.Close;

oapp.Free;

end;

end;

SetSmallMap ;

statusbar1.Panels[2].Text :=Format('%.3f', [Map1.zoom]);

statusbar1.Panels[4].Text :=Format('(%0:.3f,%1:.3f)', [Map1.centerX,Map1.centerY]); //''''x=1312'''' //使用索引

// Format(''''(%.3f,%.3f)'''', [Map1.centerX,Map1.centerY]);

end;

procedure TFrmMainNtWater.SetMainMap(x,y:Integer);

var

sx,sy:single;

mx,my:double;

begin

sx:=x;

sy:=y;

map2.ConvertCoord(sx,sy,mx,my,1);

map1.ZoomTo(map1.Zoom,mx,my);

end;

procedure TFrmMainNtWater.Map2MouseUp(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

inherited;

SetMainMap(x,y);

end;

procedure TFrmMainNtWater.N20Click(Sender: TObject);

var

Oq:TQiao;

Oh:THedao;

Og:TGaodihan;

Oz:TZHA;

begin

inherited;

if ((editType='') or (editcode='')) then

begin

MessageBox(Handle,' 请选择要编辑的对象','提示',MB_OK);

end;

//MessageBox(Handle,pchar(editType+','+editcode),'提示',MB_OK);

if UpperCase(editType)='T_QIAO' then

begin

Oq:=TQiao.Create(editcode);

try

oq.ShowData;

edittype:='';

editcode:='';

oq.Close;

oq.Free;

end;

end;

if pos('V_HEDAO',UpperCase(editType))>0 then

begin

Oh:=THedao.Create(editcode);

try

Oh.ShowData;

finally

edittype:='';

editcode:='';

Oh.Close;

Oh.Free;

end;

end;

if pos('T_GAODIHAN',UpperCase(editType))>0 then

begin

Og:=TGAODIHAN.Create(editcode);

try

Og.ShowData;

finally

edittype:='';

editcode:='';

Og.Close;

Og.Free;

end;

end;

if pos('T_ZHA',UpperCase(editType))>0 then

begin

Oz:=TZHA.Create(editcode);

try

Oz.ShowData;

finally

edittype:='';

editcode:='';

Oz.Close;

Oz.Free;

end;

end;

end;

procedure TFrmMainNtWater.lisObjsDblClick(Sender: TObject); var

Ofe:TFeature;

lt:TListItem;

begin

inherited;

if TListView(Sender).Selected <>nil then

lt:= TListView(Sender).Selected ;

Ofe:=TFeature.Create(lt.Caption ,

lt.SubItems[lt.SubItems.count-1],

'F_Code',

nil);

try

if ofe.MoveMap(map1)=0 then

MessageBox(Handle,' 未记录坐标！','提示',MB_OK);

finally

Ofe.Close;

Ofe.Free ;

end;

end;

end;

procedure TFrmMainNtWater.lisQueryDblClick(Sender: TObject);

var

Ofe:TFeature;

lt:TListItem;

begin

inherited;

if TListView(Sender).Selected <>nil then

begin

lt:= TListView(Sender).Selected ;

Ofe:=TFeature.Create(lt.Caption ,

lt.SubItems[lt.SubItems.count-1],

'F_Code',

nil);

try

if ofe.MoveMap(map1)=0 then

MessageBox(Handle,' 未记录坐标！','提示',MB_OK);

finally

Ofe.Close;

Ofe.Free ;

end;

end;

end;

procedure TFrmMainNtWater.N13Click(Sender: TObject);

begin

inherited;

map1.CurrentTool:=miArrowTool ;

end;

procedure TFrmMainNtWater.N16Click(Sender: TObject);

begin

inherited;

map1.CurrentTool:=CUST_TOOL_POINT;

end;

procedure TFrmMainNtWater.N18Click(Sender: TObject);

inherited;

map1.CurrentTool:=CUST_TOOL_CIRCLE;

end;

procedure TFrmMainNtWater.N17Click(Sender: TObject);

begin

inherited;

map1.CurrentTool:=CUST_TOOL_RECT;

end;

procedure TFrmMainNtWater.Map1ToolUsed(ASender: TObject; ToolNum: Smallint;

X1, Y1, X2, Y2, Distance: Double; Shift, Ctrl: WordBool;

var EnableDefault: WordBool);

var

l,lxz:Layer;

i,j:Integer;

r:real;

f,fxz:Feature;

// fxzS:Featurs;

FCode,FType,FXZMC,selectSQL:String;

pt:Point;

OXZ:TOBJ;

Ado:TAdos;

lt:TListitem;

begin

inherited;

//点选对象

if (toolnum=CUST_TOOL_POINT) OR (toolnum=CUST_TOOL_RECT) OR(toolnum=CUST_TOOL_CIRCLE) then

BEGIN

//清除上次选中的对象

for i:=1 to https://www.360docs.net/doc/f21704727.html,yers.Count do

begin

l:=https://www.360docs.net/doc/f21704727.html,yers.Item[i];

if l.Selectable then

l.Selection.ClearSelection ;

end;

//点选对象

if toolnum=CUST_TOOL_POINT then

begin

for i:=1 to https://www.360docs.net/doc/f21704727.html,yers.Count do

begin

l:=https://www.360docs.net/doc/f21704727.html,yers.Item[i];

if not l.Selectable then

continue;

if l.ZoomLayer then

if (map1.zoom >=l.ZoomMin) and (map1.Zoom

l.Selection.SelectByPoint( x2, y2, miSelectionAppend ,emptyparam);

IF NOT L.ZoomLayer THEN

l.Selection.SelectByPoint( x2, y2, miSelectionAppend ,emptyparam);

if l.Selection.count>0 then

begin

// showmessage(inttostr(l.Selection.Count ));

break;

end;

end;

end;

//框选对象

if toolnum=CUST_TOOL_RECT then

begin

for i:=1 to https://www.360docs.net/doc/f21704727.html,yers.Count do

begin

l:=https://www.360docs.net/doc/f21704727.html,yers.Item[i];

if not l.Selectable then

continue;

if l.ZoomLayer then

if (map1.zoom >=l.ZoomMin) and (map1.Zoom

l.Selection.SelectByRectangle(x1,y1,x2,y2,miSelectionAppend );

IF NOT L.ZoomLayer THEN

l.Selection.SelectByRectangle(x1,y1,x2,y2,miSelectionAppend );

end;

end;

//圈选对象

if toolnum=CUST_TOOL_CIRCLE then

begin

for i:=1 to https://www.360docs.net/doc/f21704727.html,yers.Count do

begin

l:=https://www.360docs.net/doc/f21704727.html,yers.Item[i];

if not l.Selectable then

continue;

if l.ZoomLayer then

if (map1.zoom >=l.ZoomMin) and (map1.Zoom

l.Selection.SelectByRadius(x1,y1,Distance,miSelectionAppend );

IF NOT L.ZoomLayer THEN

l.Selection.SelectByRadius(x1,y1,Distance,miSelectionAppend );

end;

end;

//显示选中对象信息

lisSelect.Items.Clear ;

for i:=1 to https://www.360docs.net/doc/f21704727.html,yers.Count do

begin

l:=https://www.360docs.net/doc/f21704727.html,yers.Item[i];

selectSQL:='';

if l.Selectable then

begin

l:=https://www.360docs.net/doc/f21704727.html,yers.Item[i];

for j:=1 to l.Selection.Count do

begin

f:=l.Selection.Item[j];

FCode:=f.KeyValue ;

FType:=https://www.360docs.net/doc/f21704727.html, ;

FXZMC:='';

//根据对象的坐标，找出乡镇的名称

lxz:=https://www.360docs.net/doc/f21704727.html,yers.Item['乡镇'] ;

pt:=copoint.Create;

pt.Set_(f.CenterX ,f.CenterY );

if lxz.SearchAtPoint(pt,miSearchResultRegion).Count >0 then

begin

fxz:=lxz.SearchAtPoint(pt,miSearchResultRegion).Item[1];

FXZMC:=fxz.KeyValue ;

end;

if pos('级河',https://www.360docs.net/doc/f21704727.html,)> 0 then

selectSQL:='Select * from V_Objs where F_Code='''+FCode+''' and '+

'F_TypeName='''+FType+''' and '+

'F_XiangCode='''+FXZMC+''''

else

selectSQL:='Select * from V_Objs where F_Code='''+FCode+''' and '+

'F_TypeName='''+FType+''' ';

Ado:=TAdos.Create(selectSQL,nil);

try

while not ado.Eof do

begin

lt:=lisSelect.Items.Add;

lt.ImageIndex:=37;

lt.Caption:=GetFieldvalue(TAdoquery(Ado),'F_Code');

Lt.SubItems.Add(GetFieldvalue(TAdoquery(Ado),'F_Name'));

Lt.SubItems.Add(GetFieldvalue(TAdoquery(Ado),'F_TypeName'));

Lt.SubItems.Add(GetFieldvalue(TAdoquery(Ado),'F_XiangName'));

lt.SubItems.Add(GetFieldvalue(TAdoquery(Ado),'F_Type'));

Ado.Next;

end;

finally

Ado.Close;

ado.Free;

end;

end;

end;

end;

PageControl3.ActivePage:=TabSheet4;

END;

end;

procedure TFrmMainNtWater.lisSelectClick(Sender: TObject);

var

OApp:TApp;

Item:TListItem;

begin

inherited;

if lisSelect.Selected<>nil then

begin

Item:=lisSelect.Selected;

OApp:=Tapp.Create(nil);

try

Oapp.LoadDetial(lisDetSelect,

Item.SubItems[3],

Item.Caption,

Item.SubItems[0],

Item.SubItems[2],

Item.SubItems[1]);

finally

Oapp.Close;

OApp.Free;

end;

edittype:=item.SubItems[item.SubItems.count-1];

editcode:=item.Caption;

end;

end;

procedure TFrmMainNtWater.lisDetDblClick(Sender: TObject);

var

Item:TListItem;

begin

inherited;

IF LisDet.Items.Count > 0 then

begin

Item:=lisObjs.Selected ;

edittype:=item.SubItems[item.SubItems.count-1];

editcode:=item.Caption;

n20.OnClick(nil);

end;

end;

procedure TFrmMainNtWater.lisDetSelectDblClick(Sender: TObject); var

Item:TListItem;

begin

inherited;

IF LisDetSelect.Items.Count > 0 then

begin

Item:=LisSelect.Selected ;

edittype:=item.SubItems[item.SubItems.count-1];

editcode:=item.Caption;

n20.OnClick(nil);

end;

end;

procedure TFrmMainNtWater.lisQueryDetDblClick(Sender: TObject); var

Item:TListItem;

begin

inherited;

IF LisQueryDet.Items.Count > 0 then

begin

Item:=LisQuery.Selected ;

edittype:=item.SubItems[item.SubItems.count-1];

editcode:=item.Caption;

n20.OnClick(nil);

end;