http://vfp.sunyear.com.tw/ ¥»°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¸ü. garfield@sunyear.com.tw http://blogs.law.harvard.edu/tech/rss RSS Feed 2.2.4 Sun, 21 Jun 2026 14:04:38 GMT http://vfp.sunyear.com.tw/templates/subSilver/images/logo_phpBB_med.gif http://vfp.sunyear.com.tw/ 122 56 http://vfp.sunyear.com.tw/viewtopic.php?p=37013#37013 Fri, 19 Jun 2026 08:49:07 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37013#37013 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¤­ ¤»¤ë 19, 2026 4:49 pm (GMT 8)<br /> <br /><span class="postbody"> ¦p¹Ï¦A¨Ó¤@­Ó¦³¥[¤JCHECK ¿ï¶µªº <br /> <br /> <span style="color: red"> LOCAL lnAns <br /> lnAns = my_message_CHECK("±z½T©w­nµo°Ê¡iXX¹ê·~¡j¾ú¥v§bº¢®Æ§å¦¸¾P±b¶Ü¡H", 32 + 4, "®Ö¤ß¹L±b¨¾§b") <br /> <br /> IF lnAns = 6 <br /> WAIT WINDOW "¡i¨¾§b¸ÑÂꦨ¥\¡j¶}©l°õ¦æ VFOXPRO «á¥x¿ûÅK­pºâ¡I" <br /> ELSE <br /> WAIT WINDOW "¾Þ§@¤w¦w¥þ¨ú®ø¡C" <br /> ENDIF</span> <br /> ************************************* <br /> FUNCTION my_message_CHECK <br /> LPARAMETERS tcMessage, tnType, tcTitle <br /> <br /> * ?? 1. ¥þ§½Åܼƭè©Ê©wÁã <br /> PUBLIC _gnMsgResult <br /> _gnMsgResult = 0 <br /> <br /> IF EMPTY(tnType) <br /> tnType = 0 <br /> ENDIF <br /> IF EMPTY(tcTitle) <br /> tcTitle = [¦w¥þ½T»{´£¥Ü] <br /> ENDIF <br /> <br /> LOCAL loMsgForm, lnReturn <br /> <br /> * ?? 2. À»µo¨¾§bªí³æ <br /> loMsgForm = CREATEOBJECT("BigMsgFormAntiMistake", tcMessage, tnType, tcTitle) <br /> loMsgForm.Show(1) <br /> <br /> * ?? 3. ±µ¦^¯Â¼Æ¦rªð¦^­È (1=½T©w, 2=¨ú®ø, 6=¬O, 7=§_) <br /> lnReturn = _gnMsgResult <br /> <br /> * ?? 4. ²M²z¾Ô³õ <br /> RELEASE _gnMsgResult <br /> RELEASE loMsgForm <br /> <br /> RETURN lnReturn <br /> ENDFUNC <br /> <br /> <br /> * ?? ®Ö¤ß¡GÂù­«¨¾§b¤j¦rÅéªí³æÃþ§O«Å§i <br /> DEFINE CLASS BigMsgFormAntiMistake AS Form <br /> Caption = "" <br /> Width = 580 <br /> Height = 280 && ?? µy·L©Ô°ª¡A¯dªÅ¶¡µ¹ CheckBox <br /> AutoCenter = .T. <br /> BorderStyle = 3 <br /> MaxButton = .F. <br /> MinButton = .F. <br /> WindowType = 1 <br /> FontName = "Microsoft JhengHei" <br /> FontSize = 16 <br /> <br /> nBtn1Value = 0 <br /> nBtn2Value = 0 <br /> <br /> * ª«¥ó«Å§i¡G¤å¦r¡B®Ö¨ú¤è¶ô¡B«ö¶s <br /> ADD OBJECT lblMessage AS Label WITH Left = 40, Top = 35, Width = 500, Height = 90, ; <br /> FontName = "Microsoft JhengHei", FontSize = 16, FontBold = .T., WordWrap = .T., Caption = "" <br /> <br /> * ?? ÆF»î¨¾§b±±¨î¶µ¡GCheckBox <br /> ADD OBJECT chkConfirm AS CheckBox WITH Left = 40, Top = 145, Width = 200, Height = 30, ; <br /> FontName = "Microsoft JhengHei", FontSize = 15, FontBold = .T., ; <br /> Caption = "§Ú¤w½T»{", Value = 0,FORECOLOR=RGB(255,0,0) <br /> <br /> ADD OBJECT btn1 AS CommandButton WITH Left = 160, Top = 200, Width = 110, Height = 40, FontName = "Microsoft JhengHei", FontSize = 14, Visible = .F. <br /> ADD OBJECT btn2 AS CommandButton WITH Left = 290, Top = 200, Width = 110, Height = 40, FontName = "Microsoft JhengHei", FontSize = 14, Visible = .F. <br /> <br /> PROCEDURE Init <br /> LPARAMETERS tcMessage, tnType, tcTitle <br /> LOCAL lnButtons <br /> <br /> This.Caption = tcTitle <br /> This.lblMessage.Caption = tcMessage <br /> <br /> lnButtons = BITAND(tnType, 0x000F) <br /> <br /> * °ÊºA¤À°t«ö¶s¼Æ­È <br /> DO CASE <br /> CASE lnButtons = 0 && ¥u¦³¤@­Ó [½T©w] <br /> This.btn2.Left = 235 <br /> This.btn2.Caption = "½T©w" <br /> This.nBtn2Value = 1 <br /> This.btn2.Visible = .T. <br /> This.btn2.Default = .T. <br /> <br /> CASE lnButtons = 1 && [½T©w] [¨ú®ø] <br /> This.btn1.Left = 160 <br /> This.btn1.Caption = "½T©w" <br /> This.nBtn1Value = 1 <br /> This.btn1.Visible = .T. <br /> This.btn1.Default = .T. <br /> <br /> This.btn2.Left = 290 <br /> This.btn2.Caption = "¨ú®ø" <br /> This.nBtn2Value = 2 <br /> This.btn2.Visible = .T. <br /> <br /> CASE lnButtons = 4 && [¬O(Y)] [§_(N)] <br /> This.btn1.Left = 160 <br /> This.btn1.Caption = "¬O (Y)" <br /> This.nBtn1Value = 6 <br /> This.btn1.Visible = .T. <br /> This.btn1.Default = .T. <br /> <br /> This.btn2.Left = 290 <br /> This.btn2.Caption = "§_ (N)" <br /> This.nBtn2Value = 7 <br /> This.btn2.Visible = .T. <br /> ENDCASE <br /> ENDPROC <br /> <br /> * ?? «ö¶s 1 (¤]´N¬O¡u¬O / ½T©w¡v) ªºÂIÀ»ª«²z¨¾¿m <br /> PROCEDURE btn1.Click <br /> * ?? ®Ö¤ß Truths §P©w¡G¬Ý¬Ý«È¤á¨ì©³¦³¨S¦³¥´¤Ä (Value = 1 ¥Nªí¦³¥´¤Ä) <br /> IF ThisForm.chkConfirm.Value = 1 <br /> _gnMsgResult = ThisForm.nBtn1Value <br /> ThisForm.Release <br /> ELSE <br /> * ?? «È¤á¨S¥´¤Ä¡Iª½±µ¸õ¥X¤j¦rÅéĵ§i¡A¤£µ¹¹L±b¡I <br /> MESSAGEBOX([½Ðª`·N¡G±zÀ³¸Ó¥ý¥´¤Ä½T»{¡I], 48, [¨¾§bªýÂ_]) <br /> ENDIF <br /> ENDPROC <br /> <br /> * ?? «ö¶s 2 (¤]´N¬O¡u§_ / ¨ú®ø¡v)¡GÂIÀ»¤£³]¨¾¡AÀH®É¥i¥H¦w¥þ°h³õ <br /> PROCEDURE btn2.Click <br /> _gnMsgResult = ThisForm.nBtn2Value <br /> ThisForm.Release <br /> ENDPROC <br /> ENDDEFINE</span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37013 http://vfp.sunyear.com.tw/viewtopic.php?p=37012#37012 Fri, 19 Jun 2026 07:49:28 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37012#37012 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> ¥DÃD: ¤À¨É:¤j¦rÅ骺¦Û©w¸qmessagebox<br /> µoªí©ó: ¬P´Á¤­ ¤»¤ë 19, 2026 3:49 pm (GMT 8)<br /> <br /><span class="postbody"> <span style="font-size: 24px; line-height: normal"> ¦p¹Ï <br /> </span> <br /> ¨Ò¦p: =my_msgbox("¦¨«~¤J®w³æ¦sÀɦ¨¥\¡I¦¨«~¤J®w³æ¦sÀɦ¨¥\¡I¦¨«~¤J®w³æ¦sÀɦ¨¥\¡I¦¨«~¤J®w³æ¦sÀɦ¨¥\¡I",32+4, "¨t²Î´£¥Ü") <br /> <br /> <span style="color: blue"> <br /> LOCAL lnAns <br /> lnAns = my_msgbox("¬O§_­n§R°£¦¹µ§ ¸ê®Æ¡H", 32 + 4, "½T»{§R°£") <br /> <br /> * 🚀 ³o¦¸ÂI¡u¬O¡v¡AlnAns 100% ³QÅܼƩwÁ㬰¼Æ¦r 6¡I <br /> * 🚀 ³o¦¸ÂI¡u§_¡v¡AlnAns 100% ³QÅܼƩwÁ㬰¼Æ¦r 7¡I <br /> DO CASE <br /> CASE lnAns = 6 <br /> WAIT WINDOW "±z«ö¤F¡i¬O¡j(6)¡I" NOWAIT <br /> CASE lnAns = 7 <br /> WAIT WINDOW "±z«ö¤F¡i§_¡j(7)¡I" NOWAIT <br /> OTHERWISE <br /> WAIT WINDOW "ªð¦^­È¡G" + STR(lnAns) NOWAIT <br /> ENDCASE</span> <br /> <br /> <br /> ************************************************** <br /> *==================================================================== <br /> * 🚀 XX¹ê·~ ERP ±M¥Î - ¤j¦rÅ駹¥þÅé¹ï¸Ü®Ø (¥þ§½Åܼƭè©Ê¹ï»ôª©) <br /> *==================================================================== <br /> FUNCTION my_msgbox <br /> LPARAMETERS tcMessage, tnType, tcTitle <br /> <br /> * 🎯 1. ­è©ÊÁn©ú¥þ§½Á×¾_ÅܼơAªì©l­Èµ¹ 0 <br /> PUBLIC _gnMsgResult <br /> _gnMsgResult = 0 <br /> <br /> IF EMPTY(tnType) <br /> tnType = 0 <br /> ENDIF <br /> IF EMPTY(tcTitle) <br /> tcTitle = [¨t²Î´£¥Ü] <br /> ENDIF <br /> <br /> LOCAL loMsgForm, lnReturn <br /> <br /> * 🚀 2. À»µoªí³æ <br /> loMsgForm = CREATEOBJECT("BigMsgFormComplete", tcMessage, tnType, tcTitle) <br /> loMsgForm.Show(1) && ³o¸Ì·|¥d¦í¡Aª½¨ìªí³æ Release <br /> <br /> * 🚀 3. ªí³æ¦º«á¡A¥þ§½Åܼƨ̵M¦s¬¡¡I§Q¸¨§â¼Æ­È±µ¦^¨Ó <br /> lnReturn = _gnMsgResult <br /> <br /> * 🚀 4. ¦¬§L¹Lªe¡Aª«²z¹LÂo¨Ã¾P·´¥þ§½ÅܼơA¤£¯d©U§£¦b°O¾ÐÅé <br /> RELEASE _gnMsgResult <br /> RELEASE loMsgForm <br /> <br /> RETURN lnReturn <br /> ENDFUNC <br /> <br /> <br /> * 🧠 ®Ö¤ß¡G¤j¦rÅ駹¥þÅé¹ï¸Ü®ØÃþ§O«Å§i <br /> DEFINE CLASS BigMsgFormComplete AS Form <br /> Caption = "" <br /> Width = 560 <br /> Height = 240 <br /> AutoCenter = .T. <br /> BorderStyle = 3 <br /> MaxButton = .F. <br /> MinButton = .F. <br /> WindowType = 1 <br /> FontName = "Microsoft JhengHei" <br /> FontSize = 16 <br /> <br /> * «ö¶s¹ï»ô¼Æ­È°O¿ý <br /> nBtn1Value = 0 <br /> nBtn2Value = 0 <br /> <br /> ADD OBJECT imgIcon AS Image WITH Left = 30, Top = 45, Width = 48, Height = 48, Visible = .F. <br /> ADD OBJECT lblMessage AS Label WITH Left = 95, Top = 45, Width = 430, Height = 100, ; <br /> FontName = "Microsoft JhengHei", FontSize =<span style="color: red"> <span style="font-size: 24px; line-height: normal">16</span></span>, FontBold = .T., WordWrap = .T., Caption = "" <br /> <br /> ADD OBJECT btn1 AS CommandButton WITH Left = 160, Top = 165, Width = 110, Height = 40, FontName = "Microsoft JhengHei", FontSize = 14, Visible = .F. <br /> ADD OBJECT btn2 AS CommandButton WITH Left = 290, Top = 165, Width = 110, Height = 40, FontName = "Microsoft JhengHei", FontSize = 14, Visible = .F. <br /> <br /> PROCEDURE Init <br /> LPARAMETERS tcMessage, tnType, tcTitle <br /> LOCAL lnButtons, lnIcon <br /> <br /> This.Caption = tcTitle <br /> This.lblMessage.Caption = tcMessage <br /> <br /> lnButtons = BITAND(tnType, 0x000F) <br /> lnIcon = BITAND(tnType, 0x00F0) <br /> <br /> IF !This.imgIcon.Visible <br /> This.lblMessage.Left = 40 <br /> This.lblMessage.Width = 480 <br /> ENDIF <br /> <br /> * 🎨 °ÊºA°t¸m«ö¶s»P¡uª½±µ¼g¤JÃþ§Oªº¼Æ­ÈÄÝ©Ê¡v <br /> DO CASE <br /> CASE lnButtons = 0 && ¥u¦³¤@­Ó [½T©w] <br /> This.btn2.Left = 225 <br /> This.btn2.Caption = "½T©w" <br /> This.nBtn2Value = 1 && 1 = IDOK <br /> This.btn2.Visible = .T. <br /> This.btn2.Default = .T. <br /> <br /> CASE lnButtons = 1 && [½T©w] [¨ú®ø] <br /> This.btn1.Left = 160 <br /> This.btn1.Caption = "½T©w" <br /> This.nBtn1Value = 1 && 1 = IDOK <br /> This.btn1.Visible = .T. <br /> This.btn1.Default = .T. <br /> <br /> This.btn2.Left = 290 <br /> This.btn2.Caption = "¨ú®ø" <br /> This.nBtn2Value = 2 && 2 = IDCANCEL <br /> This.btn2.Visible = .T. <br /> <br /> CASE lnButtons = 4 && [¬O(Y)] [§_(N)] <br /> This.btn1.Left = 160 <br /> This.btn1.Caption = "¬O (Y)" <br /> This.nBtn1Value = 6 && 6 = IDYES <br /> This.btn1.Visible = .T. <br /> This.btn1.Default = .T. <br /> <br /> This.btn2.Left = 290 <br /> This.btn2.Caption = "§_ (N)" <br /> This.nBtn2Value = 7 && 7 = IDNO <br /> This.btn2.Visible = .T. <br /> ENDCASE <br /> ENDPROC <br /> <br /> * 🚀 «ö¶sÂIÀ»¡G¶V¹Lªí³æ¡Aª½±µ§â¯Â¼Æ¦r²k¶i¥~³¡ªº¥þ§½ÅܼơI <br /> PROCEDURE btn1.Click <br /> _gnMsgResult = ThisForm.nBtn1Value <br /> ThisForm.Release <br /> ENDPROC <br /> <br /> PROCEDURE btn2.Click <br /> _gnMsgResult = ThisForm.nBtn2Value <br /> ThisForm.Release <br /> ENDPROC <br /> ENDDEFINE</span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37012 http://vfp.sunyear.com.tw/viewtopic.php?p=37011#37011 Thu, 18 Jun 2026 00:36:14 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37011#37011 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¥| ¤»¤ë 18, 2026 8:36 am (GMT 8)<br /> <br /><span class="postbody"> §ó¥¿:¬O©Ò¦³°®²bªºwindows-os ³£¤£¯àrun,°£«Dµù¥U¤@¦¸fm20.dll <br /> <span style="font-size: 18px; line-height: normal"><span style="color: blue">©Î¬O¤p§Þ¥©: ¥ý½Ð«È¤á¦w¸Ë¤@¦¸´¶³qª©¥»ms-office,¥L´N·|¦Û¦æ¸É¦w¸Ëfm20.dll</span></span> <br /> <br /> »Ý±N¦³¦w¸Ë¹Lªº¹q¸£ ªº fm20.dll, FM20CHT.DLL copy ¨ì ¤£¯à¶]¤§¹q¸£ªº <br /> c:\windows\syswow64\¤U,¥²¶·¯d¤U¨Ó¤£¯à§R°£¦¹dllÀÉ <br /> <br /> µM«á¨Ï¥ÎºÞ²zªÌÅv­­¶}±Òdosµ¡ <br /> regsvr32 fm20.dll ¤@¦¸,¦³¥X²{µù¥U¦¨¥\! <br /> ´N¥i¥H©ñ¤ß¨Ï¥Î¥»°Ï¥\¯à <br /> <span style="color: blue">(¦pªGµLªk¦w¸Ë½Ð¥ý¤U¸ü vc_redist.x86.exe µM«á°õ¦æ¥L <br /> ¦bµù¥U¤@¦¸§Y¥i)</span></span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37011 http://vfp.sunyear.com.tw/viewtopic.php?p=37010#37010 Tue, 16 Jun 2026 10:25:19 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37010#37010 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¤G ¤»¤ë 16, 2026 6:25 pm (GMT 8)<br /> <br /><span class="postbody"> unicode (²§Åé¦r,²Åé¦r,¤é¤å)...ªº¿Ã¹õÅã¥Ü,¿é¤J,¦sÀÉ(ms sql server),Âàxls,report form³£¸Ñ¨M¤F <br /> ´N¥i¥H¦A©µÄòvfoxpro ªº¥Í©R.......</span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37010 http://vfp.sunyear.com.tw/viewtopic.php?p=37009#37009 Tue, 16 Jun 2026 04:49:59 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37009#37009 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¤G ¤»¤ë 16, 2026 12:49 pm (GMT 8)<br /> <br /><span class="postbody"> unicode²§Åé¦rµLªk¦C¦L(report form)¸Ñ¨M¤F <br /> ±Ä¨úvfox9 ©I¥sphp ºô­¶,ÅýphpŪ¨úms-sql ²§Åé¦r,¦A¦Û°Ê¥Í¦¨(«È¤á¦WºÙ)ªºunicodeªºbmpÀÉ <br /> <br /> µM«á¶Ç¦^¥»¾÷¦s©ñ¦b memoÀɤº <br /> ¦¹®Éreport form ´N¥i¥H¨ú¥Î¦¹bmp¨Ó¦C¦L!¤£»Ý­n«È¤á¦Û¤v¥h¤pµe®a»s°µbmp <br /> <span style="color: red">(¦b«È¤á°ò¥»ÀɺûÅ@µe­±¤¤,¦³²§Åé¦r»Ý¨DªÌ,´N­n«ö¤@¦¸¥Í¦¨bmp«ö¶s),¤é«áª½±µ¥i¥HŪ¨ú¦¹bmpÀÉ</span></span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37009 http://vfp.sunyear.com.tw/viewtopic.php?p=37008#37008 Tue, 16 Jun 2026 02:23:17 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37008#37008 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¤G ¤»¤ë 16, 2026 10:23 am (GMT 8)<br /> <br /><span class="postbody"> ..§ï¥Î¨ä¥L³øªí¤u¨ã,§ï¥Î¨ä¥L¶}µo¤u¨ã°µUI. Orz <br /> <br /> ®¦ <br /> §Ú¸Õ¤@¤Uª½±µ¶}ºô­¶,©I¥sphp ª½±µÅª¨úms sql (unicode)¨Ï¥Îphp ¥Í¦¨¹ï±b³æ! <br /> <span style="color: red">­è­è¨Ï¥Î¤pµe®a¤âµe¤@­Ó«È¤á¥þ¦WªºBMPÀÉ(16¦â) <br /> µM«á©Ô¦ÜVFOX9 REPORT ·í¤¤·í§@ª«¥ó(OLE),¥i¥H¹F¨ì¥Øªº</span> <br /> ÁÂÁÂ</span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37008 http://vfp.sunyear.com.tw/viewtopic.php?p=37007#37007 Tue, 16 Jun 2026 01:54:41 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37007#37007 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=41" target="_blank">syntech</a><br /> µoªí©ó: ¬P´Á¤G ¤»¤ë 16, 2026 9:54 am (GMT 8)<br /> <br /><span class="postbody"> §ï¥Î¨ä¥L³øªí¤u¨ã,§ï¥Î¨ä¥L¶}µo¤u¨ã°µUI. Orz<br />_________________<br />¦pªG¤½¥q¦³¤U¦C§xÂZ: <br /> 1. §ä¤£¨ì«K©y,§Ö³t,²©öªº ¥Í²£±Æµ{³nÅé <br /> 2. ¤£ª¾¹D¦p¦ó§Ö³t±Æ©w ±ÄÁÊ­p¹º <br /> 3. ¦¨¥»§ì¤£·Ç,¦Û¤vºâ¤ñ³nÅéºâ¦³¥Î <br /> 4. ·Q¾Ç²ß¨t²Î³W¹º,·Q§ä¨t²Î¬[ºcªºÅU°Ý <br /> <br /> ½ÐÁpµ¸§Ú­Ì,¤]³\§Ú­ÌÀ°±o¤W¦£</span><br /> syntech VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37007 http://vfp.sunyear.com.tw/viewtopic.php?p=37006#37006 Mon, 15 Jun 2026 23:10:30 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37006#37006 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¤G ¤»¤ë 16, 2026 7:10 am (GMT 8)<br /> <br /><span class="postbody"> ¦C¦L²§Åé¦rreport form ¤]¸Ñ¨M</span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37006 http://vfp.sunyear.com.tw/viewtopic.php?p=37005#37005 Mon, 15 Jun 2026 13:55:56 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37005#37005 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=41" target="_blank">syntech</a><br /> µoªí©ó: ¬P´Á¤@ ¤»¤ë 15, 2026 9:55 pm (GMT 8)<br /> <br /><span class="postbody"> §Ú¦n¹³¬Ý¨ì¥Îªi°Ê¯¥¥´¤p³¾ XD <br /> ·Pı«Ü¦³¹D²z§r<br />_________________<br />¦pªG¤½¥q¦³¤U¦C§xÂZ: <br /> 1. §ä¤£¨ì«K©y,§Ö³t,²©öªº ¥Í²£±Æµ{³nÅé <br /> 2. ¤£ª¾¹D¦p¦ó§Ö³t±Æ©w ±ÄÁÊ­p¹º <br /> 3. ¦¨¥»§ì¤£·Ç,¦Û¤vºâ¤ñ³nÅéºâ¦³¥Î <br /> 4. ·Q¾Ç²ß¨t²Î³W¹º,·Q§ä¨t²Î¬[ºcªºÅU°Ý <br /> <br /> ½ÐÁpµ¸§Ú­Ì,¤]³\§Ú­ÌÀ°±o¤W¦£</span><br /> syntech VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37005 http://vfp.sunyear.com.tw/viewtopic.php?p=37004#37004 Mon, 15 Jun 2026 12:25:37 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37004#37004 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¤@ ¤»¤ë 15, 2026 8:25 pm (GMT 8)<br /> <br /><span class="postbody"> 1.«È¤á°ò¥»ÀɤºÄæ¦ì¦p¤U: <br /> «È¤á¥N¸¹ CHAR(10) <br /> «È¤á¦WºÙ VARCHAR(100) &&BIG5½X,¥­®ÉERP³£¥Î¦¹Äæ <br /> «È¤á²ºÙ VARCHAR(20) &&BIG5½X,¥­®ÉERP³£¥Î¦¹Äæ <br /> «È¤á¥þ¦W(¦³¤ä«ù²§Åé¦r) NVARCHAR(800).....¦b¬Y¨Ç¹ï±b³æ©Î¹ï¥~³øªí,´N§ì¦¹Äæ¨ÓÂàEXCEL,¤è¥i¦C¦L,¦]¬°¤£¤ä«ùREPORT FORM <br /> <span style="color: red"> ¦pªG¬O¾P³f³æ,¥u¯à®M¦LÂIÂí¦Lªí¾÷,¼È®É¨S¦³·Q¨ì¦nªºREPORT ¤èªk,¦³¥i¯à <br /> ±Ä¨úBMP»s§@¦n¤§«á,©ñ¨ì³ÆµùÄæ¦ì,¹J¨ì³oºØ«È¤á(EXP: 咙ûiªÑ¥÷¦³­­¤½¥q) <br /> ¬°¤Fªí¥Ü´L­««È¤á¦WºÙ,¥i¯à¥ý¦bWINDOWS ºI¹Ï¦¨BMPµM«á¦AVFOX9 ªºREPORT¦C¦L¦¹OLEÄæ¦ì!¨Ó¨ú¥N¤W­zªº«È¤á¦WºÙC(100)BIG5½X! <br /> <br /> ¥H¤W¤D¨Ï¥ÎVFOX9ªº©µÄò¤èªkUNICODE....»P«È¤á·¾³q¤§«áÀ³¸Ó¥i¥H½Ì¸Ñ¤£«K! <br /> </span></span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37004 http://vfp.sunyear.com.tw/viewtopic.php?p=37003#37003 Mon, 15 Jun 2026 12:19:22 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37003#37003 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¤@ ¤»¤ë 15, 2026 8:19 pm (GMT 8)<br /> <br /><span class="postbody"> <span style="font-size: 24px; line-height: normal"><span style="color: blue">¥Ñ©óreport µLªk¦¨¥\(¤w¸g¸Õ¹L§Y®ÉÂàbmpÀÉ)¦breport¨Ì¼Ë¤£¦¨¥\ <br /> ¦³Ãö¦¹²§Åé¦rªº¦C¦L´N¥æ¥Ñ ©ßÂàexcel¨Ó¦C¦L</span></span> <br /> <br /> command_xls.click¦p¤U: <br /> <br /> <br /> <br /> ******* REPORT TO EXCEL <br /> TITLE0='²§Åé¦rÂàXLS' <br /> ExcelApp= CREATEOBJECT("Excel.Application") <br /> <br /> ExcelApp.Workbooks.ADD <br /> ExcelActiveSheet=ExcelApp.ActiveSheet <br /> ExcelApp.ActiveWindow.WINDOWSTATE = 2 <br /> ExcelActiveSheet.NAME =TITLE0 <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> ExcelApp.COLUMNS("A").COLUMNWIDTH =40 <br /> ExcelApp.Cells(1,1).FONT.SIZE=14 <br /> ExcelApp.Cells(2,1).FONT.SIZE=14 <br /> ExcelApp.Cells(3,1).FONT.SIZE=12 <br /> ExcelApp.RANGE("A5:A5").FONT.SIZE=9 <br /> ExcelApp.RANGE("A5:A5").FONT.Bold = .T. <br /> <br /> ExcelApp.Cells(5,1).VALUE = "«È¤á¦WºÙ" <br /> <br /> <br /> ExcelActiveSheet.PageSetup.ORIENTATION =2 && ?¸m¥´¦L¤è¦V¡G 1 ª½¦V 2¾î¦V <br /> <br /> <br /> thisform.ole1.Object.SelStart = 0 <br /> thisform.ole1.Object.SelLength = 99999999 <br /> thisform.ole1.Object.Copy() && À»µo·L³n­ì¥Í Unicode ½Æ»s¨ó©w <br /> <br /> * 2. ¨ú®ø¿ï¨úª¬ºA¡Aºû«ùµe­±½Ã¥Í <br /> thisform.ole1.Object.SelLength = 0 <br /> <br /> * 3. ?? ­°ºû¥´À»¡G±j­¢ Excel Àx¦s®æª½±µ±q°Å¶K怜³f¡A¹ý©³µ´±þ VFOX Åܼƪº Big5 ¦Ã¬V¡I <br /> ExcelApp.Cells(6, 1).Select() && ª«²z©wÁã¿ï¨ú¸ÓÀx¦s®æ <br /> ExcelApp.ActiveSheet.Paste() && À»µo Excel ­ì¥Í¶K¤W¡I²§Åé¦r¡B²Åéªø¦a§}§¹¬ü²{§Î¡I <br /> <br /> ExcelApp.VISIBLE = .T.<span style="font-size: 24px; line-height: normal"></span></span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37003 http://vfp.sunyear.com.tw/viewtopic.php?p=37002#37002 Mon, 15 Jun 2026 04:52:16 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37002#37002 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> µoªí©ó: ¬P´Á¤@ ¤»¤ë 15, 2026 12:52 pm (GMT 8)<br /> <br /><span class="postbody"> <span style="font-size: 24px; line-height: normal"><span style="color: blue">°f¦V±NUNICODE UTF16 ¼g¤JMS SQL,¤w¸g´ú¹L¥i¦æ(AI±Ðªº),­ì¥»¤£¯à¼g¤Jªø¤å¦r(¦³255)­­¨î,²{¦b¥i¥H¤F,´«¦æ¤]¥i¥H</span></span> <br /> «á¥xms sql table nvarchar(800) ½Ð³]¤j¤@ÂI <br /> 1.¤â°Ê¿é¤J¦b­è­è«Ø¥ßªºFORM.OLE1¤W­±ÀH«K¿é¤J¤@¨Ç²§Åé¦r(¨Ò¦p:ûiûiûi) <br /> <br /> WRITE COMMAND.CLICK ¦p¤U <br /> LOCAL lcHexStr, lcSqlCmd, lnResult <br /> <br /> * ===============================================<span style="color: green">=============================== <br /> * <br /> LOCAL lcSqlCmd, lnResult, CON, BB <br /> LOCAL lnHmem, lnPtr, lnSize, lcRawBuffer, lbBlobData <br /> LOCAL laErr[1] <br /> <br /> * ³z¹L±zªº¥þ°ìÅܼƩΰt¸m±±ºÞ´£¥Ü¤è¶ô¼ÐÃD¡]­YµL¦¹Åܼƥi§ï¬°±`³W¦r¦ê¡^ <br /> IF TYPE("ZZ_BOX") # "C" <br /> ZZ_BOX = "¨t²Î´£¥Ü" <br /> ENDIF <br /> <br /> * ============================================================================== <br /> * 1. «Å§i Windows ¤º®Ö°O¾ÐÅé»P°Å¶Kï Win32 API ³q´Y <br /> * ============================================================================== <br /> DECLARE LONG OpenClipboard IN user32 LONG hwnd <br /> DECLARE LONG CloseClipboard IN user32 <br /> DECLARE LONG GetClipboardData IN user32 LONG uFormat <br /> DECLARE LONG GlobalLock IN kernel32 LONG hMem <br /> DECLARE LONG GlobalUnlock IN kernel32 LONG hMem <br /> DECLARE LONG GlobalSize IN kernel32 LONG hMem <br /> <br /> * ­è©Ê«ü©w²Ä¤@­Ó°Ñ¼Æ¬° STRING @¡A±Mªù¹ï»ô VFOX ¤º³¡Åܼƪº¹êÅé«ü°w¦ì§} <br /> DECLARE LONG RtlMoveMemory IN kernel32 STRING @pDest, LONG pSource, LONG dwBytes <br /> <br /> * ============================================================================== <br /> * 2. µe­±­I´ººI¨ú¡G©R¥O Forms 2.0 ±±¨î¶µ¦b­I´ºª½±µ°é¿ï¨Ãµo°Ê­ì¥Í½Æ»s <br /> * ============================================================================== <br /> * ?? ®Ö¤ßÀu¤Æ¡G¥þ­±©Þ°£ SetFocus()¡Iª½±µ½Õ¥Î¤º®ÖÄÝ©Ê¡A¤£¤zÂZ¨Ï¥ÎªÌ·Æ¹«´å¼Ð <br /> thisform.ole1.Object.SelStart = 0 <br /> thisform.ole1.Object.SelLength = 99999999 && ª½±µµ¹¤©¶W¤j­È¡A±j¨î°é¿ï¥þ³¡¦h¦æ¤å¦r <br /> thisform.ole1.Object.Copy() && À»µo·L³n­ì¥Í Unicode ½Æ»s¨ó©w¡I <br /> <br /> * ============================================================================== <br /> * 3. °O¾ÐÅéÄdºI¡Gª½±µ¦V Windows ¨t²Î°Å¶Kïº^¥X³o¶ô¯Â²bªº UTF-16LE ¤G¶i¦ì¦×Åé <br /> * ============================================================================== <br /> lcRawBuffer = "" <br /> <br /> IF OpenClipboard(0) != 0 <br /> lnHmem = GetClipboardData(13) && Ū¨ú¼Ð·Ç Unicode °Å¶Kï§Ö¨ú (CF_UNICODETEXT = 13) <br /> <br /> IF lnHmem != 0 <br /> lnPtr = GlobalLock(lnHmem) <br /> lnSize = GlobalSize(lnHmem) <br /> <br /> * ±Æ°£ Windows µ²§À¦Û°Ê¸ÉªºªÅ¦r¤¸¦ì¤¸²Õ (Unicode Null-Terminator ¦û 2 Bytes) <br /> IF lnSize > 2 <br /> lnSize = lnSize - 2 <br /> ENDIF <br /> <br /> IF lnSize > 0 <br /> * ¦b VFOX ¤j¸£¤º³¡¶}ÅP¤@¶ô¤Ø¤o§¹¥þ­è¦n¡B¤£®ö¶OªÅ¶¡ªº¦w¥þ³fÂd <br /> lcRawBuffer = REPLICATE(CHR(0), lnSize) <br /> <br /> * ­è©Ê¼´¦^ VFOX ÅܼƤ¤¡A¦¹®É¸Ì­±¸Ëªº¬O 100% ¯Â¥¿¡B¥¼¨ü Big5 ¦Ã¬Vªº UTF-16 ¦×Åé <br /> =RtlMoveMemory(@lcRawBuffer, lnPtr, lnSize) <br /> ENDIF <br /> <br /> =GlobalUnlock(lnHmem) <br /> ENDIF <br /> =CloseClipboard() <br /> ENDIF <br /> <br /> * ¨ú®øµe­±ªº¿ï¨úª¬ºA¡Aºû«ù ERP ¨t²Îµøı½Ã¥Í°®²b <br /> thisform.ole1.Object.SelLength = 0 <br /> <br /> * ============================================================================== <br /> * 4. ?? ­°ºû¥´À»¡G±N¤G¶i¦ì¦×ÅéÂ૬¬°¸UÆF Blob ÅܼơA¨Ã§Q¥Î¡i?¡j¯SÅv°Ñ¼Æ³q¹Dª¼¨ê <br /> * ============================================================================== <br /> * ?? ÃöÁä®Ö¤ß¡G¹ý©³¼o°£ CONVERT(NVARCHAR, 0x...) »P¤j¦r¦ê¤Þ¸¹«÷±µ¡I <br /> * §Ú­Ìª½±µ±N­è­è¼´¦^¨Óªº¯Â¤G¶i¦ì¦r¦ê¡A±j¦æ CAST ¦¨ VFOX ¤º®Ö³Ì³»¶¥ªº Blob ª«¥ó¡]W Ãþ«¬¡^ <br /> lbBlobData = CAST(lcRawBuffer AS Blob) <br /> <br /> IF !EMPTY(lbBlobData) <br /> * ©I¥s±zªº¸ê®Æ®w³s½u±±¨î¬` <br /> CON = RET_SQL_CON() <br /> <br /> IF CON <= 0 <br /> =MESSAGEBOX('MS SQL ¸ê®Æ®w«á¥x³s½u¥¢±Ñ¡A½ÐÀˬd¤u¼tºô¸ô©Î±±¬`ª¬ºA¡I', 16, ZZ_BOX) <br /> RETURN <br /> ENDIF <br /> <br /> * ?? ?? ?? ¥@¬ö¸Ñª¼¥´ªk¡G <br /> * §Ú­Ì¦b SQL »y¥y¤¤ª½±µ«ü¬£¡u?lbBlobData¡v°ÊºAÅܼƫü°w¡C <br /> * ³o¬q SQL ¦r¦êªø«×·¥µu¡A§¹¬ü¶¹L VFOX9 ¤Þ¸¹¦r¦ê 255 ¦r¤¸ªº­P©Rª«²z­­¨î¡I <br /> * VFOX ªº ODBC ÅX°Ê¤@¬Ý¨ì°Ý¸¹¡A·|ª½±µ¦b©³¼hµo°Ê°ÊºA°O¾ÐÅé¸j©w¡A§â¾ã¦êªø³Æµù 100% ¥þ¶qÄé¤J«á¥x¡I <br /> lcSqlCmd = [UPDATE CPU SET V20 = ?lbBlobData WHERE CPU_NUM = 'A2'] <br /> <br /> * µo®g¦Ü MS SQL 2014 «á¥x <br /> BB = SQLEXEC(CON, lcSqlCmd) <br /> =SQLDISCONNECT(CON) <br /> <br /> IF BB < 0 <br /> =AERROR(laErr) <br /> =MESSAGEBOX('SQL ¼g¤J¥¢±Ñ¡I©³¼h®Ö¤ß¦^³ø­ì¦]¡G' + laErr[2], 16, ZZ_BOX) <br /> ELSE <br /> =MESSAGEBOX('WRITE TO SQL OK! ¦h¦æªø³Æµù²§Åé¦r¸ô¥Ñ¥¿¦¡§¹¬ü«Ê³»³q¨®¡I', 64, ZZ_BOX) <br /> ENDIF <br /> ELSE <br /> =MESSAGEBOX('ºI¨úµe­±±±¨î¶µ¤§ Unicode ¼Æ¾Ú¸ê²£¥¢±Ñ¡A½w½Ä°Ï¬°ªÅ¡I', 16, ZZ_BOX) <br /> ENDIF</span></span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37002 http://vfp.sunyear.com.tw/viewtopic.php?p=37001#37001 Mon, 15 Jun 2026 04:16:09 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37001#37001 µoªí¤H: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> ¥DÃD: ¤À¨É:MSSQL«á¥x¬°UTF16²§Åé¦rNVARCHAR(1000),¥i¦bVFP9Åã¥Ü/¼g¦^SQLÂù¦V·¾³q<br /> µoªí©ó: ¬P´Á¤@ ¤»¤ë 15, 2026 12:16 pm (GMT 8)<br /> <br /><span class="postbody"> ­è°ÝAI:¥i¥HÅã¥Ü ¥ý¬Ý·Ó¤ù <br /> <span style="font-size: 24px; line-height: normal"><span style="color: blue">´Á±æ¥i¥H¬ð¯}UNICODE­­¨î....¤]µL»Ý¨Ï¥Î³y¦rÀÉ,¤w¸g´ú¹L¥i¦æ(AI±Ðªº),Ū¼g,ÂàEXCELªººë¯«´N¬O:¤£ÅýVFP9 ÂàBIG5,ª½±µ©I¥s°Å¶K諸COPY/PASTE </span></span> <br /> <span style="color: red">³o¨Ç²§Åé¦r(ûiûiûi)µ¥¬O¤â¤u¿é¤J¦b MS SQL «á¥xªº</span> <br /> ¥i¥HÀ³¥Î¦bERP ªº«È¤á¼t°Ó¦WºÙÄæ¦ì,¦a§}µ¥Äæ¦ì <br /> µL¶·¥~±¾DLLµ¥ <br /> <br /> <br /> <br /> 1.¥ý¼´¶iACTIVE X MS FORMS 2.0 TEXTBOX (¦WºÙ=OLE1),¥ý¶}±Ò¤@­ÓNEW FORM,µM«á¼´¶i¨Ó¦¹OLE±±¥ó....¦A·s¼W¤@­Ó«ö¯Ã COMMAND1 (¬dMS-SQL¸ê®Æ) <br /> 2.«á¥xªº TABLE ,ªº²§Åé¦rÄæ¦ì:»Ý³]©w¬°NVARCHAR(1000)³]¤j¤@ÂI <br /> «á¥xªºTABLE= CPU (ÀH«K¨ú¦W),NVARCHAR() Äæ¦ì¦WºÙ=V20 (ÀH«K¨ú¦W) <br /> <br /> 3.¦b¦¹FORMªºCOMMAND1.CLICK¼g¤U: <br /> <span style="color: blue">DECLARE LONG OpenClipboard IN user32 LONG hwnd <br /> DECLARE LONG CloseClipboard IN user32 <br /> DECLARE LONG EmptyClipboard IN user32 <br /> DECLARE LONG SetClipboardData IN user32 LONG uFormat, LONG hMem <br /> DECLARE LONG GlobalAlloc IN kernel32 LONG uFlags, LONG dwBytes <br /> DECLARE LONG GlobalLock IN kernel32 LONG hMem <br /> DECLARE LONG GlobalUnlock IN kernel32 LONG hMem <br /> DECLARE LONG RtlMoveMemory IN kernel32 LONG pDest, STRING pSource, LONG dwBytes <br /> <br /> CON=RET_SQL_CON() && ³s±µ«á¥xODBC SQL CONNECT ³q¹D <br /> <br /> AA=[SELECT CAST(V20 AS VARBINARY(1000)) V21, DATALENGTH(V20) AS my_true_len FROM CPU ] <br /> BB=SQLEXEC(CON,AA,'TEMP1') <br /> =SQLDISCONNECT(CON) <br /> SELECT TEMP1 <br /> lnLen= my_true_len+2 && <span style="font-size: 24px; line-height: normal">ªø«×+4¤£¦æ </span> <br /> <br /> IF OpenClipboard(0) != 0 <br /> EmptyClipboard() <br /> <br /> * ¨Ï¥Î±j¦æ¥[¤jªº¦w¥þªø«×¨Ó¥Ó½Ð¥þ°ì°O¾ÐÅé <br /> lnHmem = GlobalAlloc(2, lnLen) <br /> IF lnHmem != 0 <br /> lnPtr = GlobalLock(lnHmem) <br /> <br /> * ª¼¨ê¼g¤J¡A¦¹®Éµ²§À·|¦Û±a°®²bªºªÅ¦r¤¸¡]Null-terminator¡^¡A¹ï Unicode ¨Ó»¡¬O§¹¬üªºµ²§ô¼Ð°O <br /> RtlMoveMemory(lnPtr, lcUtf16Raw, lnLen) <br /> <br /> GlobalUnlock(lnHmem) <br /> SetClipboardData(13, lnHmem) <br /> ENDIF <br /> CloseClipboard() <br /> ENDIF <br /> thisform.ole1.Object.Value = "" <br /> * ¬ï¶V COM ¥~´ß¡A¥s·L³n TextBox ¤º®Öª½±µ¥h¸ò Windows ¨t²Î¥Ó½Ð­è­èÄé¶i¥hªº°ª²M Unicode °Å¶Kï <br /> thisform.ole1.Object.Paste()</span> <br /> <br /> <br /> <br /> <br /> ¤º®eµ¥¤@¤U¸É¤W<span style="font-size: 24px; line-height: normal"></span></span><br /> CPS0204 VFP °Q½×°Ï http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37001