home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / SQLScripte2866610122001.psc / SelectTables.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-12  |  2.8 KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSelectTables 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Select Tables to Create Insert Scripts for"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   6030
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   6030
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.CommandButton cmdSelect 
  16.       Caption         =   "Invert"
  17.       Height          =   375
  18.       Index           =   2
  19.       Left            =   4680
  20.       TabIndex        =   5
  21.       Top             =   2760
  22.       Width           =   1215
  23.    End
  24.    Begin VB.CommandButton cmdSelect 
  25.       Caption         =   "Unselect All"
  26.       Height          =   375
  27.       Index           =   1
  28.       Left            =   4680
  29.       TabIndex        =   4
  30.       Top             =   2280
  31.       Width           =   1215
  32.    End
  33.    Begin VB.CommandButton cmdSelect 
  34.       Caption         =   "Select All"
  35.       Height          =   375
  36.       Index           =   0
  37.       Left            =   4680
  38.       TabIndex        =   3
  39.       Top             =   1800
  40.       Width           =   1215
  41.    End
  42.    Begin VB.ListBox lstTables 
  43.       Height          =   2985
  44.       Left            =   120
  45.       Style           =   1  'Checkbox
  46.       TabIndex        =   2
  47.       Top             =   120
  48.       Width           =   4455
  49.    End
  50.    Begin VB.CommandButton CancelButton 
  51.       Caption         =   "Cancel"
  52.       Height          =   375
  53.       Left            =   4680
  54.       TabIndex        =   1
  55.       Top             =   600
  56.       Width           =   1215
  57.    End
  58.    Begin VB.CommandButton OKButton 
  59.       Caption         =   "OK"
  60.       Height          =   375
  61.       Left            =   4680
  62.       TabIndex        =   0
  63.       Top             =   120
  64.       Width           =   1215
  65.    End
  66. Attribute VB_Name = "frmSelectTables"
  67. Attribute VB_GlobalNameSpace = False
  68. Attribute VB_Creatable = False
  69. Attribute VB_PredeclaredId = True
  70. Attribute VB_Exposed = False
  71. Option Explicit
  72. Option Compare Text
  73. DefInt A-Z
  74. Private Sub CancelButton_Click()
  75.     lstTables.Clear
  76.     Me.Hide
  77. End Sub
  78. Private Sub cmdSelect_Click(Index As Integer)
  79.     Dim i As Integer
  80.     Select Case Index
  81.         Case 0 ' select all
  82.             For i = 0 To lstTables.ListCount - 1
  83.                 lstTables.Selected(i) = True
  84.             Next
  85.         Case 1 ' unselect
  86.             For i = 0 To lstTables.ListCount - 1
  87.                 lstTables.Selected(i) = False
  88.             Next
  89.         Case 2 ' invert
  90.             For i = 0 To lstTables.ListCount - 1
  91.                 lstTables.Selected(i) = Not lstTables.Selected(i)
  92.             Next
  93.     End Select
  94. End Sub
  95. Private Sub OKButton_Click()
  96.     Me.Hide
  97. End Sub
  98.