Master 95 #1/MASTER95_1.iso/microsof/vbasic4/vb4-6.cab/tables.frm

Visual Basic Form | 1995-07-26 | 6.1 KB | 203 lines

VERSION 4.00
Begin VB.Form frmTables
   Caption         =   "Tables"
   ClientHeight    =   3105
   ClientLeft      =   2220
   ClientTop       =   1815
   ClientWidth     =   3735
   Height          =   3510
   HelpContextID   =   2016146
   Icon            =   "TABLES.frx":0000
   Left            =   2160
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   3105
   ScaleMode       =   0  'User
   ScaleWidth      =   3735
   Top             =   1470
   Width           =   3855
   Begin VB.OptionButton optQueryDefs
      Caption         =   "QueryDefs"
      Height          =   241
      Left            =   1560
      TabIndex        =   6
      Top             =   563
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.OptionButton optTables
      Caption         =   "Tables"
      Height          =   241
      Left            =   120
      TabIndex        =   5
      Top             =   563
      Value           =   -1  'True
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.ListBox lstQueryDefs
      BackColor       =   &H00FFFFFF&
      DragIcon        =   "TABLES.frx":030A
      Height          =   2010
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   1
      Top             =   840
      Visible         =   0   'False
      Width           =   3495
   End
   Begin VB.CommandButton cmdNew
      Caption         =   "&New"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   1095
   End
   Begin VB.CommandButton cmdDesign
      Caption         =   "&Design"
      Height          =   375
      Left            =   2520
      TabIndex        =   4
      Top             =   120
      Width           =   1095
   End
   Begin VB.CommandButton cmdOpen
      Caption         =   "&Open"
      Default         =   -1  'True
      Height          =   375
      Left            =   1320
      TabIndex        =   3
      Top             =   120
      Width           =   1095
   End
   Begin VB.ListBox lstTables
      BackColor       =   &H00FFFFFF&
      Height          =   2010
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   855
      Width           =   3495
   End
Attribute VB_Name = "frmTables"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim mbFromDblClick As Integer
Private Sub Form_DblClick()
  gdbCurrentDB.TableDefs.Refresh
  RefreshTables frmTables.lstTables, True
End Sub
Private Sub lstQueryDefs_DblClick()
  Call cmdOpen_Click
  mbFromDblClick = True
End Sub
Sub lstQueryDefs_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  If Button = 1 Then
    'test flag to see if use dbl clicked
    If mbFromDblClick = False Then
      lstQueryDefs.Drag
    Else
      mbFromDblClick = False
    End If
  Else
    If SetPropItem(lstQueryDefs, Y) = False Then Exit Sub
    frmMDI.mnuPUZap.Visible = False
    frmMDI.mnuPUCopyStruct.Visible = False
    Me.PopupMenu frmMDI.mnuPopUp, 6, lstQueryDefs.Left + lstQueryDefs.Width \ 2
  End If
End Sub
Private Sub lstQueryDefs_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
  lstQueryDefs.Drag vbCancel
End Sub
Private Sub lstTables_DblClick()
  Call cmdOpen_Click
End Sub
Sub lstTables_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  If Button <> 2 Then Exit Sub
  If SetPropItem(lstTables, Y) = False Then Exit Sub
  frmMDI.mnuPUZap.Visible = True
  frmMDI.mnuPUCopyStruct.Visible = True
  If frmMDI.mnuPUPack.Visible = True Then
    frmMDI.mnuPUPack.Enabled = True
  End If
  Me.PopupMenu frmMDI.mnuPopUp, 6, lstTables.Left + lstTables.Width \ 2
End Sub
Private Sub Form_Load()
  On Error Resume Next
  Me.Height = Val(GetINIString("TBLWindowHeight", "3870", gsVISDATA4))
  Me.Width = Val(GetINIString("TBLWindowWidth", "3835", gsVISDATA4))
  Me.Top = Val(GetINIString("TBLWindowTop", "0", gsVISDATA4))
  Me.Left = Val(GetINIString("TBLWindowLeft", "0", gsVISDATA4))
End Sub
Private Sub Form_Resize()
  On Error Resume Next
  If WindowState <> 1 Then
    lstTables.Height = Me.Height - 1350
    lstTables.Width = Me.Width - 320
    lstQueryDefs.Height = Me.Height - 1350
    lstQueryDefs.Width = Me.Width - 320
  End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Me.WindowState = 1
  Cancel = True
End Sub
Private Sub cmdNew_Click()
  If gbDBOpenFlag = False Then
    MsgBox "No Database Open", 48
    Exit Sub
  End If
  If optTables.Value = True Then
    gbAddTableFlag = True
    SetHourglass
    frmTblStruct.Show vbModal
  Else
    'load the query form to help build a query
    Unload frmQuery      'just to clear things out
    frmQuery.Show
  End If
End Sub
Private Sub cmdOpen_Click()
  On Error Resume Next
  If gbDBOpenFlag = False Then
    MsgBox "No Database Open", 48
    Exit Sub
  End If
  gbFromSQL = False
  SetHourglass
  If optTables.Value = True Then
    OpenTable StripConnect(lstTables.Text)
  Else
    OpenQuery lstQueryDefs.Text
  End If
  Screen.MousePointer = vbDefault
  MsgBar gsNULL_STR, False
End Sub
Private Sub cmdDesign_Click()
  On Error Resume Next
  If lstTables.ListIndex < 0 Then Exit Sub
  If gbDBOpenFlag = False Then
    MsgBox "No Database Open", 48
    Exit Sub
  End If
  If optTables.Value = True Then
    gbAddTableFlag = False
    SetHourglass
    frmTblStruct.Show vbModal
  Else
    'copy the sql from the querydef to the SQL window
    frmSQL.txtSQLStatement.Text = gdbCurrentDB.QueryDefs(frmTables.lstQueryDefs.Text).SQL
  End If
End Sub
Sub optQueryDefs_Click()
  lstTables.Visible = False
  lstQueryDefs.Visible = True
End Sub
Sub optTables_Click()
  lstQueryDefs.Visible = False
  lstTables.Visible = True
End Sub