PETER ZHOU
WD 24 query on internal windows July 27, 2020 04:30PM |
Re: WD 24 query on internal windows July 28, 2020 08:23AM |
Registered: 5 years ago Posts: 112 |
PETER ZHOU
Re: WD 24 query on internal windows August 01, 2020 06:28PM |
Re: WD 24 query on internal windows August 04, 2020 10:35PM |
Registered: 5 years ago Posts: 19 |
Re: WD 24 query on internal windows August 05, 2020 06:47AM |
Registered: 5 years ago Posts: 112 |
DeclareNotificationProcedure("Delete.customers", OnDelete) INTERNAL PROCEDURE OnDelete(ParameterNotif <useful>) Table_customers.Display(taInit) Table_customers.ExecuteProcess(trtSelection) END
PETER ZHOU
Re: WD 24 query on internal windows August 06, 2020 03:52PM |
Re: WD 24 query on internal windows August 07, 2020 07:24AM |
Registered: 5 years ago Posts: 112 |
DeclareNotificationProcedure("Add.customers", OnAdd) INTERNAL PROCEDURE OnAdd(ParameterNotif <useful>) Table_customers.Display(taInit) END DeclareNotificationProcedure("Modif.customers", OnModification) INTERNAL PROCEDURE OnModification(ParameterNotif <useful>) Table_customers.Display(taCurrentRecord) END DeclareNotificationProcedure("Delete.customers", OnDelete) INTERNAL PROCEDURE OnDelete(ParameterNotif <useful>) Table_customers.Display(taInit) END
DeclareNotificationProcedure("Add.customers", OnAdd) INTERNAL PROCEDURE OnAdd(ParameterNotif <useful>) Table_customers.Display(taReExecuteQuery) END DeclareNotificationProcedure("Modif.customers", OnModification) INTERNAL PROCEDURE OnModification(ParameterNotif <useful>) Table_customers.Display(taCurrentRecord) END DeclareNotificationProcedure("Delete.customers", OnDelete) INTERNAL PROCEDURE OnDelete(ParameterNotif <useful>) Table_customers.Display(taReExecuteQuery) END
PETER ZHOU
Re: WD 24 query on internal windows August 10, 2020 03:39PM |
Re: WD 24 query on internal windows August 12, 2020 08:46AM |
Registered: 5 years ago Posts: 112 |
eP_CallBack is associative array (WithDuplicates) of procedure3.2. Create a Global procedure DeclareNotificationProcedure wich belongs to the above set:
PROCEDURE DeclareNotificationProcedure(Notification is string, CallBack is procedure) eP_CallBack[Notification] = CallBack3.3. Create a Global procedure Notify wich belongs to the same set:
PROCEDURE Notify(Notification is string, ParameterNotif = "") FOR i = 1 _TO_ eP_CallBack[Notification]..Count ProcCallBack is procedure <- eP_CallBack[Notification, i] ProcCallBack(ParameterNotif) END