MZP@ !L!This program must be run under Microsoft Windows. $NE ! @P!! P q 00i0D0L0 ^0 0L0h"0test bde language v2LIBENTRYWEP˸Borland Standard File@|~@ RScriptFormDataFormUIManagerUIContainerUIObject f&open+close+canArrive2arrive2setFocus+canDepart2removeFocus+depart2mouseEnter,mouseExit,mouseMove,mouseDown,mouseUp,mouseDouble,mouseRightDown,mouseRightUp,mouseRightDouble,keyPhysical-keyChar-action.menuAction/timer4pushButton+changeValue0calcField+run+newValue+proc+error3status1mouseClick,init+stringListChange+UsesTypeVarConstProc~x _E; Creation avec une commande SQL d'une table test ; et insertion de donnes(3 enregistrements) ; ; pui ESSAI d'execution de trois requetes avec mots clefs ; dans differentes langues (franais, anglais, allemand) ; ; // version 1.2 du 12/12/2002 ; de Rgis Duc Dodon avec l'aide de Rodney Wise ; + effacement de la table test en fin de script ; ------------------------------------------------------------ ; procdure pour tester si la table existe ; ------------------------------------------------------------ proc canCreate(name String) logical message("Cration of table \""+name+".db\" ...") if isTable(name) then if msgQuestion("Confirmation", "La Table \""+name+".db\" existe dja. "+ "Voulez vous l'craser ?") <> "Yes" then return False endif endif return True endProc ; ------------------------------------------------------------ ; methode principale ; ------------------------------------------------------------ method run(var eventInfo Event) var newTab,tble Table txt string tbl Tcursor R,R1,R2 Query a,b,c Smallint endVar if canCreate("T_language") then ; ============================================================ ; Table : "T_language" ; ============================================================ newTab = create "T_language" as "Paradox" with "LG_Langue" : "A12" endCreate endif ; La table "T_language " est maintenant cre ;------------------------------------------------------------ ; Insertion de trois enregistrements dans la table "T_language" ;------------------------------------------------------------ if not tbl.open("T_language.DB") then errorshow() else tbl.open("T_language.DB") tbl.edit() tbl.insertrecord() tbl."LG_Langue" = "blue" tbl.insertrecord() tbl."LG_Langue"= "white" tbl.insertrecord() tbl."LG_Langue" = "red" tbl.postrecord() tbl.endedit() tbl.close() endif ; --------------------------------------------------- ; ; TEST DES DIFFERENTES REQUETES ; ;------------------------------------------------------ ; // Query with french word R = Query T_language.DB | LG_Langue | | blue, remplacerpar french | EndQuery if not ExecuteQBE(R) then a= 0 else a= 1 ;return endif ;msginfo("1 = french version ?",(a)) ; // Query with german word R1 = Query T_language.DB | LG_Langue | | white, AENDERNZU german | EndQuery if not ExecuteQBE(R1) then b= 0 else b= 1 ;return endif ;msginfo("1 = german version ?",(b)) ; // Query with english word R2 = Query T_language.DB | LG_Langue | | red, CHANGETO english | EndQuery if not ExecuteQBE(R2) then c= 0 else c= 1 ;return endif ;msginfo("1 = english version ?",(c)) ; ------------------------------------------- ; Affichage des resultats ; ------------------------------------------- if (a+b+c) =2 and (a)=0 then ; french=No, german=Yes, english= Yes msginfo("BDE LANGUAGE INFORMATIONS"," Your BDE version accept as well,"+ "\n\n GERMAN, ( 'Einfuegen', 'Loeschen', 'Menge'...) \n ENGLISH ( 'Insert', 'Delete', 'Set'...) \n as Words in queries \n BUT, YOU CANNOT 'DISTRIBUTE' YOUR APPLICATION \n TO AN 'ENGLISH' OR A 'FRENCH' USER \n "+ " "+ "WITH SOME GERMAN WORDS IN YOUR QUERIES.\n TO HAVE A GOOD COMPATIBILITY \n"+" "+ "IT IS BETTER FOR YOU \n TO USE ENGLISH WORDS ONLY.\n\n" ) else if (a+b+c) =2 and (b)=0 then ; french=Yes, german=No, english= Yes msginfo("INFORMATIONS SUR LA LANGUE DU BDE "," Votre environnement Paradox + BDE vous autorise \n utiliser indiffremment les termes \n franais ou anglais dans vos requtes QBE.\n "+" Ainsi vous pouvez aussi bien crire\n\n \" Insert \" ou \" Inserer \",\n \n \" Supprimer \" ou \" Delete \" etc."+" \n TOUTEFOIS, PAR SOUCIS DE COMPATIBILIT, \n IL EST PRFRABLE DE N'UTILISER \n QUE LES TERMES EN ANGLAIS DANS VOS REQUETES.\n\n" ) else if (a+b+c) =1 and (c)=1 then ; french=No, german=No, english= Yes msginfo(" INFORMATIONS SUR LA LANGUE DU BDE "," Votre environnement Paradox + BDE vous autorise \n utiliser SEULEMENT ET UNIQUEMENT ,"+ "\n\nles termes ANGLAIS ( 'Insert', 'Delete', 'Set'... ) dans les requtes \n "+" SI VOUS UTILISER DES REQUETES CREES PAR UN UTILISATEUR "+" FRANCAIS ET OBTENEZ CE MESSAGE D'ERREUR:\n\n"+"'INSERT, DELETE, CHANGETO and SET rows may not be checked.'\n\n OU CE MESSAGE D'ERREUR:\n "+"'Query has no checked fields.'\n \n"+" CELA SIGNIFIE PROBABLEMENT QUE DES MOTS EN \nFRANCAIS SONT UTILISES DANS VOS REQUETES.\n\n") else ; french=No, german=No, english= No ; french=Yes, german=Yes, english= No ; french=Yes, german=No, english= No ; french=No, german=Yes, english= No ; french=Yes, german=Yes, english= Yes msginfo("BDE LANGUAGE INFORMATIONS"," Your BDE version seems to not accept"+ "\n\n FRENCH,('Inserer','Supprimer', 'Ensemble'...) \n GERMAN, ('Einfuegen','Loeschen', 'Menge'...) \n nor than ENGLISH ('Insert','Delete','Set'...)\n as Words in queries \n"+" "+ "YOU PROBABLY HAVE BAD SETTINGS IN YOUR BDE \n"+" "+ "ARE YOU RUNNING PARADOX ?.\n\n" ) endif endif endif msginfo("Statut", "Test effectu avec succes !") ; // ----------------------------------------------- ; // Efface T_language.db et ferme le script ; // ----------------------------------------------- tble.attach("T_Language.db") if tble.isTable() then tble.delete() msginfo("Statut", "La table T_Language.DB est fface.") else msginfo("Statut", "Impossible de trouver la table T_Language.db.") return endIf endmethod run+p].4QC:\Program Files\Corel\WordPerfect Office 2002\Paradox\PDOXHome\WINSTYLES.FTB#Script1POST>  Vd CONTAINERd\bACTIVE>LASTMOUSECLICKED\SUBJECTbZLASTMOUSERIGHTCLICKED<SELFZ#SCRIPT1?[8 CANCREATE  NAMENAMERUN METHOD_SELF EVENTINFO2sF METHOD_SELF  EVENTINFONEWTABTBLELTXTTBLjR R1R2YAlB Crr) R /r. )   %(%( tA!t R$tf< %(%( %X(OA<(%0D (tP (t ?t0<X  b\&1'$\($x($)$'$&'A%dT*t%dT*t%dT *tr pQUERY T_language.DB | LG_Langue | | blue, remplacerpar french | ENDQUERY % &<*D*nQUERY T_language.DB | LG_Langue | | white, AENDERNZU german | ENDQUERY% &<*D*lQUERY T_language.DB | LG_Langue | | red, CHANGETO english | ENDQUERY% &<*D*%\p%TpL%h<%h%UTp%(%8(%(%(%(MAv%\p%TpL%h<%h%.4%(P%8(MA%\p%TpD%hD%h%bl%(%8(%(%(%(0%(MAPTLh%(%8(%(%(%(MAMAL$L+$)L*$MA,MA $8L$T\ ""d" +j  /N  /],hLz0upkfa\WlRPM4HC>94/*p%T LD<  x\PD( *)('&%$#"!  0Cration of table ".db" ... Confirmation La Table ".db" existe dja. Voulez vous l'craser ?Yes T_languageParadox LG_LangueA12 T_language.DBbluewhiteredBDE LANGUAGE INFORMATIONS! Your BDE version accept as well, GERMAN, ( 'Einfuegen', 'Loeschen', 'Menge'...) ENGLISH ( 'Insert', 'Delete', 'Set'...) as Words in queries BUT, YOU CANNOT 'DISTRIBUTE' YOUR APPLICATION TO AN 'ENGLISH' OR A 'FRENCH' USER  GWITH SOME GERMAN WORDS IN YOUR QUERIES. TO HAVE A GOOD COMPATIBILITY 3IT IS BETTER FOR YOU TO USE ENGLISH WORDS ONLY. "INFORMATIONS SUR LA LANGUE DU BDE Votre environnement Paradox + BDE vous autorise utiliser indiffremment les termes franais ou anglais dans vos requtes QBE. m Ainsi vous pouvez aussi bien crire " Insert " ou " Inserer ", " Supprimer " ou " Delete " etc.~ TOUTEFOIS, PAR SOUCIS DE COMPATIBILIT, IL EST PRFRABLE DE N'UTILISER QUE LES TERMES EN ANGLAIS DANS VOS REQUETES. # INFORMATIONS SUR LA LANGUE DU BDE W Votre environnement Paradox + BDE vous autorise utiliser SEULEMENT ET UNIQUEMENT ,M les termes ANGLAIS ( 'Insert', 'Delete', 'Set'... ) dans les requtes 9 SI VOUS UTILISER DES REQUETES CREES PAR UN UTILISATEUR , FRANCAIS ET OBTENEZ CE MESSAGE D'ERREUR: X'INSERT, DELETE, CHANGETO and SET rows may not be checked.' OU CE MESSAGE D'ERREUR: !'Query has no checked fields.' Y CELA SIGNIFIE PROBABLEMENT QUE DES MOTS EN FRANCAIS SONT UTILISES DANS VOS REQUETES. % Your BDE version seems to not accept FRENCH,('Inserer','Supprimer', 'Ensemble'...) GERMAN, ('Einfuegen','Loeschen', 'Menge'...) nor than ENGLISH ('Insert','Delete','Set'...) as Words in queries -YOU PROBABLY HAVE BAD SETTINGS IN YOUR BDE ARE YOU RUNNING PARADOX ?. StatutTest effectu avec succes ! T_Language.db#La table T_Language.DB est fface.-Impossible de trouver la table T_Language.db.