Form1 Form1 Form1 FieldBoxes FieldBoxes Label1 F&irst Name Label2 &Last Name FieldBoxes FieldBoxes FieldBoxes Label3 Salar&y Label4 Label5 NextRecord &Next Record PreviousRocord &Previous Record OpenFile &Open File AddRecord &Add Record DeleteRecord &Delete Record ExitButton E&xit HScroller Text1_Change Form_Click @ Form_Load Form1^ CurrentX CurrentY CaptionE BoxCaptionB WorkingFileNameD ConfirmFile RANDOMFILE( TheName{ Operation ConfirmFileErrorp TheFileR ReplaceFilel Confirmation READFILE BINARYFILE Conirmation LOADFILER Action FileErrors errVal msgType MB_ICONEXCLAMATION ERR_DEVICEUNAVAILABLEE ERR_DISKNOTREADY ERR_DEVICEIO ERR_DISKFULL] Err_BADFILENAME7 ERR_BADFILENAMEORNUMBERc ERR_PATHDOESNOTEXIST ERR_BADFILEMODE ERR_FILEALREADYOPEN ERR_INPUTPASTENDOFFILE response GetName LoadOrSave/ NameToUse FileOpener RecordLen ADDTOFILEm FileNum OpenerErrorr WorkingFileNum Filek RecordVar LastRecord NewRecordFlag RecordNumberv Position) ShowRecord TempFileFlag FieldBoxes! Record TextT FirstName LastName Salaryc GenderL OldContents7 ClearFields OpenFile_ClickU CheckEmOuti WriteQueryV NewFileNames CleanUpFile Result FALSE Period BakName4 CopyFile NumBoxes CurrentContents PriorContents SameText EmptyBoxes Answer RecordNum NextRecord_Click RecordWasStored PreviousRocord_Click EsleIf AddRecord_Click Fields DeleteRecord_Click TempVar RecordType ExitBotton_Click ExitButton_Click WriteIt CleanFileNum RAMDOMFILE6 OldName, NewName@ FileType RecVar^ CopyError OldNum NewNum FieldBoxes_Change Index HScroller_Change ScrollerUpdate RecordStored HScroller Value SmallChange LargeChange Form_Load Record Editor" Using If you want to create a new record file, choose OK, then choose Add Record to add a new record. To load a file that already exists on disk," choose the Open File button and type the name" of the file you want to open. Tmp. file, , found. Choose OK to erase " current contents, or chooes Cancel to load it as it is." Old temporary file found!" ConfirmFile The file " already exists on disk." Saving the text box contents to that file will destroy the file's current contents, replacing them with the text from the text box." Choose OK to overwrite the file, Cancel to stop. File Massage The file " doesn't exist." Would ypu like to create and the edit it?" Choose OK to create the file, Cancel to stop." File Message FileErrors That device appears unavailable. Insert a disk in the drive and close the door. Internal disk error. Disk is full. Continue? That filename is illegal." That path doesn't exist. Can't open your file for that type of access." This file is already open" This file has a nonstandard end-of-file marker, or an attempt was made to read beyond the end-of-file marker." Disk Error GetName File name" FileOpener ShowRecord OpenFile_Click Please enter file to open:$ Couldn't find Do you want to create " File Not Found Couldn't create .BAK file" Record Editor: " CheckEmOut Would you like this record stored now? Store Now? NextRecord_Click This is the last record in the file. Choose Add " Record if you'd like to add a new record now." PreviousRocord_Click This is the first record in the file. Choose Next " Record if you'd like to see other records now. AddRecord_Click ClearFields DeleteRecord_Click This is the last record in the file. Deleting it will destroy the whole file. Record Editor will also be closed." Choose OK to destroy file" About to delete file!" ExitButton_Click WriteQuery Do you want to save these records to a file? Save these records?" Save As:$ The old will be overwritten!" OverWriting old file CleanUpFile ~T2m3p7~.Tmp ~T2m3p7~.Tmp ~T2m3p7~.Tmp ~T2m3p7~.Tmp CopyFile HScroller_Change ScrollerUpdate