Posts

Showing posts with the label SolarSystem Modult

Parent Child Table (part 6)

 So, as before, here is the whole Solar System Module, or Child Module: XIncludeFile "../Utils/ThemedMessage.pbi" XIncludeFile "DB.pbi" DeclareModule SOLARSYSTEM Structure SolarSystem ID.i ; Table Primary Key GalaxyID.i ; Foreign Key to Table Galaxy Name.s ; Name of SolarSystem GRow.i ; Galactic Row GCol.i ; Galactic Column State.i EndStructure Declare LoadComboName(cbData.i) Declare LoadListViewName(lvData.i) Declare LoadListIcon(liData.i) Declare CreateTable() Declare.i Init(*Class.SolarSystem) Declare.i Find(SolarSystemID.i, *Class.SolarSystem) Declare.i FindByName(Name$, *Class.SolarSystem) Declare.i Save(*Class.SolarSystem) Declare.i Delete(*Class.SolarSystem) Declare.i Validate(*Class.SolarSystem) Declare.i DeleteValidate(*Class.SolarSystem) EndDeclareModule Module SOLARSYSTEM EnableExplicit Declare Dispose(*Class.S...