names Customer Address Form1% Frame1 Customer/Address/Record Text1 Text1 Text1 Text1 Text1 Text1 Text1 Text1 Text1 Text1 Label10 Telephone Label9 Label8 State Label7 Label5 Address Label4 Company Label2 Initial Label3 Last name Label1 First Name Label6 Id Number Picture1 xxwwxx xxxxxp xxxxxp NextRec wwwwwwwwwwwwwwp wwwwwwwwwwwwwwp Previous wwwwwwwwwwwwwwp wwwwwwwwwwwwwwp AddRecord UpdateRecord Update DeleteRecord Delete QueryClearTextBoxes Query SearchRecord Search FirstRecord First LastRecord NextRecord PreviousRecord Previous ListRecords Label10_Click% Frame1_DragDrop Source Command2_Click Text5_Change Text6_Change Form_Click @ Form_Load sound form1C FirstName frame1? init@ wbtrvinit8 Frame2_DragDropX bcreate` filename BDefsF Frame3_DragDrop KeyBufS MAXKEYS| KeySpec search_Click btrcall[ initial_Change KeyBuff KeyBuflen KeyBuffer BufLen PatientVar KeyNum status bopen PosBlock5 BetreiveStatusError4 BetreiveErrorV BtreiveError BtreiveStatusErrork sleep DataBuf DataBuff FileBuf RecLen PageSize{ IndxCnt FileFlags KeyPos5 KeyPosxN KeyLen KeyFlagsG type) modifiablem exttype9 KeyTypeD bstringt FileBuff^ KeyPos1 KeyLen1t KeyPos0 KeyLen0 KeyFlags0B KeyType0 KeyFlags1 KeyType1 KeyPos2 KeyLen2 KeyFlags2 KeyType2 KeyPos3 KeyLen3 KeyFlags3 KeyType3 KeyPos4% KeyLen42 KeyFlags4 KeyType4I KeyPos5T KeyLen5a KeyFlags5 KeyType5x KeyPos6 KeyLen6 KeyFlags6= KeyType6 KeyPos7 KeyLen7 KeyFlags7 KeyType7 KeyPos8 KeyLen8 KeyFlags8M KeyType8 KeyPos9 KeyLen9 KeyFlags9t KeyType9r Form_KeyDownQ KeyCode Shift@ bcreatenew state_Change{ Label1_Click Label2_Click Label3_Click Label4_Click Label5_Click Label6_Click Label7_Click Label8_Click Label9_ClickE lastname_Change0 list_Click telephone_Change update_Click zip_Change address_Change firstname_ChangeN Messageg TextString HideShowDemo add_ClickB @ PreviousRecord_Click OpenList_Click AddRecord_Click Text1 Text1_Change Index LastRecord_Click\ PatId Lastname initial company address DataB state telephone binserth KeyGBuflen KeyFuflena NextRecord_Click FirstRecord_Click bfirst SaveRecord_Click* UpdateRecord_Click ListRecords_Click LoadDataBuf LoadFormText FormTe bgetnext bprevious bupdate Form_Unload Cancel* bclose DeleteRecord_Click bdeletex blast- ClearFormText[ SearchRecord_Click SubFields QPList1_Click6 ClearTextBoxes_ClickO bgetequale bgetgreaterorequal bGreaterOrEqual focus focuEnd ClearFormr scratch countk QueryClearTextBoxes_Click{ Form2 Customer+ Inventory Picture1_Click NextRec_Click Previous_Click Insurance Doctor Label1_LinkClose; Label1_LinkError LinkErr Label1_LinkOpen CustumerBuf CustomerBuf mainK names CustomerIDNumber KeyPosition0 KeyPosition1 KeyPosition2 KeyPosition3 KeyPosition4 KeyPosition5 KeyPosition6 KeyLength0 KeyLength1 KeyLength2 KeyLength3 KeyLength4 KeyLength5 KeyLength6 PositionBlock AddRecord_Click bcreate ACCOUNT NUMBER LAST NAME Company Name Company City Company State Company Zip Company Telephone names.btr Creating file ClearFormText ClearTextBoxes_Click DeleteRecord_Click Btreive Status%= Record Removed FirstRecord_Click Form_Load /p:4096 /m:38 /u:2 names.btr Creating btrieve file Form_Unload Btreive Close Status% LastRecord_Click ListRecords_Click put your print routines here LoadDataBuf LoadFormText Message NextRec_Click NextRecord_Click Picture1_Click Previous_Click PreviousRecord_Click QueryClearTextBoxes_Click SearchRecord_Click UpdateRecord_Click