Modules gestion

Soyez le premier à donner votre avis sur cette source.

Vue 4 147 fois - Téléchargée 181 fois

Description

Modules Gestion : Un dialog fait avec mdx ( listview et style ) ou on peut ajouter , suprimmer ou lancer des modules :)

Ben voila sa peut etre utile pour certain :)

++ Good Scripting

Source / Exemple :


;---------------------------------------
;-           Modules Gestion
;-            By Jujuquatre  
;---------------------------------------

; LOAD
on *:load:{
  echo -a Modules Gestion By Jujuquatre
  echo -a taper /modules pour l'ouvrir ( si l'affichage n'est pas bon verifier que mdx.dll et views.mdx soit dans le dossier Dlls )
  echo -a Pour tout probleme contacter moi par e-mail : julien.huriez@tiscali.fr , merci
}

; DIALOG
dialog modules {
  size -1 -1 354 201
  title "Modules Gestion"
  button "Ajouter",1,272 18 60 25, flat
  button "Supprimmer",2,273 48 60 25, flat
  button "Lancer",3,273 78 60 25, flat
  list 4,9 17 250 173,extsel size
  button "",1000,0 0 0 0,ok hide
  menu "Menu",100
  item "Fermer",5, 100
}

;EVENEMENT

;INIT
on *:dialog:modules:init:*:{
  mdxinit
  mdx SetControlMDX $dname 4 ListView report nosortheader rowselect flatsb single grid editlabels > $mircdir $+ \Dlls\views.mdx
  mdx SetDialog $dname style staticedge title border dlgframe	
  did -i $dname 4 1 headerdims 100 144
  did -i $dname 4 1 headertext Nom du module $chr(9) Commande
  mdx SetDialog $dname bgcolor $rgb(10,88,158)
  modulesinit
}

; SCLICK
on *:dialog:modules:sclick:*:{
  if ( $did == 1 ) { /dialog -m ajout.modules ajout.modules }
  elseif ( $did == 2 ) { 
    if $did(4).sel {
      var %ligreet = $calc($did(4).sel - 1)
      set %texte1 $gettok(%token10,%ligreet,59)
      set %texte2 $gettok(%token20,%ligreet,59)
      var %tempe1 = $remtok(%token10,%texte1,1,59) 
      var %tempe2 = $remtok(%token20,%texte2,1,59) 
      set %token10 %tempe1 $+ ;
      set %token20 %tempe2 $+ ;
      modulesinit
    } 
    Else { var %erreurrr = $input(Selectionne une ligne !,300,Avertissement) }
  }
  elseif ( $did == 3 ) { 
    if $did(4).sel {
      var %ligreet = $calc($did(4).sel - 1)
      set %texte2 $gettok(%token20,%ligreet,59)
      / $+ %texte2
    }
    Else { var %erreurrr = $input(Selectionne une ligne !,300,Avertissement) }
  }
}

; MENU
on *:dialog:modules:menu:5:{ /dialog -x modules modules }

; DIALOG AJOUT
dialog ajout.modules {
  size -1 -1 186 176
  title "Ajouter un module :"
  text "Le Nom :",1,9 16 117 17
  text "La commande :",2,8 74 121 17
  edit "",4,10 40 159 22, autohs
  edit "",5,10 97 158 22, autohs
  button "Valider",3,58 135 60 30, cancel ok flat
  button "",1000,0 0 0 0,ok hide
}

; EVENEMENT

; INIT
on *:dialog:ajout.modules:init:*:{
  mdxinit
  mdx SetDialog $dname style staticedge title border dlgframe	
  mdx SetDialog $dname bgcolor $rgb(10,88,158)
  mdx SetColor $dname 4,5 background $rgb(10,103,185)
  mdx SetColor $dname 4,5 textbg $rgb(10,103,185)
  mdx SetColor $dname 1,2 background $rgb(10,88,158)
  mdx SetColor $dname 1,2 textbg $rgb(10,88,158)
  mdx SetColor $dname 1,2 text $rgb(255,255,255)
}

; SCLICK
on *:dialog:ajout.modules:sclick:3:{
  if $did(4) == $null || $did(5) == $null { var %erreurrr = $input(Tu doit remplir les champs de texte !,300,Avertissement) | halt }
  if $chr(59) isin $did(4) || $chr(59) isin $did(5) { var %erreurr = $input(Ne met pas de point virgule !,300,Avertissement) | halt }     
  Else {
    var %nom.modules = $did(4)
    var %cmd.modules = $did(5)
    var %lollol = 1
    while %lollol <= $numtok(%token10,59) {
      var %temp1 = $gettok(%token10,%lollol,59)
      if %temp1 == %nom.modules { var %erreurrr = $input(Module Deja entrer,300,Avertissement) | halt }
      inc %lollol
    }
    if %token10 != $null { set %token10 %token10 $+ %nom.modules $+ ; | /set %token20 %token20 $+ %cmd.modules $+ ; }
    Else { set %token10 %nom.modules $+ ; | set %token20 %cmd.modules $+ ; }
  }
  modulesinit
  dialog -x ajout.modules ajout.modules
} 

; ALIAS
alias modulesinit {
  var %lollol = 1
  did -r modules 4
  while %lollol <= $numtok(%token10,59) {
    var %temp1 = $gettok(%token10,%lollol,59)
    var %temp2 = $gettok(%token20,%lollol,59)
    did -a modules 4 $tab(%temp1,%temp2)
    inc %lollol
  }
}

alias tab {
  if (!$1) return $chr(9) | var %t,%w = 1
  while ($eval($+($,%w),2)) { %t = $instok(%t,$($+($,%w),2),0,9) | inc %w }
  return %t
}

alias modules {
  /dialog -m modules modules
}

alias mdx_fullpath { return $+(&quot;,$mircdir $+ DLLs\mdx.dll,&quot;) }

alias mdx { dll $mdx_fullpath $1- }

alias mdxinit {
  dll $mdx_fullpath SetMircVersion $version
  dll $mdx_fullpath MarkDialog $dname
}

Conclusion :


PS: Vous devez mettre la dll mdx.dll ainsi que views.mdx qui est avec dans le dossier Dlls dans votre script :)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

knuks
Messages postés
9
Date d'inscription
mardi 26 août 2003
Statut
Membre
Dernière intervention
17 mars 2004

lut a toi
ton truc jarrive pas a louvrir je c pas c kil a il me marke a chake fois inpossible douvrir ligne 141 ......

en gros jcroi kil arrive pas ouvrir ta dll
cs_koko
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

c'était pas pour moi ;) mais merci comme meme ^^
jujuquatre
Messages postés
274
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
24 août 2004

Scuse me :)

Voila j'ai mis un :)

Allez ++
cs_koko
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

je trouve que quand on utililse des dlls, on fasse un zip :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.