findcustomize_else.frm

这是我的一个课题：我省农业分布调查咨询系统。课题是和省农业厅合作的。源代码完整

            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("粮食总产 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("粮食总产 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("粮食总产 < vValue", var)
            End If
            
            Case "国内生产总值"
            If Optionmore.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("国内生产总值 > vValue", var)
            End If
            If Optionmore.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("国内生产总值 >= vValue", var)
            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("国内生产总值 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("国内生产总值 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("国内生产总值 < vValue", var)
            End If

            Case "第一产业产值"
            If Optionmore.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第一产业产值 > vValue", var)
            End If
            If Optionmore.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第一产业产值 >= vValue", var)
            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第一产业产值 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第一产业产值 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第一产业产值 < vValue", var)
            End If
            
            Case "第二产业产值"
            If Optionmore.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第二产业产值 > vValue", var)
            End If
            If Optionmore.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第二产业产值 >= vValue", var)
            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第二产业产值 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第二产业产值 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第二产业产值 < vValue", var)
            End If
            
            Case "第三产业产值"
            If Optionmore.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第三产业产值 > vValue", var)
            End If
            If Optionmore.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第三产业产值 >= vValue", var)
            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第三产业产值 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第三产业产值 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("第三产业产值 < vValue", var)
            End If
            
            Case "种植业产值"
            If Optionmore.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("种植业产值 > vValue", var)
            End If
            If Optionmore.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("种植业产值 >= vValue", var)
            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("种植业产值 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("种植业产值 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("种植业产值 < vValue", var)
            End If
            
            Case "牧业产值"
            If Optionmore.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("牧业产值 > vValue", var)
            End If
            If Optionmore.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("牧业产值 >= vValue", var)
            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("牧业产值 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("牧业产值 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("牧业产值 < vValue", var)
            End If
            
            Case "林业产值"
            If Optionmore.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("林业产值 > vValue", var)
            End If
            If Optionmore.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("林业产值 >= vValue", var)
            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("林业产值 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("林业产值 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("林业产值 < vValue", var)
            End If
            
            Case "乡镇企业产值"
            If Optionmore.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("乡镇企业产值 > vValue ", var)
            End If
            If Optionmore.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("乡镇企业产值 >= vValue", var)
            End If
            If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("乡镇企业产值 = vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 1 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("乡镇企业产值 <= vValue", var)
            End If
            If Optionless.Value = True And Checkequal.Value = 0 Then
            Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("乡镇企业产值 < vValue", var)
            End If
      End Select
      ProBar1.Value = ProBar1.Value + 20
'/*以下查询被包含在aa层中的某个feature中的属于1g12层中的features集合*/
    If fMainForm.Map1.Layers.Item("a-地貌").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-地貌")
    End If
    If fMainForm.Map1.Layers.Item("a-气候").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-气候")
    End If
    If fMainForm.Map1.Layers.Item("a-水利").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-水利")
    End If
    If fMainForm.Map1.Layers.Item("a-水文").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-水文")
    End If
    If fMainForm.Map1.Layers.Item("a-企业").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-企业")
    End If
    If fMainForm.Map1.Layers.Item("a-畜牧").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-畜牧")
    End If
    If fMainForm.Map1.Layers.Item("a-渔业").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-渔业")
    End If
    If fMainForm.Map1.Layers.Item("a-种植业").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-种植业")
    End If
    If fMainForm.Map1.Layers.Item("a-综农").Visible = True Then
       Set lyr = fMainForm.Map1.Layers.Item("a-综农")
    End If
    Set FoundFeatures_aa = lyr.Search("说明 = vValue_aa", var_aa)
    Set mysearchwithinfeature = FoundFeatures_aa.Item(1)
    Set FoundFeatures_aa = fMainForm.Map1.Layers.Item("1g12").SearchWithinFeature(mysearchwithinfeature, miSearchTypeCentroidWithin)
      
      ProBar1.Value = ProBar1.Value + 20
       
      If FoundFeatures_aa.Count = 0 Then
          ProBar1.Value = 100
          MsgBox "没有在地图上找到您要的目标", , "提示信息"
      Else
            If FindFieldCombo.Text = "不选类别" Then  '不选类别则应为包含在aa中的该区域中的属于1g12层中的所有features
               Set FoundFeatures = FoundFeatures_aa
            Else     '如果选了类别,而且FoundFeatures>0，则将FoundFeatures_aa,FoundFeatures取交集
                FoundFeatures.Common FoundFeatures_aa
            End If
             '以下是将selection显示在地图中间，并且将整个selection显示出来。利用selection是一类features集合，有一个属性是bounds。bounds 是一个矩形，具有Xmin,Xmax,Ymin,Ymax
             If FoundFeatures.Count > 0 Then
                Set fMainForm.Map1.Bounds = FoundFeatures.Bounds
                ProBar1.Value = 100
                fMainForm.Map1.Layers("1g12").Selection.Replace FoundFeatures '选取的结果返回到选区
                If FoundFeatures.Count > 1 Then
                    frmselectmore.Label1.Caption = "属于" & selectAreatypeCombo1.Text & mytext & "的区县共有" & FoundFeatures.Count & "个"
                End If
             Else
                ProBar1.Value = 100
                MsgBox "没有在地图上找到您要的目标", , "提示信息"
             End If
        End If
       Optionless.Value = False
       Optionmore.Value = False
       FindCustomize_else.MousePointer = ccDefault
       ProBar1.Visible = False
       Exit Sub
NumError:
      MsgBox "请输入数字！", , "提示信息"
      FindValueText.Text = ""
      Optionless.Value = False
      Optionmore.Value = False
      ProBar1.Visible = False
      FindCustomize_else.MousePointer = ccDefault
      Exit Sub
End Sub


Private Sub selectyearCombo1_Change()
'If fMainForm.Map1.Datasets.Count > 1 Then
'   fMainForm.Map1.Datasets.Remove ("1g12_year")
'End If
'Dim db As Database
'Dim myRS As ADODB.Recordset
'Set db = OpenDatabase("d:\agricultural_query\scdb_yearsdata.mdb")
'connect.Execute ("Drop Table yearsdata_year")
'connect.Execute ("select *  into yearsdata_year from yearsdata where 年份='" & selectyearCombo1.Text & "'")
'Set myRS = New ADODB.Recordset
'myRS.CursorType = adOpenKeyset
'myRS.LockType = adLockOptimistic
'myRS.Open "yearsdata_year", connect, , , adCmdTable
'fMainForm.Map1.Datasets.Add miDataSetADO, myRS, "1g12_year", "行政代码", , "1g12"

End Sub