home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
v_browse
/
brw001f.frm
< prev
next >
Wrap
Text File
|
1993-09-20
|
14KB
|
448 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
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
Else
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
Else
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
Else
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
