Pour mémoire, nous vous rappellons que :
Un fichier mixé a pour extension upx. Par exemple, un document de nom mondocument aura pour nom de fichier mondocument.upx.
Le fichier de code mixé doit être au moins accessible en lecture.
ImporterModule
ListeDeModulesImportes(
NomDeLInterface ImporterDefinitions LicenceDemandee );
, ImporterDefinitions
, LicenceExpresse
, LicenceStandard
, LicenceEntreprise
Public SuiteTypeDAcces :
Protege SuiteTypeDAcces :
Prive SuiteTypeDAcces :
Lecture Public
Lecture Protege
Un seul composant peut être encapsulé dans la ressource. Cependant, celui-ci peut faire appel à des modules externes.
DefinitionsProgramme
Fin DefinitionsProgramme
Expression (
Expression )
Instructions
Fin Instructions
Rappels
Fin Rappels
Une seule ressource par type peut être encapsulée dans le programme. Cependant, celles-ci peut faire appel à des ressources externes.
<?UpsMxr:DefinitionsProgramme
?>
<?UpsMxr:Expression
Expression ?><?UpsMxr:Instructions
?>
<?UpsMxr:Rappels
?>
DefinitionsAnnuaire
Fin DefinitionsAnnuaire
DefinitionsAnnuaireElectronique
Fin DefinitionsAnnuaireElectronique
DefinitionsDocument
Fin DefinitionsDocument
DefinitionsEchange
Fin DefinitionsEchange
DefinitionsImage
Fin DefinitionsImage
DefinitionsSecurite
Fin DefinitionsSecurite
DefinitionsStyle
Fin DefinitionsStyle
DefinitionsSgml
Fin DefinitionsSgml
DefinitionsXml
Fin DefinitionsXml
Annuaire
NomDeLAnnuaireFin Annuaire
AnnuaireElectronique
NomDeLAnnuaireElectroniqueFin AnnuaireElectronique
Document
NomDuDocumentFin Document
Echange
NomDeLEchangeFin Echange
Image
NomDeLImageFin Image
Securite
NomDuProfilDeSecuriteFin Securite
Style
NomDeLaFeuilleDeStylesFin Style
Sgml
Fin Sgml
Xml
Fin Xml
Source Document "Exemple d'emploi d'Up ! 5GL Mixer et Up ! Document" Version 4.0.0;
DefinitionsProgramme
/******************/
Source Composant "Exemple d'emploi d'Up ! 5GL Mixer et Up ! Document" Version 4.0.0;
ImporterModule
/************/
UpsQry(<UpsQry.upi>);
UpsOra(<UpsOra.upi>);
ConnexionSql
/**********/
MaConnexionSql(Oracle, "scott/tiger");
RequeteSql
/********/
MaRequeteSql ConnexionSql MaConnexionSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, Salaire : Nul Ou Reel)
TailleTableauResultatSql 5
ParametreSql(NumeroDepartement : Entier)
SqlStatique
SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, sal:=${Salaire}
FROM emp
WHERE deptno=${NumeroDepartement};
Fin DefinitionsProgramme
Debut
Section
PageA4;
OrientationPortrait;
MargeHaute 3;
MargeBasse 3;
MargeGauche 5;
MargeDroite 5;
EnteteDePage
Hauteur 2;
Espace 2;
Fin EnteteDePage
PiedDePage
Hauteur 2;
Espace 2;
Fin PiedDePage
Debut
Page
EnteteDePage
/**********/
Debut
Paragraphe
Hauteur 2;
Espace 1;
CadreBas CadreSimple;
Debut
Texte "Titre du document";
Fin Paragraphe
Fin EnteteDePage
Corps
/***/
Debut
Tableau
Debut
Ligne
Cadre CadreDouble;
Debut
Cellule
Largeur 25;
AlignementHorizontalContenu Centre;
Debut
Texte "Nom de l'employé"+Gras;
Fin Cellule
Cellule
Largeur 25;
AlignementHorizontalContenu Centre;
Debut
Texte "Date d'embauche"+Gras;
Fin Cellule
Cellule
Largeur 12;
AlignementHorizontalContenu Centre;
Debut
Texte "Salaire"+Gras;
Fin Cellule
Fin Ligne
Instructions
RequeteSql MaRequeteSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)
ParametreSql(10);
Document
Ligne
CadreGauche CadreSimple;
CadreDroit CadreSimple;
Debut
Cellule
Largeur 25;
Debut
Texte Expression(NomEmploye.Majuscule());
Fin Cellule
Cellule
Largeur 25;
Debut
Texte Expression(Caractere(DateEmbauche, "%jj/%mm/%aaaa"));
Fin Cellule
Cellule
Largeur 12;
AlignementHorizontalContenu Droite;
Debut
Texte Expression(Caractere(Salaire, "&&&.&,##"));
Fin Cellule
Fin Ligne
Fin Document
Fin RequeteSql
Fin Instructions
Fin Tableau
Fin Corps
PiedDePage
/********/
Debut
Paragraphe
Hauteur 2;
Espace 1;
CadreHaut CadreSimple;
Debut
Texte "Page 1";
Fin Paragraphe
Fin PiedDePage
Fin Page
Fin Section
Fin Document
Source Document "Exemple d'emploi d'Up ! 5GL Mixer et Up ! Document" Version 4.0.0;
ImporterModule
/************/
UpsQry(<UpsQry.upi>);
UpsOra(<UpsOra.upi>);
ConnexionSql
/**********/
MaConnexionSql(Oracle, "scott/tiger");
RequeteSql
/********/
MaRequeteSql ConnexionSql MaConnexionSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, Salaire : Nul Ou Reel)
TailleTableauResultatSql 5
ParametreSql(NumeroDepartement : Entier)
SqlStatique
SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, sal:=${Salaire}
FROM emp
WHERE deptno=${NumeroDepartement};
DefinitionsDocument
/*****************/
Source Document "Exemple d'emploi d'Up ! 5GL Mixer et Up ! Document" Version 4.0.0;
Fin DefinitionsDocument
Principal
/*******/
Debut
Document
Section
PageA4;
OrientationPortrait;
MargeHaute 3;
MargeBasse 3;
MargeGauche 5;
MargeDroite 5;
EnteteDePage
Hauteur 2;
Espace 2;
Fin EnteteDePage
PiedDePage
Hauteur 2;
Espace 2;
Fin PiedDePage
Debut
Page
EnteteDePage
/**********/
Debut
Paragraphe
Hauteur 2;
Espace 1;
CadreBas CadreSimple;
Debut
Texte "Titre du document";
Fin Paragraphe
Fin EnteteDePage
Corps
/***/
Debut
Tableau
Debut
Ligne
Cadre CadreDouble;
Debut
Cellule
Largeur 25;
AlignementHorizontalContenu Centre;
Debut
Texte "Nom de l'employé"+Gras;
Fin Cellule
Cellule
Largeur 25;
AlignementHorizontalContenu Centre;
Debut
Texte "Date d'embauche"+Gras;
Fin Cellule
Cellule
Largeur 12;
AlignementHorizontalContenu Centre;
Debut
Texte "Salaire"+Gras;
Fin Cellule
Fin Ligne
Instructions
RequeteSql MaRequeteSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)
ParametreSql(10);
Document
Ligne
CadreGauche CadreSimple;
CadreDroit CadreSimple;
Debut
Cellule
Largeur 25;
Debut
Texte Expression(NomEmploye.Majuscule());
Fin Cellule
Cellule
Largeur 25;
Debut
Texte Expression(Caractere(DateEmbauche, "%jj/%mm/%aaaa"));
Fin Cellule
Cellule
Largeur 12;
AlignementHorizontalContenu Droite;
Debut
Texte Expression(Caractere(Salaire, "&&&.&,##"));
Fin Cellule
Fin Ligne
Fin Document
Fin RequeteSql
Fin Instructions
Fin Tableau
Fin Corps
PiedDePage
/********/
Debut
Paragraphe
Hauteur 2;
Espace 1;
CadreHaut CadreSimple;
Debut
Texte "Page 1";
Fin Paragraphe
Fin PiedDePage
Fin Page
Fin Section
Fin Document
Fin Principal
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!-- ------------------------------------------------------------------- -->
<!-- Fichier : exemple2.upx -->
<!-- Objet : Exemple d'emploi d'Up ! Mixer et Up ! Sgml pour du Html. -->
<!-- -->
<!-- Module : Up ! Application System. -->
<!-- Auteur-Date : DUVAL Jean-Pierre - Novembre 2006. -->
<!-- ------------------------------------------------------------------- -->
<!-- Observations -->
<!-- -->
<!-- -->
<!-- ------------------------------------------------------------------- -->
<HTML>
<HEAD><TITLE>Liste des employés</TITLE></HEAD>
<?UpsMxr:DefinitionsProgramme
Source Composant "Exemple d'emploi d'Up ! Xml et Up ! Sgml pour du Html" Version 4.0.0;
ImporterModule
/************/
UpsQry(<UpsQry.upi>, ImporterDefinitions);
UpsOra(<UpsOra.upi>, ImporterDefinitions);
ConnexionSql
/**********/
MaConnexionSql(Oracle, "scott/tiger");
RequeteSql
/********/
MaRequeteSql ConnexionSql MaConnexionSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, Salaire : Nul Ou Reel)
TailleTableauResultatSql 5
ParametreSql(NumeroDepartement : Entier)
SqlStatique
SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, sal:=${Salaire}
FROM emp
WHERE deptno=${NumeroDepartement};
?>
<BODY>
<H1>Liste des employés</H1>
Département <?UpsMxr:Expression Caractere(Entier) ?><BR>
==============<BR>
<TABLE>
<TR><TD><B>Nom</B></TD><TD><B>Date embauche</B></TD><TD><B>Numero</B></TD><TD><B>Salaire</B></TD></TR>
<?UpsMxr:Instructions
RequeteSql MaRequeteSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)
ParametreSql(NumeroDepartement);
Debut
Sgml
<TR>
<TD><?UpsMxr:Expression NomEmploye ?></TD>
<TD><?UpsMxr:Expression DateEmbauche ?></TD>
<TD><?UpsMxr:Expression Caractere(NumeroEmploye, "####") ?></TD>
<TD><?UpsMxr:Expression Caractere(Salaire, "&&&.&&,##") ?></TD>
</TR>
Fin Sgml
Fin RequeteSql
?>
</TABLE>
<P>
</BODY>
</HTML>
Source Document "Exemple d'emploi d'Up ! 5GL Mixer et Up ! Document" Version 4.0.0;
ImporterModule
/************/
UpsQry(<UpsQry.upi>, ImporterDefinitions);
UpsOra(<UpsOra.upi>, ImporterDefinitions);
ConnexionSql
/**********/
MaConnexionSql(Oracle, "scott/tiger");
RequeteSql
/********/
MaRequeteSql ConnexionSql MaConnexionSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, Salaire : Nul Ou Reel)
TailleTableauResultatSql 5
ParametreSql(NumeroDepartement : Entier)
SqlStatique
SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, sal:=${Salaire}
FROM emp
WHERE deptno=${NumeroDepartement};
DefinitionsSgml
/*************/
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!-- ------------------------------------------------------------------- -->
<!-- Fichier : exemple2.upx -->
<!-- Objet : Exemple d'emploi d'Up ! Mixer et Up ! Sgml pour du Html. -->
<!-- -->
<!-- Module : Up ! Application System. -->
<!-- Auteur-Date : DUVAL Jean-Pierre - Novembre 2006. -->
<!-- ------------------------------------------------------------------- -->
<!-- Observations -->
<!-- -->
<!-- -->
<!-- ------------------------------------------------------------------- -->
Fin DefinitionsSgml
Principal
/*******/
Debut
Sgml
<HTML>
<HEAD><TITLE>Liste des employés</TITLE></HEAD>
<BODY>
<H1>Liste des employés</H1>
Département <?UpsMxr:Expression Caractere(Entier) ?><BR>
==============<BR>
<TABLE>
<TR><TD><B>Nom</B></TD><TD><B>Date embauche</B><TD><B>Numero</B></TD><TD><B>Salaire</B></TD></TR>
<?UpsMxr:Instructions
RequeteSql MaRequeteSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)
ParametreSql(NumeroDepartement);
Debut
Sgml
<TR>
<TD><?UpsMxr:Expression NomEmploye ?></TD>
<TD><?UpsMxr:Expression DateEmbauche ?></TD>
<TD><?UpsMxr:Expression Caractere(NumeroEmploye, "####") ?></TD>
<TD><?UpsMxr:Expression Caractere(Salaire, "&&&.&&,##") ?></TD>
</TR>
Fin Sgml
Fin RequeteSql
?>
</TABLE>
<P>
</BODY>
</HTML>
Fin Sgml
Fin Principal