           BASIC HELP : MS4BI by MS4script   
   2022 version 1.10

CHAPTER 13: WINDOWS

KEYWORD: BEGIN_TRANSACTION ... END_TRANSACTION

Definition
Creates a Windows transaction including one or more Windows dialogue boxes.

Syntax

  		   	 
BEGIN_TRANSACTION : VarCodeTransaction EXECUTE TRANSACTION 
         (condition) with VarExit operator (!=, <, >,=) varExit2
 ...
 
 END_TRANSACTION

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

  Begin_Dialog		
   API instructions
  End_Dialog	;
  Begin_Transaction : Trans1 Execute Transaction With VarExit != 1	
   	instruction + Exit transaction for VarExit
End_Transaction ;

transaction 1

Prerequisites
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

   
   Source Win Transaction   	
   Source & Copy Win Transaction

Remarks
This example :
driver:\MandragorePlanete\MS4BI\zDemo-Simple\win-00-database1.db.ms4
- handles the exit from a transaction, this is imperative

See also
BEGIN_DIALOG, END_DIALOG, OPENDIALOG, BEGIN_INITIALIZE, END_INITIALIZE, BEGIN_SPLASH, END_SPLASH, SHOWSPLASH
SHOWDIALOG, DESTROYDIALOG, REFRESHDIALOG,CLOSEDIALOG

KEYWORD : BEGIN_DIALOG ... END_DIALOG

KEYWORD : OPENDIALOG

Definition
Creates one or more Windows dialogue boxes in a Windows transaction.
Opens and displays a dialogue box

Syntax

  		   	 
 BEGIN_TRANSACTION
 BEGIN_DIALOG  
 		x, y, varheight,varWidth, "Your  title ",VarWinDialog1
-- API instructions-
            
 END_DIALOG;
BEGIN_DIALOG  
		x, y, varheight,varWidth, "Your  title ",VarWinDialog2
-- API instructions-
           
 END_DIALOG ;
 ... OPENDIALOG(VarWinDialog1,VarWinDialog2,..)
			-- instructions-
 END_TRANSACTION

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
                     BackgroundColor : Color(192,193,218)
 			WinExtendStyle :  :WS_EX_CLIENTEDGE
			WinStyle 	   :  :WS_OVERLAPPED & CenterDialog
	 		1, 1, 800,600, "MS 4  : Presentation  ",UserDialog
 	Frame     ....
	Grid 10,60, 530, 500, Grid1 Property : 
	ButtonText...                        

       Frame  	...	
 	 
End_Dialog	;
             
	OpenDialog (UserDialog1); 
	
  	instruction
	instruction Exit transaction for VarExit
	Begin_Transaction : Trans1 Execute Transaction With VarExit != 1	
 		BEGIN /* Exit Transaction */
 			Require  x := Pressed(ButtonQuit);
			IF (X Not_Void) THEN 
				SetStatusDialog(UserDialog1:SW_HIDE);
				Exit_TRANS1 := 1 ;
			End_if;
		END  ;

End_Transaction ;

transaction 2

Prerequisites
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

   
   Source Transaction 2   	
   Source & Copy Transaction 2

Remark 1
This example :
driver:\MandragorePlanete\MS4BI\zInclude\Call\Ms4TrialVersionServer.ms4
- handles the exit from a transaction, this is imperative
- you can declare several dialogue boxes in one transaction

Remark 2
- SHOWDIALOG(VarWindDialog) Makes a dialogue box visible
- DESTROYDIALOG(VarWinDialog) Deletes a dialogue box
- REFRESHDIALOG(VarWinDialog) Refreshes a dialogue box
- CLOSEDIALOG (VarWinDialog) Closes a dialogue box

See also
BEGIN_TRANSACTION, END_TRANSACTION, BEGIN_INITIALIZE, END_INITIALIZE, BEGIN_SPLASH, END_SPLASH, OPENDIALOG

KEYWORD : BEGIN_INITIALIZE ... END_INITIALIZE

Definition
Optional: for initializing variables in a Windows transaction.

Syntax

  		   	 

  BEGIN_DIALOG 
  ...
  END_DIALOG;
  BEGIN_DIALOG 
  ...
  END_DIALOG;
    BEGIN_INITIALIZE (optional)
        -- instructions-
		 OPENDIALOG(VarWinDialog1,..)
    END_INITIALIZE;
           
 BEGIN_TRANSACTION			
			 instructions + exit transaction 

 END_TRANSACTION

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     
	
Begin_Dialog		
 
 	Frame     ....
	Grid 10,60, 530, 500, Grid1 Property : 
	ButtonText...                        

       Frame  	...	
 	 
End_Dialog	;
       		Begin_Initialize
			SetWinTxt(Wtitle1:" MANDRAGORE PLANETE  &  MS4 BI  ");
			SetWinTxt(wtitleSplash:" MANDRAGORE PLANETE  ");
			SetWinTxt(Wtitle3:" Presentation ");
			SetWinTxt(Wtitle4:"MANDRAGORE PLANETE");
			 
	 		SetFontsGroup (12, 8, 0, 0,Fw_NORMAL,0,1, 0, Ansi_CHARSET, Out_DEFAULT_PRECIS,
			Clip_DEFAULT_PRECIS, Default_QUALITY, Ff_SWISS, "New Courrier":,
			Buttonwww,Buttonemail) ;
			SetWinTxt(Frame4:PostalAddress);
			SetWinTxt(Cercle1:"Exit");
			Color(192,193,218) return(Color1);
			SetColorText(Buttonwww:Blue, Color1);SetColorText(Buttonemail: Blue, Color1);
				GetDirSysPathMS4BI(filePath); 
				concatene  filePath, "\zPicture\PgmBmp\mgplanete.bmp" into fileMgPlaneteLogo;
				concatene  filePath, "\zPicture\PgmCursor\hand-l.cur" into filehandlcur;				
 		           ShowSplash(Splash1: 2500) ;
 	
			OpenDialog (UserDialog1); 
	 	End_Initialize;
      
	
Begin_Transaction : Trans1 Execute Transaction With VarExit != 1	
  	instruction

	instruction Exit transaction for VarExit
  

End_Transaction ;

Prerequisites
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

   
  Source Win Transaction 2 (trial)   	
  Source & Copy Win Transaction 2 (trial)

Remarks
This example :
driver:\MandragorePlanete\MS4BI\zDemo-Simple\win-00-database1.db.ms4

See also
BEGIN_TRANSACTION, END_TRANSACTION, BEGIN_DIALOG, END_DIALOG, BEGIN_SPLASH, END_SPLASH, SHOWSPLASH
SHOWDIALOG, DESTROYDIALOG, REFRESHDIALOG, CLOSEDIALOG

KEYWORD : BEGIN_SPLASH...END_SPLASH, SHOWSPLASH

Definition
Creates a splash dialogue in a Windows transaction.

Syntax

  		   	 

  
   
  BEGIN_SPLASH 
   		x, y, varheight,varWidth, "Your  title ",VarWinDialog2
  END_SPLASH;
         -- instructions-
	 	SHOWSPLASH( VarWinDialog2: timer nbr) ; 
    		 instructions + exit

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     
 
INTEGER : Exit_TRANSFRAMMSGWAIT :=0,I;
	 
	 
Begin_Splash
		BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
		WinStyle 	 : :Ws_POPUP & CenterDialog 0,0,250,100 ,"MS4 SCRIPT :  Wait APP ",Splash1
		
		Frame 10, 10,220,70, wtitleSplash Attribut :
		FillColor : 144,136,176		 FrameColor : 250,250,250
		ShadowText : 1,2 Color(0,0,0)	 SetColorText : 185,50,90
		DrawText : Dt_CENTER
		SetFonts :
		20,8,0,0,Fw_NORMAL,0,0,0,"Arial"
End_Splash ;
SetWinTxt(wtitleSplash:" WAIT ....................  MANDRAGORE PLANETE   ");
         ShowSplash(Splash1: 6500) ;
		 SetStatusDialog(UserDialog:Sw_HIDE);
	      exit;

Prerequisites
#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

transaction 3

   
  Source Win Transaction 2 (trial)   	
   Source & Copy Win Transaction 2 (trial)

Remarks
This example :
driver:\MandragorePlanete\MS4BI\zInclude\Call\Ms4wait2.ms4

See also
BEGIN_TRANSACTION, END_TRANSACTION, BEGIN_DIALOG, END_DIALOG, BEGIN_INITIALIZE, END_INITIALIZE
SHOWDIALOG, DESTROYDIALOG, REFRESHDIALOG, CLOSEDIALOG

Interested in joining us? contact@mgplanete.com
The Mg Planete team

the official sites :
mgplanete.com
getms4bi.com
demos.ms4bi.com
help.ms4bi.com
ms4script.com

Download

official site :
getms4bi.com

Our purpose : Keep it simple !

written with ms4script

help 01.010.2022.8

MS4BI in 5 minutes

MS4BI Trial Version : Informations :
this message will disappear : Purchase Professional Licence :

https://getms4bi.com

MS4BI HELP 2022

Designer

BASIC HELP : MS4BI by MS4script

CHAPTER 13: WINDOWS

KEYWORD: BEGIN_TRANSACTION ... END_TRANSACTION

Definition

Syntax

Example

transaction 1

Prerequisites

Remarks

See also

KEYWORD : BEGIN_DIALOG ... END_DIALOG

KEYWORD : OPENDIALOG

Definition

Syntax

Example

transaction 2

Prerequisites

Remark 1

Remark 2

See also

KEYWORD : BEGIN_INITIALIZE ... END_INITIALIZE

Definition

Syntax

Example

Prerequisites

Remarks

See also

KEYWORD : BEGIN_SPLASH...END_SPLASH, SHOWSPLASH

Definition

Syntax

Example

Prerequisites

transaction 3

Remarks

See also

Copyright 2022 by Mandragore Planete

Download

Our purpose : Keep it simple !

MS4BI in 5 minutes