Asymetrix Demo

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

/ Asymetrix Demo / Asymetrix.iso / prg / mtb30 / samples / whowhere.tbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1994-07-11 | 282.1 KB | 3,974 lines

tool bar search Photo showSearch updateBMP buttonClick Search statusBar mouseEnter statusBar mouseLeave buttonClick showSearch FALSE updateBMP B"Photo" statusBar = " First .&+ +E .&+ +E first dirtyPage WcurrentRecord DBTable DisPXNetTableChanged PupdateDisplay ;?DBDirty DBTable refreshPXNetTable buttonClick Go to first record statusBar mouseEnter statusBar mouseLeave buttonClick = TRUE DBTable = isPXNetTableChanged( refreshPXNetTable( DBDirty dirtyPage -- The ttwo statements are compiled identically -- " ..." the same %" ... = ...". -- Properties functions ]referenced ?way, -- so "prop ewhether -- they a property. -- See handlers currentRecord () = " updateDisplay = FALSE statusBar = "Go record" .&+ +E .&+ +E dirtyPage WcurrentRecord DBTable DisPXNetTableChanged PupdateDisplay ;?DBDirty DBTable refreshPXNetTable buttonClick Go to last record statusBar mouseEnter statusBar mouseLeave buttonClick = TRUE DBTable = isPXNetTableChanged( refreshPXNetTable( DBDirty dirtyPage -- The ttwo statements are compiled identically -- " ..." the same %" ... = ...". -- Properties functions ]referenced ?way, -- so "prop ewhether -- they a property. -- See handlers currentRecord () = " updateDisplay = FALSE o= 1 0 -- statusBar = "Go Jrecord" buttonClick Get help statusBar mouseEnter statusBar mouseLeave buttonClick help 0 -- same statusBar = "Get update/index Update newState Index showIndex buttonClick enterPage statusBar Add, change, and delete indexes mouseEnter statusBar mouseLeave buttonClick showIndex notifyAfter oenabled FALSE statusBar "Add, change, delete indexes" newState Delete newState Restore Cancel cancel Continue <?DBDirty FALSE Save Record editRestore tool bar Photo updateBMP editDB editFlag Restoring will lose the data for the new record. buttonClick Restore the current record statusBar mouseEnter statusBar mouseLeave enterPage buttonClick 4s_dbDirty Jbar" "Save Record" "Restoring will lose the data qrecord." \ f"Continue" "Cancel" editFlag FALSE editRestore [DBDirty updateBMP B"Photo" "editDB" focusWindow oenabled statusBar = " current notifyAfter search enterPage Browse noPicture Previous First browse delete index restore update deleteDisabled updateDisabled indexDisabled restoreDisabled question DisplayDB EditDB Index ctrlID dialog ctrlID Names buttonDoubleClick w, #? w, #? .&+ + Last_Name first fieldValue WcurrentRecord LastFirst Search First_Name WcurrentRecord recordCount listNames buttonClick B"OK" listNames ZLONG currentRecord ZSTRING nameList B"LastFirst" defaultPage "Search" recordCount fieldValue("Last_Name") & "," && \ $First_Name")& CRLF "Next" G && \ oselectedTextLines LISTBOX TRUE,FALSE,FALSE,FALSE controlProperties Butcher, Belle Butombly, Hankle Carlucci, Tony Further, Frankina Strutt, Bill Uppendown, Bob ow, Joe buttonClick buttonClick BUTTON &Button TRUE,TRUE controlProperties LastFirst Names listNames buttonClick buttonClick listNames BUTTON &Button FALSE,TRUE controlProperties List &last name first Cancel Photo updateBMP buttonClick buttonClick close updateBMP B"Photo" BUTTON &Button FALSE,FALSE controlProperties &Cancel STATIC controlProperties Employee Names search buttonClick buttonClick help &Help dialog cast5 cast2 tool bar Index Fields listFields listFields Source FALSE allowDrop buttonClick buttonStillDown beginDrag endDrag allowDrop sourceObject FALSE buttonClick xenabled oselectedTextlines <> drag beginDrag endDrag targetObject B"Add" Source tbk_wid_name Last_Name First_Name Title department supervisor Office_number Network_name Mail_Stop Employee_type home_phone birthday significant_othert_other Indexes FALSE allowDrop currentIndex remove buttonClick buttonStillDown beginDrag remove endDrag currentIndex remove keyUp allowDrop sourceObject FALSE buttonClick oselectedTextlines <> "currentIndex" xenabled drag beginDrag endDrag targetObject Destination tbk_wid_name PRIMARY Phonevisor Title department Phoneme First_Name_typethday significant_other special_interests Photodepartment department departmentttdepartment department department 2, #> Indexes source buttonClick enterPage buttonClick "Indexes" B(selectedTextlines "source") CRLF & oenabled FALSE notifyBefore tbk_wid_name remove CurrentIndex Indexes Source PRIMARY buttonClick enterPage buttonClick B(selectedTextlines "Indexes") <> "PRIMARY" & CRLF "Source" a= 1 -- Primary oenabled FALSE "CurrentIndex" notifyBefore remove tbk_wid_name Secondary Indexes Available Fields Cancel Index buttonClick buttonClick close "Index" &Cancel Index buttonClick buttonClick "Index" Current Index is: CurrentIndex index buttonClick buttonClick help index &Help enterPage PhoneRY Fields MAIN GRP PROTOCOLINI NETX COM NWPOPUP EXE NET MSG NETH MSG WORKGRP SYS NET EXE PROTMAN DOS PROTMAN EXE SMARTND DOS help_displayDB To navigate to a record: press one of the buttons ( ) in the tool bar at the buttom of the page, or double click the "Record Number" field to the lower left, or click on one of the rooms in the map. To search for a record: press the search ( ) button, or type a name in the search field next to the search button, or double click in a field. All searches are case sensitive. All searches from the search field are on the name field, but you can search other fields by double clicking in them. To edit a record: press the edit ( ) button to change to edit mode. be deleted. help_editDB To navigate to a record: the navigation buttons, the record number field, and the search button work the same as in browse mode. You can't search by double clicking a field. The map works differently (see below) and is not for navigation in this mode. To edit a record: type new data in a field or click on a room in the map to make a new room assignment. Double click on the picture to get a new picture for the record. Click the update ( ) button to save the changes to the database, or click the restore button ( ) to revert to the original values. he data for the new record, then click the save-new-record button o delete a record: at any time, press the delete key. The currently selected record will be deleted. To search for a record: press the "search" button. All searches are case sensitive. buttonClick buttonClick &More help_editDB buttonClick buttonClick close "help_editDB" &Close help_search To set Last Name, First Name: to set the order that the first and last names appear in the field, toggle the checkbox at the bottom of the screen. To search for a name: scroll the field to find the name, or type the first letter of the name to jump to. help_index To add an index: select a field name in the left-side list box, then press the add button (>>). The field name will be added to the right-side list box. To remove an index: select a field name in the right side list box, then press the remove button (<<). The field name will be added to the bottom of the left-side list box. You can't remove the PRIMARY index. To set the current index: Click on the field name in the right-side list box. Note that the name appears in the field at the bottom. Click "OK" to accept all your changes, "Cancel" to discard them. N.B. BLOB fields can not be indexed on, so they are not available in this screen. help_index help_editDB help_search help_displayDB To add a record: click on a room with no assignment. Fill in the data for the new record, then click the save-new-record button To delete a record: press the delete button ( ). The current record will be deleted. To change indexes: press the index button ( ). A dialog box with its own help page will appear. To return to browse mode: press the browse button ( ), if you have made changes, you will be ask to save or discard them. buttonClick buttonClick &Back splash help_editDB buttonClick buttonClick "help_editDB" "splash" %modal focusWindow = close &Close DfrnE T(i.V .&+ +E <+U!8 .&+ +E openFileDlg chooseDirectoryDlg update/index @fixPath search splash FALSE s_firstFlag Change Database... 8dlinkToDatabase deleteObject Change the default database toolbar tb30DOS.DLL enableWindow tool bar setCurrentDirectory getCurrentDrive getCurrentDirectory getFileOnlyList removeFile fileExists statusBar tb30DLG.DLL restore enterApplication textFields search tool bar unlinkFromDatabase leaveApplication reader keyDown textFields saveAs s_firstFlag Photo updateBMP Please copy "Whowhere" to a directory on your hard disk. setCurrentDirectory The specified path name was invalid: Error detected in correcting path to database, cause not determined. fixPath w, #> Cancel appPath vgetCurrentDirectory .PX are in linkPX openPXTable getCurrentDrive currentTableInfo 3HtableInfoList Please make sure that .MB, and DBTable Yes, exit Please enter your user name When this dialog box is dismissed, the application will close. applicationName fileExists Employee data DBTable You are trying to open this book with some of the essential parts of the database missing! egetPXUserInfo No, don't exit ,psetPXUserInfo PxEngine getPXErrorString appName -initializePX CurrentIndex s_filePath This application will not work correctly in this state tableInfoList userName Do you wish to leave this application to correct the problem? linkToDatabase (exitPX clearKeys closePXTable applicationName appname tb30pdx.DLL DBTable unlinkFromDatabase addPXKey addPXPassword addPXTable appendPXRecord clonePXBlob ?_P-" closePXBitmapWindow @_P-" closePXBlob ,"TZ@_P-" closePXTable copyPXTable createPXTable decryptPXTable deletePXPassword deletePXRecord deletePXTable doesPXTableExist dropPXBlob @_P-" dropPXKey ,#T( _P-" emptyPXField emptyPXRecord emptyPXTable encryptPXTable exitPX freePXGraphicBlob B_P-" freePXGraphicBlobPalette B_P-" firstPXRecord getPXBitmapSize E_P.% getPXBlob E_P.% getPXBlobQuick F_P.% getPXBlobSize G_P.% getPXErrorString getPXFieldCount getPXFieldNames getPXFieldType getPXFieldValue getPXFileSize , U(H_P.% getPXGraphicBlob H_P.% getPXGraphicBlobPalette ,"U$J_P.% getPXKeyFieldCount getPXMaxFiles getPXMaxLocks getPXMaxTables getPXSwapSizeFromINI getPXMaxTablesFromINI getPXMaxFilesFromINI getPXMaxLocksFromINI getPXMemoBlob ,"UlK_Pg getPXNetErrorUser getPXNetUserName getPXRaw getPXRawDataSize getPXRecordCount getPXRecordNumber getPXSortOrder getPXSwapSize getPXUserInfo gotoPXNetRecordLock gotoPXRecord initializePX insertPXRecord isPXNetRecordLocked , T,"_P-" isPXNetTableChanged "_P-" isPXTableProtected "_P-" lastPXRecord , Tp#_P-" lockPXNetFile $_P-" lockPXNetRecord , U@$_P.% lockPXNetTable $_P-" mapPXKey $_P.% nextPXRecord , Tx&_P-" openPXBitmapWindow K_P.% openPXBlobRead M_P.% openPXBlobWrite N_P.% openPXTable &_P-" packPXTable (_P-" previousPXRecord , Tx)_P-" queryPXKey )_Pg refreshPXNetTable , T6,_P-" renamePXTable ,_P-" savePX ,_P-" searchPXField -_P-" searchPXKey -_P-" setPXBitmapWindowInfo P_P-" setPXBlob Q_P-" setPXBlobFromFile R_P-" setPXFieldValue 1_P-" setPXGraphicBlob S_P-" setPXGraphicBlobFromFile R_P-" setPXINIMaxFiles 2_P-" setPXINIMaxLocks 2_P-" setPXINIMaxTables 2_P-" setPXMemoBlob W_P-" setPXRaw ,"Tf3_P-" setPXSortOrder 3_P-" setPXINISwapSize 4_P-" setPXTableCreateMode 4_P-" setPXTableMaxSize 4_P-" setPXUserInfo 4_P-" unlockPXNetFile 6_P-" unlockPXNetRecord ,"TF6_P-" unlockPXNetTable 6_P-" updatePXRecord 6_P-" upgradePXTable , T:7_P-" writePXBlobToFile X_P.% writePXGraphicBlobToFile X_P.% tb30PDX.DLL linkPX This field type not supported: Formatted text DBfieldType retVal getPXBlob hPrivateBlob This field type not supported: OLE Blob getPXFieldType DBTable getBlobSize popenPXBlobRead LgetPXMemoBlob getPXFieldValue YPXError closePXBlob DBTable getPXGraphicBlob getPXGraphicBlobPalette fieldValue This field type not supported: Formatted text getPXErrorString setPXfieldvalue openPXBlobWrite DBfieldType BLOBSize 2setPXGraphicBlobFromFile VsetPXMemoBlob hPrivateBlob This field type not supported: OLE Blob getPXFieldType This field type not supported: Binary XgetPXFileSize YPXError closePXBlob DBTable fieldValue getPXErrorString closePXTable retVal closeTable DBTable getPXFieldNames PXFieldNames getPXFieldType DBTable PXFieldType getPXErrorString NULL error value in PXError =PXFatal PXError getPXErrorString <?DBDirty There is a problem with the lock handle, it reported itself as NULL. s_lockHandle updatePXRecord G[updateDB DBTable update Cancel Changes have been made to this record that have not been saved to the database. <?DBDirty s_newRecord deleteRecord You can: Names 3) Cancel and remain on this page s_dbDirty 1) Save your changes now listNames tool bar dialog 2) Discard them Discard Update PupdateDisplay restore update update dirtyPage .&+ +E .&+ +E getPXErrorString s_lockHandle unlockPXNetRecord s_dbDirty deleteRecord currentRecord s_lastRecord Update tool bar PupdateDisplay restore DBTable update editRestore getPXErrorString iemptyPXRecord yappendPXRecord DBTable appendRecord getPXErrorString first Bad value trying to set current record. previousPXRecord previous .lastPXRecord bfirstPXRecord isPositiveInteger _2gotoPXRecord DBTable WcurrentRecord =PXFatal 8nextPXRecord currentRecord getPXRecordNumber DBTable currentRecord getPXRecordCount DBTable recordCount tdeletePXRecord You are trying to delete the last record, but the database must have at least one record in it. getPXErrorString Please add at least one other record before deleting this one. DBTable recordCount deleteRecord getPXErrorString SUCCESS iemptyPXRecord setPXFieldValue <searchPXField retVal searchPXKey Not Found End Of Table Closest DBTable searchTable .&+ +E .&+ +E 1, #> <?DBDirty search Names searchTable ListNames tool bar LastFirst Search PupdateDisplay showSearch end of table . Record not found, navigating to last record. success Error in search. not found statusBar . No navigation took place. was found. . Navigating to closest record that follows the search string. closest setCaption iaddPXKey openPXTable closeTable addKey closePXTable iaddPXKey openPXTable .{mapPXKey fieldNumber addCompoundKey closePXTable retValue openPXTable dropPXKey dropKey 1, #> ,%H.% 1, #> ,%H.% removeFile getFileOnlyList 3HtableInfoList DBTable applicationName indexFiles openPXTable 4HtableInfoList closeTable appName s_filePath DBTable tableInfoList clearKeys 1, "Q ,%H.% w, #> clearing all indexes except the PRIMARY key. fieldNamesClone PupdateDisplay clearKeys getFileOnlyList currentIndex 3indexID 3HtableInfoList Employee Data dropKeys applicationName newKeys indexes Index (imakeKeys indexID indexFiles Indexes DBTable getPXErrorString PRIMARY PXFieldNames Indexes are out of sync with this book, source closeTable MGBFO appName CurrentIndex openPXTable fieldNum DBTable tableInfoList 2rcompareIndexes PXFieldType showIndex ,%H.% ,%H.% ,%H.% ,%H.% compareIndexes ,%H.% getPXErrorString addKey 3HtableInfoList HdropKey 4HtableInfoList dropIndexID newIndexID tableInfoList makeKeys closePXTable DBTable applicationName openPXTable s_oldIndex DBTable PRIMARY fixIndex1 ,%H.% fieldNames closePXTable DBTable applicationName Error setting index id. openPXTable PXFieldNames s_oldIndex 3indexID PRIMARY fixIndex2 isPositiveInteger help_displayDB index search help_index There is no help for this topic: editDB help_editDB help_search displayDB Do you want to switch to this database now, or wait until the next time you open the application? WHOWHERE @fixPath Next Time fileExists oldDefault .chooseDirectoryDlg applicationName Essential parts of the database are missing! Choose a WHOWHERE database \WHOWHERE 4HTableInfoList applicationName appName These files must be present, please try again after correcting the problem. s_filePath PRIMARY Please make sure that WHOWHERE.DB, WHOWHERE.MB, and WHOWHERE.PX are in the directory changeDatabase splash splash Who's Where at Generic International A Paradox sample application for ToolBook 3.0 1994 Asymetrix Corp. splash splash rstNameList BYROOM MS Sans Serif tableInfoList WHOWHERE applicationName PRIMARY RE 0 0, Phone WHOWHERE 6 0, supervisor WHOWHERE 5 0 PRIMARY mples\database\whoshare\WHOWHERE 0 0 les\database\whoshare\WHOWHERE 3 0 DBTable MS Sans Serif MS Sans Serif indexID PRIMARY Dirty PRIMARY Times New Roman j:\jolt\samples\database\whoshare\WHOWHERE PRIMARY PRIMARY RE 0 0 m:\database\WHOWHERE netAppName WHOWHERE localAppName PRIMARY WHOWHERE 0 0 PRIMARY m:\database\WHOWHERE 0 0 PRIMARY WHOWHERE 0 0 base\whoshare\WHOWHERE 0 0 isor j:\jolt\samples\database\whoshare\WHOWHERE 5 0, birthday j:\jolt\samples\database\whoshare\WHOWHERE 13 0 WHOWHERE BASE\WHOSHARE\WHOWHERE 0 0 oshare\WHOWHERE 3 0 DBDirty PRIMARY WHOWHERE 0 0 r j:\jolt\samples\database\whoshare\WHOWHERE 5 0, Title j:\jolt\samples\database\whoshare\WHOWHERE 3 0 Dan Hodge Dan Lahey Dan Mott Darlene Meyer Dave Hardwick Dawn Monet Debbie Cosbey Debra Marr Dennis Clawson Dennis Obukowicz Devin Wood Diane Droubay Dick Earl Doug Yoder Ed Reusser Elizabeth Israel Elliot Sokolow Glenn Morrissey Greg Eigsti Greg Pearson Harriet Landrum Harry Snyder Jackie Vantusko James Geldmacher Jane Dow Janet Anders Jean Daley Jeff Ayars Jeff Day Jeff Konz Jeff Umperovitch Jennifer Bascom Jennifer Tobin Jerean Gianni Jerry Reed Jim Edmunds Jim Littlejohn Joe Herzog Joe Lewis Joe Reyfeld John Atherly John Burroughs John Comber John Grachan John Jannatpour John Thrun Jonathan Locke Jordan Stover Joseph Brick Julie Geiger Julie Sams Katherine Fugitt Ken Sigel Kerstin Baker Kim Rush Kit Warfield Lance Delano Laurel Check Laurel McComber Lisa Arguelles Liza Wilcox Lori Palmer Lori Sargent Marc Fisher Marc McDonald Margo Crandell Marie Franco Mark Madland Marty Corpus Mary Christie Mary Helen Clarke Mary Nelson Melody Christensen Michael Florence Michael Scheele Michelle Carter Michelle Drewien Mieko Zirkelbach Mike Hamaoka Mike Miller Mike Simon Mike Slade Mike Taylor Minh Phan MIS LAB Nadim Harfouche Nancy Matthew Nanette Wright Ned Baker Norm Sohl Paul Allen Paul Grunwald Paul Meisenheimer Phil Purdy QA Lab Richard Moszkowski Rita Nikas Rob Fink Ross Grayum Ross Hunt Shabbir Dahod Sharon Nelson Shelley Hughes Sherri Seybold Shirley Carder Shuang Li Steve Bard Steve Beck Steve Fujiki Steven Wright Susan Dyches Susan Motte Suzy Smith Tammy McIntire Teri Ann Howe Teron Uy Tim Pearson Tim Stewart Tom Arnold Tony Amirghodsi Tracey Ingram Tyler Brooks Tyrone Floyd Winnie Wu Xiaoling Wang netTableInfo PRIMARY WHOWHERE 0 0 localTableInfo System MS Sans Serif System MS Sans Serif PRIMARY PRIMARY MS Sans Serif Office_number PRIMARY Phone PRIMARY PRIMARY RE 0 0, Title WHOWHERE 3 0, Phone WHOWHERE 6 0 Page "help_search" Who's Where at Generic Int'l ToolBar Page id 237 Search Search Page id 239 Index Page 5 Add and Remove Indexes help_displayDB Page "help_displayDB" help_editDB Page "help_editDB" help_search help_index Page "help_index" splash Page "splash" &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage F&ind... F5 search Re&place... replace A&uthor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript super/subscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 index PXFS PXFieldSize objs = fieldName pexception PXfieldType = getPXFieldType(DBTable "A15, " -- "A" ) = 1 -- has two >) > "This can only have" && T. Your will now be truncated." >) > "Word" && i && " " && notifyBefore updateDisplay ZSTACK fieldList ZSTRING displayTemplate, currentField ocompoundFields ocompoundFormat c) > 0 ~("%F", fieldValue( osaveText displayText = SPACE ) > 0 compareData ) > 0 ~("%F", r= "Record Changed" value = keyEnter searchString = -- famous method clearing statusBar -- one p, searches on vNULL searchTable(1, setCaption -- two names, what order? -- no comma, sString #, 2) s, 2) = TRUE -- does bother you too? currentRecord() = updateDisplay updateBMP B"Photo" = FALSE = "Type : ""Last"" , First"", = " " notifyBefore updateDisplay normalRGB oselectedOffice RGBFill fieldValue( FALSE osaveText 255, 0, 0 compareData p) <> r= "Record changed" buttonClick 4LOGICAL s_newRecord,s_selfSwitch 4s_newRoom,s_lockHandle,s_lastRecord 4LONG hWndBitmap, s_noPicture -- we don't have the M? Forget c"room") -- Are we on Soriginally assigned )? Do nothing DB = DBTable fCI = "currentIndex" indexSwitch = ( <> "Primary") "You need switch PRIMARY modify . Do you want 0now?"\ Kwill the" && manually, Jbar." \ "Cancel" closePXTable(DB) openPXTable(" ",applicationName 8,0,0) DBDirty dirtyPage = currentRecord searchTable( >) <> "SUCCESS" -- no navigation "Make qassignment qrecord?" \ f"New Assignment" sendNotifyBefore unlockPXNetRecord(DB, clearFields setPXBitmapWindowInfo( , 0, 2, rgbFill B"Photo") appendRecord Jbar" "Save " -- normalGraphic bitmap " ("What person?" "Without a p, we cannot d. Now restoring state." editRestore p, we openFileDlg("Select a file ", "", ".", " (*.BMP), *. , DIB (*. ), *. ", 2) r<> " -- we now information we fN && lN "Office_number") = updateBMP picture, we dbDirty --avoid handler gotoPXNetRecordLock( enabled -- we own ]a secondary /<> " fixIndex1 myName = fullName = dFullName = %& "," & temp = " " && J&& " " && -- ,0) <> " xfound? no create a newRoomRec = -- If stays same, -- we're key, must be unique " && statusBar = fixIndex2 O" " -- Otherwise says "Ready" -- we -- generate error isPXNetRecordLocked( -- order find getPXNetErrorUser() && " locked. Editing disallowed." 4s_lockHandle focusWindow = ready "ToolBar" enabled "update/index" = TRUE isPXNetTableChanged(DBTable) refreshPXNetTable( updateDisplay BMPFlag-- part a notify network 4LOGICAL s_frozen unlock anything we might be hanging on <> NULL unlockPXNetRecord(DB, [s_lockhandle -- the fields on notifyBefore handlers -- so now we need :picture <> FALSE --Check whether orecord locked 4locking isPXNetRecordLocked(DB) getPXNetErrorUser() && "has [. You will current . Please try later." updateBMP B"Photo" freezePage -- we've got thawPage b-- really shouldn't happen, we database nthrough = -50 "The been deleted Hanother user. Do you want insert f"OK" "Cancel" = "OK" -- could be more robust emptyPXRecord( 8) -- [recordBuffer updateDB insertPXRecord( ) -- place buffer [DBDirty < 0 -- negative code, let's find out what %" && & ":" && getPXErrorString( isOpen 4s_dbDirty B"Restore" Jbar" = clearFields "textFields" 4s_updateFlag = TRUE DBTable = isPXNetTableChanged( refreshPXNetTable( currentRecord | -- we need imitate the updateDisplay -- Yes, we up sending twice. There are times Npalette -- does xrealize correctly -- updateBMP B"Photo" FALSE 4LONG hWndBitmap 4s_noPicture, DBDirty dirtyPage }will never sent! o= 4 setPXBitmapWindowInfo( 0, 2, B"photo") -- -- statusBar = "Go record" 4s_updateFlag = TRUE DBTable = isPXNetTableChanged( refreshPXNetTable( currentRecord | -- we need imitate the updateDisplay -- Yes, we twice. There are times Cpalette -- does xrealize correctly -- updateBMP B"Photo" FALSE 4LONG hWndBitmap 4s_noPicture, DBDirty dirtyPage o= 4 setPXBitmapWindowInfo( n 0, 2, B"photo") statusBar = "Go trecord" 4LOGICAL s_frozen someone has the lock * = TRUE >buttonDoubleCLick openFileDlg("Select a bitmap file assign record", "", ".", "Bitmap (*.BMP),*. ,DIB (*. fieldValue( updateBMP DBDirty 4LONG hWndBitmap , hPalette "s_noPicture ZhOldBitmap, hOldPalette hBitmap = Q = 0 = -1 -- our signal that rwas r& CRLF & "This a non-fatal error, dediting." NULL -- should never happen. Links might be bad. "A serious occurred. Make sure relevant files are al directory." getPXErrorString( -- Window already , so we info setPXBitmapWindowInfo( , 2, rgbfill > 0 -- careful blank freePXGraphicBlob( freePXGraphicBlobPalette( notifyBefore = GDIHandle( = openPXBitmapWindow( , 0, \ clientHandle , pageUnitsToClient( O), 2, rgbFill hWndBitMap < 0 -- we disable e, which side effect uncovering -- under owner enableWindow( , 0) closePXBitmapWindow( deleteObject( -- closing einvalidates handles, _need reflect = 0 buttonClick DBTable = isPXNetTableChanged( refreshPXNetTable( "Browse" DBDirty dirtyPage "Edit" onormalGraphic bitmap " Jbrowse" FALSE notifyAfter initial opening statusBar = " : Add, change, delete indexes" : Return mode" buttonClick 4s_newRoom,s_dbDirty,s_newRecord "Update" update -- updateDisplay currentPage 1display, necessary? -- there's a qrecord, added rooms "Save "editDB") = 2 normalGraphic = bitmap " pare required create a f"Continue" "Cancel New " -- deleteRecord() enabled B"Restore" Jbar" = FALSE updateBMP B"photo" notifyAfter statusBar the database" updateBMP 4LONG hWndBitmap,hBitmap,hPalette,s_noPicture ZhOldBitmap, hOldPalette --kludge K = 0 L = 0 --EndKludge paintVal fieldValue( setPXBitmapWindowInfo( 2, rgbfill getPXErrorString( > 0 freePXGraphicBlob( freePXGraphicBlobPalette( notifyBefore = GDIHandle(bitmap " = openPXBitmapWindow( , 0, \ clientHandle , pageUnitsToClient( O), 2, rgbFill hWndBitMap < 0 enableWindow( closePXBitmapWindow( deleteObject( -- closing the einvalidates handles, -- need reflect = 0 ZindexID tName = PXFieldType( "MGBFO" "Can't G on BLOB fields, so can't on them." DBTable appname = applicationName tableInfoList = 5-- we found ~) -- we didn't find addKey(appName, ,2) -- maintained getPXErrorString( -- will need fieldNames = PXFieldNames() y-- we're trouble creating "," && && "0" "currentIndex" closePXTable( openPXTable( < 0 -- debug ) & CRLF & should be value ("What are you searching "Cancel" searchString = -- famous method clearing statusBar -- navigate searchTable( q, 2) setCaption = TRUE -- does bother currentRecord() = updateDisplay updateBMP B"Photo" = FALSE -- leave key alone = "Double click = " " notifyBefore updateDisplay sLS = = TRUE normalRGB oselectedOffice RGBFill fieldValue( = 255, 0, 0 buttonClick -- no locks, can't use goToPXNetRecordLock c"room 70") indexSwitch = ( "currentIndex" /<> "Primary") fixIndex1 searchTable( >) <> "SUCCESS" r& ". Try editing Hmoving mode." searchValue = "Last_name") & "," & "First_Name") =) <> " updateBMP B"photo" cRec 8= currentRecord = FALSE fixIndex2 ZSTRING residentList myName = p-- cache that property currIndex = "CurrentIndex" $<> "PRIMARY" >) = " -- same order %rooms, so we method "First_name") && & "; " ]a different key, fails on record, so we must special & "; " >,1) = " & "; " statusBar = "no assignment" P-- "Who's Where )Generic International" -- A sample database ]Borland's Paradox engine -- Copyright 1994 Asymetrix Corporation -- Primary authors: Charles Hiestand Jeff Ayars Kgives you permission e, revise reuse the individual scripts your own applications. -- You may x, however, Uentire a substantial part redistribution lproduct. retains copyright on original elements . Include notice "Portions are they contain copied enterApplication 4s_firstFlag "splash" sysRuntime = FALSE "Change Database..." cEdit fhelpText " default = TRUE linkDLL sysToolBookDirectory & "tb30DLG. !" -- selecting qbitmaps STRING openFileDlg( , INT) 'chooseDirectoryDlg( " -- fixPath index K setCurrentDirectory( getCurrentDrive() getCurrentDirectory( getFileOnlyList( removeFile( fileExists( "user" -- WORD enableWindow( "GDI" -- GDIHandle INT deleteObject( close linkToDatabase statusBar "toolbar" ~= Reader enabled "update/ leaveApplication unlinkFromDatabase "textFields" saveAs -- we adoubly sure that esizes gets realized correctly updateBMP B"Photo" -- we opens a MRU some other strange nOTB = root directory 9<> "\" "\" wasn't , oh well, < 0 -- error temp "The specified path c invalid:" && c"A" c"B" -- running a disk CRLF & "Please e""Whowhere"" hard "Error detected correcting , cause xdetermined." \ 4s_filePath -- Use these lines point either a network. -- Out box, runs -- N.B. four netAppName, localAppName, netTableInfo, localTableInfo xaffected . That -- tableInfoList applicationName. can think different -- methods k same thing. whole there appName = made current -- so guys aren't \, we're out appPath = <> "\" -- no , still equal , e.g. "WHOWHERE" rather than "M:\DATABASE\ & ":" & & ":\" & ".db") <> 1 -- main & ".mb") <> 1 -- memos BLObs & ".px") <> 1 -- PRIMARY trying essential parts missing!" & " && &".DB," && &".MB, " && &".PX " && QUOTE & "." & & "When dialog box dismissed, will -- initial dll linkPX -- login NULL r= "Cancel" userName "PxEngine" e win. 4we initialize getPXUserInfo() setPXUserInfo( app ( , a property initializePX( < 0 -- SHARE.EXE occur getPXErrorString( This state" \ wish problem?" \ f"Yes, "No, don't -- Initialize -- We always , starting primary. -- As we indexes, we Hopening closing tables. -- We keep track currently "DBTable", form each -- 1. FieldName ( IndexName ) (somewhat arbitrary) -- 2. DatabaseName ( -- 3. FieldNumber (0 -- 4. CacheFlag (0 writing a buffer, 1 write straight -- First we cache reference: currentTableInfo a little more generic we need -- could be: -- " openPXTable(" ,0,0)" "CurrentIndex" /"Employee appname = -- How ex files? "Send clearKeys" (a custom message handled later can. commented code would option, perhaps like xsending -- indexFiles = & ".x??","","E") "There secondary . Do want them?" f"Yes" closePXTable( exitPX() unlinkDLL y & "tb30pdx. linked, addPXKey( --PXKeyAdd() addPXPassword( --PXPswAdd() addPXTable( --PXTblAdd() appendPXRecord( --PXRecAppend() clonePXBlob( --PXBlobClone() closePXBitmapWindow( closePXBlob(INT, --PXBlobClose() --PXTblClose() copyPXTable( --PXTblCopy() createPXTable( ) --PXTblCreate() cryptPXTable( --PXTblDecrypt() --PXPswDel() --PXRecDelete() --PXTblDelete() oesPXTableExist( --PXTblExist() ropPXBlob( --PXBlobDrop() ropPXKey( ) --PXKeyDrop() emptyPXField( emptyPXRecord( --PXRecBufEmpty() emptyPXTable( --PXTblEmpty() encryptPXTable( ) --PXTblEncrypt() --PXExit() freePXGraphicBlob( freePXGraphicBlobPalette( firstPXRecord( --PXRecFirst() LONG getPXBitmapSize( DWORD, --PXBlobGet() :lobQuick( --PXBlobQuickGet() globSize( --PXBlobGetSize() getPXFieldCount( --PXRecNFlds() getPXFieldNames( getPXFieldType( ) --PXFldType() getPXFieldValue( FileSize( getPXKeyFieldCount( --PXKeyNFlds() getPXMaxFiles() getPXMaxLocks() getPXMaxTables() INT getPXSwapSizeFromINI() MaxTablesFromINI() 1MaxFilesFromINI() GMaxLocksFromINI() getPXMemoBlob( getPXNetErrorUser() --PXNetErrUser() getPXNetUserName() --PXRawGet() getPXRawDataSize( RecordCount( --PXTblNRecs() RecordNumber( --PXRecNum() getPXSortOrder() gotoPXNetRecordLock( --PXNetRecGotoLock() gotoPXRecord( --PXRecGoto() --PXWinInit() insertPXRecord( --PXRecInsert() isPXNetRecordLocked( --PXNetRecLocked() isPXNetTableChanged( --PXNetTblChanged() isPXTableProtected( --PXTblProtected() lastPXRecord( --PXRecLast() lockPXNetFile( --PXNetFileLock() lockPXNetRecord( lockPXNetTable( --PXNetTblLock() mapPXKey( --PXKeyMap() nextPXRecord( --PXRecNext() openPXBitmapWindow( openPXBlobRead( ) --PXBlobOpenRead() openPXBlobWrite( --PXBlobOpenWrite() --PXTblOpen() packPXTable( previousPXRecord( --PXRecPrev() queryPXKey( --PXKeyQuery() refreshPXNetTable( --PXNetTblRefresh() renamePXTable( ) --PXTblRename() savePX() --PXSave() searchPXField( searchPXKey( --PXSrchKey() setPXBitmapWindowInfo( setPXBlob( ) --PXBlobPut() setPXBlobFromFile( setPXFieldValue( ) --PXPutAlpha(), PXPutDate(), PXPutDouble(), PXPutLong(), PXPutShort() setPXGraphicBlob( ) -- setPXGraphicBlobFromFile( setPXINIMaxFiles( --PXSetDefaults() setPXINIMaxLocks( setPXINIMaxTables( setPXMemoBlob( setPXRaw( --PXRawPut() setPXSortOrder( setPXINISwapSize( setPXTableCreateMode( --PXTblCreateMode() setPXTableMaxSize( --PXTblMaxSize() unlockPXNetFile( --PXNetFileUnlock() unlockPXNetRecord( --PXNetRecUnlock() unlockPXNetTable( --PXNetTblUnlock() updatePXRecord( --PXRecUpdate() upgradePXTable( --PXTblUpgrade() writePXBlobToFile( 4 -- writePXGraphicBlobToFile( fieldValue fieldName DBfieldType = [SysError retVal = -1 -- value , reset found "BLOB" (Binary Large OBject) hPrivateBlob = E, 0) -- graphics getPXGraphicBlob( getPXGraphicBlobPalette( $"B" stands binary) getPXBlob( , getBlobSize( ), 0) -- formatted type xsupported: Formatted -- OLE others BLOBSize = ) + 1 -- terminator A, 0) getPXFileSize( ) + 8 -- BLOBs setPXfieldvalue( closeTable errVal / = -79 -- fatal PXEngine PXFatal 4s_lockHandle -- debug -- shouldn't happen reported itself updateDB currentPage [DBDirty dirtyPage 4s_dbDirty,s_newRecord "Changes have been record saved +." \ *can:" \ #TAB & "1) Qnow" \ 2) Discard remain on listNames deleteRecord() -- we'll updateDisplay tB = tB = " normalGraphic tB = tB = editRestore delFlag , s_lastRecord cP = tB = %wired because tB = " tB = tB = currentRecord appendRecord -- Wrapper intelligently sets isPositiveInteger( "Bad = -101 -- = -102 -- = -79 -- ()-- sync getPXRecordNumber( cRec recordCount getPXRecordCount( deletePXRecord( , but 1must )least 4deleting one." < 0 -- Searching -- "mode" -- 0 = "SEARCHFIRST", -- 1 = "SEARCHNEXT", ]* we -- 2 = "CLOSESTRECORD", 2beginning -- If no exact match greater -- -- becomes only works on indexed #, no $uses -- Modes 0 alone 2fail. -- Passing a forces a keyed fields ( order) @. E.g. sorted on 7 -- passing 2 be on . Got parameter %indexID allows searches on complex Minsensitive &%. In ,cases, needs -- Therefore, 3three calling function: searchTable (2,"foo") -- % key named Y""," O,"",256) -- on a compound /has "SUCCESS" be a searchKey? Uses isType(REAL, -- ) -- < 0 -- = 2 = -89 "Closest" = -101, "End Of "Not Found" showSearch 4nameList ListNames %modal 7"OK" -pressed isOpen B(selectedTextlines B"LastFirst" setCaption val, sString = "closest" r & ". Navigating 3follows \ = " r & ". , navigating r & ". No navigation took place." = "success" && " addKey E0,newAlias, , single- -- returns errorCode 0,0,0) -- creating -- 0 8 (key) -- 1 Secondary *8 (maintained -- 2 Incremental +even closed) addCompoundKey fieldList, ,keyName PX-assigned ;ex, 1,0,0) -- 1 = fieldNumber = -- now handler , savemode) dropKey alias, dropPXKey( ; ) -- ref retValue = 4& ".x??","","E") K+<> textlineCount( 6 & "\" & v4& ".y??","","E") Z6 & "\" & 6, 0) -- We no composite ones. showIndex ZSTACK fieldNames,indexNames (tCiF,cCaN , compare /'s already {') -- a fieldNamesClone = w -- !@extension ]6& ".x??","","E") -) - 2 freality s6suspicious 7) <> + 1 "Indexes && "clearing 1 except 5key." -- leaves us -- yikes, a hex -- = 0 ) = 1 "0x0" & "0x" & %"@d0" "MGBFO" c"," ~(",", "source" = "currentIndex" "OK" -- -- -- -- lists, build newKeys dropKeys -- 6 <> -- something changed compareIndexes ( makeKeys -- -- preparation JopenTable() 6 -- :" -- be safe -- -- <way another, " a legal < 0 -- [newIndexID = 0 -- no "," && Y && ] && "0" \ [dropIndexID < 0 -- val = tstartup fixIndex1 4s_oldIndex z?" 8,0,0) fixIndex2 ) -- $Dsetting J context "displayDB" "help_displayDB" "editDB" "help_editDB" "help_search" "help_index" M:" && changeDatabase oldDefault J"Choose a ) = 3 --"c:\", ?J chose 5?worry, D& ".db") <> 1 -- <D& ".mb") <> 1 -- ^D& ".px") <> 1 -- "Essential C.DB, C.MB, C.PX are" \ 3H" && & "These be present, please try TableInfoList C" && aE&& "0" && "0" switch %Pnow, wait ?" \ f"Now" 2 Time" buttonClick 4s_dbDirty "Are you sure want delete the current record?" & CRLF & "If so, )database packed?"\ f"Yes, don't replyString = tempRec = currentRecord deleteRecord() lastRec = recordCount '-- we deleted = TRUE updateDisplay Jbar" = FALSE enabled B"Restore" packPXTable(DBTable -- oops, somehow we lost table! r= getPxErrorString( tableInfoList = -- Initialize zuser property primary currentTableInfo a little more generic than we need -- could be: -- " openPXTable("PRIMARY","WHOWHERE",0,0)" getPXErrorString( "CurrentIndex" /"Employee notifyAfter statusBar "Delete statusB ,%H.% 2, "Q 1, #? ,%H.% characters. Your text will now be truncated. of the text of this field can have only PXFieldSize getPXFieldType A15,A15 fieldName PXfieldType PXFieldSize DBTable This field can only have leaveField saveText fieldValue compoundFormat ucompoundFields updateDisplay fieldValue displayText ucompoundFields updateDB fieldValue Record Changed compoundFormat ucompoundFields saveText compareData fieldList compoundFields fieldList compoundFields displayTemplate compoundFormat displayTemplate compoundFormat 1, #> WcurrentRecord searchTable setCaption Photo updateBMP statusBar PupdateDisplay searchString WcurrentRecord sString keyDown keyChar Type name to search for: "Last" or "Last, First", or "First Last". statusBar mouseEnter statusBar mouseLeave saveText fieldValue normalRGB KUselectedOffice JUselectedOffice updateDisplay Record changed fieldValue saveText compareData s_newRoom Primary s_noPicture SUCCESS hWndBitmap IrregularPolygon s_lockHandle clearFields currentIndex index manually, using the index button on the tool bar. Assignment What is the last name of this person? New Assignment appendRecord Without a first name, we cannot continue. Now restoring to previous state. WcurrentRecord applicationName You will need to change back to the s_lastRecord You need to switch to the PRIMARY index to add or modify records. Do you want to switch now? editRestore What is the first name of this person? updateBMP tool bar unlockPXNetRecord s_newRecord ;?DBDirty WcurrentRecord update PRIMARY ngotoPXNetRecordLock Cancel Office_number dirtyPage indexSwitch QupdateDisplay closePXTable s_selfSwitch New Record Save Record Without a picture, we cannot continue. Now restoring to previous state. DBTable fieldValue Record setPXBitmapWindowInfo openFileDlg searchTable openPXTable Photo Switch <?dbDirty Make new assignment? Select a bitmap file to assign to this record Make new assignment or make new record? Without a last name, we cannot continue. Now restoring to previous state. Restore DBTable lockPXNetRecord Bitmap (*.BMP), *.BMP, DIB (*.DIB), *.DIB buttonClick 1, #> ^isPXNetRecordLocked SUCCESS fullName IrregularPolygon .getPXNetErrorUser s_lockHandle currentIndex , or create a new record. Primary searchTable statusBar has the record locked. Editing of the record is disallowed. ngotoPXNetRecordLock 7wfixIndex2 newRoomRec indexSwitch is assigned to vfixIndex1 dFullName DBTable WcurrentRecord myName s_selfSwitch assign mouseEnter statusBar mouseLeave update/index ToolBar DBTable DisPXNetTableChanged PupdateDisplay refreshPXNetTable enterPage w, #? Cancel ^isPXNetRecordLocked getPXErrorString <?DBDirty iemptyPXRecord athawPage .getPXNetErrorUser s_lockHandle unlockPXNetRecord FALSE has the record locked. You will not be able to edit the current record. Please try again later. s_frozen The record has been deleted by another user. Do you want to insert it? Photo Error code freezePage updateBMP G[updateDB insertPXRecord DBTable lockPXNetRecord updateDisplay update/index s_lockHandle unlockPXNetRecord ToolBar DBTable leavePage <?DBDirty s_dbDirty tool bar Restore keyUp <?DBDirty textFields clearFields update/index textFields s_frozen ToolBar freezePage update/index textFields s_frozen ToolBar thawPage .&+ +E FALSE previous WcurrentRecord DBTable DisPXNetTableChanged PupdateDisplay DBTable s_updateFlag refreshPXNetTable buttonStillDown .&+ +E dirtyPage setPXBitmapWindowInfo photo s_noPicture hWndBitmap ;?DBDirty s_updateFlag buttonDown .&+ +E Photo updateBMP PupdateDisplay buttonUp Go to previous record statusBar mouseEnter statusBar mouseLeave .&+ +E FALSE WcurrentRecord DBTable DisPXNetTableChanged PupdateDisplay DBTable s_updateFlag refreshPXNetTable buttonStillDown .&+ +E dirtyPage setPXBitmapWindowInfo photo s_noPicture hWndBitmap ;?DBDirty s_updateFlag buttonDown .&+ +E photo updateBMP PupdateDisplay buttonUp Go to next record statusBar mouseEnter statusBar mouseLeave Bitmap (*.BMP),*.BMP,DIB (*.DIB),*.DIB Select a bitmap file to assign to this record fieldValue s_frozen openFileDlg updateBMP <?DBDirty buttonDoubleClick +%,!J .&+%? .&+%? +%,!J +%,!J .&+%? getPXErrorString s_noPicture This is a non-fatal error, continue editing. hWndBitmap fieldValue hPalette setPXBitmapWindowInfo A serious error has occurred. Make sure all relevant files are in the local directory. freePXGraphicBlob hBitmap &freePXGraphicBlobPalette updateBMP -#+%? +%,!J noPicture getPXErrorString s_noPicture hWndBitmap JopenPXBitmapWindow enableWindow center enterPage .&+%? .&+%? .&+%? .&+%? s_noPicture hWndBitmap deleteObject 4rclosePXBitmapWindow hPalette hBitmap leavePage .&+ +E .&+ +E .&+ +E dirtyPage browse DBTable Browse DisPXNetTableChanged ;?DBDirty DBTable refreshPXNetTable buttonClick enterPage Browse: Return to browse mode statusBar Edit: Add, change, and delete records and indexes mouseEnter statusBar mouseLeave .&+ +E .&+ +E .&+ +E .&+ +E .&+ +E .&+ +E Cancel Continue s_newRecord A first and last name are required to create a new record. Save Record s_dbDirty deleteRecord Update tool bar photo Cancel New Record editDB updateBMP PupdateDisplay Restore update update buttonClick enterPage statusBar Save the new record to the database update Update the database mouseEnter statusBar mouseLeave .&+%? .&+%? +%,!J .&+%? +%,!J getPXErrorString s_noPicture hWndBitmap fieldValue hPalette setPXBitmapWindowInfo freePXGraphicBlob hBitmap &freePXGraphicBlobPalette paintVal updateBMP -#+%? +%,!J noPicture getPXErrorString s_noPicture hWndBitmap JopenPXBitmapWindow enableWindow center enterPage .&+%? .&+%? .&+%? .&+%? s_noPicture hWndBitmap deleteObject 4rclosePXBitmapWindow hPalette hBitmap leavePage ,%H.% ,%H.% w, #> Cancel getPXErrorString fieldNames addKey closePXTable currentIndex 3HtableInfoList Can't index on BLOB fields, so can't search on them. DBTable Error creating new index for this field applicationName searchTable WcurrentRecord setCaption Photo openPXTable statusBar updateBMP PXFieldNames 4HtableInfoList tName MGBFO What value are you searching for? appname PupdateDisplay searchString DBTable WcurrentRecord tableInfoList PXFieldType buttonDoubleClick Double click to search on this field MGBFO statusBar PXFieldType mouseEnter statusBar mouseLeave fieldValue normalRGB KUselectedOffice JUselectedOffice updateDisplay w, #> .&+ +E .&+ +E room 70 Last_name SUCCESS searchValue IrregularPolygon fieldValue currentIndex Primary . Try editing this room by moving into edit mode. searchTable photo updateBMP indexSwitch vfixIndex1 PupdateDisplay First_Name WcurrentRecord 7wfixIndex2 buttonClick w, #? w, #? w, #? Last_name SUCCESS IrregularPolygon fieldValue CurrentIndex no assignment WcurrentRecord searchTable statusBar currIndex vfixIndex1 First_name WcurrentRecord myName PRIMARY 7wfixIndex2 mouseEnter statusBar mouseLeave .&+ +E .&+ +E openPXTable CurrentIndex tempRec search deleteRecord Yes, and pack it currentTableInfo update 3HtableInfoList Employee data s_dbDirty replyString If so, do you want the database packed? Are you sure you want to delete the current record? WcurrentRecord Yes, but don't pack it DBTable getPxErrorString lastRec getPXErrorString packPXTable and pack it tool bar PupdateDisplay Restore DBTable WcurrentRecord recordCount tableInfoList buttonClick enterPage Delete the current record statusBar mouseEnter statusBar mouseLeave andle clea DisplayDB tool bar PupdateDisplay restore enterPage FALSE upDateBMP photo updateDisplay 4s_firstFlag = TRUE updateDisplay enabled Jbar" = FALSE : BMPFlag-- part a notify network <> upDateBMP B"photo" employee_type fieldValue updateDisplay notifyBefore updateDisplay fieldValue( Status Permanent Permanent Status Temporary Temporary Status Contractor Contractor Confidential information -- For Asymetrix eyes only Mail stop: Network:address:y Home address: Home phone: Birthday: Significant other: Special interests and hobbies:] Name: Phone: Title:G Department: textFields phone fieldValue updateDisplay notifyBefore updateDisplay fieldValue( Mail_Stop fieldValue updateDisplay notifyBefore updateDisplay fieldValue( Network_name fieldValue updateDisplay notifyBefore updateDisplay fieldValue( home_address fieldValue updateDisplay notifyBefore updateDisplay fieldValue( Home_phone fieldValue updateDisplay notifyBefore updateDisplay fieldValue( birthday fieldValue updateDisplay notifyBefore updateDisplay fieldValue( significant_other fieldValue updateDisplay notifyBefore updateDisplay fieldValue( special_interests fieldValue updateDisplay notifyBefore updateDisplay fieldValue( fieldValue compoundFormat ucompoundFields updateDisplay fieldList compoundFields fieldList compoundFields displayTemplate compoundFormat displayTemplate compoundFormat search tool bar buttonDoubleClick notifyBefore updateDisplay ZSTACK fieldList ZSTRING displayTemplate, currentField ocompoundFields ocompoundFormat e) > 0 ~("%F", fieldValue( value buttonClick Jbar" %F %F displayTemplate First_name,Last_name fieldList Title fieldValue updateDisplay notifyBefore updateDisplay fieldValue( department fieldValue updateDisplay notifyBefore updateDisplay fieldValue( supervisor fieldValue updateDisplay notifyBefore updateDisplay fieldValue( Supervisor: t L q Permanentt Temporary Contractor photo 8288,1106 center room 7020 fieldValue(Office_number) updateDB updateDB -- trap some notifies Office_number IrregularPolygon id 562 of Page id 238 selectedOffice room 7012 0,255,255 normalRGB 0,128,128 normalRGB 0,128,128 normalRGB room 7001 255,255,255 normalRGB room 7007 255,255,255 normalRGB L#X(f( room 7010 255,255,255 normalRGB room 7006 255,255,255 normalRGB room 7005 255,255,255 normalRGB L#b*p* room 7002 255,255,255 normalRGB room 7008 255,255,255 normalRGB room 7004 255,255,255 normalRGB L#`,p, auditorium 0,128,128 normalRGB L#"-.- women's 255,255,255 normalRGB men's 255,255,255 normalRGB 0,128,128 normalRGB room 7011 255,255,255 normalRGB room 7003 255,255,255 normalRGB L#b0p0 room 7009 255,255,255 normalRGB updateDisplay enterPage leavePage wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwpx wwwpx wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwww wwwww wwwww wwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwx wwwww wwwwx wwwww wwwww wwwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwww wwwwwww wwwwwww wwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwww wwwwwww wwwwwww wwwwwww wwwwwwwwwwO wwwwwwwwwwwpwx pwwwwwwwwwwxpwwwwwwwwwwxpw xxwww xxwwwwwww xwwwwwwwwp? wpwwwwwwww wwwwwwwwwwwswx swwwwwwwwwwxswwwwx x{wwwp xpwwwp xqwwwp xqwpwp xqwpwp xqwpwp xqwpwp xpwwwp xpwwwp wxrwwwp wxpwwwp wwxpwwwwwwwwwwxpwwwwwwwwwwwpwwwwwwwwwwwp wwwwwwwwwwwpwx wpwwwwxpwwp wwwxpwp wxpwp wxpwp wxpwp xpwpwp wwwwxpww wwwwxpwwp wwwwxpww wwwwwpwwwwwwwwwwwp wwwwwwwwwwwqwx swwwwwwwwwwx{www xpwww wwxqwww wwxvwww wwxpwww wwxqwww wwxswww wwxqwww wwx{wwx wwxxwwpwpw pwwxswwx wwxqwwwwp wwxxwwwww wwx{wwwwwp wwwxxwwwwww wwwwxwwwwwwwwwwws wwwwwwwwwwwpwx pwwwwwwwwwwxpwp wwwwwpx wxpwp wxpwp wxpww xxwwpwwwwwx x~wpxxxxxp xwwwwwwwwwwwwpwwwwwwwwwwwp wwwwwwwwwwwpwx pwwwp wwxpwwwwp wwwxpwwp xxwwwwwwp wxwwwwwwwp wwpwwwwwwwwwwwp wwwwwwwwwwwpwx pwwwp wwxwwwwwp wwwxpwwp wxpwwwwwww Pwxpwwwwwwwp wwpwwwwwwwwwwwp CREATESPLASHWNDg Employee data WcurrentRecord updateDisplay .&+ +E .&+ +E Cancel PupdateDisplay WcurrentRecord Please enter a positive whole number. Please enter the record number to navigate to. buttonDoubleClick Double click to go to a specific record number statusBar mouseEnter statusBar mouseLeave notifyAfter updateDisplay currentRecord() ("Please enter the record navigate (isType(INT, > 0)-- <= recordCount = TRUE = FALSE "Cancel" a positive whole statusBar = "Double click a specific Record Number: Current Index: CurrentIndex index tool bar editDB buttonDoubleClick "editDB" buttonClick B"index" Jbar" PRIMARYsort_other updateDisplay editDB textFields %F %F displayTemplate First_name,Last_name fieldList Belle Butcher saveText A15,A15 PXFieldSize Title saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" PXFieldSize Chief Executive Officer saveText department saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" PXFieldSize Poultry saveText supervisor saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" PXFieldSize Charles Port saveText phone saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB compareData p) <> r= "Record Changed" PXFieldSize saveText employee_type fieldValue updateDisplay ,%H.% fieldValue updateDB <?DBDirty tool bar restore buttonClick notifyBefore updateDisplay fieldValue( updateDB buttonClick DBDirty enabled Jbar" = Status Permanent Permanent Status Temporary Temporary Status Contractor Contractor Mail_Stop saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" PXFieldSize saveText Network_name saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" PXFieldSize saveText home_address saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" PXFieldSize 567 Placid Place Port Orchard Renton WA 90000 saveText Home_phone saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" *#8#% PXFieldSize 555-4444 saveText birthday saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" j&v&% PXFieldSize 8/12/1961 saveText significant_other saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" PXFieldSize Andy Fletcher saveText special_interests saveText fieldValue updateDisplay fieldValue updateDB fieldValue Record Changed saveText compareData notifyBefore updateDisplay fieldValue( osaveText updateDB fcompareData p) <> r= "Record Changed" PXFieldSize Hunting saveText Significant other: photo 2.F.* 8288,1106 center room 7020 fieldValue(Office_number) Office_number IrregularPolygon id 622 of Page id 224 selectedOffice IrregularPolygon id 622 of Page id 224 saveText room 7012 255,255,255 normalRGB 0,128,128 normalRGB 0,128,128 normalRGB room 7001 255,255,255 normalRGB room 7007 255,255,255 normalRGB .>4L4 room 7010 255,255,255 normalRGB room 7006 255,255,255 normalRGB room 7005 255,255,255 normalRGB .H6V6 room 7009 255,255,255 normalRGB room 7002 255,255,255 normalRGB room 7008 255,255,255 normalRGB .F8T8 room 7004 255,255,255 normalRGB auditorium 0,128,128 normalRGB women's 255,255,255 normalRGB .Z:d: men's 255,255,255 normalRGB 0,128,128 normalRGB room 7011 255,255,255 normalRGB .H<V< room 7003 255,255,255 normalRGB Name: Phone: Title: Department: Mail stop: x@P@u@ Supervisor: Network: Home address: Home phone: Birthday: Special interests and hobbies: Confidential information compareData updateDB updateDisplay enterPage leavePage Employee data SEPARATOR MENUITEM "Printer Set&up...", STDMSG_CHANGEPRINTER MENUITEM "&Print Pages...\tCtrl+P", STDMSG_PRINTPAGES MENUITEM "Prin&t Report...", STDMSG_PRINTREPORTS MENUITEM SEPARATOR MENUITEM "Attributes of &Book...", STDMSG_ATTRIBUTES MENUITEM SEPARATOR MENUITEM "E&xit\tCtrl+X", STDMSG_EXIT POPUP "&Edit" BEGIN MENUITEM "&Undo\tAlt+Bksp", STDMSG_UNDO MENUITEM SEPARATOR MENUITEM "Cu&t\tShift+Del", STDMSG_CUT MENUITEM "&Copy\tCtrl+Ins", STDMSG_COPY MENUITEM "&Paste\tShift+Ins", STDMSG_PASTE } MENUITEM "E&xit\tCtrl+X", STDMSG_EXIT POPUP "&Edit" BEGIN MENUITEM "&Undo\tAlt+Bksp", STDMSG_UNDO MENUITEM SEPARATOR MENUITEM "Cu&t\tShift+Del", STDMSG_CUT MENUITEM "&Copy\tCtrl+Ins", STDMSG_COPY MENUITEM "&Paste\tShift+Ins", STDMSG_PASTE MENUITEM "C&lear\tDel", STDMSG_CLEAR MENUITEM "&Select All\tShift+F9", STDMSG_SELECTALL MENUITEM "S&elect Page\tShift+F12", STDMSG_SELECTPAGE MENUITEM SEPARATOR Mtbk ToolBook Save as Exe Executable Files (*.exe)|*.exe|All Files (*.*)|*.*| Executable Normal Graphic Invert Graphic Disabled Graphic Checked Graphic Close Choose Resource Right Bottom Normal Normal Maximized Minimized Lock Minimized Pixels Page Units Inches Centimete 'k''j'' ::6::6:6 kjkjk j''6 :6:''j j#':66 ''6:6: jj#'# jkj': #'66: SSYpp '6:66 k##k#'6 +o'(' SooSS kk('( oj*R' ''j'R' e#ee## 66##6 #e`ee 66#66 kk'6: w<w<m 1tcw<4