home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
vbdb
/
sample.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-08-09
|
7KB
|
222 lines
Rollodex
Sample Address Book
Form2*
Text1
Record
Fname
Label1
&First name:
&Save
Lname
Marquis
Label2
Last &name:
Contact
02/06/1961
Label3
Last &contact:
Address
135 Chestnut Street
Label4
&Address:
E&xit
Bridgewater
Label5
&City:
State
Label6
&State:
08807
Label10
Record no:
ThisRec
Label7
&Zip code:
HomePhone
(908) 707-1316
Label8
&Home phone:
WorkPhone
(908) 707-1316
Label9
&Work phone:
Fname_Change
Form_Click
Form_LinkClose
Form_LinkErrore
LinkErr,
Form_LinkExecute
CmdStrK
Cancel6
Form_LinkOpenR
@ Form_Load
LogonServer
StatusT
OpenDataBase
FileName
Handlej
DBFHandle
Decimal
ftype1
FName
OffSet
CreateDataBase
NewDbfName
VScroll1_Change
StatusDBF
dbftype
DBTPtr
NumRecs
NumFlds
RecLen
UpDate
RolloDex
RecordR
GetRecord
RecData@
DisplayRecordD
RecNum
GetField
FldNum1
FldName
FldData
Text,
LName
Contact
Address
State
HomePhone
WorkPhone
OpenDBF
CreateDBF
GetRECM
GetFLDb
File__Clicki
Save_Click
Lname_Change
Record_Change]
Label1_Clickm
Label2_Click}
Label3_Click
Label4_Click
Label5_Click
Label6_Click
Label7_Click
Label8_Click
Label9_Clicku
State_Change
Text1_Change
WorkPhone_Change
Zip_Change
Address_Change
City_Change
Contact_Change
Delete_Click
File_Exit_Click
HomePhone_Change
PutFLD
PutRec
Value
@ New_Click
@ ClearForm
SaveForm
fldata{
Quit_ClickW
EndProgram
CloseDBF
LogOffServer
OrigRec
Fname_LostFocus
Fname_LinkClose
Fname_LinkError
Fname_LinkOpenJ
City_LostFocus
City_LinkClose
City_LinkError
City_LinkOpen?
Lname_LostFocusR
Contact_LostFocus
Address_LostFocus(
State_LostFocus
Zip_LostFocus
WorkPhone_LostFocus
HomePhone_LostFocus
GetFLDS
ThisRecj
--- make the database handle a shared variable
Form_Load
Open the database if, if unsucessful then
create itd
--- logon the server
--- open the database
ROLLODEX.DBF
--- if can't open it, then create it
nine fields
length
character field
FIRSTNAME"
field name
length
character fielda
LASTNAME
field name
length
character fielde
CONTACT"
field name
length
character fielda
ADDRESS"
field name
length
character fielda
field name
length
character fielda
STATE"
field name
length
character fielda
field name
length
character fielda
HOMEPHONE"
field name
length
character fielda
WORKPHONE"
field name
--- if any errors end programe
Can't open rollodex"
Error
--- get dbf's statistics
--- fix up for scroll bar
--- assign min & max values to scroll bar
DisplayRecord
Save_Click
Record_Change
Display the next record
New_Click
Makes a new record
ClearForm
Clears out a formd
SaveForm
Saves a database record to the database.
Field data is saved as you tab between
fields!
--- save the record
--- get dbf's statistics
record added
Quit_Click
EndProgram
Close database, unload server and exit program
Fname_LostFocus
Lname_LostFocus
Contact_LostFocus
Address_LostFocus
City_LostFocus
State_LostFocus
Zip_LostFocus
WorkPhone_LostFocus
HomePhone_LostFocus