FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconnectar
|
Español
Inicio
→
WINDEV Mobile 2024
→
[WM17] Carton Loto optimiser code
[WM17] Carton Loto optimiser code
Iniciado por florian.developpement, 04,ene. 2012 21:57 - 1 respuesta
Conéctese…
florian.developpement
#1
Miembro registrado
13 mensajes
Publicado el 04,enero 2012 - 21:57
bonjours a tous,
je développement actuellement un programme pour gérer mes carton de loto.
ma base de donnée est composé comme sa:
-------------------------------------
I Carton I Ligne I Numéro I
-------------------------------------
I IDCarton I IDCarton I Nombre I
I Propriétaire I Quine I Sortie I
I NumSérie I I IDLigne I
I CartonPlein I I I
-------------------------------------
et voici le code que je voudrait optimiser:
Carton.Proprietaire = SAI_Propriétaire
Carton.NumSerie = SAI_NumSérie
HAjoute(Carton)
Ligne.IDCarton = Carton.IDCarton
HAjoute(Ligne)
Numéro.IDLigne = Ligne.IDLigne
Numéro.Nombre = SAI_A1
HAjoute(Numéro)
Numéro.Nombre = SAI_A2
HAjoute(Numéro)
Numéro.Nombre = SAI_A3
HAjoute(Numéro)
Numéro.Nombre = SAI_A4
HAjoute(Numéro)
Numéro.Nombre = SAI_A5
HAjoute(Numéro)
Numéro.Nombre = SAI_A6
HAjoute(Numéro)
Numéro.Nombre = SAI_A7
HAjoute(Numéro)
Numéro.Nombre = SAI_A8
HAjoute(Numéro)
Numéro.Nombre = SAI_A9
HAjoute(Numéro)
HAjoute(Ligne)
Numéro.IDLigne = Ligne.IDLigne
Numéro.Nombre = SAI_B1
HAjoute(Numéro)
Numéro.Nombre = SAI_B2
HAjoute(Numéro)
Numéro.Nombre = SAI_B3
HAjoute(Numéro)
Numéro.Nombre = SAI_B4
HAjoute(Numéro)
Numéro.Nombre = SAI_B5
HAjoute(Numéro)
Numéro.Nombre = SAI_B6
HAjoute(Numéro)
Numéro.Nombre = SAI_B7
HAjoute(Numéro)
Numéro.Nombre = SAI_B8
HAjoute(Numéro)
Numéro.Nombre = SAI_B9
HAjoute(Numéro)
HAjoute(Ligne)
Numéro.IDLigne = Ligne.IDLigne
Numéro.Nombre = SAI_C1
HAjoute(Numéro)
Numéro.Nombre = SAI_C2
HAjoute(Numéro)
Numéro.Nombre = SAI_C3
HAjoute(Numéro)
Numéro.Nombre = SAI_C4
HAjoute(Numéro)
Numéro.Nombre = SAI_C5
HAjoute(Numéro)
Numéro.Nombre = SAI_C6
HAjoute(Numéro)
Numéro.Nombre = SAI_C7
HAjoute(Numéro)
Numéro.Nombre = SAI_C8
HAjoute(Numéro)
Numéro.Nombre = SAI_C9
HAjoute(Numéro)
merci d'avance de votre aide
Informar
0
0
B. Garwood
#2
Miembro registrado
17 mensajes
Publicado el 05,enero 2012 - 12:01
Carton.Proprietaire = SAI_Propriétaire
Carton.NumSerie = SAI_NumSérie
HAjoute(Carton)
AssocieLigne("A")
AssocieLigne("B")
AssocieLigne("C")
///////
PROCEDURE AssocieLigne(sType)
x est un entier
HRAZ(Ligne)
Ligne.IDCarton = Carton.IDCarton
HAjoute(Ligne)
POUR x = 1 A 9
Numéro.IDLigne = Ligne.IDLigne
Numéro.Nombre = {"SAI_" + sType + NumériqueVersChaîne(x)}
HAjoute(Numéro)
FIN
Informar
0
0
→ Volver a WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV 26
WINDEV 2024
WINDEV 2024
WINDEV 2024
WINDEV 25
WEBDEV 2024
WEBDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV Mobile 2024
WINDEV Mobile 2024
WINDEV (versiones precedentes)
WINDEV (versiones precedentes)
WINDEV (versiones precedentes)
WEBDEV (versiones precedentes)
WEBDEV (versiones precedentes)
WINDEV Mobile (versiones precedentes)
WINDEV Mobile (versiones precedentes)
Reports & Queries
Reports & Queries
Irrelevante
Irrelevante
Herramientas
Herramientas
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto