www.pudn.com > mapxoracle.zip > FrmSQL.frm

VERSION 5.00 
Begin VB.Form FrmSQL  
   Caption         =   "SQL查询" 
   ClientHeight    =   2250 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   7005 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   2250 
   ScaleWidth      =   7005 
   StartUpPosition =   3  '窗口缺省 
   Begin VB.TextBox Text1  
      Height          =   1935 
      Left            =   120 
      MultiLine       =   -1  'True 
      TabIndex        =   8 
      Top             =   120 
      Width           =   3975 
   End 
   Begin VB.CommandButton Command2  
      Caption         =   "取消" 
      Height          =   375 
      Left            =   5400 
      TabIndex        =   4 
      Top             =   1680 
      Width           =   855 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "确定" 
      Height          =   375 
      Left            =   4440 
      TabIndex        =   3 
      Top             =   1680 
      Width           =   855 
   End 
   Begin VB.ComboBox Combo3  
      Height          =   300 
      Left            =   5040 
      TabIndex        =   2 
      Top             =   1080 
      Width           =   1695 
   End 
   Begin VB.ComboBox Combo2  
      Height          =   300 
      Left            =   5040 
      TabIndex        =   1 
      Top             =   600 
      Width           =   1695 
   End 
   Begin VB.ComboBox Combo1  
      Height          =   300 
      Left            =   5040 
      TabIndex        =   0 
      Top             =   120 
      Width           =   1695 
   End 
   Begin VB.Label Label3  
      AutoSize        =   -1  'True 
      Caption         =   "函数" 
      Height          =   180 
      Left            =   4320 
      TabIndex        =   7 
      Top             =   1080 
      Width           =   360 
   End 
   Begin VB.Label Label2  
      AutoSize        =   -1  'True 
      Caption         =   "运算符" 
      Height          =   180 
      Left            =   4200 
      TabIndex        =   6 
      Top             =   600 
      Width           =   540 
   End 
   Begin VB.Label Label1  
      AutoSize        =   -1  'True 
      Caption         =   "列" 
      Height          =   180 
      Left            =   4320 
      TabIndex        =   5 
      Top             =   120 
      Width           =   180 
   End 
End 
Attribute VB_Name = "FrmSQL" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
Private Sub Combo1_Click() 
    Text1.Text = Text1.Text + " " + Trim(Combo1.Text) 
End Sub 
 
Private Sub Combo2_Click() 
     
    If Trim(LCase(Combo2.Text)) = "like" Then 
      Text1.Text = Text1.Text + " " + Trim(Combo2.Text) + "%" 
    Else 
      Text1.Text = Text1.Text + " " + Trim(Combo2.Text) 
    End If 
 
End Sub 
 
Private Sub Combo3_Click() 
  Text1.Text = Text1.Text + " " + Trim(Combo3.Text) + "()" 
End Sub 
 
Private Sub Command1_Click() 
    Dim ds As MapXLib.Dataset 
    Dim lyr As MapXLib.layer 
    Dim ftrs As MapXLib.Features 
    Dim strs As String 
 
    Set ds = Formmain.Map1.Datasets(ToolBars.Combo2.Text) 
    Set lyr = ds.layer 
    strs = Trim(Text1.Text) 
    Set ftrs = lyr.Search(strs) '("Character_Name like ""%市""") ' 
    lyr.Selection.ClearSelection 
    '放入选择集 
    MsgBox Str(ftrs.Count) 
    Dim ftr As MapXLib.Feature 
    For Each ftr In ftrs 
      MsgBox ftr.name 
    Next 
    lyr.Selection.Replace ftrs 
     
End Sub 
 
Private Sub Command2_Click() 
    Unload Me 
End Sub 
 
Private Sub Form_Load() 
    Dim ds As MapXLib.Dataset 
    Dim fld As MapXLib.Field 
    Dim i As Integer 
     
    '列名 
    Set ds = Formmain.Map1.Datasets(ToolBars.Combo2.Text) 
    For Each fld In ds.Fields 
      Combo1.AddItem fld.name 
    Next 
     
    '运算符 
    Combo2.AddItem "+" 
    Combo2.AddItem "-" 
    Combo2.AddItem "*" 
    Combo2.AddItem "/" 
    Combo2.AddItem "\" 
    Combo2.AddItem "^" 
    Combo2.AddItem "=" 
    Combo2.AddItem "<>" 
    Combo2.AddItem ">" 
    Combo2.AddItem "<" 
    Combo2.AddItem ">=" 
    Combo2.AddItem "<=" 
    Combo2.AddItem "and" 
    Combo2.AddItem "or" 
    Combo2.AddItem "not" 
    Combo2.AddItem "like" 
        
    '函数 
    Combo3.AddItem "Abs" 
    Combo3.AddItem "Acos" 
    Combo3.AddItem "Area" 
    Combo3.AddItem "Asc" 
    Combo3.AddItem "Asin" 
    Combo3.AddItem "Atan" 
    Combo3.AddItem "Centroid" 
    Combo3.AddItem "CentroidX" 
    Combo3.AddItem "CentroidY" 
    Combo3.AddItem "Chr$" 
    Combo3.AddItem "Cos" 
    Combo3.AddItem "CurDate" 
    Combo3.AddItem "Day" 
    Combo3.AddItem "Distance" 
    Combo3.AddItem "Exp" 
    Combo3.AddItem "Fix" 
    Combo3.AddItem "InStr" 
    Combo3.AddItem "Int" 
    Combo3.AddItem "Lcase" 
    Combo3.AddItem "Left" 
    Combo3.AddItem "Log" 
    Combo3.AddItem "LTrim" 
    Combo3.AddItem "Maximum" 
    Combo3.AddItem "MBR" 
    Combo3.AddItem "Mid" 
    Combo3.AddItem "Minimum" 
    Combo3.AddItem "Month" 
    Combo3.AddItem "ObjectLen" 
    Combo3.AddItem "Perimeter" 
    Combo3.AddItem "Proper" 
    Combo3.AddItem "Right" 
    Combo3.AddItem "Round" 
    Combo3.AddItem "Rtrim" 
    Combo3.AddItem "Sgn" 
    Combo3.AddItem "Sin" 
    Combo3.AddItem "Space" 
    Combo3.AddItem "Str" 
    Combo3.AddItem "Sqr" 
    Combo3.AddItem "Tan" 
    Combo3.AddItem "Trim" 
    Combo3.AddItem "Ucase" 
    Combo3.AddItem "Val" 
    Combo3.AddItem "Weekday" 
    Combo3.AddItem "Year" 
     
    Set ds = Nothing 
    Set fld = Nothing 
     
End Sub