Attempting to make a type of database program

[krash81]

Greetings, I am attempting to create a database type of program to save basic user information in a file. Everything seems to work except for one thing, when I change a field and save the file, then navigate back to that record, the change isn't reflected on the screen. I believe I am just somehow not saving the file correctly. Any help would be greatly appreciated!





   nomainwin

   cc = 0

   WindowWidth = 936

   WindowHeight = 600



   UpperLeftX=int((DisplayWidth-WindowWidth)/2)

   UpperLeftY=int((DisplayHeight-WindowHeight)/2)



   statictext #main.statictext1, "Krash's Client Directory", 350, 36, 144, 20

   statictext #main.statictext2, "First Name:", 86, 76, 72, 20

   statictext #main.statictext3, "Last Name:", 86, 106, 72, 20

   statictext #main.statictext4, "Phone Number:", 86, 141, 96, 20

   statictext #main.statictext5, "Address:", 86, 171, 56, 20

   statictext #main.statictext6, "City:", 86, 231, 32, 20

   statictext #main.statictext7, "State:", 86, 266, 40, 20

   statictext #main.statictext8, "Zip Code:", 86, 301, 64, 20

   textbox #main.address, 182, 171, 224, 55

   textbox #main.firstName, 182, 76, 208, 25

   textbox #main.lastName, 182, 106, 208, 25

   textbox #main.phoneNumber, 182, 141, 208, 25

   textbox #main.city, 182, 231, 100, 25

   textbox #main.state, 182, 261, 100, 25

   textbox #main.zipCode, 182, 296, 100, 25

   statictext #main.statictext16, "Pitch:", 86, 356, 40, 20

   textbox #main.pitch, 182, 356, 520, 160

   statictext #main.statictext19, "Client ID:", 86, 331, 56, 20

   textbox #main.clientID, 182, 326, 100, 25

   button #main.button21, "Previous", [prevRecord], UL, 182, 531, 112, 25

   button #main.button22, "Next", [nextRecord], UL, 310, 531, 122, 25

   button #main.button23, "Save", [clientSave], UL, 446, 531, 122, 25

   button #main.button24, "Exit", [kcdQuit], UL, 582, 531, 122, 25

   statictext #main.statictext25, "Client Notes:", 422, 76, 80, 20

   textbox #main.clientNotes, 502, 76, 368, 205



   open "clientViewer" for window as #main

   print #main, "trapclose [quit.main]"



   print #main, "font ms_sans_serif 10"

   print #main.statictext1, "!font MS_Sans_Serif 15"



   'populate the arrays with client data from file

   dim fName$(100)

   dim lName$(100)

   dim phNumber$(100)

   dim addy$(100)

   dim clientCity$(100)

   dim clientState$(100)

   dim clientZip$(100)

   dim clientNotez$(100)





   [grabClients]

   open str$(cc) + ".txt" for input as #1



       currentClient = cc



       do

           input #1, cFirstName$





           input #1, cLastName$

           input #1, cPhoneNum$

           input #1, cAddress$

           input #1, clientTown$

           input #1, cState$

           input #1, cZipCode$

           input #1, clientInfo$



           fname$(currentClient) = cFirstName$

           lname$(currentClient) = cLastName$

           phNumber$(currentClient) = cPhoneNum$

           addy$(currentClient) = cAddress$

           clientCity$(currentClient) = clientTown$

           clientState$(currentClient) = cState$

           clientZip$(currentClient) = cZipCode$

           clientNotez$(currentClient) = clientInfo$



           currentClient = currentClient + 1



       loop until eof(#1)

       close #1

       'done loading data to display



       'populate the form

       currentClient = cc

       print #main.clientID, str$(currentClient)

       print #main.firstName, fname$(currentClient)

       print #main.lastName, lname$(currentClient)

       print #main.phoneNumber, phNumber$(currentClient)

       print #main.address, addy$(currentClient)

       print #main.city, clientCity$(currentClient)

       print #main.state, clientState$(currentClient)

       print #main.zipCode, clientZip$(currentClient)

       print #main.clientNotes, clientNotez$(currentClient)





       wait





       [quit.Main]

       end



       [kcdQuit]

       close #main

       end



       [nextRecord]

       cc = cc + 1

           if cc > 99 then cc = 100





       goto [grabClients]

       wait



       [prevRecord]

       cc = cc - 1

           if cc < 1 then cc = 0

       goto [grabClients]

       wait



       [clientSave]

       currentClient = clientID



       print #main.firstName, "!contents? cFirstName$"

       print #main.lastName, "!contents? cLastName$"

       print #main.phoneNumber, "!contents? cPhoneNum$"

       print #main.address, "!contents? cAddress$"

       print #main.city, "!contents? clientTown$"

       print #main.state, "!contents? cState$"

       print #main.zipCode, "!contents? cZipCode$"

       print #main.clientNotes, "!contents? clientInfo$"





       fname$(currentClient) = cFirstName$

       lname$(currentClient) = cLastName$

       phNumber$(currentClient) = cPhoneNum$

       addy$(currentClient) = cAddress$

       clientCity$(currentClient) = clientTown$

       clientState$(currentClient) = cState$

       clientZip$(currentClient) = cZipCode$

       clientNotez$(currentClient) = clientInfo$









       open str$(clientID) + ".txt" for output as #1



       print #1, fname$(currentClient)

       print #1, lname$(currentClient)

       print #1, phNumber$(currentClient)

       print #1, addy$(currentClient)

       print #1, clientCity$(currentClient)

       print #1, clientState$(currentClient)

       print #1, clientZip$(currentClient)

       print #1, clientNotez$(currentClient)

       close #1







       wait










[B+]

When you save the data to file, you have to loop through the arrays and write everything back again when you use open for OUTPUT because OUTPUT deletes old file and writes the file afresh, it is the exact reverse of loading your arrays.

You can work a record at a time with Open for Random Access and then it is customary to define fields for your record.

[krash81]

Thanks so much for your help!

[B+]

You are most welcome, and if you plan to do more work with data base apps, I highly recommend learning Random Access file methods.

[krash81]

I will definately look into that, thanks for the advice. I'm now just having one more issue with the program, I've got everything to work except that when I attempt to load the information for the 11th client from a file (11.txt), it says "Subscript out of range", but I dimensioned all my array's to be 100 elements, so not sure what's going on here. Anyhow, here's the code:


   nomainwin
   cc = 0
   dim callChoice$(8)
   callChoice$(0) = "No Answer"
   callChoice$(1) = "Not Available"
   callChoice$(2) = "Left Voicemail"
   callChoice$(3) = "Not Interested"
   callChoice$(4) = "Request Callback"
   callChoice$(5) = "Remove Number"
   callChoice$(6) = "Sale"
   callChoice$(7) = "Wrong Number"
   callChoice$(8) = "None"

   WindowWidth = 936
   WindowHeight = 600

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

   statictext #main.statictext1, "Krash's Client Directory", 350, 36, 216, 35
   statictext #main.statictext2, "First Name:", 86, 76, 72, 20
   statictext #main.statictext3, "Last Name:", 86, 106, 72, 20
   statictext #main.statictext4, "Phone Number:", 86, 141, 96, 20
   statictext #main.statictext5, "Address:", 86, 171, 56, 20
   statictext #main.statictext6, "City:", 86, 231, 32, 20
   statictext #main.statictext7, "State:", 86, 266, 40, 20
   statictext #main.statictext8, "Zip Code:", 86, 301, 64, 20
   textbox #main.address, 182, 171, 224, 55
   textbox #main.firstName, 182, 76, 208, 25
   textbox #main.lastName, 182, 106, 208, 25
   textbox #main.phoneNumber, 182, 141, 208, 25
   textbox #main.city, 182, 231, 100, 25
   textbox #main.state, 182, 261, 100, 25
   textbox #main.zipCode, 182, 296, 100, 25
   statictext #main.statictext16, "Pitch:", 86, 356, 40, 20
   textbox #main.pitch, 182, 356, 520, 160
   statictext #main.statictext19, "Client ID:", 86, 331, 56, 20
   textbox #main.clientID, 182, 326, 100, 25
   button #main.button21, "Previous", [prevRecord], UL, 182, 531, 112, 25
   button #main.button22, "Next", [nextRecord], UL, 310, 531, 122, 25
   button #main.button23, "Save", [clientSave], UL, 446, 531, 122, 25
   button #main.button24, "Exit", [kcdQuit], UL, 582, 531, 122, 25
   button #main.button27, "Load Pitch", [loadPitch], UL, 54, 416, 122, 25
   listbox #main.callDisp, callChoice$(, [callResolution], 734, 356, 160, 160
   statictext #main.statictext25, "Client Notes:", 422, 76, 80, 20
   textbox #main.clientNotes, 502, 76, 368, 205

   open "clientViewer" for window as #main
   print #main, "trapclose [quit.main]"

   print #main, "font ms_sans_serif 10"
   print #main.statictext1, "!font MS_Sans_Serif 15"

   'populate the arrays with client data from file
   dim fName$(100)
   dim lName$(100)
   dim phNumber$(100)
   dim addy$(100)
   dim clientCity$(100)
   dim clientState$(100)
   dim clientZip$(100)
   dim clientNotez$(100)
   dim callOutcome$(100)


   [grabClients]



   open str$(cc) + ".txt" for input as #1

       currentClient = cc


           input #1, cFirstName$
           input #1, cLastName$
           input #1, cPhoneNum$
           input #1, cAddress$
           input #1, clientTown$
           input #1, cState$
           input #1, cZipCode$
           input #1, clientInfo$
           input #1, callDisposition$


           fname$(currentClient) = cFirstName$
           lname$(currentClient) = cLastName$
           phNumber$(currentClient) = cPhoneNum$
           addy$(currentClient) = cAddress$
           clientCity$(currentClient) = clientTown$
           clientState$(currentClient) = cState$
           clientZip$(currentClient) = cZipCode$
           clientNotez$(currentClient) = clientInfo$
           callOutcome$(currentClient) = callDisposition$

  close #1

       'done loading data to display

       'populate the form
       currentClient = cc
       print #main.clientID, str$(currentClient)
       print #main.firstName, fname$(currentClient)
       print #main.lastName, lname$(currentClient)
       print #main.phoneNumber, phNumber$(currentClient)
       print #main.address, addy$(currentClient)
       print #main.city, clientCity$(currentClient)
       print #main.state, clientState$(currentClient)
       print #main.zipCode, clientZip$(currentClient)
       print #main.clientNotes, clientNotez$(currentClient)


       if callOutcome$(currentClient) = "Not Available" then
           #main.callDisp "selectindex 2"
       end if

       if callOutcome$(currentClient) = "None" then
           #main.callDisp "selectindex 9"
       end if

       if callOutcome$(currentClient) = "No Answer" then
           #main.callDisp "selectindex 1"
       end if

       if callOutcome$(currentClient) = "Left Voicemail" then
           #main.callDisp "selectindex 3"
       end if

       if callOutcome$(currentClient) = "Not Interested" then
           #main.callDisp "selectindex 4"
       end if

       if callOutcome$(currentClient) = "Request Callback" then
           #main.callDisp "selectindex 5"
       end if

       if callOutcome$(currentClient) = "Remove Number" then
           #main.callDisp "selectindex 6"
       end if

       if callOutcome$(currentClient) = "Sale" then
           #main.callDisp "selectindex 7"
       end if

       if callOutcome$(currentClient) = "Wrong Number" then
           #main.callDisp "selectindex 8"
       end if




wait


       [quit.main]
       close #main
       end

       [kcdQuit]
       close #main
       end

       [nextRecord]
       cc = cc + 1
           if cc > 99 then cc = 100


       goto [grabClients]
       wait

       [prevRecord]
       cc = cc - 1
           if cc < 1 then cc = 0
       goto [grabClients]
       wait

       [clientSave]




       currentClient = cc
       print #main.firstName, "!contents? cFirstName$"
       print #main.lastName, "!contents? cLastName$"
       print #main.phoneNumber, "!contents? cPhoneNum$"
       print #main.address, "!contents? cAddress$"
       print #main.city, "!contents? clientTown$"
       print #main.state, "!contents? cState$"
       print #main.zipCode, "!contents? cZipCode$"
       print #main.clientNotes, "!contents? clientInfo$"
       print #main.callDisp, "selection? callResult$"




       fname$(currentClient) = cFirstName$
       lname$(currentClient) = cLastName$
       phNumber$(currentClient) = cPhoneNum$
       addy$(currentClient) = cAddress$
       clientCity$(currentClient) = clientTown$
       clientState$(currentClient) = cState$
       clientZip$(currentClient) = cZipCode$
       clientNotez$(currentClient) = clientInfo$
       callOutcome$(currentClient) = callResult$




       open str$(currentClient) + ".txt" for output as #1

       print #1, fname$(currentClient)
       print #1, lname$(currentClient)
       print #1, phNumber$(currentClient)
       print #1, addy$(currentClient)
       print #1, clientCity$(currentClient)
       print #1, clientState$(currentClient)
       print #1, clientZip$(currentClient)
       print #1, clientNotez$(currentClient)
       print #1, callOutcome$(currentClient)
       close #1


       wait

       [loadPitch]
       open "pitch.txt" for input as #1
       do
       line input #1, currLine$
       pitch$ = pitch$ + currLine$
       loop until eof(#1)
       close #1

       print #main.pitch, pitch$

       wait

       [callResolution]

       print #main.callDisp, "selection? callResult$"

       if callResult$ = "Sale" then
           notice "Congratz!"
           goto [clientSave]
       end if

       wait



[Rod]

Whenever you see that error you should be looking for an array you have not defined properly. Misspelt? Just basic allows any array to be ten elements but anything greater needs defined.

[Rod]

For example dim fName$(100) then print #main.firstName, fname$(currentClient) wont work because fName$( is not the same array as fname$ You must maintain the case in array names.