home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
timetrak
/
ttrak.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-09-18
|
7KB
|
149 lines
ttrak
Project Time Tracking
Form1,
Label1
Project
Tms Rmn
Frame1
information
Label2
Hours
hours
Label3
workdate
Label4
project
addbtn
Label6
Last Entry
Tms Rmn
lastdate
delbtn
DELETE
Label7
Total Entries
Tms Rmn
totentry
exitbtn
Label5
Total Hours
Tms Rmn
tothours
printbtn
Print
about
&About...
addbtn_Click3
Form_ClickW
Form_Load
loadFlag
PX_LOADEDk
PXInitB
PXSHARED
PXErrorw
Load_Dbase
searchVal
partlist
listcount
ptype
PXPutAlpha
compRecZ
PXSrchKey
compTbl
SEARCHFIRST
PXERR_RECNOTFOUND
PXERR_ENDOFTABLE
PXRecGet
GetField
returnFld
SEARCHNEXT
PXOpen
ttrakTbl
ttrakRec
projectK
exitbtn_Click
PXExit
PXNext
savprojR
tindex
PXRecFirst
TblHnd
RecHnd
project_Change
project_Click
PXCrchKeys
tothours
lastdate
hours
workdate
delbtn_Click;
tempproj5
PXRecDelete
remove
listindex
aValue/
PutField
lValue
vDate@
Gen_Date
MBOKS
PXRecAppendx
savhoursk
flag1
PXRecUpdate`
PXSrchFld
caption
PXSUCCESS
newproj
recnbrv
PXPutShort
PXClose
PXTblClose
PXRecBufClose
Get_Header
Put_Header#
Create_Header
Put_Record
totentry
printbtn_Click
report1g
select1X
prtselect
printselect
projectName
VBPATH
DBPATH
about_Click
ttrakabt
exitsub
addflag
dkey1
dkey2>
Form_Load
timetrak
PXOpen "timetrak", ttrakTbl, ttrakRec
timetrak
Do While project.listcountF
project.RemoveItem 0t
Loope
exitbtn_Click
project_Click
No Header Rec. Create one?
Get Header
delbtn_Click
addbtn_Click
Must enter Project Name"
Warning"
project_Change
Get_Header
Put_Header
Invalid Date
Date Check
Create_Header
if 1 then add to project liste
Put_Record
Invalid Date
Date Check
printbtn_Click
about_Click