frmconditionquery.frm

mo2.4+vb开发的一个小的地理信息系统

VERSION 5.00
Begin VB.Form frmconditionquery 
   Caption         =   "conditionquery"
   ClientHeight    =   4740
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5835
   LinkTopic       =   "Form2"
   ScaleHeight     =   4740
   ScaleWidth      =   5835
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdcancel 
      Caption         =   "cancel"
      Height          =   495
      Left            =   4200
      TabIndex        =   9
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton cmdok 
      Caption         =   "ok"
      Height          =   495
      Left            =   4200
      TabIndex        =   8
      Top             =   1080
      Width           =   1335
   End
   Begin VB.ComboBox cmlvalue 
      Height          =   300
      Left            =   1800
      TabIndex        =   3
      Text            =   "Combo4"
      Top             =   3120
      Width           =   1935
   End
   Begin VB.ComboBox cmlcondition 
      Height          =   300
      Left            =   1800
      TabIndex        =   2
      Text            =   "Combo3"
      Top             =   2400
      Width           =   1935
   End
   Begin VB.ComboBox cmlfure 
      Height          =   300
      Left            =   1800
      TabIndex        =   1
      Text            =   "Combo2"
      Top             =   1680
      Width           =   1935
   End
   Begin VB.ComboBox cmllayer 
      Height          =   300
      Left            =   1800
      TabIndex        =   0
      Text            =   "Combo1"
      Top             =   840
      Width           =   1935
   End
   Begin VB.Label lblvalue 
      Caption         =   "  value "
      Height          =   375
      Left            =   0
      TabIndex        =   7
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Label lblcondition 
      Caption         =   "condition query"
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   2400
      Width           =   1215
   End
   Begin VB.Label lblfure 
      Caption         =   "fure class"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   1680
      Width           =   1215
   End
   Begin VB.Label lbllayer 
      Caption         =   "malayer class"
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   840
      Width           =   1095
   End
End
Attribute VB_Name = "frmconditionquery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




Private Sub cmdCancel_Click()
' 卸载本窗体
Unload frmconditionquery
End Sub

Private Sub cmdOK_Click()
'将各个列表框中的名字 祝贺为SQL表达式 给 变量 strcondition
Set lar = lars.Item(cmllayer.ListIndex)
If Val(Left$(cmlvalue.Text, 1)) < 10 And Val(Left$(cmlvalue.Text, 1)) >= 1 Then
strcondition = cmlfure.Text & cmlcondition.Text & cmlvalue.Text
Else
strcondition = cmlfure.Text & cmlcondition.Text & "'" & cmlvalue.Text & "'"
End If
' 卸载本窗体
Unload frmconditionquery

End Sub

Private Sub cmlfure_Click()
' 当改变列变框cmlfure的名字时，列变框cmlvalue中值也相应改变
cmlvalue.Clear
Set lar = lars.Item(cmllayer.ListIndex)
Set recs = lar.Records
Do While Not recs.EOF
 cmlvalue.AddItem recs.Fields(cmlfure.Text).ValueAsString
 recs.MoveNext
Loop
cmlvalue.ListIndex = 0
End Sub

Private Sub cmllayer_Click()
' 当改变列变框cmllayer的名字时，列变框cmlfure中值也相应改变
cmlfure.Clear

Dim ofiled As MapObjects2.Field
Set lar = lars.Item(cmllayer.ListIndex)
For Each ofiled In lar.Records.Fields
 cmlfure.AddItem ofiled.Name
Next
cmlfure.ListIndex = 0
End Sub

Private Sub Form_Load() ' 加载本窗体
Dim ofiled As MapObjects2.Field

' 将当前map1所有的图层的名字 放到 列表框cmllayer中
For Each lar In lars
cmllayer.AddItem lar.Name
Set recs = lar.Records
' 将0图层的字段名字 放到 列表框cmlfure中
For Each ofiled In lar.Records.Fields
  
  cmlfure.AddItem ofiled.Name
'   Do While Not recs.EOF
'     cmlvalue.AddItem recs.Fields(ofiled.Name).ValueAsString
'     recs.MoveNext
'   Loop
   Next
   
 Next

 ' 初始化 列表框cmlcondition
 cmlcondition.AddItem "="
 cmlcondition.AddItem "<"
 cmlcondition.AddItem "<="
 cmlcondition.AddItem ">"
 cmlcondition.AddItem ">"
 cmlcondition.AddItem ">="

'begin with id num 开始 listindex 是 0
 cmllayer.ListIndex = 0
 cmlfure.ListIndex = 0
 cmlcondition.ListIndex = 0
 cmlvalue.ListIndex = 0
 
End Sub