Single or Stand-alone table (part 7)

 This brings up to the Delete Procedure, and the DeleteValidate Procedure. These we will explain in this post.

Just as the Save Procedure call a Validate Procedure, so the Delete Procedure call a DeleteValidate Procedure.   In this manner you can easily insert code to ensure the record being deleted is not being "used" or referenced elsewhere in your application. The Delete itself is very straight forward.

  Procedure.i Delete(*Class.FighterSize)
    Protected Result, DBID 
    Protected Sql$ 
    If DeleteValidate(*Class) = #False 
      ProcedureReturn #False 
    Else 
      DBID = DB::Open(DBTYPE::#Sqlite)
      SetDatabaseLong(DBID, 0, *Class\ID) 
      Sql$ = " DELETE "
      Sql$ = Sql$ + "FROM "
      Sql$ = Sql$ + "FighterSize "
      Sql$ = Sql$ + "WHERE "
      Sql$ = Sql$ + "ID = ?  "
      Result = DB::Update(DBID, Sql$) 
      DB::Close(DBID) 
    ProcedureReturn Result 
  EndIf

If the Record is approved for deletion, we open the Database with a call to our DB Module, Create the Delete SQL. Then Call the Update query Procedure or our DB Module, Close the Database and return the Results of our SQL Query.


The DeleteValidation procedure is very Custom to the application. Only you know how the data layer is built and what records are in use where. So Here I will give you examples of how this module can be written.

Here is a default shell, which tests nothing, simply returns that the record in question is valid to be deleted.

  Procedure.i DeleteValidate(*Class.FighterSize)
    Protected DBID, Sql$, Cnt, PassFail, ErrMsg.s 
    PassFail.i = #True 
    ErrMsg.s = ""
    ;Validation SQL goes here
    If PassFail= #False
      THEMEDMESSAGE::MessageBox("Error", ErrMsg) 
    EndIf
    ProcedureReturn PassFail 
  EndProcedure

In this example I'll make a check against another table to ensure that the Fighter in question has not already been assigned to a carrier. If has, then the record must first be removed from the Carrier Before it can be deleted.

  
  Procedure.i DeleteValidate(*Class.FighterSize)
    Protected DBID, Sql$, Cnt, PassFail, ErrMsg.s 
    PassFail.i = #True 
    ErrMsg.s = ""
    DBID = DB::Open(DBTYPE::#Sqlite)
    SetDatabaseLong(DBID, 0, *Class\ID) 
    Sql$ = "SELECT 
    Sql$ = Sql$ + "Name"
    Sql$ = Sql$ + "FROM "
    Sql$ = Sql$ + "Carrier "
    Sql$ = Sql$ + "WHERE "
    Sql$ = Sql$ + "FighterSizeID = ? "
    If DB::Query(DBID, Sql$) 
      While NextDatabaseRow(DBID)  
        Cnt.c =  GetDatabaseLong(DBID, 0)  
        If Cnt > 0  
          PassFail= #False  
          ErrMsg= "Fighter Size in use in Carrier: "+GetDatabaseString(DBID, DatabaseColumnIndex(DBID,"Name")) 
        EndIf  
      Wend  
    EndIf
    DB::Close(DBID) 
    If PassFail= #False
      THEMEDMESSAGE::MessageBox("Error", ErrMsg) 
    EndIf
    ProcedureReturn PassFail 
  EndProcedure

The DeleteValidate Procedure has the Job to ensure that the record can be deleted, but it also has the job to report to the user why it cannot be deleted. this is simply achieved by displaying a message detailing the reason the record cannot be deleted.


    If PassFail= #False
      THEMEDMESSAGE::MessageBox("Error", ErrMsg) 
    EndIf

once this has been completed, he simply returns the result of his findings back to the Delete Procedure.




Comments

Post a Comment

Popular posts from this blog

How to build this without writing Code

I'm not sure if I should do this now, because I have not explained a number of additional aspects to the code, but for those of you who are interested.  The foundation of what I shown you here, IS the foundation of code my PBXClassBuilder-Standard generates for you.  And I truly mean generates  for you. You can have all this code generated for you without writing a single line of it yourself. Now PBXClassBuilder-Standard is not perfect, it is approximately 90=95% accurate. And I am constantly tweaking it edging this number ever higher. To use PBXClassBuilder-Standard, You should start with Forms already laid out and built.  Within PBXClassBuilder-Standard you use intuitive screens to define your table structure, while linking the Table Fields to their intended form Fields.  Then link the Tables together as Parent Child, and finally you simply click buttons to generate the code, Including the SQL Code to create the tables. The Whole development process, post For...
Read more

Connecting the Forms to the Data-Layer (part 8)

 So now we are down to just the SolarSystem Code Sheet. This is NOT a rubberstamp of the Galaxy. The MAIN reason is that the Galaxy Records are Sourced directly from the Database, As you will recall our SolarSystem is Sourced from the Galaxy Record's Solar System Collection NOT the Database. This makes for a VERY Significant difference between in the code. Our Procedure are the save ALL the Steps are the same, the differences are in the details. Starting once again at the top, we have our declares: Define quitfrmSolarSystem Declare SolarSystemCustom() Declare SolarSystemSetScreen() Declare SolarSystemCreate() Declare SolarSystemModify() Declare SolarSystemDelete() Declare SolarSystemSetData() Declare SolarSystemSave() Declare SolarSystemClose() And then, as before the SetScreen Procedure, and Control-Loop. Procedure SolarSystemSetScreen() Protected String$, x, y, w, h, i, ID Shared WorkSolarSystem Protected EventID, MenuID, GadgetID, WindowID, Index Shared quitfrm...
Read more

Connecting the Forms to the Data-Layer (part 9)

Here is the whole View Code Sheet Define quitfrmSolarSystem Declare SolarSystemCustom() Declare SolarSystemSetScreen() Declare SolarSystemCreate() Declare SolarSystemModify() Declare SolarSystemDelete() Declare SolarSystemSetData() Declare SolarSystemSave() Declare SolarSystemClose() Procedure SolarSystemSetScreen() Protected String$, x, y, w, h, i, ID Shared WorkSolarSystem Protected EventID, MenuID, GadgetID, WindowID, Index Shared quitfrmSolarSystem quitfrmSolarSystem = #False If Window_frmSolarSystem() SolarSystemCustom() SetActiveWindow(#Window_frmSolarSystem) ;Set Screen Data SetGadgetText(#Gadget_frmSolarSystem_txtName, WorkSolarSystem\Name) SetGadgetText(#Gadget_frmSolarSystem_txtGrow, Str(WorkSolarSystem\GRow)) SetGadgetText(#Gadget_frmSolarSystem_txtGCol, Str(WorkSolarSystem\GCol)) SetActiveGadget(#Gadget_frmSolarSystem_txtName) Repeat EventID =WaitWindowEvent() MenuID =EventMenu() GadgetID =EventG...
Read more