frminsert.frm

visual basic 关于数据查询操作练习很好的工具

VERSION 5.00
Begin VB.Form frmInsert 
   Caption         =   "clsINSERT SQL demo"
   ClientHeight    =   4230
   ClientLeft      =   3195
   ClientTop       =   2310
   ClientWidth     =   5085
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmInsert.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4230
   ScaleWidth      =   5085
   Begin VB.CommandButton cmdAddTable 
      Caption         =   "+"
      Height          =   315
      Left            =   3900
      TabIndex        =   13
      Top             =   720
      Width           =   495
   End
   Begin VB.CommandButton cmdAddColumn 
      Caption         =   "+"
      Height          =   315
      Left            =   3900
      TabIndex        =   12
      Top             =   240
      Width           =   495
   End
   Begin VB.CommandButton cmdAddValue 
      Caption         =   "+"
      Height          =   315
      Left            =   3900
      TabIndex        =   11
      Top             =   1200
      Width           =   495
   End
   Begin VB.CommandButton cmdClearSQL 
      Caption         =   "Clear SQL"
      Height          =   435
      Left            =   525
      TabIndex        =   9
      Top             =   3360
      Width           =   1515
   End
   Begin VB.TextBox txtValue 
      Height          =   315
      Left            =   1470
      TabIndex        =   8
      Top             =   1200
      Width           =   2295
   End
   Begin VB.CommandButton cmdBuildSQL 
      Caption         =   "Build SQL"
      Height          =   435
      Left            =   3045
      TabIndex        =   6
      Top             =   3360
      Width           =   1515
   End
   Begin VB.TextBox txtSQL 
      Height          =   1155
      Left            =   180
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   5
      Top             =   2040
      Width           =   4635
   End
   Begin VB.ComboBox cmbTable 
      Height          =   315
      ItemData        =   "frmInsert.frx":030A
      Left            =   1470
      List            =   "frmInsert.frx":0317
      TabIndex        =   3
      Top             =   720
      Width           =   2295
   End
   Begin VB.ComboBox cmbField 
      Height          =   315
      ItemData        =   "frmInsert.frx":0336
      Left            =   1470
      List            =   "frmInsert.frx":0346
      TabIndex        =   1
      Top             =   240
      Width           =   2295
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "Daniel Chirca - [e-mail]"
      ForeColor       =   &H8000000D&
      Height          =   195
      Left            =   2385
      TabIndex        =   10
      Top             =   3960
      Width           =   2460
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "Value:"
      Height          =   195
      Left            =   720
      TabIndex        =   7
      Top             =   1260
      Width           =   450
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "SQL statement:"
      Height          =   195
      Left            =   180
      TabIndex        =   4
      Top             =   1740
      Width           =   1125
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Table name:"
      Height          =   195
      Left            =   330
      TabIndex        =   2
      Top             =   780
      Width           =   885
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Select column:"
      Height          =   195
      Left            =   180
      TabIndex        =   0
      Top             =   300
      Width           =   1035
   End
End
Attribute VB_Name = "frmInsert"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim cInsert As clsINSERT

Private Sub cmdAddColumn_Click()
  If Me.cmbField <> "" Then
    With cInsert
      .AddColumn Me.cmbField
    End With
    MsgBox "Column added."
  End If
End Sub

Private Sub cmdAddTable_Click()
  If Me.cmbTable <> "" Then
    With cInsert
      .AddTable Me.cmbTable
    End With
    MsgBox "Table added."
  End If
End Sub

Private Sub cmdAddValue_Click()
  With cInsert
    .AddValue Me.txtValue
  End With
  MsgBox "Value added."
End Sub

Private Sub cmdBuildSQL_Click()
  With cInsert
    Me.txtSQL = .BuildINSERT
  End With
End Sub

Private Sub cmdClearSQL_Click()
  Me.txtSQL = ""
  cInsert.ClearSQL
End Sub

Private Sub Form_Load()
  Set cInsert = New clsINSERT

  Dim ctl As Control
  For Each ctl In Me.Controls
    If TypeOf ctl Is ComboBox Then
      ctl = ctl.List(0)
    End If
  Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set cInsert = Nothing
End Sub