findcustomize_else.frm

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

                   mytext = "而且" & FindFieldCombo.Text & "大于等于" & FindValueText.Text & Label4.Caption
                End If
                If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
                   mytext = "而且" & FindFieldCombo.Text & "等于" & FindValueText.Text & Label4.Caption
                End If
                If Optionless.Value = True And Checkequal.Value = 1 Then
                   mytext = "而且" & FindFieldCombo.Text & "小于等于" & FindValueText.Text & Label4.Caption
                End If
                If Optionless.Value = True And Checkequal.Value = 0 Then
                   mytext = "而且" & FindFieldCombo.Text & "小于" & FindValueText.Text & Label4.Caption
                End If
            Else    '其它字段与年份有关，故应说明在哪一年
                If Optionmore.Value = True And Checkequal.Value = 0 Then
                   mytext = "而且" & selectyearCombo1.Text & "年" & FindFieldCombo.Text & "大于" & FindValueText.Text & Label4.Caption
                End If
                If Optionmore.Value = True And Checkequal.Value = 1 Then
                   mytext = "而且" & selectyearCombo1.Text & "年" & FindFieldCombo.Text & "大于等于" & FindValueText.Text & Label4.Caption
                End If
                If Optionmore.Value = False And Optionless.Value = False And Checkequal.Value = 1 Then
                   mytext = "而且" & selectyearCombo1.Text & "年" & FindFieldCombo.Text & "等于" & FindValueText.Text & Label4.Caption
                End If
                If Optionless.Value = True And Checkequal.Value = 1 Then
                   mytext = "而且" & selectyearCombo1.Text & "年" & FindFieldCombo.Text & "小于等于" & FindValueText.Text & Label4.Caption
                End If
                If Optionless.Value = True And Checkequal.Value = 0 Then
                   mytext = "而且" & selectyearCombo1.Text & "年" & FindFieldCombo.Text & "小于" & FindValueText.Text & Label4.Caption
                End If
             End If
        End If
    End If
    '/*删除dataset(1g12_year)*/
    For i = 1 To fMainForm.Map1.Datasets.Count
        If fMainForm.Map1.Datasets.Item(i).Name = "1g12_year" Then
            fMainForm.Map1.Datasets.Remove ("1g12_year")
            Exit For
        End If
    Next
    If selectyearCombo1.Text <> "不选年份" Then '如果不选年份，则无需创建数据绑定，否则需创建数据绑定
        '/* 以下是创建数据绑定databinding */
         Set db = OpenDatabase(App.Path & "\scdb_yearsdata.mdb")
        ' On Error Resume Next
         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
         ProBar1.Value = ProBar1.Value + 30
         fMainForm.Map1.Datasets.Add miDataSetADO, myrs, "1g12_year", "行政代码", , "1g12"
         ProBar1.Value = ProBar1.Value + 20
     End If
     '/*以下执行查询*/
     Select Case FindFieldCombo.Text
            Case "县名"
               Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("县名 like vValue", var)
           
            Case "行政代码"
               Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("行政代码 like vValue", var)
            
            Case "邮政编码"
               Set FoundFeatures = fMainForm.Map1.Layers("1g12").Search("邮政编码 like vValue", var)
            
            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)