www.pudn.com > Pepsi_five.rar > FrmSql.frm

VERSION 5.00 
Begin VB.Form FrmSql  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "查找" 
   ClientHeight    =   1695 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   4680 
   ControlBox      =   0   'False 
   Icon            =   "FrmSql.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   1695 
   ScaleWidth      =   4680 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.CommandButton CmdSql  
      Cancel          =   -1  'True 
      Caption         =   "取消(&C)" 
      Height          =   315 
      Index           =   1 
      Left            =   3600 
      TabIndex        =   5 
      Top             =   1260 
      Width           =   1035 
   End 
   Begin VB.CommandButton CmdSql  
      Caption         =   "确定(&Y)" 
      Default         =   -1  'True 
      Height          =   315 
      Index           =   0 
      Left            =   2280 
      TabIndex        =   4 
      Top             =   1260 
      Width           =   1035 
   End 
   Begin VB.Frame Frame1  
      Caption         =   "查找内容" 
      Height          =   1035 
      Left            =   60 
      TabIndex        =   0 
      Top             =   60 
      Width           =   4575 
      Begin VB.TextBox TxtSQL  
         Height          =   300 
         Left            =   2100 
         TabIndex        =   3 
         Top             =   420 
         Width           =   2295 
      End 
      Begin VB.ComboBox CboField  
         Height          =   300 
         Left            =   180 
         Style           =   2  'Dropdown List 
         TabIndex        =   1 
         Top             =   420 
         Width           =   1455 
      End 
      Begin VB.Label Label1  
         Caption         =   "Like" 
         Height          =   195 
         Left            =   1680 
         TabIndex        =   2 
         Top             =   480 
         Width           =   375 
      End 
   End 
End 
Attribute VB_Name = "FrmSql" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Public intNumField As Integer 
Public strSqlField As String 
 
Private Sub CmdSql_Click(Index As Integer) 
    Select Case Index 
        Case 0 
            If Me.TxtSQL.Text = "" Then 
                intNumField = -1 
            Else 
                intNumField = Me.CboField.ListIndex 
                strSqlField = Me.TxtSQL.Text 
            End If 
        Case 1 
            intNumField = -2 
    End Select 
    Unload Me 
End Sub 
 
Private Sub Form_Load() 
    Dim intTmp As Integer 
    For intTmp = 0 To intNumField - 1 
        Me.CboField.AddItem "字段" & CStr(intTmp + 1) 
    Next 
    Me.CboField.ListIndex = 0 
End Sub