Modules gestion

Télécharger le projet
Commenter

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 :)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (jujuquatre)