frmsql.frm

一个vb+oracle的例子

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