Programmer 7500

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

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / V_XBASE / VXBEZY.ZIP / VXBTUT2.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-04-13 | 8.9 KB | 294 lines

vxbtut2 Business Card Directory Edit Form3% ButtonCancel &Cancel ButtonSave &Save ButtonMemo &Memo Edit Picture2 AsBox CrBox AcBox FaBox PhBox ZiBox CyBox StBox CiBox A2Box A1Box TiBox NaBox CoBox Picture1 % StateHelp Label13 Date, #Access Label12 Activity Label10 Phone, Fax Label8 Country, Zip Label7 State Label6 Label5 Address 2 Label4 Address 1 Label3 Title Label2 Label1 Company Form_Click Form_Load EditMode ADDING CoBox Text# vxFieldy NaBox TiBoxM A1Box A2Box CiBox StBox CyBoxu ZiBox PhBox FaBox AcBox CrBox vxDateFormatH AsBox vxInteger vxFieldTrim8 vxSelectDbf DbfAreaQ Form_Paint vxFormFrame vxbtut2 vxCtlStyle Picture1 VX_RAISEa Picture2E Form_ResizeM Form_Unloadj CancelH ButtonCancel_Click/ CoBox_Change CoBox_GotFocus vxCtlLength NaBox_Change NaBox_GotFocus TiBox_Change{ TiBox_GotFocus/ A1Box_Change A1Box_GotFocusA A2Box_Change A2Box_GotFocusc CiBox_Change CiBox_GotFocuss StBox_Change StBox_GotFocus& vxCtlFormat VX_UPPER CyBox_Change CyBox_GotFocus ZiBox_ChangeX PhBox_Change PhBox_GotFocusn FaBox_Changeh FaBox_GotFocus AcBox_Change AcBox_GotFocus ButtonSave_Click vxAppendBlankw vxReplString vxReplDate vxReplInteger vxWrite vxWriteHdr\ vxbtut0 StatBar vxRecNo StateHelp_Click VXFORM3G EnabledA FALSEF StateReturn& vxBrowse vxStateDbf vxState1Ntx CustReturn SaveReturn CustStatee vxClientDbf StatesDbf StateDbf StateNtx CANCELLED vxSetSelect DELETINGn UPDATING vxDeleteRec vxTop vxEof" DeleRecW StateHelp ButtonMemo ButtonSave ButtonCancel5 vxLockRecord vxUnlock ButtonMemo_Click RecNum vxMemoEdit Form_LostFocus ZiBox_GotFocus< vxFieldSize vxLoackRecord+ vxWindowDereg BrowseRunning StBox_LostFocus TiBox_LostFocus Picture1_Click Label8_Click Label13_Click StBox_KeyPress KeyAsciiv StBox_DragDrop Source Control StBox_DragOverP State StBox_KeyDown KeyCode Shift StBox_LinkClose StBox_LinkError LinkErr Label3 VX_RECESS Label9 Text1 Frame1_DragDrop Frame1 A1Box_GotFocus set length only. Any format acceptablea address1 A2Box_GotFocus set length only. Any format acceptable- address2 AcBox_GotFocus force activity to upper to achievei data entry consistency as this is ans indexed field activity ButtonCancel_Click change global switch to tellt caller we cancelled the operation and unload the form ButtonMemo_Click edit memo attached to this dbf record save dbf rec number bmemo reset rec pointer the saving of the record number and thent going to same after the memo edit ist ABSOLUTELY necessary. ButtonSave_Click if adding we append a blank record and set up the creation date field and initialize the access field cdate dd-mmm-yyyy accesses if updating, bump the accesses counterc accesses accesses Sorry. Can't lock record! replace the field data with text box data company title address1 address2 state country zipcode phone activity commit the record to the disk CiBox_GotFocus set length only. Any format acceptable- CoBox_GotFocus set length only. Any format acceptable- company CyBox_GotFocus force country to uppercase- country FaBox_GotFocus Form_Load register default database if not adding, fill text boxes with record data Editing record company title address1 address2 state country zipcode phone activity cdate accesses ####0 dd-mmm-yyyy Adding new record disable memo edit because we can'te edit a memo until we have a record added Form_Paint register database with this window make form 3-d Form_Resize if form is resized, redraw so old frame is erased Form_Unload when form is unloaded, clear stat bar and re-enable buttons deregister the window to clearl window and ctl format memorym NaBox_GotFocus PhBox_GotFocus phone StateHelp_Click example of using vxBrowse to create a help pick list State/Prov Codes after vxbtut2 is enabled, we must selectS states file again because it hasn't beenv registered with vxbtut2 and the "vxfield" statement to extract the statecode would" fail because "vxfield" accesses the databased that is currently registered with vxbtut2 if the user selected an item from the states file, StateReturn will be greater than zero (it will contain the selected record's number) so we can plug the data entry box with the selected valuea statecode now reselect our master databaseb set the focus to the state data entry box StBox_GotFocus state TiBox_GotFocus title ZiBox_GotFocus zipcode