HDR*PowerBuilder0600LCDFRE*NOD* ENT*0600D mysql.sraENT*0600 O D mysql.aplENT*0600QD mysql.praENT*0600,#"6Dw_saisie_educateur.winENT*0600P6Dw_saisie_educateur.srwENT*0600lODd_ff_saisie_educateur.dwoENT*0600?d_ff_saisie_educateur.srdENT*0600IDw_liste_saisie_educateur.winENT*0600G IDw_liste_saisie_educateur.srwENT*0600IADd_gd_liste_educateur.dwoENT*0600fADd_gd_liste_educateur.srdDAT*Generated Application Objectforward global type mysql from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global type mysql from application string appname = "mysql" end type global mysql mysql on mysql.create appname="mysql" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create errDAT*or end on on mysql.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event open;// Profile ODBC vers la base TCLP //SQLCA.DBMS = "ODBC" //SQLCA.DBParm = "ConnectString='Driver={Microsoft Access Driver (*.mdb)};DBQ=ASSO.mdb'" SQLCA.DBMS = "TRACE ODBC" SQLCA.DbParm ="ConnectString='Driver={MySQL ODBC 3.51 Driver};DESC=;DATABASE=asso;LOGID=root;LOGPASS=;SERVER=127.0.0.1;UID=root;PASSWORD=;PORT=3306;SOCKET=;OPTION=135168;STMT=;'" // ConneDAT*Q%%Mzw%!I@ @ L@ 0 h w%0 ͫ܄wL%"Arial"Arial"Arial"ArialDAT*p@IDID !p@p@ p@(@@-\@\@8[@[@Dc@c@QU@U@b`@`@lj@j@zk@k@l@l@m@m@@@@@@@@@^@^@n@n@@@+@@4@@B@@N@@X@@d@d@q@q@v@v@p@ # w_liste_saisie_educateurwindowmenuwindowtypewindowstatewindowobjecttooDAT*lbaralignmentstructuremailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobject  )cdatawindowborderstyledwobjectcommandbuttonfontcharsetfontpitchfontfamilyDfinition des ducateursasso.ico  *cnoned_gd_liste_educateurMS Sans Serif&Modifier&Quitterdragobjecttransactionsqlcamessagew_saisie_educateur2! wDAT*_liste_saisie_educateur : +create+destroy+openxposyposrowdwo+clickedK QL$)-LIILCdwobject.  x _initsrcwindoww_liste_saisie_educateurmenuwindowtypewindowstatewindowobjecttoolbaralignmentstructuremailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobjectdatawindowdw_liste_educateurbordersDAT*tyledwobjectcommandbuttoncb_modifierfontcharsetfontpitchfontfamilycb_quitterdragobjecttransactionmessagew_saisie_educateur@1@6@A@M@Z@k@u@ @ @ @ @ @@@@DAT*@@@'@5A@M@W@bm@x@@@ &wW ,)$y%"-"-DAT*"h@DDh@h@h@`@`@$j@j@2k@k@>l@l@Rm@m@^@@n@@{@@@@^@^@q@q@ r@r@s@s@t@t@v@v@p@  mysqlapplicationstructuremailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobjecttransDAT*$actionsqlcadynamicdescriptionareasqldadynamicstagingareasqlsaerrormessagew_liste_saisie_educateur2. sqlcasqldasqlsaerrormessagemysqlx     ( + +create+destroycommandline+open QQS  x  _initsrcapplicationmysqlstructuremailrecipientenvironmentmailfiledescriptionmailmessageDAT*&datawindowchildlistviewitemtreeviewitemconnectioninfopowerobjecttransactiondynamicdescriptionareadynamicstagingareaerrormessagew_liste_saisie_educateur|@#@-@;@G@[@g@w@ @ @ @ @@@@DAT*(@@  f80j(j<j\jxj(6DRd 0 appnamemysqlmessageirtransaction0 dynamicdescriptionareaiDdynamicstagingarea@derrorh@ (<\x$DAT** d  808$0$180$@8$z&}@}8@8 8 > X d- commandlinew_liste_saisie_educateur( @( TRACE ODBCConnectString='DDAT*river={MySQL ODBC 3.51 Driver};DESC=;DATABASE=asso;LOGID=root;LOGPASS=;SERVER=127.0.0.1;UID=root;PASSWORD=;PORT=3306;SOCKET=;OPTION=135168;STMT=;'Anomalie Connexion BDD      2  +create+destroy+open<2  appname      DAT*.p@4D6Dp@p@p@"@@'\@\@2[@[@>c@c@KU@U@\`@`@fj@j@tk@k@l@l@m@m@@@@@@@@@^@^@n@n@@@'@@0@@>@@J@@T@@d@d@v@v@q@q@0 w_saisie_educateurwindowmenuwindowtypewindowstatewindowobjecttoolbaralignmentstructuremailreDAT*0cipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobject  cdatawindowborderstyledwobjectcommandbuttonfontcharsetfontpitchfontfamilySaisie Educateurasso.ico  c  cd_ff_saisie_educateurMS Sans Serif&OK&AnnulerdragobjectmessagetransactionsqlcaSelect max ( place ) FROM educateur "DAT*26DH6D|H   2 w_saisie_educateur ( +create+destroy+open+clicked QL xw _initsrcwindoww_saisie_educateurmenuwindowtypewindowstatewindowobjecttoolbaralignmentstructuremailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnDAT*4ectioninfopowerobjectdatawindowdw_saisieborderstyledwobjectcommandbuttoncb_okfontcharsetfontpitchfontfamilycb_annulerdragobjectmessagetransactionl@+@0@;@G@T@e@o@} @ @ @ @ @@@DAT*6@@@@@&,@8@B@MX@c@k@ &wW -)y%"-"-DAT*8*,*4H*P`h$p$x$ |,Bd P dw_saisie)cb_ok*$cb_annuler+<controlc@)*+ , 4H P` h p x 0$$$8$d DAT*: @ dw_saisie)cb_ok*cb_annuler+ $ 8  ,$6$,)486n@n81<$)P8X$1)l8t$18|80)8,1 ,$ : \ l d9 ls_paramll_no_educateurmessagesqlca::messaged;DAT*< p@@!@p@)@E/@P dw_saisie)settransobject^$)retrieve2D)insertrow(`)code_etatAsetitemP  4 < P X l t   &&2  +create+destroy+open<2 v xywidtDAT*>hheighttitlebartitlecontrolmenuwindowtypebackcoloricondw_saisiecb_okcb_annuleril_no_membrer   "_(c4c?IpN X ^ i] r _  cDAT*@c1p @@@    &2  2 ? xywidthheighttaborderdataobjectborderlivescrollDAT*B  ` "-c4c] `  @ c c@ $)(80$188)T88\`$188)h8"8pDAT*D080}@}8,1,$$18)88\$18)8"8p080}@}8,t1,$$18J85 ($18J08",,8$18)H8P$)`88h0 @ 8,1DAT*F,l$ | 2Z,Hhd; li_no_placell_cntll_indxls_user::messagesqlcax S typ# nd+@_e5@t dw_saisie)accepttext)nom_educateurgetitemstringF)FSaisie EducateurVeuillez saisir un nom !)prenom_educateurF)DAT*HFVeuillez saisir un prenom !)placegetitemnumber  )  )setitemO@)updatedXOk ( 0 T ` h          ( 0 8 H P ` l ""2  +clicked2 a xywidthheighttabordertextsizeweightfontcharsetfontpitchfontfamilyDAT*Jfacenametext  Il("+2>HS\]  Il(  @ "DAT*L$)(80$)H818P08a0:)@:@@8}1}1<80 @ 8,1,$B| d li_rep::message(bt@( dw_saisie)accepttext)modifiedcount*8Saisie Educateur Etes vous sr de vouloir quitteDAT*Nr ?An ( 0 H  ""2  +clicked82 a xywidthheighttabordertextsizeweightfontcharsetfontpitchfontfamilyfacenametext^@  Id@ld@"+d@2>@HS@\] DAT* Il  @ "DAT*Rforward global type w_saisie_educateur from window end type type dw_saisie from datawindow within w_saisie_educateur end type type cb_ok from commandbutton within w_saisie_educateur end type type cb_annuler from commandbutton within w_saisie_educateur end type end forward global type w_saisie_educateur from window integer x = 2418 integer y = 1524 integer width = 1687 integer height = 788 boolean titlebar = true string title = "Saisie Educateur" boolean controlmenu = true windoDAT*Twtype windowtype = response! long backcolor = 80269524 string icon = "asso.ico" dw_saisie dw_saisie cb_ok cb_ok cb_annuler cb_annuler end type global w_saisie_educateur w_saisie_educateur type variables long il_no_membre end variables on w_saisie_educateur.create this.dw_saisie=create dw_saisie this.cb_ok=create cb_ok this.cb_annuler=create cb_annuler this.Control[]={this.dw_saisie,& this.cb_ok,& this.cb_annuler} end on on w_saisie_educateur.destroy destroy(this.dw_saisieDAT*V) destroy(this.cb_ok) destroy(this.cb_annuler) end on event open; string ls_param long ll_no_educateur ls_param = message.StringParm dw_saisie.SetTransObject(SQLCA) // Afficher info membre ll_no_educateur = long(ls_param) if ll_no_educateur <> 0 THEN dw_saisie.Retrieve(ll_no_educateur) ELSE dw_saisie.InsertRow(0) dw_saisie.SetItem(1,"code_etat","A") END IF end event type dw_saisie from datawindow within w_saisie_educateur integer x = 27 integer y = 16 inteDAT*Xger width = 1632 integer height = 472 integer taborder = 10 string dataobject = "d_ff_saisie_educateur" boolean border = false boolean livescroll = true end type type cb_ok from commandbutton within w_saisie_educateur integer x = 1303 integer y = 524 integer width = 329 integer height = 108 integer taborder = 40 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "MS Sans SerDAT*Zif" string text = "&OK" end type event clicked;integer li_no_place long ll_cnt, ll_indx string ls_user dw_saisie.AcceptText() // Control Nom IF dw_saisie.GetItemString(1,"nom_educateur") = "" or ISNULL(dw_saisie.GetItemString(1,"nom_educateur")) THEN MessageBox("Saisie Educateur","Veuillez saisir un nom !") RETURN END IF // Control Jour IF dw_saisie.GetItemString(1,"prenom_educateur") = "" or ISNULL(dw_saisie.GetItemString(1,"prenom_educateur")) THEN MessageBox("Saisie EdDAT*\ucateur","Veuillez saisir un prenom !") RETURN END IF // Forcer N Place en dernier if dw_saisie.GetItemNumber(1,"place") = 0 OR IsNull(dw_saisie.GetItemNumber(1,"place")) THEN Select max(place) INTO :li_no_place FROM educateur ; li_no_place++ dw_saisie.Setitem(1,"place",li_no_place) END IF dw_saisie.Update() closeWithReturn(Parent,"Ok") end event type cb_annuler from commandbutton within w_saisie_educateur integer x = 942 integer y = 524 integer width = 329 integer heighDAT*^t = 108 integer taborder = 30 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "MS Sans Serif" string text = "&Annuler" end type event clicked;integer li_rep dw_saisie.AcceptText() if dw_saisie.ModifiedCount () <> 0 Then // Confirmation de sortie li_rep = MessageBox("Saisie Educateur"," Etes vous sr de vouloir quitter ?",Question!, YESNO!) ELSE li_rep = 1 END IF IFDAT*F li_rep = 1 THEN closeWithReturn(Parent,"An") END IF end event DAT*b" or ISNULL(dw_saisie.GetItemString(1,"prenom_educateur")) THEN MessageBox("Saisie Educateur","Veuillez saisir un prenom !") RETURN END IF // Forcer N Place en dernier if dw_saisie.GetItemNumber(1,"place") = 0 OR IsNull(dw_saisie.GetItemNumber(1,"place")) THEN Select max(place) INTO :li_no_place FROM educateur ; li_no_place++ dw_saisie.Setitem(1,"place",li_no_place) END IF dw_saisie.Update() closeWithReturn(Parent,"Ok") end event type cb_annuler from commandbutton within w_sDAT*daisie_educateur integer x = 942 integer y = 524 integer width = 329 integer height = 108 integer taborder = 30 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "MS Sans Serif" string text = "&Annuler" end type event clicked;integer li_rep dw_saisie.AcceptText() if dw_saisie.ModifiedCount () <> 0 Then // Confirmation de sortie li_rep = MessageBox("Saisie Educateur"," EtDAT*es vous sr de vouloir quitter ?",Question!, YESNO!) ELSE li_rep = 1 END IF IF li_rep = 1 THEN closeWithReturn(Parent,"An") END IF end event DAT*hrelease 7; datawindow(units=0 timer_interval=0 color=16777215 processing=1 HTMLDW=no print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 96 print.margin.bottom = 96 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 selected.mouse=no ) header(height=68 color="536870912" ) summary(height=0 color="536870912" ) footer(height=0 color="536870912" ) detail(height=72 color="536DAT*j870912" ) table(column=(type=long updatewhereclause=yes key=yes name=no_educateur dbname="educateur.no_educateur" ) column=(type=char(50) update=yes updatewhereclause=yes name=nom_educateur dbname="educateur.nom_educateur" ) column=(type=char(50) update=yes updatewhereclause=yes name=prenom_educateur dbname="educateur.prenom_educateur" ) column=(type=char(50) update=yes updatewhereclause=yes name=formation dbname="educateur.formation" ) column=(type=char(1) update=yes updatewhereclause=yeDAT*s name=code_etat dbname="educateur.code_etat" values=" D/ A" ) column=(type=long update=yes updatewhereclause=yes name=place dbname="educateur.place" ) retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"educateur~" ) COLUMN(NAME=~"educateur.no_educateur~") COLUMN(NAME=~"educateur.nom_educateur~") COLUMN(NAME=~"educateur.prenom_educateur~") COLUMN(NAME=~"educateur.formation~") COLUMN(NAME=~"educateur.code_etat~") COLUMN(NAME=~"educateur.place~")WHERE( EXP1 =~"educateur.no_educateur~" OP =~"<>~"DAT*nPDW0700pdw?msr````.< nn``DAT*p @@DAT*r$ 536870912@oP&  !#gb_1< $ 0% MS Sans SerifMS Sans Serif$2$DAT*t-8$400$1$ 553648127$5$ 32$0$ 432$"1550%$% Informations InformationsX5' ( *,.02prenom_educateDAT*vur_t$)8388608$+R82$-156$/452$1229%34PrenomPrenomX@&6 ( 79.;=nom_educateur_t$8W87$:@64$<137%>DAT*x?NomNomXK5A ( BD.FH formation_t$CN78$E248$G)297%IJ Formation FormationXT@L ( BM.OQ code_etat_t$NT340$P242DAT*z%RS Dsactif Dsactif|eKU  VXZ\ ^( a code_etat$W407$YL332$[L76$]755&_` [general] [general]bcdDA|lTf g DAT*|V9.i ^ k2nom_educateur$h 33554431$ji1129|oem g V,.i ^n2prenom_educateur|lp g VD.i ^q2 formationDAT*~@tvyxz{ ~e|}DAT*3@l3@o3@T@ @ u :no_educ wno_educ educateur no_educateureducateur.no_educateurnom_educateureducateur.nom_educateureprenom_educateureducatDAT*eur.prenom_educateurl formationeducateur.formationo code_etateducateur.code_etatT D/ Aplaceeducateur.placetPBSELECT( VERSION(400) TABLE(NAME="educateur" ) COLUMN(NAME="educateur.no_educateur") COLUMN(NAME="educateur.nom_educateur") COLUMN(NAME="educateur.prenom_educateur") COLUMN(NAME="educateur.formation") COLUMN(NAME="educateur.code_etat") COLUMN(NAME="educateur.place")WHERE( EXP1 ="educateur.no_educDAT*\ateur" OP ="=" EXP2 ="" ) ) ARG(NAME = "no_educ" TYPE = number) 8"1"1"1"1"0"0DAT*release 7; datawindow(units=0 timer_interval=0 color=80269524 processing=0 HTMLDW=no print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 96 print.margin.bottom = 96 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no ) summary(height=0 color="536870912" ) footer(height=0 color="536870912" ) detail(height=456 color="536870912" ) table(column=(type=long update=yes updatewhereclause=yes DAT*key=yes name=no_educateur dbname="educateur.no_educateur" ) column=(type=char(50) update=yes updatewhereclause=yes name=nom_educateur dbname="educateur.nom_educateur" ) column=(type=char(50) update=yes updatewhereclause=yes name=prenom_educateur dbname="educateur.prenom_educateur" ) column=(type=char(50) update=yes updatewhereclause=yes name=formation dbname="educateur.formation" ) column=(type=char(1) update=yes updatewhereclause=yes name=code_etat dbname="educateur.code_etat" values=" D/DAT* A" ) column=(type=long update=yes updatewhereclause=yes name=place dbname="educateur.place" ) retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"educateur~" ) COLUMN(NAME=~"educateur.no_educateur~") COLUMN(NAME=~"educateur.nom_educateur~") COLUMN(NAME=~"educateur.prenom_educateur~") COLUMN(NAME=~"educateur.formation~") COLUMN(NAME=~"educateur.code_etat~") COLUMN(NAME=~"educateur.place~")WHERE( EXP1 =~"educateur.no_educateur~" OP =~"=~" EXP2 =~":no_educ~" ) ) ARG(NAME = ~"no_educ~" TYPE = nDAT*umber) " update="educateur" updatewhere=1 updatekeyinplace=no arguments=(("no_educ", number)) ) groupbox(band=detail text="Informations"border="5" color="0" x="32" y="0" height="432" width="1550" name=gb_1 font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" ) text(band=detail alignment="0" text="Prenom" border="0" color="8388608" x="82" y="156" height="52" width="229" name=prenom_educateDAT*ur_t font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" ) text(band=detail alignment="0" text="Nom" border="0" color="8388608" x="87" y="64" height="52" width="137" name=nom_educateur_t font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" ) text(band=detail alignment="0" text="FormaDAT*tion" border="0" color="8388608" x="78" y="248" height="52" width="297" name=formation_t font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" ) text(band=detail alignment="0" text="Dsactif" border="0" color="8388608" x="78" y="340" height="52" width="242" name=code_etat_t font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" backgroDAT*und.mode="1" background.color="553648127" ) column(band=detail id=5 alignment="0" tabsequence=40 border="0" color="0" x="407" y="332" height="76" width="55" format="[general]" name=code_etat checkbox.text="" checkbox.on="D" checkbox.off="A" checkbox.scale=no checkbox.threed=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" ) column(band=detail id=2 alignment="0" tabsequence=10 bordeDAT*r="5" color="0" x="407" y="64" height="52" width="1129" format="[general]" name=nom_educateur edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=no edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="33554431" ) column(band=detail id=3 alignment="0" tabsequence=20 border="5" color="0" x="407" y="156" height="52" width="1129" format="[general]" name=prenom_educateDAT*ur edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=no edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="33554431" ) column(band=detail id=4 alignment="0" tabsequence=30 border="5" color="0" x="407" y="248" height="52" width="1129" format="[general]" name=formation edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=no edit.nilisnull=yes edit.auDAT*Utohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="33554431" ) htmltable(border="1" ) htmlgen(clientevents="1" clientvalidation="1" clientcomputedfields="1" clientformatting="0" clientscriptable="0" generatejavascript="1" ) DAT**$8*@T*\lt$|$$ |,Bd P dw_liste_educateur)cb_modifier*,cb_quitter+Hcontrolc@)*+ $8 @T \l t |  0$0$D$dDAT* L dw_liste_educateur)cb_modifier*cb_quitter+ 0 D $,)48<$)P8X$)l8,r1,t$ < Xd sqlca::message(@@|8 dw_liste_educateur)settransobject^$)retrieve1D)setfocus` DAT*4 < P X l t &&2  +create+destroy+open<2  xywidthheighttitlebartitlecontrolmenuminboxwindowtypebackcoloricondw_liste_educateurcb_modifiercb_quitterE $ 2 "c(c4c;cDAT*FP}U h t ] E$2 c  ccc1} @@@   DAT* &1Z$19)088$9)@8,t1,H$6Zd$ xposyposrowdwo::messagedp@ p@ @P( dw_liste_educateur)selectrow_m@$)@$ 0DAT* 8 @ H $$2  +clickeded2 J xywidthheighttabordertitledataobjecthscrollbarborderstyle@ , E <"(3c>c] @,E < @DAT*c@ c 1< $ $1)4818<08M0}@}8,z1,h$p$8xJ8@8@98$)8$9)8$)8,n1DAT*|,$(8` 8Td7 ll_no_educll_row::messagew_saisie_educateurP@$@` dw_liste_educateur)getselectedrow$Saisie EducateurAucune ligne selctionneam)no_educateurgetitemnumber" )retrievext 1)selectrow@)setfocus 4 h pDAT*         ""2  +clicked2 a xywidthheighttabordertextsizeweightfontcharsetfontpitchfontfamilyfacenametext   Il"+2>HS\] DAT* Il  @1 "f$),8 @ 8,L1Z,4$2d ::message@< dw_liste_educateur)updated$ , 4 ""DAT*forward global type w_liste_saisie_educateur from window end type type dw_liste_educateur from datawindow within w_liste_saisie_educateur end type type cb_modifier from commandbutton within w_liste_saisie_educateur end type type cb_quitter from commandbutton within w_liste_saisie_educateur end type end forward global type w_liste_saisie_educateur from window integer x = 837 integer y = 804 integer width = 2866 integer height = 1488 boolean titlebar = true string title = "DfinitiDAT*on des ducateurs" boolean controlmenu = true boolean minbox = true windowtype windowtype = popup! long backcolor = 80269524 string icon = "asso.ico" dw_liste_educateur dw_liste_educateur cb_modifier cb_modifier cb_quitter cb_quitter end type global w_liste_saisie_educateur w_liste_saisie_educateur on w_liste_saisie_educateur.create this.dw_liste_educateur=create dw_liste_educateur this.cb_modifier=create cb_modifier this.cb_quitter=create cb_quitter this.Control[]={this.dw_liste_DAT*educateur,& this.cb_modifier,& this.cb_quitter} end on on w_liste_saisie_educateur.destroy destroy(this.dw_liste_educateur) destroy(this.cb_modifier) destroy(this.cb_quitter) end on event open; dw_liste_educateur.SettransObject(SQLCA) dw_liste_educateur.Retrieve() dw_liste_educateur.Setfocus() end event type dw_liste_educateur from datawindow within w_liste_saisie_educateur integer x = 64 integer y = 44 integer width = 2373 integer height = 1280 integer taborder = DAT*60 string title = "none" string dataobject = "d_gd_liste_educateur" boolean hscrollbar = true borderstyle borderstyle = stylelowered! end type event clicked;If row <> 0 THEN // recuperation ligne pointe et N adhrent dw_liste_educateur.SelectRow(0, FALSE) dw_liste_educateur.SelectRow(row, TRUE) END IF end event type cb_modifier from commandbutton within w_liste_saisie_educateur integer x = 2491 integer y = 488 integer width = 329 integer height = 108 integer taborder = 30DAT* integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "MS Sans Serif" string text = "&Modifier" end type event clicked;long ll_no_educ, ll_row ll_row = dw_liste_educateur.GetSelectedRow(0) if ll_row = 0 THEN Messagebox("Saisie Educateur","Aucune ligne selctionne") RETURn END IF ll_no_educ = dw_liste_educateur.GetItemNumber(ll_row,"no_educateur") OpenWithParm(w_saisie_DAT*educateur,string(ll_no_educ),w_liste_saisie_educateur) dw_liste_educateur.retrieve() dw_liste_educateur.SelectRow(ll_row,TRUE) dw_liste_educateur.setFocus() end event type cb_quitter from commandbutton within w_liste_saisie_educateur integer x = 2491 integer y = 1196 integer width = 329 integer height = 108 integer taborder = 90 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facenameDAT*% DAT*ct to the database. CONNECT USING SQLCA; IF SQLCA.sqlcode <> 0 THEN MessageBox("Anomalie Connexion BDD",string(SQLCA.SQLcode)+SQLCA.SQLErrText) Halt END IF open (w_liste_saisie_educateur) end event DAT*2  +clicked2 a xywidthheighttabordertextsizeweightfontcharsetfontpitchfontfamilyfacenametext   IlZ"+2>HS\]  IlZ DAT* = "MS Sans Serif" string text = "&Quitter" end type event clicked;dw_liste_educateur.update() close(PARENT) end event DAT* @1 "DAT* EXP2 =~"1~" ) ) ORDER(NAME=~"educateur.place~" ASC=yes ) " update="educateur" updatewhere=1 updatekeyinplace=no ) text(band=header alignment="2" text="Prenom Educateur" border="6" color="8388608" x="827" y="12" height="52" width="434" name=prenom_educateur_t font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="80269524" ) text(band=header alignment="2" text="Formation" border="6" color="8388608" DAT*x="1271" y="12" height="52" width="837" name=formation_t font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="80269524" ) text(band=header alignment="2" text="Dsactif" border="6" color="8388608" x="2117" y="12" height="52" width="215" name=code_etat_t font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="8DAT*0269524" ) text(band=header alignment="2" text="Nom Educateur" border="6" color="8388608" x="261" y="12" height="52" width="558" name=nom_educateur_t font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="80269524" ) text(band=header alignment="2" text="No" border="6" color="8388608" x="9" y="12" height="52" width="242" name=t_1 font.face="MS Sans Serif" font.height="-8" font.weight="400" font.familDAT*y="2" font.pitch="2" font.charset="0" background.mode="2" background.color="80269524" ) column(band=detail id=5 alignment="2" tabsequence=32766 border="0" color="0" x="2117" y="8" height="60" width="215" format="[general]" protect="0~tif( code_etat =~"P~",1,0)" name=code_etat tag="Actif/Dsactif" checkbox.text="" checkbox.on="D" checkbox.off="A" checkbox.scale=no checkbox.threed=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" baDAT*ckground.mode="0" background.color="536870912~tif( code_etat =~"P~",RGB(0,128,255),if( code_etat =~"D~",RGB(255,0,0),RGB(255,255,255)))" ) column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="1271" y="8" height="60" width="837" format="[general]" protect="0~tif( code_etat =~"P~",1,0)" name=formation tag="Formations suivies" edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weighDAT*t="400" font.family="2" font.pitch="2" font.charset="0" background.mode="0" background.color="536870912~tif( code_etat =~"P~",RGB(0,128,255),if( code_etat =~"D~",RGB(255,0,0),RGB(255,255,255)))" ) column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="827" y="8" height="60" width="434" format="[general]" protect="0~tif( code_etat =~"P~",1,0)" name=prenom_educateur tag="Prnom de l'ducateur" edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.auDAT*tohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="0" background.color="536870912~tif( code_etat =~"P~",RGB(0,128,255),if( code_etat =~"D~",RGB(255,0,0),RGB(255,255,255)))" ) column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="261" y="8" height="60" width="558" format="[general]" protect="0~tif( code_etat =~"P~",1,0)" name=nom_educateur tag="Nom de l'ducateur" edit.limit=50 edDAT*it.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="0" background.color="536870912~tif( code_etat =~"P~",RGB(0,128,255),if( code_etat =~"D~",RGB(255,0,0),RGB(255,255,255)))" ) column(band=detail id=1 alignment="2" tabsequence=32766 border="0" color="0" x="9" y="8" height="76" width="242" format="[general]" name=no_educateur edit.limit=0 edit.caseDAT*`=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" ) htmltable(border="1" ) htmlgen(clientevents="1" clientvalidation="1" clientcomputedfields="1" clientformatting="0" clientscriptable="0" generatejavascript="1" ) DAT*PDW0700pdwR HI```` < nn``DAT* @DF=X"DAT*  prenom_educateur_t< $0%  MS Sans SerifMS Sans Serif$ 2$-8$400$ 80269524$8388608$DAT*6$;827$ 12$452$_434% !Prenom EducateurPrenom EducateurX+#  $&( formation_t$%1271$'E837%)* Formation FormationX4"DAT*,  -/1 code_etat_t$.E2117$0/215%23 Dsactif DsactifX=+5  68:nom_educateur_t$79261$9z.558%;<Nom EducateurNom EducateurX4>DAT*  ?ACt_1$@ 9$B5242%DENoNo$G 536870912@F@HFJ|KILOgikm xo {DAT* code_etat%MNActif/DsactifActif/Dsactif$PQ _536870912 if( code_etat ="P",RGB(0,128,255),if( code_etat ="D",RGB(255,0,0),RGB(255,255,255)))RVZ ST UP WXY  `@ o@[_c \] ^D `ab o@  DAT* def o@ o@ o@$hE2117$j8$l<60$n/215$pq0 if( code_etat ="P",1,0)rvw st uP ? &yz [general] [general]|}~DA|JDAT*IOikxo(2 formation%Formations suiviesFormations suivies$1271$E837|IOikxo(2prenom_educateur%Prnom de l'ducateurDAT*Prnom de l'ducateur$;827$_434|IOikxo(2nom_educateur%Nom de l'ducateurNom de l'ducateur$9261$z.558|I i DAT* no_educateur$ 16777215$ 9$L76$5242& [general] [general]@FDAT* 3@3@3@JDAT*@ @ educateur no_educateureducateur.no_educateurnom_educateureducateur.nom_educateurprenom_educateureducateur.prenom_educateur formationeducateur.formation code_etateducateur.code_etatJ D/ AplaceDAT*educateur.placexPBSELECT( VERSION(400) TABLE(NAME="educateur" ) COLUMN(NAME="educateur.no_educateur") COLUMN(NAME="educateur.nom_educateur") COLUMN(NAME="educateur.prenom_educateur") COLUMN(NAME="educateur.formation") COLUMN(NAME="educateur.code_etat") COLUMN(NAME="educateur.place")WHERE( EXP1 ="educateur.no_educateur" OP ="<>" EXP2 ="1" ) ) ORDER(NAME="educateur.place" ASC=yes ) $18DAT*"1"1"1"1"0"0