Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/patchfix/dbpatch/mainform.frm

Visual Basic Form | 1995-05-16 | 5.4 KB | 188 lines

VERSION 2.00
Begin Form MainForm
   BackColor       =   &H8000000F&
   Caption         =   "IPS MDB Database Patch"
   ClientHeight    =   2865
   ClientLeft      =   1740
   ClientTop       =   3300
   ClientWidth     =   7305
   Height          =   3240
   Icon            =   MAINFORM.FRX:0000
   Left            =   1695
   LinkTopic       =   "Form2"
   ScaleHeight     =   2865
   ScaleWidth      =   7305
   Top             =   2970
   Width           =   7395
   Begin ListBox PatchModules
      Height          =   1200
      Left            =   75
      TabIndex        =   18
      Top             =   9180
      Width           =   2970
   End
   Begin ListBox PatchMacros
      Height          =   1200
      Left            =   75
      TabIndex        =   17
      Top             =   7935
      Width           =   2970
   End
   Begin ListBox PatchReports
      Height          =   1200
      Left            =   75
      TabIndex        =   16
      Top             =   6690
      Width           =   2970
   End
   Begin ListBox PatchForms
      Height          =   1200
      Left            =   75
      TabIndex        =   15
      Top             =   5430
      Width           =   2970
   End
   Begin ListBox PatchQueries
      Height          =   1200
      Left            =   75
      TabIndex        =   14
      Top             =   4185
      Width           =   2970
   End
   Begin ListBox PatchTables
      Height          =   1200
      Left            =   75
      TabIndex        =   13
      Top             =   2925
      Width           =   2970
   End
   Begin ListBox InputModules
      Height          =   1200
      Left            =   4275
      TabIndex        =   12
      Top             =   9180
      Width           =   2970
   End
   Begin ListBox InputMacros
      Height          =   1200
      Left            =   4275
      TabIndex        =   11
      Top             =   7935
      Width           =   2970
   End
   Begin ListBox InputReports
      Height          =   1200
      Left            =   4275
      TabIndex        =   10
      Top             =   6690
      Width           =   2970
   End
   Begin ListBox InputForms
      Height          =   1200
      Left            =   4275
      TabIndex        =   9
      Top             =   5445
      Width           =   2970
   End
   Begin ListBox InputQueries
      Height          =   1200
      Left            =   4275
      TabIndex        =   8
      Top             =   4185
      Width           =   2970
   End
   Begin ListBox InputTables
      Height          =   1200
      Left            =   4275
      TabIndex        =   7
      Top             =   2925
      Width           =   2970
   End
   Begin SSPanel MainFormBak
      Align           =   1  'Align Top
      BackColor       =   &H8000000F&
      BevelWidth      =   2
      Font3D          =   0  'None
      Height          =   2880
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7305
      Begin TextBox InputLink
         Height          =   1170
         Left            =   4260
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   4
         Text            =   "Text1"
         Top             =   1635
         Visible         =   0   'False
         Width           =   2955
      End
      Begin TextBox PatchLink
         Height          =   1170
         Left            =   60
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   6
         Text            =   "Text1"
         Top             =   1635
         Visible         =   0   'False
         Width           =   2895
      End
      Begin CommandButton ExitButton
         Caption         =   "E&xit"
         Height          =   405
         Left            =   3045
         TabIndex        =   2
         Top             =   2205
         Width           =   1140
      End
      Begin SSCommand PatchButton
         Caption         =   "&Patch DB"
         Font3D          =   0  'None
         Height          =   1365
         Left            =   210
         Picture         =   MAINFORM.FRX:0302
         TabIndex        =   1
         Top             =   225
         Width           =   1305
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "You will be prompted for the location of the database file to be patched."
         Height          =   465
         Left            =   1965
         TabIndex        =   5
         Top             =   1035
         Width           =   3315
      End
      Begin Label Label1
         BackStyle       =   0  'Transparent
         Caption         =   "Click on the button at left to begin the Database Patch Process."
         Height          =   465
         Left            =   2010
         TabIndex        =   3
         Top             =   360
         Width           =   3315
      End
   End
Option Explicit
Sub ExitButton_Click ()
   DBClose
   End
End Sub
Sub Form_Load ()
   CenterForm Me
   InputDBOpen = False
   PatchDBOpen = False
End Sub
Sub Form_Unload (Cancel As Integer)
   DBClose
   Set MainForm = Nothing
   End
End Sub
Sub PatchButton_Click ()
   Call PatchDatabase
End Sub