GIS软件开发复习资料

1、独立值专题图procedureTForml.ButtonlClick(Sender:TObject);varcurrentlayer:imomaplayer;myvaluerenderer:imovaluemaprenderer;currentrecord:imorecordset;str:imostrings;i:integer;beginmyvaluerenderer:=covaluemaprenderer.create;str:=costrings.Create;currentlayer:=comaplayer.create;currentlayer:=imomaplayer(mainm

2、ap.layers.item(country);currentlayer.Renderer:=myvaluerenderer;currentrecord:='region'whilenotcurrentrecord.EOFdobeginstr.Add(currentrecord.fields.Item('region').ValueAsString);currentrecord.MoveNext;end;myvaluerenderer.ValueCount:=str.Count;fori:=0tostr,Count-1dobeginmyvaluerenderer

3、.Valuei:=str.ltem(i);end;mainmap.refresh;end.获取图层名functiongetlayername(map:tmap):Tstrings;vari:integer;layernames:Tstrings;beginlayernames:=Tstringlist.Create;beginlayernames.Add(imomaplayer(map.Layers.Item(i).Name);end;result:=layernames;end;获取字段名functiongetfilename(map:tmap;layername:string):Tstri

4、ngs;varcurrentrecordset:imorecordset;currenttabledesc:imotabledesc;i:integer;filenames:tstrings;beginfilenames:=tstringlist.create;currentrecordset:=imomaplayer(map.Layers.Item(layername).Records;currenttabledesc:=currentrecordset.TableDesc;fori:=0tocurrenttabledesc.FieldCount-1dobeginfilenames.Add(

5、currenttabledesc.FieldNamei);end;result:=filenames;end;获取值functiongetfilevalue(map:tmap;layername:string;filedname:string):Tstrings;varcurrentrecord:imorecordset;currentvalues:string;values:Tstrings;beginvalues:=Tstringlist.Create;currentrecord:=imomaplayer(map.Layers,Item(layername).Records;whileno

6、tcurrentrecord.EOFdobegincurrentvalues:=currentrecord.fields.ltem(filedname).ValueAsString;/ifallvalue.lndexOf(currentvalues)<0thenvalues.Add(currentvalues);currentrecord.MoveNext;end;result:=values;end;地图查询功能Public/定义公共变量QueryResult:imorecordsetProcedureTsearchExpression.FormShow(Sender:TObject)

7、;beginCbbLayer,ltems:=getlayername(mainmap);end;procedureTsearchExpression.CbblayerChange(Sender:TObject);beginIbvalues.Items:=getfilename(mainmap.cbblayer.text);end;procedureTsearchExpession.cbsearchclick(seader:Tobject)varcurrentlayer:imomaplayer;begincurrentlayer:=commaplayer(mainmap.layer.Item(c

8、bblayer.text);Queryresult:=currentlayer.searchexpession(mmExpession.text);mainfrm.mainmap.refresh.end；查询结果显示procedureTmianfrm.mainmapAfterLayerDraw(ASender:TObject;index:Smallint;);varmysymbol;imosymbol;beginmysymbol:=cosymbol.Create;mysymbol.color:=mored;ifassigned(searchExpressionfrm.Queryresult)t

9、henmainmap.drawshap(searchExpressionfrm.Queryresult,mysymbol)end；添加shp图层InterfaceUsesprocedureaddshplayer(map:tmap;sfilename:string);$R*.dfmprocedureTForml.openlClick(Sender:TObject);vari:integer;myfileext:string;beginopendialogl.Title:二'选择要打开的图层'；opendialogl.Filter:='ArcView图层|*.shp'

10、;ifopendialogl.Executethenfori:=0-1dobeginmyfileext:=extractfileext(opendialogl.Files.Stringsi);if(myfileext='.shp')thenaddshplayer(mapl,opendialogl.Files.Stringsi);end;end;procedureaddshplayer(map:tmap;sfilename:string);varnewlayer:imomaplayer;de:imodataconnection;newgeodataset:imogeodatase

11、t;spath,slayername,sext:string;beginnewlayer:=comaplayer.Create;de:=codataconnection.Create;spath:=extractfiledir(sfilename);slayername:=extractfilename(sfilename);sext:=extractfileext(sfilename);delete(slayername,length(slayername)-length(sext)+l,length(sext);dc.Database:=spath;ifdc.Connectthenbegi

12、nnewgeodataset:=dc.FindGeoDataset(slayername);newlayer.GeoDataset:=newgeodataset;map.Layers.Add(newlayer);end;end;用户登录procedureTForml.FormCreate(Sender:TObject);varsUserName:string;beginadsllserlnfo.Close;adsUserlnfo.CommandText:='Select*FromUserlnfo'adsllserlnfo.Open;whilenotadsllserlnfo.Eo

13、fdobeginsUserName:=adsllserlnfo.Fields.FieldByName('UserName').Value;cbbUserName.ltems.Add(sUserName);adsllserlnfo.Next;end;cbbllserName.ItemIndex:=0;end;procedureTForml,btOkClick(Sender:TObject);varsSQL:string;beginsSQL:='Select*FromUserinfoWhereUserName=:sUserNameAndPassword=:sPassword'ifedtPassword.lext="thenbeginShowMessage('没有输入密码，请输入。');edtPassword.SetFocus;endelsebeginadsUserlnfo.Close;adsUserlnfo.Command