GPS課程設(shè)計(jì)報(bào)告代碼

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"打開(kāi)數(shù)據(jù)集錯(cuò)誤”,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”音樂(lè)”shell” f:kugou2010kugoo. exe”case"驚喜”print”售價(jià)100萬(wàn)，地科免費(fèi)!”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二”顯示成生的數(shù)據(jù)集” 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、數(shù)據(jù)集”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” 打開(kāi)數(shù)據(jù)源失敗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"