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

 Here is the entire Galaxy Code Sheet:


Define quitfrmGalaxy


Declare GalaxyCustom()
Declare GalaxySetScreen()
Declare GalaxyCreate()
Declare GalaxyModify(GalaxyID.i)
Declare GalaxyDelete(GalaxyID.i)
Declare GalaxySetData()
Declare GalaxySave()

Declare GalaxyClose()

Procedure GalaxySetScreen()
  Protected String$, x, y, w, h, ID
  Shared WorkGalaxy
  Protected EventID, MenuID, GadgetID, WindowID, Index 
  Shared quitfrmGalaxy
  quitfrmGalaxy = #False
  If Window_frmGalaxy()
    DisableWindow(#Window_frmMain, #True) 
    SetActiveWindow(#Window_frmGalaxy)
    GalaxyCustom()
    
    SetGadgetText(#Gadget_frmGalaxy_txtName,  WorkGalaxy\Name)
    SetActiveGadget(#Gadget_frmGalaxy_txtName)
    ;Set Screen Data
    GALAXY::LoadListIcon(#Gadget_frmGalaxy_liSolarsystems)
    If ListEx::CountItems(#Gadget_frmGalaxy_liSolarsystems) > 0
      ListEx::SetState(#Gadget_frmGalaxy_liSolarsystems, 0)
    EndIf

    Repeat
      EventID =WaitWindowEvent()
      MenuID =EventMenu()
      GadgetID =EventGadget()
      WindowID =EventWindow()
      Select EventID
        Case #PB_Event_CloseWindow
          Select WindowID
            Case #Window_frmGalaxy
              GalaxyClose()
          EndSelect
        Case #PB_Event_Menu
          Select WindowID
          EndSelect
        Case #PB_Event_Gadget
          Select GadgetID
            ;*************************************
            ;**** Start frmGalaxy
            ;*************************************
            Case #Gadget_frmGalaxy_lbName
            Case #Gadget_frmGalaxy_txtName
              Select EventType()
                Case #PB_EventType_Focus
                  
                Default
              EndSelect
            Case #Gadget_frmGalaxy_lbSolarsystems
            Case #Gadget_frmGalaxy_liSolarsystems
              Select EventType()
                Case #PB_EventType_LeftDoubleClick
                  PostEvent(#PB_Event_Gadget, #Window_frmGalaxy, #Gadget_frmGalaxy_btModify, #PB_EventType_LeftClick)
              EndSelect
            Case #Gadget_frmGalaxy_btCreate
            Select EventType()
              Case #PB_EventType_LeftClick
                SolarSystemCreate()
            EndSelect
            Case #Gadget_frmGalaxy_btModify
            Select EventType()
              Case #PB_EventType_LeftClick
                Index=ListEx::GetState(#Gadget_frmGalaxy_liSolarsystems)
                If Index>-1
                  SolarSystemModify()
                Else
                  MessageRequester("Blog", "Please Select a Record To MODIFY!")
                EndIf
            EndSelect
            Case #Gadget_frmGalaxy_btDelete
            Select EventType()
              Case #PB_EventType_LeftClick
                Index=ListEx::GetState(#Gadget_frmGalaxy_liSolarsystems)
                If Index>-1
                  SolarSystemDelete()
                Else
                  MessageRequester("Blog", "Please Select a Record To DELETE!")
                EndIf
            EndSelect
            Case #Gadget_frmGalaxy_btSave
            Select EventType()
              Case #PB_EventType_LeftClick
                GalaxySave()
            EndSelect
            Case #Gadget_frmGalaxy_btCancel
            Select EventType()
              Case #PB_EventType_LeftClick
                GalaxyClose()
            EndSelect
          EndSelect
        EndSelect
      Until quitfrmGalaxy = #True
      CloseWindow(#Window_frmGalaxy)
    EndIf

EndProcedure


Procedure GalaxyCreate()
  Shared WorkGalaxy
  GALAXY::Init(@WorkGalaxy)
  GalaxySetScreen()
EndProcedure

Procedure GalaxyModify(GalaxyID.i)
  Shared WorkGalaxy
  GALAXY::Find(GalaxyID , @WorkGalaxy)
  GalaxySetScreen()
EndProcedure

Procedure GalaxyDelete(GalaxyID.i)
  Protected Index, Result, itemCount
  Index = ListEx::GetState(#Gadget_frmMain_liList) 
  DisableWindow(#Window_frmMain, #True) 
  Shared WorkGalaxy
  GALAXY::Find(GalaxyID , @WorkGalaxy)
    MessageRequester("Delete Confirmation", "Are you SURE you want To DELETE this Record ?", #PB_MessageRequester_YesNo )
    If Result = #PB_MessageRequester_Yes 
    If GALAXY::Delete(@WorkGalaxy) = #True
      ListEx::RemoveItem(#Gadget_frmMain_liList, Index)
      itemCount.i = ListEx::CountItems(#Gadget_frmMain_liList)-1
      If itemCount>0
        ListEx::SetState(#Gadget_frmMain_liList, 0)
      EndIf
    EndIf
  EndIf
  DisableWindow(#Window_frmMain, #False) 
EndProcedure

Procedure GalaxySetData()
  Protected Index
  Shared WorkGalaxy
  WorkGalaxy\Name = GetGadgetText(#Gadget_frmGalaxy_txtName) 
EndProcedure

Procedure GalaxySave()
  Shared WorkGalaxy
  Protected State = WorkGalaxy\State
  GalaxySetData()  
  ;Save to Database 
  If Galaxy::Save(@WorkGalaxy) = #True
    If State = DB::#New  ;insert record
      ListEx::AddItem(#Gadget_frmMain_liList,-1, WorkGalaxy\Name, "", 0)
      ListEx::SetItemData(#Gadget_frmMain_liList, ListEx::CountItems(#Gadget_frmMain_liList)-1, WorkGalaxy\ID)
      ListEx::SetState(#Gadget_frmMain_liList , ListEx::CountItems(#Gadget_frmMain_liList)-1)
    Else ;update selected record
      ListEx::SetItemText(#Gadget_frmMain_liList, ListEx::GetState(#Gadget_frmMain_liList), WorkGalaxy\Name,0)
    EndIf
    GalaxyClose()
  EndIf
EndProcedure

Procedure GalaxyClose()
  Shared quitfrmGalaxy
  If IsWindow(#Window_frmMain)
    SetActiveWindow(#Window_frmMain)
    DisableWindow(#Window_frmMain, #False)
  EndIf
  quitfrmGalaxy = #True
EndProcedure

Procedure GalaxyCustom()
  Define X, Y, W, H, Flags
  
  
  ;Convert the LidtIcinGadget to ListEX Custom Gadget
  X = GadgetX(#Gadget_frmGalaxy_liSolarsystems)     : Y = GadgetY(#Gadget_frmGalaxy_liSolarsystems)
  W = GadgetWidth(#Gadget_frmGalaxy_liSolarsystems) : H = GadgetHeight(#Gadget_frmGalaxy_liSolarsystems)
  FreeGadget(#Gadget_frmGalaxy_liSolarsystems)
  ;Now to create oue ListEx
  Flags = ListEx::#AdjustColumns|ListEx::#ResizeColumn|ListEx::#GridLines;|ListEx::#AutoResize
  ListEx::Gadget(#Gadget_frmGalaxy_liSolarsystems, X, Y, W, H, "", 25, "", Flags, #Window_frmMain)
  

EndProcedure


Comments

Post a Comment

Popular posts from this blog

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

Image
Completing this series of Entries can not be complete until we connect the data-Layer with the Forms, and the is the goal of these next few entries. As methodical as my approch was with the Data-Layer, will be my approach to Forms. Now regardless, of what tool, if any, you use to develop your forms; Forms serve only Two Purposes. The first being, to present data, from the database, to the users, and Secondly to input all changes the user makes back into the Database. I will pick up where we left off, and build out our Galaxy/SolarSystem Example with the following Forms: Galaxy Form: Solar System Form: And here is the Code that generates these forms. Procedure.i Window_frmSolarSystem() If OpenWindow(#Window_frmSolarSystem,0,0,430,186,"Solar System",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_Invisible,WindowID(#Window_frmMain)) TextGadget(#Gadget_frmSolarSystem_lbName,40,10,150,25,"Name: ",#PB_Text_Right) SetGadgetFont(#Gadget_
Read more

Module DB, the foundation of any Data Layer.

 At the heart of any application is the database. Therefore, this segment of the application should be bulletproof.  To prevent repeating code, it should start with the module I call DB.  Module DB it the bottom most module, it is the actual module which interacts with the database.  If later you decide to migrate your database from SQLite to say Postgres, then all you will need to do is tweak THIS Module.  This module will also contain the Enumeration of "STATE".  By this I mean the current state of the record, is it: New - Created but not yest saved to the database. Clean - The Record is "Untouched". It is Identical to the record saved in the Database. Dirty - The record was loaded from the database, but it has been changed in some manner. DeleteRec - The record has been marked for deletion, but the user has yet to commit the delete to the database. NewDirty - The record is new, but the User is changing something, or the new record is being modified but has never
Read more

Defining Database Tables (part 1)

 Welcome back! In this blog entry we will begin the definition of a Table DB Module, which will be built on top of our DB Module. As you will remember the DB Module is the lowest level Module in our Database Layer. He is the only module who interacts with the database, no other module in your application should directly touch the database. Now I will begin the definition of the Modules who sit atop DB. There are three distinct table Structures that have to be considered.  Single, or stand-alone, Table - examples of this the bottom Module of the Parent Child Structure, or and Class which has No Children.  A Static list of Values, a List of Error Codes. This is often referred to an "is a" paradigm. if an object is a ErrorType, where ErrorType is Not a child. Parent-Child Table - A great example of this would be Galaxy, a Galaxy has Many SolarSystems, each SolarSystem has many Planets, Each Planet has Many Factories.  As you can see the Parent Child Table Structure is best desc
Read more