Programmer 7500/MAX_PROGRAMMERS.iso/VISUAL_B/CODIGO_2/V_BROWSE/BRW001F.FRM

Visual Basic Form | 1993-09-20 | 13.3 KB | 430 lines

VERSION 2.00
Begin Form BRW001F
   BackColor       =   &H00C0C0C0&
   Caption         =   "VBROWSER (c)1993, ETN Corporation"
   ClientHeight    =   5955
   ClientLeft      =   1125
   ClientTop       =   975
   ClientWidth     =   7725
   Height          =   6645
   Icon            =   BRW001F.FRX:0000
   Left            =   1065
   LinkTopic       =   "Form1"
   ScaleHeight     =   5955
   ScaleWidth      =   7725
   Top             =   345
   Width           =   7845
   Begin CommandButton pbtViewJET
      Caption         =   "View &JET"
      Height          =   330
      Left            =   4995
      TabIndex        =   20
      Top             =   4920
      Width           =   1710
   End
   Begin PictureBox picInfo
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   240
      Left            =   7200
      ScaleHeight     =   240
      ScaleWidth      =   2205
      TabIndex        =   11
      Top             =   1020
      Width           =   2205
      Begin Label lblRowNumber
         BackColor       =   &H0080FF80&
         BackStyle       =   0  'Transparent
         Caption         =   "Row Number:"
         Height          =   225
         Left            =   15
         TabIndex        =   13
         Top             =   0
         Width           =   1155
      End
      Begin Label lblRowNum
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Caption         =   "N/A"
         Height          =   240
         Left            =   1200
         TabIndex        =   12
         Top             =   0
         Width           =   900
      End
   End
   Begin PictureBox picStatusBar
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0C0&
      Height          =   465
      Left            =   0
      ScaleHeight     =   435
      ScaleWidth      =   7695
      TabIndex        =   4
      Top             =   5490
      Width           =   7725
   End
   Begin PictureBox picToolBar
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      Height          =   915
      Left            =   0
      ScaleHeight     =   885
      ScaleWidth      =   7695
      TabIndex        =   3
      Top             =   0
      Width           =   7725
      Begin CommonDialog dlgMDB
         DefaultExt      =   "*.MDB"
         Filename        =   "*.MDB"
         Filter          =   "Microsoft Access 1.1 (*.MDB)"
         Left            =   5055
         Top             =   90
      End
      Begin ComboBox clbTypes
         Enabled         =   0   'False
         Height          =   300
         Left            =   945
         Style           =   2  'Dropdown List
         TabIndex        =   22
         Top             =   585
         Width           =   3600
      End
      Begin CommandButton pbtExit
         Caption         =   "E&XIT"
         FontBold        =   -1  'True
         FontItalic      =   -1  'True
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   330
         Left            =   5670
         TabIndex        =   14
         Top             =   90
         Width           =   1185
      End
      Begin ComboBox clbCols
         Height          =   300
         Left            =   945
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   285
         Width           =   3600
      End
      Begin ComboBox clbTbls
         Height          =   300
         Left            =   945
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   -15
         Width           =   3600
      End
      Begin Label lblName
         BackColor       =   &H00C0C0C0&
         Caption         =   "ColType"
         ForeColor       =   &H00000000&
         Height          =   195
         Index           =   2
         Left            =   120
         TabIndex        =   21
         Top             =   630
         Width           =   750
      End
      Begin Label lblName
         BackColor       =   &H00C0C0C0&
         Caption         =   "Columns"
         ForeColor       =   &H00000000&
         Height          =   180
         Index           =   1
         Left            =   120
         TabIndex        =   8
         Top             =   330
         Width           =   750
      End
      Begin Label lblName
         BackColor       =   &H00C0C0C0&
         Caption         =   "Tables"
         ForeColor       =   &H00000000&
         Height          =   180
         Index           =   0
         Left            =   105
         TabIndex        =   7
         Top             =   45
         Width           =   615
      End
   End
   Begin PictureBox picData
      BackColor       =   &H0000FFFF&
      Height          =   615
      Left            =   2895
      ScaleHeight     =   585
      ScaleWidth      =   1740
      TabIndex        =   1
      Top             =   4770
      Visible         =   0   'False
      Width           =   1770
      Begin TextBox txtData
         DataSource      =   "datJET"
         Enabled         =   0   'False
         Height          =   330
         Index           =   0
         Left            =   0
         TabIndex        =   2
         Top             =   -15
         Width           =   1740
      End
      Begin Data datJET
         Connect         =   ""
         DatabaseName    =   "I:\VBROWSER\VBROWSER.MDB"
         Enabled         =   0   'False
         Exclusive       =   0   'False
         Height          =   300
         Left            =   0
         Options         =   0
         ReadOnly        =   0   'False
         RecordSource    =   "tblColumns"
         Top             =   300
         Width           =   1740
      End
   End
   Begin PictureBox picBrowser
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   2565
      Left            =   150
      ScaleHeight     =   2565
      ScaleWidth      =   9300
      TabIndex        =   0
      Top             =   1290
      Width           =   9300
      Begin VScrollBar vsrBrowser
         Height          =   2280
         LargeChange     =   10
         Left            =   8880
         Min             =   1
         TabIndex        =   10
         Top             =   15
         Value           =   1
         Width           =   270
      End
      Begin ListBox lbxBrowser
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Fixedsys"
         FontSize        =   9
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   2280
         Left            =   15
         TabIndex        =   9
         Top             =   15
         Width           =   9135
      End
   End
   Begin PictureBox picNavigate
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   705
      Left            =   2880
      ScaleHeight     =   705
      ScaleWidth      =   3840
      TabIndex        =   15
      Top             =   4005
      Width           =   3840
      Begin CommandButton pbtNext
         Caption         =   "&Next-->"
         Height          =   315
         Left            =   1275
         TabIndex        =   19
         Top             =   195
         Width           =   1215
      End
      Begin CommandButton pbtPageDn
         Caption         =   "Page &DN"
         Height          =   315
         Left            =   2595
         TabIndex        =   18
         Top             =   375
         Width           =   1215
      End
      Begin CommandButton pbtPageUp
         Caption         =   "Page &UP"
         Height          =   315
         Left            =   2595
         TabIndex        =   17
         Top             =   0
         Width           =   1215
      End
      Begin CommandButton pbtPrevious
         Caption         =   "<--&Previous"
         Height          =   315
         Left            =   0
         TabIndex        =   16
         Top             =   195
         Width           =   1215
      End
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuFileItem
         Caption         =   "&Open Microsoft Access 1.1 Database"
         Index           =   0
      End
      Begin Menu mnuFileItem
         Caption         =   "E&xit"
         Index           =   1
      End
   End
   Begin Menu mnuHelp
      Caption         =   "&Help"
      Begin Menu mnuHelpItem
         Caption         =   "&About VBROWSER..."
         Index           =   0
      End
   End
Sub clbCols_Click ()
nIdx% = BRW001F.clbCols.ListIndex
BRW001F.clbTypes.ListIndex = nIdx%
End Sub
Sub clbTbls_Click ()
Dim nFunctRetVal%
Dim nIndex%
If (ngIgnoreTblsClick = True) Then
   Exit Sub
End If
Screen.MousePointer = HOURGLASS_ICON
nIndex% = BRW001F.clbTbls.ListIndex
nFunctRetVal% = BRW001FclbTblsClick%(nIndex%)
Screen.MousePointer = DEFAULT_ICON
End Sub
Sub Form_Load ()
'----------------------------------------------------------------------------
'CAUTION-> the Sort property for lbxBrowser MUST BE FALSE at all times or
'          the user will see a bit of NONSENSE...
'----------------------------------------------------------------------------
ngViewJETFlag = False
BRW001F.datJET.DatabaseName = ""
szMDBTblName$ = ""
BRW001F.datJET.RecordSource = szMDBTblName$
BRW001F.txtData(0) = ""
BRW001F.datJET.Refresh
ngBRWFormTxtInstances = 0
End Sub
Sub lbxBrowser_Click ()
If (ngCurrListIdx <> BRW001F.lbxBrowser.ListIndex) Then
   BRW001F.lbxBrowser.ListIndex = ngCurrListIdx
End If
End Sub
Sub mnuFileItem_Click (Index As Integer)
nIndex% = Index
Select Case nIndex%
   Case 0
      BRW001F.datJET.DatabaseName = ""
      BRW001F.datJET.RecordSource = ""
      BRW001F.datJET.Refresh
      nRetVal% = fntUnloadTxtDataInstances%()
      ngIgnoreTblsClick = True
      BRW001F.lbxBrowser.Clear
      BRW001F.lbxBrowser.Enabled = False
      BRW001F.pbtNext.Enabled = False
      BRW001F.pbtPrevious.Enabled = False
      BRW001F.pbtPageUp.Enabled = False
      BRW001F.pbtPageDn.Enabled = False
      BRW001F.vsrBrowser.Enabled = False
      BRW001F.picData.Visible = False
      BRW001F.pbtViewJET.Caption = "View &JET"
      BRW001F.pbtViewJET.Enabled = False
      BRW001F.dlgMDB.Action = 1
      szMDBDataBasePath$ = BRW001F.dlgMDB.Filename
      BRW001F.datJET.DatabaseName = szMDBDataBasePath$
      BRW001F.datJET.Refresh
      szMDBTblName$ = "UNKNOWN_AT_THIS_TIME"
      nCols% = fntGetMDBTblNames%(szMDBTblName$)
      If (nCols% = False) Then
         '-------------------------------------------------------------------------
         ' NOTE-> number of COLUMNS is ZERO...
         '-------------------------------------------------------------------------
         szMsg$ = "WARNING-> " + szMDBTblName$ + " has NO COLUMNS..."
         MsgBox szMsg$
         ngIgnoreTblsClick = False
         nFunctRetVal% = False
         Exit Sub
      End If
      ngIgnoreTblsClick = False
   Case 1
      pbtExit_Click
End Select
End Sub
Sub mnuHelpItem_Click (Index As Integer)
Dim nIndex%
nIndex% = Index
Select Case nIndex%
   Case 0
      ABOUT01F.Show 1
End Select
End Sub
Sub pbtExit_Click ()
Dim nFunctRetVal%
nFunctRetVal% = BRW001FpbtExitClick%()
End Sub
Sub pbtNext_Click ()
If (BRW001F.vsrBrowser.Value < BRW001F.vsrBrowser.Max) Then
   BRW001F.vsrBrowser.Value = BRW001F.vsrBrowser.Value + 1
End If
End Sub
Sub pbtPageDn_Click ()
nMax% = BRW001F.vsrBrowser.Max
nValue% = BRW001F.vsrBrowser.Value
If (nValue% = nMax%) Then
   Exit Sub
End If
nDelta% = nMax% - nValue%
nLargeChange% = BRW001F.vsrBrowser.LargeChange
If (nDelta% < nLargeChange%) Then
   BRW001F.vsrBrowser.Value = nMax%
   Exit Sub
   BRW001F.vsrBrowser.Value = nValue% + nLargeChange%
   Exit Sub
End If
End Sub
Sub pbtPageUp_Click ()
nMin% = BRW001F.vsrBrowser.Min
nValue% = BRW001F.vsrBrowser.Value
If (nValue% = nMin%) Then
   Exit Sub
End If
nDelta% = nValue% - nMin%
nLargeChange% = BRW001F.vsrBrowser.LargeChange
If (nDelta% < nLargeChange%) Then
   BRW001F.vsrBrowser.Value = nMin%
   Exit Sub
   BRW001F.vsrBrowser.Value = nValue% - nLargeChange%
   Exit Sub
End If
End Sub
Sub pbtPrevious_Click ()
If (BRW001F.vsrBrowser.Value > BRW001F.vsrBrowser.Min) Then
   BRW001F.vsrBrowser.Value = BRW001F.vsrBrowser.Value - 1
End If
End Sub
Sub pbtViewJET_Click ()
If (ngViewJETFlag = False) Then
   BRW001F.picData.Visible = True
   BRW001F.pbtViewJET.Caption = "Hide &JET"
   ngViewJETFlag = True
   BRW001F.picData.Visible = False
   BRW001F.pbtViewJET.Caption = "View &JET"
   ngViewJETFlag = False
End If
End Sub
Sub vsrBrowser_Change ()
Dim nFunctRetVal%
Dim nValue%
nValue% = BRW001F.vsrBrowser.Value
Screen.MousePointer = HOURGLASS_ICON
nFunctRetVal% = BRW001FvsrBrowserChange%(nValue%)
BRW001F.lblRowNum.Caption = Str$(BRW001F.vsrBrowser.Value)
Screen.MousePointer = DEFAULT_ICON
End Sub