frmsqlexpression.frm

都是基于VB所做的程序集合,值得大家作为实践的参考资料.

VERSION 5.00
Begin VB.Form frmSQLExpression 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "配置SQL条件"
   ClientHeight    =   3360
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3360
   ScaleWidth      =   6690
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame1 
      Caption         =   "选项"
      Height          =   1605
      Left            =   210
      TabIndex        =   6
      Tag             =   "3071"
      Top             =   1650
      Width           =   6255
      Begin VB.Frame Frame3 
         Caption         =   "Frame3"
         Height          =   1185
         Left            =   180
         TabIndex        =   12
         Top             =   240
         Width           =   2580
         Begin VB.CheckBox chkBrowse 
            Caption         =   "浏览查询结果"
            Height          =   255
            Left            =   120
            TabIndex        =   23
            Tag             =   "3220"
            Top             =   0
            Value           =   1  'Checked
            Width           =   1500
         End
         Begin VB.OptionButton optDescend 
            Caption         =   "降序"
            Enabled         =   0   'False
            Height          =   225
            Left            =   1320
            TabIndex        =   16
            Tag             =   "3223"
            Top             =   915
            Width           =   1020
         End
         Begin VB.OptionButton optAscend 
            Caption         =   "升序"
            Enabled         =   0   'False
            Height          =   225
            Left            =   360
            TabIndex        =   15
            Tag             =   "3222"
            Top             =   915
            Value           =   -1  'True
            Width           =   885
         End
         Begin VB.CheckBox chkSort 
            Caption         =   "排序"
            Height          =   210
            Left            =   240
            TabIndex        =   14
            Tag             =   "3221"
            Top             =   300
            Width           =   705
         End
         Begin VB.ComboBox cmbSortfield 
            BackColor       =   &H00C0C0C0&
            Enabled         =   0   'False
            Height          =   315
            Left            =   360
            Style           =   2  'Dropdown List
            TabIndex        =   13
            Top             =   525
            Width           =   1830
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "Frame2"
         Height          =   1185
         Left            =   2955
         TabIndex        =   7
         Top             =   240
         Width           =   3120
         Begin VB.CheckBox chkSaveAsDt 
            Caption         =   "保存结果为数据集"
            Height          =   240
            Left            =   120
            TabIndex        =   24
            Tag             =   "3224"
            Top             =   0
            Width           =   1800
         End
         Begin VB.TextBox txtDtName 
            BackColor       =   &H00C0C0C0&
            Enabled         =   0   'False
            Height          =   315
            Left            =   1125
            TabIndex        =   9
            Top             =   705
            Width           =   1830
         End
         Begin VB.ComboBox cmbDSName 
            BackColor       =   &H00C0C0C0&
            Enabled         =   0   'False
            Height          =   315
            Left            =   1125
            Style           =   2  'Dropdown List
            TabIndex        =   8
            Top             =   300
            Width           =   1845
         End
         Begin VB.Label Label4 
            Caption         =   "目标数据源"
            Height          =   195
            Left            =   150
            TabIndex        =   11
            Tag             =   "3051"
            Top             =   360
            Width           =   915
         End
         Begin VB.Label Label5 
            Caption         =   "数据集名称"
            Height          =   195
            Left            =   150
            TabIndex        =   10
            Tag             =   "3052"
            Top             =   780
            Width           =   915
         End
      End
   End
   Begin VB.TextBox txtExpression 
      Height          =   675
      Left            =   1200
      TabIndex        =   5
      Top             =   930
      Width           =   4050
   End
   Begin VB.ComboBox cmbLayerName 
      Height          =   300
      Left            =   3345
      Style           =   2  'Dropdown List
      TabIndex        =   4
      Top             =   135
      Width           =   1920
   End
   Begin VB.CommandButton btnCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   5400
      TabIndex        =   3
      Tag             =   "3058"
      Top             =   660
      Width           =   1140
   End
   Begin VB.CommandButton btnOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   5400
      TabIndex        =   2
      Tag             =   "3057"
      Top             =   120
      Width           =   1140
   End
   Begin VB.ComboBox cmbOperator 
      Appearance      =   0  'Flat
      Height          =   300
      Left            =   3345
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   555
      Width           =   1920
   End
   Begin VB.ComboBox cmbFieldName 
      Height          =   315
      Left            =   1200
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   540
      Width           =   1425
   End
   Begin VB.Label lblMapName 
      BackColor       =   &H80000009&
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   1200
      TabIndex        =   22
      Top             =   120
      Width           =   1425
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      Caption         =   "SQL条件表达式"
      Height          =   420
      Left            =   210
      TabIndex        =   21
      Tag             =   "3218"
      Top             =   1050
      Width           =   945
   End
   Begin VB.Label Label3 
      Caption         =   "图层名"
      Height          =   195
      Left            =   2730
      TabIndex        =   20
      Tag             =   "3132"
      Top             =   180
      Width           =   570
   End
   Begin VB.Label Label2 
      Caption         =   "地图窗口名"
      Height          =   195
      Left            =   210
      TabIndex        =   19
      Tag             =   "3216"
      Top             =   180
      Width           =   945
   End
   Begin VB.Label lblOperator 
      Caption         =   "运算符"
      Height          =   195
      Left            =   2700
      TabIndex        =   18
      Tag             =   "3219"
      Top             =   600
      Width           =   645
   End
   Begin VB.Label Label1 
      Caption         =   "字段名"
      Height          =   195
      Left            =   210
      TabIndex        =   17
      Tag             =   "3217"
      Top             =   600
      Width           =   945
   End
End
Attribute VB_Name = "frmSQLExpression"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True