GPS课程设计报告代码

1、private sub toolbar2_buttonclick(byval button as mscomctllib< button)seiect case buttoncase"属性杳询”supcrmap1. action二scasclcctcase”条件査询”dim objds as sodatasource;dim obdtvector as sodataset vector;dim objrecordset as sorecordset;dim objselection as soselection;set objds=suporworkspace1. dataso

2、urces. item( umydatasource")if objds is nothing then exit subset objdtvector=objds> datasets( "world” );if objdtvector is nothing thenmsgbox"打开数据集错误”,vbinformationexit subend ifset objrecordset=objdtvector, query(txtexpression. text,true)if objrecordset is nothing thenexit subel se

3、set objselectionsupermapl. selectionobjselection. fromrecordset objrecordsetsupermap1. refreshend ifset objdtvector二nothingset objrecordset=nothingset objselection二nothingend seiectend subprivate sub commandl_click()dim si stringdim s_id as stringdim s rmin as stringif text, text二” then s_id二” ”else

4、s_id二text/textend ifif text2. text二” then s_nam二” %”el ses_nam=text2. textend ifsi二” select*from goood where id like” +s_id+" and nam like +s_nam+adodcl- recordsource=sladodcl. refreshend subopen” c:l.txt” for input as#lrs. open” select*from tab lea where 字段 lnot in(select 字段 lfrom table_b) ” ,

5、 cormwhile not rs.eofprintf#l,rs( “字段 1”)rs. movenextwendrs. closeclosc#lopen" c:2.txt” for input as#lrs. ope n” select *f rom table_a where 字段 1 in( sei ec t 字段 1 from table_b)” , co rmwhile not rs.eofprintf#l,rs( “字段 1”)rs. movenextwendrs. closeclose#lprivate sub toolbar3_buttonclick(by val b

6、utton as mscomctl1ibbutton)select case buttoncase”游戏”shel 1 “c:docum ents and sett in gsadm in i strator桌 |flivi suqi basic 6 o'ddchess. exe"case”音乐”shell” f:kugou2010kugoo. exe”case"惊喜”print”售价100万，地科免费!”fontname=n 黑体”fontitalic=truefontsize=48end selectend subprivate sub btnsql_click

7、()frmsqlexpression. show vbmodal,meend subprivate sub btnshowdt_click()dim i as integerdim objds as sodatasourcedim objdt as sodatasetif btnshowdt. caption二”显示成生的数据集” thenset objds二super workspacel. datasource(1)if strdtname=,m, then exit subsupermap1. layers, removeal 1set objdt二objds. datasets(str

8、dtname)supermap1 layers, adddataset objdt, truesupermap1. refreshbtnshowdt. caption=n 显示全部图”elseset objds二super workspacel. datasources(1)for i=l to objds. datasets.countset objdt=objds. datasets(i)set objdt二objds. datasets(i)supermap1. layers adddataset objdt, truenextbtnshowdt. caption="显示生成的

9、数据集”end ifsupermap1 refreshend subprivate sub toolbar2_buttone1ick (byval button as mscomctl1ib> button)select case buttoncase”放大”supermap1 action=scazoomincase”缩小”supermap1- action二sea刁oomoutcase”白由缩放”supermap1. action二scazoomfrcccase “漫游”supermap1. actionscapancase “选择”supermap1. actionscaselec

10、tcase”全屏”supermap1. viewentirocase”演示”supermap1.cormect super workspacel.objectdim stralias as stringdim nenginetype as scenginc typedim strdatasourcename as stringdim objdatasource as sodatasourcedim breadonly as booleandim objlayer as solayerdim baddtohead as booleaaandim i as integerstralias=n my

11、datasource nengine type二scesdbplusstrdatasourcename= ” c:docume nts and sett in gsadm in istrator桌 |flj vi sual basic6. o'ddchess exe”breadonly=falsesetobjdatasourcesuperworkspace1 opendatasoirrce(strdatasourcename, stralias, nenginetype,breadonly)if objdatasource is nothing thenmsgbox” 打开数据源失败v

12、b informat io nelsefor i =1 to objdatasource datasets, countbaddtohrad=true;setobjlayer;supermap1. layers, adddataset(objdatasource. datasets, item(i), baddtohead)nextend ifsupermap1. refreshsupermpl. select!on. style, pencolor二rgb(231, 77,0)supermap1 selestion style. penwidth=lsupermap1. selestion. style, penstyle=lsupermap1. selestion. style, brushstyle二5supermap1. selestion. style. brushcolor=rgb(115,69,140)supermap1. selestion. style. brushback=rgb(239, 150, 255)supermap1 selestion style brushopaqueratr=50set objdatasource二nothingset obj1ayer=nothi ngcase"