Knowledge Office Ubuntu-Liste des Composantes (Complète)

----------------------------------------------------------------------------

Programme:DMSB020
-----------AUTEUR:Simon Brouillard / Red Digital, (c) 2009
-----------DESC:Programme qui ajoute un eBooK Cd dans la table DVDX2.
-----------IMAGmuralslide6.jpg 1200 X 980
-----------Date de création:2009-08-26
-----------Date de Révision:2009-08-26
-----------No. de Révision:0
Variables:
-----------ResultPictures Result
-----------databaseConnection Connection
-----------Connection Connection
-----------ORIGIN STRING
-----------NMTABLE STRIN[9]
-----------CHEMIN STRING
-----------CHEMINLANG STRING
-----------GENRE STRING
-----------NOPROG INTEGER
-----------ETAP INTEGER
-----------MES INTEGER
-----------NOLANGUE INTEGER
-----------REFPRG INTEGER
-----------SELECTN STRING
-----------FICIDEN STRING
-----------DERNCD INTEGER
-----------UTIL STRING
-----------UTILPW STRING
-----------STATUS STRING
-----------FICIDEN1 STRING
-----------FICIDEN2 STRING
-----------LSTLAN STRING[1]
-----------LANGNO INTEGER
-----------LANGNB INTEGER
-----------NBDVDX INTEGER
-----------NBCDX INTEGER
-----------NOUVEAUCD INTEGER
-----------NOUVEAUQT INTEGER
Routines:
-----------_init()

----------------------_INIT est une routine qui nous permet
----------------------de charger en mémoire les différents
----------------------messages a afficher a l'ecran ou imprimer
----------------------dans les rapports. Essentiellement, elle
----------------------repose sur 2 variables basiques: Le numéro de programme(NOPROG) et la langue active de
----------------------l'utilisateur(NOLANGUE). On sait que les
----------------------utilisateurs peuvent choisir la langue d'affichage
----------------------des messages(Sélection d'une langue).

-----------PUBLIC SUB _init()
----------- DIM PRGPARAM AS Table
----------- DIM TBMES AS Table
----------- DIM REQ AS String
----------- DIM newREC AS Result
----------- DIM NBFIC AS Integer
----------- DIM NOFIC AS Integer
----------- DIM I AS Integer
----------- DIM FILN AS String
----------- DIM errorMessageHeader AS String
----------- Module.NMTABLE[0] = "PLATE"
----------- Module.NMTABLE[1] = "PLATELIST"
----------- Module.NMTABLE[2] = "LANGLIST"
----------- Module.NMTABLE[3] = "NAVLIST"
----------- Module.NMTABLE[4] = "PRGPARAM"
----------- Module.NMTABLE[5] = "TBMESXXX999"
----------- Module.NMTABLE[6] = "CAT"
----------- Module.NMTABLE[7] = "OPT"
----------- Module.NMTABLE[8] = ""
----------- Module.CHEMIN = "/home/simon/Bureau/EMC2/TABLES/SYSTEM/"
----------- Module.CHEMINLANG = "/home/simon/Bureau/EMC2/TABLES/LANG"
----------- Module.GENRE = "sqlite3"
----------- Module.UTIL = ""
----------- Module.UTILPW = ""
----------- Module.ETAP = 0
----------- Module.NOPRG = 21
-----------'
-----------' LIRE LA LANGUE DEFAUT
-----------'
----------- Module.ETAP = 0
----------- Module.Connection.Type = Lower(Module.GENRE)
----------- Module.Connection.Host = Module.CHEMIN
----------- Module.Connection.Name = Module.NMTABLE[Module.ETAP]
----------- Module.Connection.Login = ""
----------- Module.Connection.Password = ""
----------- Module.Connection.Port = ""
----------- ' Open the connection
----------- TRY Module.Connection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = Module.MES[9] & " " & Module.CHEMIN
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.Connection.Close()
----------- ' Open a connection to the database
----------- Module.Connection.Host = Module.CHEMIN
----------- Module.Connection.Name = Module.NMTABLE[Module.ETAP]
----------- TRY Module.Connection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = Module.MES[9] & " " & Module.CHEMIN
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.Connection.Begin()
----------- REQ = "SELECT * FROM PLATE"
----------- newREC = Module.Connection.Exec(REQ)
----------- newREC.MoveFirst
----------- Module.NOLANGUE = newREC["cNOLAN"]
----------- Module.LANGNO = Module.NOLANGUE
----------- Module.Connection.Close()
-----------'
-----------' LECTURE DONNEES DU PROGRAMME
-----------'
----------- Module.ETAP = 4
----------- Module.Connection.Type = Lower(Module.GENRE)
----------- Module.Connection.Host = Module.CHEMIN
----------- Module.Connection.Name = Module.NMTABLE[Module.ETAP]
----------- Module.Connection.Login = ""
----------- Module.Connection.Password = ""
----------- Module.Connection.Port = ""
----------- ' Open the connection
----------- TRY Module.Connection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = Module.MES[9] & " " & Module.CHEMIN
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.Connection.Close()
-----------' ' Open a connection to the database
----------- Module.Connection.Host = Module.CHEMIN
----------- Module.Connection.Name = Module.NMTABLE[Module.ETAP]
----------- TRY Module.Connection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = Module.MES[9] & " " & Module.CHEMIN
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.Connection.Begin()
----------- REQ = "SELECT * FROM PRGPARAM"
----------- newREC = Module.Connection.Exec(REQ)
----------- NBFIC = newREC.Count
----------- NOFIC = 1
----------- FOR I = 1 TO NBFIC
----------- IF I = 1
----------- newREC.MoveFirst
----------- ELSE
----------- newREC.MoveNext
----------- ENDIF
----------- IF Module.NOPRG = newREC["bNOPRG"]
----------- NOFIC = I
----------- ENDIF
----------- NEXT
----------- Module.Connection.Close()
----------- '
----------- ' LIRE LES MESSAGES
----------- '
----------- Module.REFPRG = NOFIC
----------- FILN = String$(10 - Len(Str$(Module.REFPRG)), "0") & Str$(Module.NOPRG) & String$(3 - Len(Str$(Module.NOLANGUE)), "0") & Str$(Module.NOLANGUE)
----------- Module.NMTABLE[8] = "TBMES" & FILN
----------- Module.SELECTN = "SELECT * FROM " & "TBMES" & FILN
----------- Module.ETAP = 8
----------- Module.Connection.Type = Lower(Module.GENRE)
----------- Module.Connection.Host = Module.CHEMINLANG
----------- Module.Connection.Name = Module.NMTABLE[Module.ETAP]
----------- Module.Connection.Login = ""
----------- Module.Connection.Password = ""
----------- Module.Connection.Port = ""
----------- ' Open the connection
----------- TRY Module.Connection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = Module.MES[9] & " " & Module.CHEMIN
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.Connection.Close()
----------- ' Open a connection to the database
----------- Module.Connection.Host = Module.CHEMINLANG
----------- Module.Connection.Name = Module.NMTABLE[Module.ETAP]
----------- TRY Module.Connection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = Module.MES[9] & " " & Module.CHEMIN
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.Connection.Begin()
----------- REQ = Module.SELECTN
----------- newREC = Module.Connection.Exec(REQ)
----------- NBFIC = newREC.Count
----------- NOFIC = 1
----------- FOR I = 1 TO NBFIC
----------- IF I = 1
----------- newREC.MoveFirst
----------- ELSE
----------- newREC.MoveNext
----------- ENDIF
----------- Module.MES[I - 1] = newREC["TEXTEMESSAGE"]
----------- NEXT
----------- Module.Connection.Close()
----------- '
----------- ' LIRE LES langues
----------- '
----------- Module.ETAP = 2
----------- Module.Connection.Type = Lower(Module.GENRE)
----------- Module.Connection.Host = Module.CHEMIN
----------- Module.Connection.Name = Module.NMTABLE[Module.ETAP]
----------- Module.Connection.Login = ""
----------- Module.Connection.Password = ""
----------- Module.Connection.Port = ""
----------- ' Open the connection
----------- TRY Module.Connection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = Module.MES[9] & " " & Module.CHEMIN
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.Connection.Close()
-----------' ' Open a connection to the database
----------- Module.Connection.Host = Module.CHEMIN
----------- Module.Connection.Name = Module.NMTABLE[Module.ETAP]
----------- TRY Module.Connection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = Module.MES[9] & " " & Module.CHEMIN
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.Connection.Begin()
----------- REQ = "SELECT * FROM LANGLIST"
----------- newREC = Module.Connection.Exec(REQ)
----------- NBFIC = newREC.Count
----------- Module.LANGNB = NBFIC
----------- Module.LSTLAN.Resize(Module.LANGNB)
----------- NOFIC = 1
----------- FOR I = 1 TO NBFIC
----------- IF I = 1
----------- newREC.MoveFirst
----------- ELSE
----------- newREC.MoveNext
----------- ENDIF
----------- Module.LSTLAN[I - 1] = newREC["aLangue"]
----------- NEXT
----------- Module.Connection.Close()
-----------
-----------END

-----------LIREDVDX2()

----------------------Laoutine LIREDVDX2() est une routine qui balaie la table DVDX2 QUI CONTIENT pour chaque DVD, les numeros de CD(entre 1 et 30 CD par DVD) inscrits sur ce DVD et le nombre de CD. Evidemment lorsque le DVD est un DVD Film, les 30 varoables CD01 a CD30 sont a zero et le nombre de CD,
----------------------QTECD est aussi a zero, L'Objet de cette routine
----------------------est d'identifier le no, du dernier CD enregistré sur les DVD, onbligatoirement le no de CD le plus élevé.

-----------PUBLIC SUB LIREDVDX2()
----------- DIM AFAIRE AS Table
----------- DIM TEST AS Table
----------- DIM DVDX2 AS Table
----------- DIM IDXCLASS AS Table
----------- DIM errorMessageHeader AS String
----------- DIM REQ AS String
----------- DIM sCriteria AS String
----------- DIM iParameter AS Integer
----------- DIM newREC AS Result
----------- DIM I AS Integer
----------- DIM J AS Integer
----------- DIM NOMFIL AS String
----------- DIM EXT AS String
----------- DIM hfile AS File
----------- DIM LIGNE AS String
----------- DIM NO AS String
----------- DIM FIC AS String
----------- DIM POS AS Integer
----------- DIM CAR AS String
----------- DIM TITRE AS String
----------- DIM ALB AS String
----------- DIM SSID AS String
----------- DIM NBEL AS String
----------- DIM CD AS String
----------- DIM BOOK AS String
----------- DIM NUMERO AS String
----------- DIM VID AS String
----------- DIM INP AS String[6]
----------- DIM INV AS Integer[32]
----------- Module.FICIDEN = "DVDX2"
----------- Module.DERNCD = 0
----------- NOMFIL = "/home/simon/Bureau/EMC2/TABLES/DVD/" & Module.FICIDEN
----------- EXT = ".TXT"
----------- FIC = NOMFIL & EXT
----------- Module.databaseConnection.Type = "sqlite3"
----------- Module.databaseConnection.Host = "/home/simon/Bureau/EMC2/TABLES/DVD/"
----------- Module.databaseConnection.Name = Module.FICIDEN '"IDX030014"
----------- Module.databaseConnection.Login = ""
----------- Module.databaseConnection.Password = ""
----------- Module.databaseConnection.Port = ""
----------- TRY Module.databaseConnection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = "Could not open database connection "
----------- Error.Raise(Error.Text)
----------- END IF
----------- ' Check if the server connection has a database with the
----------- ' required database name.
----------- ' Close the server connection
----------- Module.databaseConnection.Close()
----------- Module.databaseConnection.Host = "/home/simon/Bureau/EMC2/TABLES/DVD/"
----------- Module.databaseConnection.Name = Module.FICIDEN '"IDX030014"
----------- TRY Module.databaseConnection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = "Could not open database "
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.databaseConnection.Begin()
----------- REQ = "Select * from DVDX2"
----------- newREC = Module.databaseConnection.Edit("DVDX2")
----------- Module.NBDVDX = newREC.Count
----------- Module.NBCDX = 0
----------- Module.DERNCD = 0
----------- FOR I = 1 TO Module.NBDVDX
----------- IF I = 1
----------- newREC.MoveFirst
----------- INP[0] = Str$(newREC["SITENO"])
----------- INP[1] = newREC["SITEID"]
----------- INP[2] = newREC["LIEU1"]
----------- INP[3] = newREC["LIEU2"]
----------- INP[4] = newREC["EMAIL"]
----------- INV[0] = newREC["CD01"]
----------- INV[1] = newREC["CD02"]
----------- INV[2] = newREC["CD03"]
----------- INV[3] = newREC["CD04"]
----------- INV[4] = newREC["CD05"]
----------- INV[5] = newREC["CD06"]
----------- INV[6] = newREC["CD07"]
----------- INV[7] = newREC["CD08"]
----------- INV[8] = newREC["CD09"]
----------- INV[9] = newREC["CD10"]
----------- INV[10] = newREC["CD11"]
----------- INV[11] = newREC["CD12"]
----------- INV[12] = newREC["CD13"]
----------- INV[13] = newREC["CD14"]
----------- INV[14] = newREC["CD15"]
----------- INV[15] = newREC["CD16"]
----------- INV[16] = newREC["CD17"]
----------- INV[17] = newREC["CD18"]
----------- INV[18] = newREC["CD19"]
----------- INV[19] = newREC["CD20"]
----------- INV[20] = newREC["CD21"]
----------- INV[21] = newREC["CD22"]
----------- INV[22] = newREC["CD23"]
----------- INV[23] = newREC["CD24"]
----------- INV[24] = newREC["CD25"]
----------- INV[25] = newREC["CD26"]
----------- INV[26] = newREC["CD27"]
----------- INV[27] = newREC["CD28"]
----------- INV[28] = newREC["CD29"]
----------- INV[29] = newREC["CD30"]
----------- INV[30] = newREC["QTECD"]
----------- ELSE
----------- newREC.MoveNext
----------- INP[0] = Str$(newREC["SITENO"])
----------- INP[1] = newREC["SITEID"]
----------- INP[2] = newREC["LIEU1"]
----------- INP[3] = newREC["LIEU2"]
----------- INP[4] = newREC["EMAIL"]
----------- INV[0] = newREC["CD01"]
----------- INV[1] = newREC["CD02"]
----------- INV[2] = newREC["CD03"]
----------- INV[3] = newREC["CD04"]
----------- INV[4] = newREC["CD05"]
----------- INV[5] = newREC["CD06"]
----------- INV[6] = newREC["CD07"]
----------- INV[7] = newREC["CD08"]
----------- INV[8] = newREC["CD09"]
----------- INV[9] = newREC["CD10"]
----------- INV[10] = newREC["CD11"]
----------- INV[11] = newREC["CD12"]
----------- INV[12] = newREC["CD13"]
----------- INV[13] = newREC["CD14"]
----------- INV[14] = newREC["CD15"]
----------- INV[15] = newREC["CD16"]
----------- INV[16] = newREC["CD17"]
----------- INV[17] = newREC["CD18"]
----------- INV[18] = newREC["CD19"]
----------- INV[19] = newREC["CD20"]
----------- INV[20] = newREC["CD21"]
----------- INV[21] = newREC["CD22"]
----------- INV[22] = newREC["CD23"]
----------- INV[23] = newREC["CD24"]
----------- INV[24] = newREC["CD25"]
----------- INV[25] = newREC["CD26"]
----------- INV[26] = newREC["CD27"]
----------- INV[27] = newREC["CD28"]
----------- INV[28] = newREC["CD29"]
----------- INV[29] = newREC["CD30"]
----------- INV[30] = newREC["QTECD"]
----------- ENDIF
----------- FOR J = 1 TO 30
----------- IF INV[J - 1] > Module.DERNCD
----------- Module.DERNCD = INV[J - 1]
----------- ENDIF
----------- NEXT
----------- NEXT
----------- newREC.MoveLast
----------- Module.NBCDX = newREC["QTECD"]
----------- Module.databaseConnection.Close()
----------- WAIT 1
-----------
-----------
-----------
-----------END

-----------ECRIREDVDX2()

----------------------La rotuine ECRIREDVDX2() est une routine qui nous permet d'enregistrer le nouveau no. de
----------------------CD dans la bomnne variable CD01 A CD30 selon le nombre de CD (QTECD) mis a jour suite a l'ajout
----------------------d'un CD(QTECD ancienne valeur) et NOUVEAUQT
----------------------egal Ancienne valeur +1,
----------------------Si QTECD ÉTAIT Égal a 0, alors tous les
----------------------CD de CD01 a CD30 était 0. Si on ajoute
----------------------un CD, la variable NOUVEAUQT sera 1 et
----------------------CD01 contiendrait le Nouveau no. de CD.
----------------------Si la QTECD etait egal a 9, NOUVEAUQT sera
----------------------10 et CD10 devra contenir le nouveau no. de
----------------------CD, generalement celui de CD09 + 1.

-----------PUBLIC SUB ECRIREDVDX2()
----------- DIM AFAIRE AS Table
----------- DIM TEST AS Table
----------- DIM DVDX2 AS Table
----------- DIM IDXCLASS AS Table
----------- DIM errorMessageHeader AS String
----------- DIM REQ AS String
----------- DIM sCriteria AS String
----------- DIM iParameter AS Integer
----------- DIM newREC AS Result
----------- DIM I AS Integer
----------- DIM J AS Integer
----------- DIM NOMFIL AS String
----------- DIM EXT AS String
----------- DIM hfile AS File
----------- DIM LIGNE AS String
----------- DIM NO AS String
----------- DIM FIC AS String
----------- DIM POS AS Integer
----------- DIM CAR AS String
----------- DIM TITRE AS String
----------- DIM ALB AS String
----------- DIM SSID AS String
----------- DIM NBEL AS String
----------- DIM CD AS String
----------- DIM BOOK AS String
----------- DIM NUMERO AS String
----------- DIM VID AS String
----------- DIM INP AS String[6]
----------- DIM INV AS Integer[32]
----------- Module.FICIDEN = "DVDX2"
----------- Module.DERNCD = 0
----------- NOMFIL = "/home/simon/Bureau/EMC2/TABLES/DVD/" & Module.FICIDEN
----------- EXT = ".TXT"
----------- FIC = NOMFIL & EXT
----------- Module.databaseConnection.Type = "sqlite3"
----------- Module.databaseConnection.Host = "/home/simon/Bureau/EMC2/TABLES/DVD/"
----------- Module.databaseConnection.Name = Module.FICIDEN '"IDX030014"
----------- Module.databaseConnection.Login = ""
----------- Module.databaseConnection.Password = ""
----------- Module.databaseConnection.Port = ""
----------- TRY Module.databaseConnection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = "Could not open database connection "
----------- Error.Raise(Error.Text)
----------- END IF
----------- ' Check if the server connection has a database with the
----------- ' required database name.
----------- ' Close the server connection
----------- Module.databaseConnection.Close()
----------- Module.databaseConnection.Host = "/home/simon/Bureau/EMC2/TABLES/DVD/"
----------- Module.databaseConnection.Name = Module.FICIDEN '"IDX030014"
----------- TRY Module.databaseConnection.Open()
----------- IF ERROR THEN
----------- errorMessageHeader = "Could not open database "
----------- Error.Raise(Error.Text)
----------- END IF
----------- Module.databaseConnection.Begin()
----------- REQ = "Select * from DVDX2"
----------- newREC = databaseConnection.Edit("DVDX2")
----------- Module.NBDVDX = newREC.Count
----------- newREC.MoveLast
----------- INV[Module.NOUVEAUQT - 1] = Module.NOUVEAUCD
----------- INV[30] = Module.NOUVEAUQT
----------- SELECT CASE Module.NOUVEAUQT
-----------
----------- CASE 1
----------- newREC["CD01"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 2
----------- newREC["CD02"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 3
----------- newREC["CD03"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 4
----------- newREC["CD04"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 5
----------- newREC["CD05"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 6
----------- newREC["CD06"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 7
----------- newREC["CD07"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 8
----------- newREC["CD08"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 9
----------- newREC["CD09"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 10
----------- newREC["CD10"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 11
----------- newREC["CD11"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 12
----------- newREC["CD12"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 13
----------- newREC["CD13"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 14
----------- newREC["CD14"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 15
----------- newREC["CD15"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 16
----------- newREC["CD16"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 17
----------- newREC["CD17"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 18
----------- newREC["CD18"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 19
----------- newREC["CD19"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 20
----------- newREC["CD20"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 21
----------- newREC["CD21"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 22
----------- newREC["CD22"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 23
----------- newREC["CD23"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 24
----------- newREC["CD24"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 25
----------- newREC["CD25"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 26
----------- newREC["CD26"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 27
----------- newREC["CD27"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 28
----------- newREC["CD28"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 29
----------- newREC["CD29"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- CASE 30
----------- newREC["CD30"] = INV[Module.NOUVEAUQT - 1]
-----------
----------- END SELECT
-----------
----------- newREC["QTECD"] = Module.NOUVEAUQT
----------- newREC.Update
----------- Module.databaseConnection.Commit
----------- Module.databaseConnection.Close()
----------- WAIT 1
-----------
-----------
-----------
-----------END

Fonctions:
-----------_new()



-----------Form_Open()

----------------------A l'ouverture du programme, la routine
----------------------affiche la FORM et in message si on veut ajouter un
----------------------nouveau CD. Au départ la variable STATUS="1".
----------------------Evidemment, il lit les infos requises avec
----------------------la routine LIREDVDX2()

-----------FMain.Text = Module.MES[0]
----------- TextLabel1.Text = Module.MES[1]
----------- TextLabel2.Text = Module.MES[2]
----------- TextLabel3.Text = Module.MES[3]
----------- Button1.Text = Module.MES[6]
----------- Button2.Text = Module.MES[7]
----------- Button3.Text = Module.MES[8]
----------- Module.LIREDVDX2()
----------- TextBox4.TEXT = String$(6 - Len(Str$(Module.DERNCD)), "0") & Str$(Module.DERNCD)
----------- TextBox3.TEXT = String$(6 - Len(Str$(Module.NBDVDX)), "0") & Str$(Module.NBDVDX)
----------- TextBox5.TEXT = String$(6 - Len(Str$(Module.NBCDX)), "0") & Str$(Module.NBCDX)
----------- Module.STATUS = "1"
----------- TextBox1.Text = Module.MES[12] '"Pour ajouter un nouveau eBooK CD, incrivez le no. du cd"
----------- TextBox2.Text = Module.MES[13] '"dans la zone ci-haut et pressez Accepter"
----------- ValueBox1.SetFocus()

-----------Button3_Click()

----------------------Lorsque l'utilissteur presse le boutton FIN
----------------------ou quitter, alors le Programme lance
----------------------la commande QUIT.

-----------QUIT

-----------Button1_Click()

----------------------Lorsque l'usager inscrit un no. de CD,
----------------------la routine valide ce no et soit un message d'erreur est affiché, soit il enregistre l'entréée
----------------------Routine ECRIREDVDX2(),

-----------IF Module.STATUS = "1"
----------- Module.NOUVEAUCD = ValueBox1.Value
----------- IF Module.NOUVEAUCD = Module.DERNCD + 1
----------- Module.NOUVEAUQT = Module.NBCDX + 1
----------- Module.STATUS = "2"
----------- TextBox1.Text = Module.MES[14] '"Un instant..."
----------- TextBox2.Text = Module.MES[15] '"..."
-----------' ecrire la derniere fiche dans DVDX2
-----------'
----------- Module.ECRIREDVDX2()
----------- TextBox1.Text = Module.MES[16] ' "Ce CD est enregistrée. Pressez Annuler pour Reprendre"
----------- TextBox2.Text = Module.MES[17] '"ou Pressez Quitter pour terminer"
----------- ELSE
----------- Module.STATUS = "3"
----------- TextBox1.Text = Module.MES[18] '"No CD invalide. Il doit etre supérieur de 1 au dernier CD enregistré."
----------- TextBox2.Text = Module.MES[19] '"Pressez annuler pour reprendre ou Quitter pour Terminer."
----------- ENDIF
----------- ENDIF

-----------Button2_Click()

----------------------Lorsque l'utilisateur presse le boutton
----------------------Annuler ou Reprendre, le programme
----------------------relit les parametres de DVDX2 avec la
----------------------routine LIREDVDX2() et réaffiche le
----------------------message d'entrée du nouveau cd.

-----------Module.LIREDVDX2()
----------- TextBox4.TEXT = String$(6 - Len(Str$(Module.DERNCD)), "0") & Str$(Module.DERNCD)
----------- TextBox3.TEXT = String$(6 - Len(Str$(Module.NBDVDX)), "0") & Str$(Module.NBDVDX)
----------- TextBox5.TEXT = String$(6 - Len(Str$(Module.NBCDX)), "0") & Str$(Module.NBCDX)
----------- Module.STATUS = "1"
----------- TextBox1.Text = Module.MES[20] ' "Pour ajouter un nouveau eBooK CD, incrivez le no. du cd"
----------- TextBox2.Text = Module.MES[21] '"dans la zone ci-haut et pressez Accepter"
----------- ValueBox1.Value = 0
----------- ValueBox1.SetFocus



Version Gambas/Ubuntu(Linux), 2009