GPS课程设计报告代码.docVIP

Private sub toolbar2_buttonclick(byval button as mscomctllib.button) Select case button Case”属性查询” Supermap1.action=scaselect Case”条件查询” Dim objds as sodatasource; Dim obdtvector as sodataset vector; Dim objrecordset as sorecordset; Dim objselection as soselection; Set objds=superworkspace1.datasources.item(“mydatasource”) If objds is nothing then exit sub Set objdtvector=objds.datasets(“world”); If objdtvector is nothing then Msgbox”打开数据集错误”，vbinformation Exit sub End if Set objrecordset=objdtvector.query(txtexpression.text,true) If objrecordset is nothing then Exit sub Else Set objselection=supermap1.selection Objselection.fromrecordset objrecordset Supermap1.refresh End if Set objdtvector=nothing Set objrecordset=nothing Set objselection=nothing End select End sub Private sub command1_click() Dim s1 string Dim s_id as string Dim s_nam as string If text.text=””then s_id=”%” Else S_id=text/text End if If text2.text=””then s_nam=”%” Else S_nam=text2.text End if S1=”select*from goood where id like”+s_id+””and nam like +s_nam+”” Adodc1.recordsource=s1 Adodc1.refresh End sub Open”c:\1.txt”for input as#1 Rs.open”select*from table_a where 字段1not in(select 字段 1from table_b)”,conn While not rs.eof Printf#1,rs(“字段1”) Rs.movenext Wend Rs.close Close#1 Open”c:\2.txt”for input as#1 Rs.open”select*from table_a where 字段1 in(select 字段 1 from table_b)”,conn while not rs.eof Printf#1,rs(“字段1”) Rs.movenext Wend Rs.close Close#1 Private sub toolbar3_buttonclick(by val button as mscomctllib.button) Select case button Case”游戏” Shell “C:\documents and settings\administrator\桌面\visual basic 6.0\ddchess.exe” Case”音乐” Shell”F:\kugou2010\kugoo.exe” Case”惊喜” Print”售价100万，地科免费！” Fontname=”黑体” Fontitalic=true Fontsize=48 End select End sub Private sub btnsql_click() Frmsqlexpression.show vbmodal,me End sub Private sub btnshowdt_click() Dim i as integer Dim objds as sodatasource Dim objdt as sodataset If btnshowdt.