findcustomize.frm

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

            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
            
            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
      If FoundFeatures.Count = 0 Then
            ProBar1.Value = 100
            MsgBox "没有在地图上找到您要的目标", , "提示信息"
      Else
             '以下是将selection显示在地图中间，并且将整个selection显示出来。利用selection是一类features集合，有一个属性是bounds。bounds 是一个矩形，具有Xmin,Xmax,Ymin,Ymax
            Set fMainForm.Map1.Bounds = FoundFeatures.Bounds
            ProBar1.Value = 100
            fMainForm.Map1.Layers("1g12").Selection.Replace FoundFeatures '选取的结果返回到选区
            If FoundFeatures.Count > 1 Then
                 frmselectmore.Label1.Caption = mytext & "共有" & FoundFeatures.Count & "个"
            End If
       End If
       Optionless.Value = False
       Optionmore.Value = False
       FindCustomize.MousePointer = ccDefault
       ProBar1.Visible = False
       Exit Sub
NumError:
      MsgBox "请输入数字！", , "提示信息"
      FindValueText.Text = ""
      Optionless.Value = False
      Optionmore.Value = False
      ProBar1.Visible = False
      FindCustomize.MousePointer = ccDefault
      Exit Sub
End Sub