|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤@¤ë 19, 2003 3:07 pm ¤å³¹¥DÃD: Ãö©óVFPªº¥[±K (Âà¶K) |
|
|
Ãö©óVFPªº¥[±K
( §@ªÌ: ¦Ñ¤ý )
Vfp»y¨¥©ö¾Ç¦n¥Î¡A¨ä±Æ§Ç¡BÀ˯Á³t«×¤§§Ö¡A¬OVB©MDELPHI©Ò¤£¤Îªº¡A¦ý¨ä«O±K©Ê®t¬O¤]¤j®a¤½»{ªº¡C¥unµy爲À´¤@©w¸ê®Æ®wª¾ÃѪº¤H¡A¤@¥´¶}¸ê®Æªí¡A¨ä¤º®e«K¤@¥Ø¤FµM¡A¥B¥i¥ô·N§ó§ï¡A¨ä«O±K©Ê©M¦w¥þ©Ê¥i·Q¦Óª¾¡A³oÁÙ¥u¬O¨ä¤@¡C¨ä¤G¡GÀHµÛUNFOXpro.exe©MRefox7.exeµ¥ªº¥X²{¡A§A¨¯¨¯WW½sªºµ{¦¡¡A§Y¨Ï½sĶ¦¨EXE¤å¥ó¡A¤@¸gUN©ÎRE«h§A·Ù¶OW¤ß³]¸mªºª©Åv²Å¡BÅçÃÒÃö¡B¤f¥O¡B±K½Xµ¥³£¦p¦Pµê³]¡C
¨º麽Vfpªº«O±K©Ê®tªº®zÂI´N¨S¿ìªkÁקK¶Ü¡HNO ¡I¿ìªkªÖ©w¦³¡A³oùØ´N¥ý½Í½Í¡§¸ê®Æªíªº¥[±K°ÝÃD¡¨¡A¥H¤U´N¬O§Úªº¤@ÂI²Ê²L¬Ýªk¡A½Ðºô¤ÍÌ¿ãÅD°Q½×¡C
¸ê®Æªí¥[¸Ñ±K±`¨£ªº¦³¥H¤U¨âºØ¤è¦¡¡G
1¡Bª½±µ¦bºÏ¤ù¤W¥[¸Ñ±K¡A§Y¦bÃö³¬¸ê®Æªí¤å¥ó«á¡A¹ï¤w«O¦s¦bºÏ¤ù¤Wªº¸ê®Æªí¤å¥ó¶i¦æ¥[±K¡A¦b¨C¦¸¥´¶}¸ê®Æªí¤å¥ó«e¡A¥ý¦bºÏ¤ù¤W¹ï¸ê®Æªí¸Ñ±K¡AµM«á¦A¨Ñ Vfp±N¨ä¥´¶}¡A¨äÀuÂI¬O¥[¸Ñ±K®e©ö¡A¤@¯ëµ{¦¡®v¥ÎVfp´£¨Ñªº§C¯Å¤å¥ó¨ç¼Æ³£¯à½s¥X¥[¸Ñ±Kµ{¦¡¡F¯ÊÂI¬O¡G¦bWINªº¦h¤uÀô¹Ò¤U¡A«Ü®e©ö¨ú±o¸Ñ±K«áªº¸ê®Æ¡A¥t¥~¤@¥¹¨t²Î¥X¿ù¡AÁÙ¥¼¨Ó±o¤Î¥[±K´N«·s啓°Ê¨t²Î¡A¨º«O¯d¦bºÏ¤ù¤Wªº´N¬O¸Ñ±K«áªº¸ê®Æ¡A¹ï«O±K©Ê¯àn¨Dµy·L°ª¤@¨Çªºµ{¦¡®v¡A¤@¯ë¤£·|±Ä¥Î¦¹¤è¦¡¡C
2¡B¦b°O¾ÐÅ餤¹ï¸ê®ÆªíªºÄæ¦ì¶i¦æ¥[¸Ñ±K¡A³o¤S¥i¤À¨âºØ¡G
A¡B¶H¡m»·ºÝÄò½t¡n1999¦~²Ä¤@´Á ²Ä8Ó°ÝÃD¨º¼Ë¥ÎASCII½X¶i¦æ+¡B-¡B*¡B/¹Bºâ¥[¸Ñ±K¡A¦ý³oºØ¤èªk¦³Ó¯ÊÂI§Y·í¥[©Î¼®É¡A¨äÈ®e©ö¤j©ó255(FFH)§Y¤j©óASCII½Xªº³Ì¤jÈ¡A³o®ÉµLªk¥ÎCHR()´«¦¨¦r¤¸«O¦s¡A¦p¹ï¤j©ó255ªº¸ê®Æ¤£¥[±K¡A«h¸Ñ±K®É¤S·|±a¨Ó³Â·Ð¡A§Y¦P¬O254¡AþÓ¬O¥[±K«áªº254¡AþÓ¬O¥¼¥[±Kªº254¡H³o¤]´N¬O爲¦ó¦³¤H°Ýº~¦r¸Ñ±K«á·|¥X²{³\¦h¦Pµº~¦rªºì¦]¡C
B¡B§¹¥þ§Q¥ÎVfp3.0¥H¤Wª©¥»´£¨Ñªº¦ì¤¸¾Þ§@¨ç¼Æbitxor()¶i¦æ¥[±K¡A¸Ó¥[±K¤èªk¬OC»y¨¥¤Î²Õ¦X»y¨¥±`¥Îªº¥[±K¤èªk¡A¨äì²z¬O±N¤@¦ì¤¸²Õªº8¦ì¤¸¤G¶i¦ì¼Æ¦r»P¥t¤@Ó¤G¶i¦ì¼Æ¦r¶i¦æ²§©Î¾Þ§@¡A¦p¥Î6Ó¥H¤W±K°Í(¤f¥O)¶i¦æ¥[±K¡A«h¦b¤£ª¾¨ä±K°Íªº±¡ªp¤U¡A¬O«ÜÃø¸Ñ±Kªº¡C¥¦ÁÙ¦³¤@ÓÀuÂI¬O¥[¸Ñ±K¥Î¦P¤@¼Ò²Õ¡A§Y¤@¦¸°õ¦æ¬O¥[±K¡A¦A¦¸°õ¦æ爲¸Ñ±K¡C¥H¤U¬O¥[¸Ñ±K±`¦¡¡] ª`¡G½Õ¥Î¸Ó¹Lµ{®É¡A»Ý¥[±Kªº¸ê®Æªí¤w¥´¶}¡A¥B爲·í«e¤u§@°Ï¡^¡GProcedure jjmgc
para Pass &&Pass¬O±K°Í¡A³]Pass='wjgwkj'
priv all
mccd=len(Pass) &&¨úPass±K°Íªø«×
Sjbzds=fcou()
Dime Jmsz(Sjbzds)
Go top
Scan
Scat to Jmsz &&Ū¤@±ø°O¿ý¨ì°}¦C
For I=1 to Sjbzds
If type("Jmsz(i)")="C" &&¸ÓÄæ¦ì¬O¦r¤¸«¬¶Ü
Zdcd=len(trim(Jmsz(i))) &&¨úÄæ¦ìªø«×
mc1=1
For x=1 to Zdcd
Jm1=asc(subs(Jmsz(I),x,1)) &&¨úÄæ¦ì¤¤¤@Ӧ줸²Õ
jm2=asc(subs(Pass,mc1,1)) &&¨úPass¤¤¤@Ӧ줸²Õ
jmjg= chr(bitxor(jm1,jm2)) &&±NJM1«öJM2ªºÈ²§©Î
Jmsz(I)=stuf(Jmsz(I),x,1,jmjg) &&¶i¦æ¥[±K´À´«
mc1=iif(mc1>mccd,1,mc1+1) &&§PÂ_MC1¬O§_¤j©ómCCD
Endf
Endi
Endf
Gath from Jmsz &&±N¥[¸Ñ±Kªº¸ê®Æ¡A¼g¤J·í«e°O¿ý
Ends
retu
3¡B¦b°O¾ÐÅ餤ª½±µ¹ï¾ãÓ¸ê®Æªí¤å¥ó(.DBF)¥[¸Ñ±K¡A³o¤]¦³¨âºØ¤èªk¡G
A¡BɧU²{¦¨¤u¨ã¡AµS¦pUCDOS SDK©Ò´£¨ÑªºDBFKey()¨ç¼Æ¨º¼Ë¡A»PFOXµLÁ_³s±µ¡A¤£¸Ë¤JLoadSdk¥ÎUSE¬OµLªk¥´¶}¸ê®Æªíªº¡A¨äÀuÂI¬OÅã¦Ó©ö¨£ªº¡A¦ý¥Ø«e¦bWINÀô¹Ò¤UÁ٧䤣¨ì³o¼Ëªº¤u¨ã¡A¦Ó¦Û¤v»s§@¨äÃø«×¤j¡A¤@¯ëµ{¦¡®v°µ¤£¨ì¡C
B¡B¥ÎVfp´£¨Ñªº§C¯Å¤å¥ó¨ç¼Æ¡A°t¦XCreate Curso -SQL ©M Insert -SQL ©R¥O¥i¹ê²{Ãþ¦üUCDOS SDK©Ò¹F¨ìªº¥\¯à¡A¨äì²z¬O¡G
¥ý¥Î§C¯Å¤å¥ó¨ç¼Æ¦Û©w¸q¤@Ó¤å¥óÀY(©ÎµÛ¥s¤å¥ó®æ¦¡¡A¶HBMP¡BDOCµ¥³£¦³¦Û¤vªº¤å¥ó®æ¦¡)¡A¦b¤å¥óÀY¤¤¥i¥]§t¡G¤å¥óÀYªø«×¡BÄæ¦ì¦W¡BÄæ¦ìÃþ«¬¡BÄæ¦ìªø«×¡B¨C±ø°O¿ýªø«×¡B±K°Í(¤f¥O¦r)µ¥¡A±µµÛ±N±zªº°O¿ý«ö¤å¥óÀY³W©wªº®æ¦¡¥[±K«á¶¶§Ç¼g¤J¤å¥ó¤¤¡A¥Ñ©ó¤å¥ó®æ¦¡¬O±z¦Û©w¸qªº¡A©Ò¥H¤@¯ë¬OµLªk¥´¶}Ū¨úªº¡C ¦b¨Ï¥Î®É¡A¥Î§C¯Å¤å¥ó¨ç¼Æ±q±z¦Û©w¸qªº¤å¥ó¤¤¥ýŪ¨ú¤å¥óÀYªº¤º®e¡AŪ¨ìÄæ¦ì¦W¡BÄæ¦ìÃþ«¬¡BÄæ¦ìªø«×®É¡A±N¨ä¥ÎCreate Curso -SQL¨ì·s«Øªº¸ê®Æªí¤¤¡AŪ¨ú°O¿ý«á¥ý¸Ñ±K¡A¦A¥ÎInsert -SQL ¨ìè«Øªº¸ê®Æªí¤¤¡AµM«á´N¥i¥¿±`¨Ï¥Î¤F¡Aµ²§ô¨Ï¥Î»Ý¦sÀɮɦA«ö¤Wz¤èªk¼g¤J¤å¥ó¡C
¸Ó¤èªk©l²×¬O¦A°O¾ÐÅ餤¶i¦æªº¡A¬G§Y¨Ï¨t²Î¥X¿ù¡A«·s啓°Ê¨t²Î¤]µL§«¡C¥Î³oºØ¤èªk¥[¸Ñ±K½T¹ê¬O¦bVfpª¬ºA¤U¤ñ¸û¦nªº¿ìªk¡A¦ý¥i¯à¹ï©ó¨S¾Ç¹LC»y¨¥©Î·J½sªºªB¤Í¡A¹ï¤å¥ó®æ¦¡µ¥¤£²z¸Ñ¡A¥Ñ©ó¥N½X¸ûªø¡AµLªk¦C¥X¡A¦pºô¤Í̦³¿³½ì¡A§Ú¥i¨Ñ¡m¤Ñ°ó³nÅéѼֳ¡¡nµo©ñ¡C
¥H¤W¥u¬O§Ú¹ïVfp¸ê®Æ«O±K©Ê°ÝÃDªº±´°Q¤§¤@ ¡X¡X ¸ê®Æªí¥[¸Ñ±K¡A±q¤¤¤j®a·|¬Ý¨ì¡A¦pªG¥u¹ï¸ê®Æªí¥[¸Ñ±K¡A¦Ó¹ï°õ¦æ¥[¸Ñ±Kªºµ{¦¡½X¤£¥[±K¡A©Î¥ÎRefoxµ¥³nÅé±N±zªºEXE¤å¥ó¤Ï½sĶ¡A¨º±zªº¥[±K¤èªk¤Î±K°Í(¤f¥O¦r)¡A´N«Ü®e©ö¼ÉÅS¡A¨ä¥[±Kªº¥i¾a©Ê´N¦³°ÝÃD¡A³o´N¬O§ÚnÁ¿ªº²Ä¤GÓ°ÝÃD¡G _________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|