home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / IMPTBLS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-08  |  3.1 KB  |  112 lines
  1. VERSION 5.00
  2. Begin VB.Form frmImpTbls 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "
  5.    ClientHeight    =   1560
  6.    ClientLeft      =   2280
  7.    ClientTop       =   3165
  8.    ClientWidth     =   6480
  9.    BeginProperty Font 
  10.       Name            =   "
  11.       Size            =   9
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   2025
  19.    HelpContextID   =   2016130
  20.    Icon            =   "IMPTBLS.frx":0000
  21.    Left            =   2220
  22.    LinkTopic       =   "Form2"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   1560
  27.    ScaleWidth      =   6480
  28.    ShowInTaskbar   =   0   'False
  29.    StartUpPosition =   1  'CenterOwner
  30.    Top             =   2760
  31.    Width           =   6600
  32.    Begin VB.CommandButton cmdClose 
  33.       Cancel          =   -1  'True
  34.       Caption         =   "
  35.       Height          =   375
  36.       Left            =   4920
  37.       MaskColor       =   &H00000000&
  38.       TabIndex        =   2
  39.       Top             =   1080
  40.       Width           =   1455
  41.    End
  42.    Begin VB.CommandButton cmdImport 
  43.       Caption         =   "
  44.       Default         =   -1  'True
  45.       Enabled         =   0   'False
  46.       Height          =   375
  47.       Left            =   4920
  48.       MaskColor       =   &H00000000&
  49.       TabIndex        =   1
  50.       Top             =   480
  51.       Width           =   1455
  52.    End
  53.    Begin VB.ListBox lstTables 
  54.       Height          =   480
  55.       Left            =   120
  56.       TabIndex        =   0
  57.       Top             =   480
  58.       Width           =   4695
  59.    End
  60.    Begin VB.Label lblLabel1 
  61.       AutoSize        =   -1  'True
  62.       Caption         =   "
  63.       Height          =   195
  64.       Left            =   120
  65.       TabIndex        =   3
  66.       Top             =   120
  67.       Width           =   720
  68.    End
  69. Attribute VB_Name = "frmImpTbls"
  70. Attribute VB_Base = "0{529A4495-C9E1-11CF-9ED2-00AA00574745}"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_TemplateDerived = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76. Attribute VB_Customizable = False
  77. Option Explicit
  78. '>>>>>>>>>>>>>>>>>>>>>>>>
  79. Const FORMCAPTION = "
  80. Const Label1 = "
  81. Const BUTTON1 = "
  82. (&I)"
  83. Const BUTTON2 = "
  84. (&C)"
  85. '>>>>>>>>>>>>>>>>>>>>>>>>
  86. Private Sub cmdClose_Click()
  87.   Unload Me
  88. End Sub
  89. Private Sub cmdImport_Click()
  90.   Import (lstTables.Text)
  91. End Sub
  92. Private Sub lstTables_Click()
  93.   cmdImport.Enabled = True
  94. End Sub
  95. Private Sub lstTables_DblClick()
  96.   Call cmdImport_Click
  97. End Sub
  98. Private Sub Form_Load()
  99.   Dim tdf As TableDef
  100.   Dim i As Integer
  101.   Me.Caption = FORMCAPTION
  102.   lblLabel1.Caption = Label1
  103.   cmdImport.Caption = BUTTON1
  104.   cmdClose.Caption = BUTTON2
  105.   lstTables.Clear
  106.   For Each tdf In gImpDB.TableDefs
  107.     If (tdf.Attributes And dbSystemObject) = 0 Then
  108.       lstTables.AddItem tdf.Name
  109.     End If
  110.   Next
  111. End Sub
  112.