Connecting the Forms to the Data-Layer (part 6)
Now Let's look at The Galaxy View Code. I'll take it from the Top Down. the the next post will be it in its entirety. Beginning at the top we Have: Define quitfrmGalaxy Declare GalaxyCustom() Declare GalaxySetScreen() Declare GalaxyCreate() Declare GalaxyModify(GalaxyID.i) Declare GalaxyDelete(GalaxyID.i) Declare GalaxySetData() Declare GalaxySave() Declare GalaxyClose() These are nothing more than the declaration of the aforementioned Procedures. First Procedure is the "SetScreen", as I always put the Form Custom at the bottom. You will remember this Procedure's job is to Display the Form, and load information from the DataLayer to the Screen. After this the procedure contains the Control-Loop for the form. Procedure GalaxySetScreen() Protected String$, Index, ID Shared WorkGalaxy Protected EventID, MenuID, GadgetID, WindowID, Index Shared quitfrmGalaxy quitfrmGalaxy = #False If Window_frmList() DisableWindow(#Window_frmMain, #True) ...