frmdlgaction.frm

来自「多种图表的绘制及其运用」· FRM 代码 · 共 540 行 · 第 1/2 页

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmDlgAction 
   Caption         =   "Action"
   ClientHeight    =   2925
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5385
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2925
   ScaleWidth      =   5385
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   465
      Left            =   4335
      TabIndex        =   0
      Top             =   2415
      Width           =   915
   End
   Begin VB.Frame frame 
      Height          =   1890
      Index           =   1
      Left            =   90
      TabIndex        =   15
      Top             =   420
      Width           =   5160
      Begin VB.TextBox txtVarValue 
         Height          =   330
         Left            =   1380
         TabIndex        =   12
         Top             =   1080
         Width           =   3555
      End
      Begin VB.ComboBox cboxVarName 
         Height          =   315
         ItemData        =   "frmDlgAction.frx":0000
         Left            =   1380
         List            =   "frmDlgAction.frx":0002
         TabIndex        =   11
         Top             =   435
         Width           =   3555
      End
      Begin VB.Label lblDefValue 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Value:"
         Height          =   195
         Left            =   195
         TabIndex        =   17
         Top             =   1148
         Width           =   450
      End
      Begin VB.Label lblDefVarName 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Variable name:"
         Height          =   195
         Left            =   150
         TabIndex        =   16
         Top             =   495
         Width           =   1050
      End
   End
   Begin VB.Frame frame 
      Height          =   1890
      Index           =   4
      Left            =   90
      TabIndex        =   23
      Top             =   420
      Visible         =   0   'False
      Width           =   5160
      Begin VB.TextBox txtSQL 
         Height          =   1140
         Left            =   90
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   14
         Text            =   "frmDlgAction.frx":0004
         Top             =   600
         Width           =   4980
      End
      Begin VB.ComboBox cboxDatabase 
         Height          =   315
         ItemData        =   "frmDlgAction.frx":0012
         Left            =   2595
         List            =   "frmDlgAction.frx":0019
         TabIndex        =   13
         Top             =   180
         Width           =   2385
      End
      Begin VB.Label lblDBname 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "data base:"
         Height          =   195
         Left            =   1740
         TabIndex        =   25
         Top             =   240
         Width           =   750
      End
      Begin VB.Label lblSQL 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "SQL code:"
         Height          =   195
         Left            =   165
         TabIndex        =   24
         Top             =   360
         Width           =   780
      End
   End
   Begin VB.Frame frame 
      Height          =   1890
      Index           =   3
      Left            =   90
      TabIndex        =   2
      Top             =   420
      Visible         =   0   'False
      Width           =   5160
      Begin VB.ComboBox cboxStringOperation 
         BeginProperty Font 
            Name            =   "Fixedsys"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         ItemData        =   "frmDlgAction.frx":002B
         Left            =   2040
         List            =   "frmDlgAction.frx":0035
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   465
         Width           =   1005
      End
      Begin VB.ComboBox cboxString2 
         Height          =   315
         Left            =   3165
         TabIndex        =   5
         Top             =   465
         Width           =   1720
      End
      Begin VB.ComboBox cboxString1 
         Height          =   315
         Left            =   90
         TabIndex        =   3
         Top             =   465
         Width           =   1720
      End
      Begin VB.ComboBox cboxStringResult 
         Height          =   315
         ItemData        =   "frmDlgAction.frx":0042
         Left            =   1395
         List            =   "frmDlgAction.frx":0044
         TabIndex        =   6
         Top             =   1365
         Width           =   2535
      End
      Begin VB.Label lblString1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "String 1"
         Height          =   195
         Left            =   705
         TabIndex        =   29
         Top             =   195
         Width           =   540
      End
      Begin VB.Label lblString2 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "String 2"
         Height          =   195
         Left            =   3750
         TabIndex        =   28
         Top             =   210
         Width           =   540
      End
      Begin VB.Label lblStringOperation 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "operation"
         Height          =   195
         Left            =   2160
         TabIndex        =   27
         Top             =   210
         Width           =   660
      End
      Begin VB.Label lblStringResult 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "Store result in:"
         Height          =   195
         Left            =   1890
         TabIndex        =   26
         Top             =   1065
         Width           =   1020
      End
   End
   Begin VB.Frame frame 
      Height          =   1890
      Index           =   2
      Left            =   90
      TabIndex        =   18
      Top             =   420
      Visible         =   0   'False
      Width           =   5160
      Begin VB.ComboBox cboxResult 
         Height          =   315
         ItemData        =   "frmDlgAction.frx":0046
         Left            =   1395
         List            =   "frmDlgAction.frx":0048
         TabIndex        =   10
         Top             =   1365
         Width           =   2130
      End
      Begin VB.ComboBox cboxOperand1 
         Height          =   315
         Left            =   90
         TabIndex        =   7
         Top             =   465
         Width           =   1920
      End
      Begin VB.ComboBox cboxOperand2 
         Height          =   315
         Left            =   3075
         TabIndex        =   9
         Top             =   465
         Width           =   1920
      End
      Begin VB.ComboBox cboxOperation 
         BeginProperty Font 
            Name            =   "Fixedsys"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         ItemData        =   "frmDlgAction.frx":004A
         Left            =   2040
         List            =   "frmDlgAction.frx":005A
         Style           =   2  'Dropdown List
         TabIndex        =   8
         Top             =   465
         Width           =   1005
      End
      Begin VB.Label lblMathResult 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "Store result in:"
         Height          =   195
         Left            =   1890
         TabIndex        =   22
         Top             =   1065
         Width           =   1020
      End
      Begin VB.Label lblMathOperation 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "operation"
         Height          =   195