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

Visual Basic Form | 1995-07-26 | 6.7 KB | 231 lines

VERSION 4.00
Begin VB.Form frmAddIndex
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Add Index"
   ClientHeight    =   3495
   ClientLeft      =   2970
   ClientTop       =   1665
   ClientWidth     =   5400
   ForeColor       =   &H00000000&
   Height          =   3900
   HelpContextID   =   2016118
   Icon            =   "ADDINDEX.frx":0000
   Left            =   2910
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3476.108
   ScaleMode       =   0  'User
   ScaleWidth      =   5429.725
   Top             =   1320
   Width           =   5520
   Begin VB.CheckBox chkIgnoreNulls
      Caption         =   "IgnoreNulls"
      Height          =   255
      Left            =   3120
      TabIndex        =   5
      Top             =   1320
      Width           =   2188
   End
   Begin VB.CheckBox chkPrimary
      Caption         =   "Primary"
      Height          =   255
      Left            =   3120
      TabIndex        =   3
      Top             =   360
      Value           =   1  'Checked
      Width           =   2188
   End
   Begin VB.TextBox txtIndexName
      BackColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   2775
   End
   Begin VB.TextBox txtFields
      BackColor       =   &H00FFFFFF&
      Height          =   525
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   960
      Width           =   2775
   End
   Begin VB.ListBox lstFields
      BackColor       =   &H00FFFFFF&
      Height          =   1590
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   2
      Top             =   1800
      Width           =   2775
   End
   Begin VB.CheckBox chkUnique
      Caption         =   "Unique"
      Height          =   252
      Left            =   3120
      TabIndex        =   4
      Top             =   840
      Value           =   1  'Checked
      Width           =   2188
   End
   Begin VB.CommandButton cmdOK
      Caption         =   "&OK"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   375
      Left            =   3240
      TabIndex        =   6
      Top             =   2400
      Width           =   1815
   End
   Begin VB.CommandButton cmdClose
      Cancel          =   -1  'True
      Caption         =   "&Close"
      Height          =   375
      Left            =   3240
      TabIndex        =   7
      Top             =   2880
      Width           =   1815
   End
   Begin VB.Label lblLabels
      AutoSize        =   -1  'True
      Caption         =   "Available Fields: "
      Height          =   195
      Index           =   0
      Left            =   120
      TabIndex        =   10
      Top             =   1560
      Width           =   1185
   End
   Begin VB.Label lblLabels
      AutoSize        =   -1  'True
      Caption         =   "Indexed  Fields:"
      Height          =   195
      Index           =   1
      Left            =   120
      TabIndex        =   9
      Top             =   720
      Width           =   1110
   End
   Begin VB.Label lblLabels
      AutoSize        =   -1  'True
      Caption         =   "Name: "
      Height          =   195
      Index           =   2
      Left            =   120
      TabIndex        =   8
      Top             =   120
      Width           =   510
   End
Attribute VB_Name = "frmAddIndex"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub lstFields_Click()
  Dim sTmp As String
  sTmp = txtFields.Text
  If Len(sTmp) = 0 Then
    txtFields.Text = sTmp & lstFields
  Else
    txtFields.Text = sTmp & ";" & lstFields
  End If
  txtFields.Refresh
End Sub
Private Sub txtFields_Change()
  If Len(txtIndexName.Text) > 0 And Len(txtFields.Text) > 0 Then
    cmdOK.Enabled = True
  Else
    cmdOK.Enabled = False
  End If
End Sub
Private Sub txtFields_LostFocus()
  If Len(txtIndexName.Text) > 0 And Len(txtFields.Text) > 0 Then
    cmdOK.Enabled = True
  Else
    cmdOK.Enabled = False
  End If
End Sub
Private Sub txtIndexName_LostFocus()
  If Len(txtIndexName.Text) > 0 And Len(txtFields.Text) > 0 Then
    cmdOK.Enabled = True
  Else
    cmdOK.Enabled = False
  End If
End Sub
Private Sub cmdClose_Click()
  Unload Me
End Sub
Private Sub Form_Load()
  Dim tblTableDef As TableDef
  Dim fld As Field
  Dim i As Integer
  CenterMe Me, gnMDIFORM
  If gbAddTableFlag = True Then
    Me.Caption = Me.Caption & " to " & frmTblStruct.txtTableName
    For i = 0 To frmTblStruct.lstFields.ListCount - 1
      lstFields.AddItem frmTblStruct.lstFields.List(i)
    Next
  Else
    Me.Caption = Me.Caption & " to " & StripConnect(frmTables.lstTables.Text)
    Set tblTableDef = gdbCurrentDB.TableDefs(StripConnect(frmTables.lstTables.Text))
    ListItemNames tblTableDef.Fields, lstFields, False
  End If
  If gsDataType <> gsJETMDB Then
    chkPrimary.Enabled = False
    chkIgnoreNulls.Enabled = False
    chkPrimary.Value = vbGrayed
    chkIgnoreNulls.Value = vbGrayed
  End If
  SetDefaults
End Sub
Private Sub txtIndexName_Change()
  If Len(txtIndexName.Text) > 0 And Len(txtFields.Text) > 0 Then
    cmdOK.Enabled = True
  Else
    cmdOK.Enabled = False
  End If
End Sub
Private Sub cmdOK_Click()
  Dim indIndexObj As Index
  Dim tblTableDefObj As TableDef
  Dim sTmp As String
  On Error GoTo AddIndexErr
  SetHourglass
  Set indIndexObj = gtdfTableDef.CreateIndex(txtIndexName.Text)
  With indIndexObj
    .Fields = txtFields.Text
    .Unique = chkUnique.Value
    If gsDataType = gsJETMDB Then
      .Primary = IIf(chkPrimary.Value, True, False)
      .IgnoreNulls = IIf(chkIgnoreNulls.Value = vbChecked, True, False)
    End If
  End With
  'append the index to the global tabledef
  'from the tblstruct form
  gtdfTableDef.Indexes.Append indIndexObj
  'add the index to the list
  frmTblStruct.lstIndexes.AddItem txtIndexName.Text
  'make the new item active
  frmTblStruct.lstIndexes.ListIndex = frmTblStruct.lstIndexes.NewIndex
  'clear the name and allow entry of another
  SetDefaults
  txtIndexName.SetFocus
  Screen.MousePointer = vbDefault
  Exit Sub
AddIndexErr:
  ShowError
  Exit Sub
End Sub
Private Sub SetDefaults()
  txtIndexName.Text = gsNULL_STR
  If gsDataType = gsJETMDB Then
    txtFields.Text = gsNULL_STR
    chkUnique.Value = vbChecked
  End If
End Sub