home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
browse_2
/
brwdgen.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1995-02-26
|
8KB
|
198 lines
BrwdGen
Generic Database Browse Example
Form1%
CommStart
Start &Browse
DbfName
DbfLbl
|Enter the database name, including the full path and drive if required. The .DBF extension will be assummed if none is given
mnuExit
E&xit!
mnuIndex
&Index
mnuSeek
See&k
mnuScope
&Scope
MnuScp1
&Show all beginning with...
MnuScp2
&Ranged Scope...
mnuPseudoFilter
Pseudo-&Filter
mnuPrint
&Print
lBrowsingT
Brw1_GetLine
cLine
GetField
Brw1_HitBottom
Brw1_HitTop
CommStart_Click@
cFile'
cHdrp
DbfName
TextW
vxFile
vxUseDbfRO
MB_ICONEXCLAMATION
vxFieldCountf
vxFieldNameu
vxFieldType
vxFieldSize
Cols1
ColWidth;
Headerh
DbfLblR
Visible
CommStart5
mnuIndex
Enabled
mnuPrint
Width
BrwdGenz
ScaleWidthn
Height
ScaleHeight
Form_Load
Form_ResizeG
vxFieldH
vxDateString
VX_AMERICANV
vxTrue
vxMemoRead
mnuExit_Click
mnuIndex_Click
cIndext
mnuScopez
mnuPseudoFilter
vxSelectDbf
vxUseNtx
mnuPrint_Click>
nPage^
nRowHg
lHitBottom
vxDbfName
EmptyFile
MB_OKCANCEL
MBDEFBUTTON2
IDCANCEL
Action
BRW_ACT_GOTOPn
Printer%
BRW_ACT_DOWN
vxEofD
HitBottom
CurrentY)
mnuPseudoFilter_Clickb
cFilter
FilterExp
mnuScope_Click
cScope
vxNtxExpr5
vxNtxCurrent
IndexExp
vxRecno
PageR
mnuSeek
Fasle|
mnuSeek_Click
SearchKey
GenPrnt
lPreview
lPrintAll
PrntPrev
control
PictP7
vxSkip
nRec?
PrntAll-
PrntPage
lSomePrinted
lPrintPageO
lPrint
MODAL
ComNextPage
BRW_ACT_REFRESHALL
EndI!
GenPrint
ComPrintPage
ComPrntPage
CurrentX
Brw1_ClickL
Brw1_DblClickU
PrntWait
lblPrntWait
Caption`
MnuScp1_Clickq
MnuScp2_Click
cFrom
IndexExp2
Brw1_EditValid
cField
Brw1_EditWhen
lCancel0
ColAlign
ColEdit
ColField
Brw1_EditReplFail
vxUseDbf
BRW_ACT_REFRESHLINE
SColor
SpcColor
cPath_
CatCnt
PrdCnt
declare as module global the no of fields and some:
dynamic arrays: field names, types and lengthss
Brw1_GetLine
Brw1_HitBottom
Brw1_HitTop
CommStart_Click
Something wrong with the file
This is not a Clipper/Fox/dBase3 compatible database file:
Browsing
Form_Load
Form_Resize
GetField
char or num field
date field
logical field
mnuExit_Click
mnuIndex_Click
Enter the index file (NTX extension assumed) full path and name
Index open
closing the current index
Something wrong with the file
This is not a Clipper compatible index file:
the GoTop is implicit
mnuPrint_Click
file is empty!
All the records you selected from
are ready to be sent to print
Print
Printing now the selected records from
= print one page
print page header
mmmm dd, yyyy
Page
Printing now selected records from
print column headersw
print items on this page
user interrupted printing
mnuPseudoFilter_Click
Enter a correct xBase expression:
Pseudo-Filter Expression
MnuScp1_Click
Current index key is
Enter the Scope expression
MnuScp2_Click
Current index key is
Enter the FROM Scope:
Enter the TO Scope:
mnuSeek_Click
The current index key is
Enter a string to search for:
Found!
Not Found!