Connecting Forms to Data-Layer (part 4)

 Now we will finish out our frmMain or our Application Desk Top 

Scrolling down our Control loop we get to the section with out List of Galaxies, and our Create, Modify, Delete Buttons.

Our first change will be to the List, specifically we want the default behavior of Double-Clicking an Item in our list to be "Modify". To accomplish this, we insert a PostEvent command which will Left-Click the the Modify Button for us.


          Case #Gadget_frmMain_liList
            Select EventType()
              Case #PB_EventType_LeftDoubleClick
                PostEvent(#PB_Event_Gadget, #Window_frmMain, #Gadget_frmMain_btModify, #PB_EventType_LeftClick)
              Default
            EndSelect

Next we Come to the Create Button, Here we want to call our GalaxyCreate Method.


          Case #Gadget_frmMain_btCreate
            Select EventType()
              Case #PB_EventType_LeftClick
                GalaxyCreate()
              Default
            EndSelect

Here is our FIRST Reference to the View Code, or Code Behind the Form, I'll Jump to that code in a moment. First let us finish the Code here in the Control-Loop.  We have the Modify and Delete Buttons:


            Select EventType()
              Case #PB_EventType_LeftClick
                Index = ListEx::GetState(#Gadget_frmMain_liList)
                If Index > -1
                  ID = ListEx::GetItemData(#Gadget_frmMain_liList, Index)
                  GalaxyDelete(ID)
                Else
                  MessageRequester("Blog", "Please select a Galaxy to MODIFY!")
                EndIf
              Default
            EndSelect

In the Modify, we first need to make sure that the User has selected a Record, If Not then tell them of their mistake, If they Have selected a Record then we retrieve the Record ID from the ItemData Property of the selected record and once again call our View Code GalaxyModify Procedure passing it the ID.


          Case #Gadget_frmMain_btDelete
            Select EventType()
              Case #PB_EventType_LeftClick
                Index = ListEx::GetState(#Gadget_frmMain_liList)
                If Index > -1
                  ID = ListEx::GetItemData(#Gadget_frmMain_liList, Index)
                  GalaxyDelete(ID)
                Else
                  MessageRequester("Blog", "Please select a Galaxy to DELETE!")
                EndIf
              Default
            EndSelect

In the Delete, we ance again need to make sure that the User has selected a Record, If Not then tell them of their mistake, If they Have selected a Record then we retrieve the Record ID from the ItemData Property of the selected record and once again call our View Code GalaxyDelete Procedure passing it the ID.

And finally, we have the Power Button.


          Case #Gadget_frmMain_btPower
            Select EventType()
              Case #PB_EventType_LeftClick
                 quitfrmMain = #True
              Default
            EndSelect

So here is to Complete Code of the Desktop Form. We will picup the next Post on the Galaxy View Code.

++++++++++++++++++++++






Comments

Post a Comment

Popular posts from this blog

PAHLabs Blog goes Live

 Welcome All! Today with this post the PAHLabs Blog goes Live. It is a goal of mine to share with others my passion in Software Development, Coding and Application Design.  I plan to use this blog to reach out to those of like minds, and especially those wanting to learn. Though in my 40+ year career in software development I have written many, many software languages, this blog is mostly going to focus on PureBasic.  I have an accompanying website ( https://www.PAHLabs.com ) where I have both free and licensed software products, developed using the PureBasic Language.  You can find out more about PureBasic at  PureBasic Here in my blog, I will begin explaining how these applications were written, and to share with you how I develop software.   The first thing about software development I wish to share with you is that software development is all about solving problems. A software program is nothing more than a solution to a problem.  As with ALL ...
Read more

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 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