Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / VBDB110.ZIP / SAMPLE.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1991-08-09 | 7.1 KB | 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