Tools/WinSN5.0Ver.iso/PVb5.0/VB/SAMPLES/VISDATA/SQL.FRM

Visual Basic Form | 1997-01-12 | 5.7 KB | 175 lines

VERSION 5.00
Begin VB.Form frmSQL
   Caption         =   "SQL
   ClientHeight    =   2880
   ClientLeft      =   3690
   ClientTop       =   1575
   ClientWidth     =   5130
   BeginProperty Font
      Name            =   "
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   HelpContextID   =   2016144
   Icon            =   "SQL.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   2863.353
   ScaleMode       =   0  'User
   ScaleWidth      =   5147.588
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdSaveQueryDef
      Caption         =   "
(&S)"
      Height          =   375
      Left            =   3375
      MaskColor       =   &H00000000&
      TabIndex        =   3
      Top             =   30
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.CommandButton cmdExecuteSQL
      Caption         =   "
(&E)"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   375
      Left            =   15
      MaskColor       =   &H00000000&
      TabIndex        =   1
      Top             =   30
      Width           =   1575
   End
   Begin VB.CommandButton cmdClearSQL
      Caption         =   "
(&C)"
      Height          =   375
      Left            =   1695
      MaskColor       =   &H00000000&
      TabIndex        =   2
      Top             =   30
      Width           =   1575
   End
   Begin VB.TextBox txtSQLStatement
      BackColor       =   &H00FFFFFF&
      Height          =   2175
      Left            =   15
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   435
      Width           =   5055
   End
Attribute VB_Name = "frmSQL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'>>>>>>>>>>>>>>>>>>>>>>>>
Const FORMCAPTION = "SQL
Const BUTTON1 = "
(&E)"
Const BUTTON2 = "
(&C)"
Const BUTTON3 = "
(&S)"
Const MSG1 = "
Const MSG2 = "
Const MSG3 = "
 SQL
Const MSG4 = "
Const MSG5 = "
'>>>>>>>>>>>>>>>>>>>>>>>>
Private Sub cmdClearSQL_Click()
  txtSQLStatement.Text = vbNullString
  txtSQLStatement.SetFocus
End Sub
Private Sub cmdSaveQueryDef_Click()
  On Error GoTo SQDErr
  Dim sQueryName As String
  Dim sTmp As String
  Dim qdNew As QueryDef
  If Not gnodDBNode Is Nothing Then
    If gnodDBNode.Tag = QUERY_STR Then
      '
      If MsgBox(MSG1 & " '" & gnodDBNode.Text & "'?", vbYesNo + vbQuestion) = vbYes Then
        '
        'SQL
        gdbCurrentDB.QueryDefs(gnodDBNode.Text).SQL = Me.txtSQLStatement.Text
        Exit Sub
      End If
    End If
  End If
  sQueryName = InputBox(MSG2)
  If Len(sQueryName) = 0 Then Exit Sub
  If DupeTableName(sQueryName) Then
    Exit Sub
  End If
  Set qdNew = gdbCurrentDB.CreateQueryDef(sQueryName)
  If MsgBox(MSG3, vbYesNo + vbQuestion + vbDefaultButton2) = vbYes Then
    sTmp = InputBox(MSG4)
    If Len(sTmp) > 0 Then
      qdNew.Connect = sTmp
      If MsgBox(MSG5, vbYesNo + vbQuestion) = vbNo Then
        qdNew.ReturnsRecords = False
      End If
    End If
  End If
  qdNew.SQL = txtSQLStatement.Text
  gdbCurrentDB.QueryDefs.Refresh
  RefreshTables Nothing
  Exit Sub
SQDErr:
  ShowError
End Sub
Private Sub Form_Unload(Cancel As Integer)
 sql
 INI
'  If InStr(frmSQL.txtSQLStatement.Text, Chr(13)) = 0 Then
    SaveSetting APP_CATEGORY, App.Title, "SQLStatement", frmSQL.txtSQLStatement.Text
'  End If
  If frmSQL.WindowState = vbNormal Then
    SaveSetting APP_CATEGORY, App.Title, "SQLWindowTop", frmSQL.Top
    SaveSetting APP_CATEGORY, App.Title, "SQLWindowLeft", frmSQL.Left
    SaveSetting APP_CATEGORY, App.Title, "SQLWindowWidth", frmSQL.Width
    SaveSetting APP_CATEGORY, App.Title, "SQLWindowHeight", frmSQL.Height
  End If
End Sub
Private Sub txtSQLStatement_Change()
  cmdExecuteSQL.Enabled = Len(txtSQLStatement.Text) > 0
End Sub
Private Sub cmdExecuteSQL_Click()
  If Len(txtSQLStatement.Text) = 0 Then Exit Sub
  OpenQuery txtSQLStatement.Text, True
End Sub
Private Sub Form_Load()
  Me.Caption = FORMCAPTION
  cmdExecuteSQL.Caption = BUTTON1
  cmdClearSQL.Caption = BUTTON2
  cmdSaveQueryDef.Caption = BUTTON3
  txtSQLStatement.Text = GetINIString("SQLStatement", vbNullString)
  Me.Height = Val(GetINIString("SQLWindowHeight", "3000"))
  Me.Width = Val(GetINIString("SQLWindowWidth", "5370"))
  Me.Top = Val(GetINIString("SQLWindowTop", "0"))
  Me.Left = Val(GetINIString("SQLWindowLeft", "3850"))
End Sub
Private Sub Form_Resize()
  On Error Resume Next
  If WindowState <> vbMinimized Then
    txtSQLStatement.Width = Me.ScaleWidth - (txtSQLStatement.Left * 2)
    txtSQLStatement.Height = Me.ScaleHeight - (txtSQLStatement.Top + 50)
  End If
End Sub
Private Sub txtSQLStatement_DragDrop(Source As Control, X As Single, Y As Single)
  If Source = frmDatabase.tvDatabase Then
    frmSQL.txtSQLStatement.Text = gdbCurrentDB.QueryDefs(gnodDBNode.Text).SQL
  End If
End Sub