home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / imptbls.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.3 KB  |  83 lines
  1. VERSION 4.00
  2. Begin VB.Form frmImpTbls 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Import Tables"
  5.    ClientHeight    =   1560
  6.    ClientLeft      =   2280
  7.    ClientTop       =   3165
  8.    ClientWidth     =   6480
  9.    Height          =   1965
  10.    HelpContextID   =   2016130
  11.    Icon            =   "IMPTBLS.frx":0000
  12.    Left            =   2220
  13.    LinkTopic       =   "Form2"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1560
  18.    ScaleWidth      =   6480
  19.    Top             =   2820
  20.    Width           =   6600
  21.    Begin VB.CommandButton cmdClose 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "Close"
  24.       Height          =   375
  25.       Left            =   4920
  26.       TabIndex        =   2
  27.       Top             =   1080
  28.       Width           =   1455
  29.    End
  30.    Begin VB.CommandButton cmdImport 
  31.       Caption         =   "Import"
  32.       Default         =   -1  'True
  33.       Enabled         =   0   'False
  34.       Height          =   375
  35.       Left            =   4920
  36.       TabIndex        =   1
  37.       Top             =   480
  38.       Width           =   1455
  39.    End
  40.    Begin VB.ListBox lstTables 
  41.       Height          =   1005
  42.       Left            =   120
  43.       TabIndex        =   0
  44.       Top             =   480
  45.       Width           =   4695
  46.    End
  47.    Begin VB.Label Label1 
  48.       AutoSize        =   -1  'True
  49.       Caption         =   " Tables in "
  50.       Height          =   195
  51.       Left            =   120
  52.       TabIndex        =   3
  53.       Top             =   120
  54.       Width           =   735
  55.    End
  56. Attribute VB_Name = "frmImpTbls"
  57. Attribute VB_Creatable = False
  58. Attribute VB_Exposed = False
  59. Option Explicit
  60. Private Sub cmdClose_Click()
  61.   Unload Me
  62. End Sub
  63. Private Sub cmdImport_Click()
  64.   Import (lstTables.Text)
  65. End Sub
  66. Private Sub lstTables_Click()
  67.   cmdImport.Enabled = True
  68. End Sub
  69. Private Sub lstTables_DblClick()
  70.   Call cmdImport_Click
  71. End Sub
  72. Private Sub Form_Load()
  73.   Dim tdf As TableDef
  74.   Dim i As Integer
  75.   CenterMe Me, gnMDIFORM
  76.   lstTables.Clear
  77.   For Each tdf In gImpDB.TableDefs
  78.     If (tdf.Attributes And dbSystemObject) = 0 Then
  79.       lstTables.AddItem tdf.Name
  80.     End If
  81.   Next
  82. End Sub
  83.