VFP ·R¥ÎªÌªÀ°Ï ­º­¶ 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¸ü.
 
 ±`¨£°ÝÃD±`¨£°ÝÃD   ·j´M·j´M   ·|­û¦Cªí·|­û¦Cªí   ·|­û¸s²Õ·|­û¸s²Õ   ·|­ûµù¥U·|­ûµù¥U 
 ­Ó¤H¸ê®Æ­Ó¤H¸ê®Æ   µn¤JÀˬd±zªº¨p¤H°T®§µn¤JÀˬd±zªº¨p¤H°T®§   µn¤Jµn¤J

¥i¥H¨Ì¨C¥x¹q¸£ªº¦Lªí¾÷Àô¹Ò¨Ó³]©w³øªí¦L¦¨¥b±i¯È®æ¦¡
«e©¹­¶­± ¤W¤@­¶  1, 2
 
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD  
µoªí¤H ¤º®e
garfield
Site Admin


µù¥U®É¶¡: 2003-01-30
¤å³¹: 2157


²Ä 16 ¼Ó

µoªíµoªí©ó: ¬P´Á¤@ ¤C¤ë 19, 2004 8:01 pm    ¤å³¹¥DÃD: Âà¶K¦Û¬õª° alensap ªº¤å³¹, ¥i¥Îµ{¦¡³]©w¦Û©w¯È±i ¤Þ¨¥¦^ÂÐ

¤å³¹¨Ó·½ http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=17484

¥N½X:

¦bwindows 2000¤¤¡A·s¼W¤¤¤@¤Mªº¯È±i¡A¥B³]©wpageSize¬°120¡A»Ý­nªº¤H¥i°Ñ¦Ò°Ñ¦Ò
½Ð±N¤U¦Cµ{¦¡½Xcopy¦Ü¤@­Óµ{§Ç¤¤¹B¦æ§Y¥i¡A¹B¦æ«á»Ý±o­«·s¶}¾÷ ^^

Clear DLLS
&&--------------------------µù¥Uªí¨Ï¥Î¤§¨ç¦¡------------------------------
#Define HKEY_CLASSES_ROOT bitset(0,31) &&-2147483648
#Define HKEY_CURRENT_USER bitset(0,31)+1 &&-2147483647
#Define HKEY_LOCAL_MACHINE bitset(0,31)+2 &&-2147483646
#Define HKEY_USER bitset(0,31)+3 &&-2147483645
#Define HKEY_CURRENT_CONFIG bitset(0,31)+5 &&-2147483643
#Define HKEY_DYN_DATA bitset(0,31)+6 &&-2147483642

#Define REG_SZ 1
#Define REG_BINARY 3
#Define REG_DWORD 4

* ¥H¤UAPI¨ç¦¡ªð¦^0®É¡A¾Þ§@¦¨¥\¡C

Declare Integer RegOpenKey IN Win32API ;
   Integer nHKey, String @cSubKey, Integer @nResult

Declare Integer RegCreateKey IN Win32API ;
   Integer nHKey, String @cSubKey, Integer @nResult

Declare Integer RegSetValueEx IN Win32API ;
   Integer hKey, String lpszValueName, Integer dwReserved,;
   Integer fdwType, String lpbData, Integer cbData

Declare Integer RegQueryValueEx IN Win32API ;
   Integer nHKey, String lpszValueName, Integer dwReserved,;
   Integer @lpdwType,string @lpbData, Integer @lpcbData

* DECLARE Integer RegDeleteKey IN Win32API ;
* Integer nHKey, String @cSubKey

* DECLARE Integer RegDeleteValue IN Win32API ;
* Integer nHKey, String cSubKey

Declare Integer RegCloseKey IN Win32API ;
   Integer nHKey
&&--------------------------µù¥Uªí¨Ï¥Î¤§¨ç¦¡-----------------------------

nPrintCount=APRINTERS(aArrayPrint)
If nPrintCount=0
   =MESSAGEBOX("·í«e¨t²Î¤¤¨S¦w¸Ë¦Lªí¾÷")
   Return .F.
Endif
cCurrentPrinter=SET("Printer",3) &&¨ú±o¹w³]¦Lªí¾÷
For i=1 TO nPrintCount
   If UPPER(aArrayPrint(i,1))=cCurrentPrinter&&¤ñ¸û¦Lªí¾÷ªº¦WºÙ
      cPort=aArrayPrint(i,2)&&¨ú±o¦Lªí¾÷ªº³s½uport
   Endif
Endfor
If SUBSTR(cPort,1,3)#"LPT"
   =MESSAGEBOX("¦Lªí¾÷¬Oºô¸ô¦Lªí¾÷")
*RETURN .F.
Endif

Declare Integer OpenPrinter IN WinSpool.Drv AS WS_OpenPrinter ;
   String pPrinterName, ;
   Integer @phPrinter, ;
   String pDefault
Declare Integer DocumentProperties IN WinSpool.Drv ;
   Integer, ;
   Integer, ;
   String, ;
   String, ;
   String, ;
   Integer
Declare Integer ClosePrinter IN WinSpool.Drv AS WS_ClosePrinter ;
   Integer hPrinter
Declare Integer EnumForms in WinSpool.Drv ;
   Integer, ;
   Integer, ;
   String, ;
   Integer, ;
   Integer, ;
   Integer
Declare Integer AddForm IN WinSpool.Drv ;
   Integer, ;
   Integer, ;
   String
Declare Integer DeleteForm in WinSpool.Drv ;
   Integer, ;
   String
Declare Long CreateDC IN Gdi32.DLL ;
   String @cDriver, ;
   String @cDevice, ;
   String cOutput, ;
   String cInitData
Declare Long DeleteDC IN Gdi32.DLL ;
   DECLARE Long ResetDC IN Gdi32.DLL ;
   Integer, ;
   String
Declare RtlMoveMemory IN Kernel32 AS CopyMemory;
   String @ Destination,;
   Integer Source,;
   Integer nLength
Declare Integer lstrcpy IN Kernel32.DLL ;
   Integer lpString1,;
   String @lpString2
Declare Integer GetForm IN WinSpool.drv ;
   Integer,;
   String, ;
   Integer,;
   String, ;
   Integer,;
   Integer
Declare Integer SetForm IN WinSpool.drv ;
   Integer,;
   String,;
   Integer,;
   String
OHEAP=CREATEOBJECT("Heap")
If GetPrinterSettings()=.F.
   =MESSAGEBOX("µLªk¨ú±o¦Lªí¾÷¸ê®Æ")
Endif

Function GetPrinterSettings
hPrinter=0
nSize=0
If WS_OpenPrinter(cCurrentPrinter, @hPrinter, 0)#0
   FormName="¤¤¤@¤M"+CHR(0)+CHR(0) &&¦Û©w¯È±i¦WºÙ
*
*RetVal=DeleteForm(hPrinter,"¤¤¤@¤M")
*IF RetVal=0
* =MESSAGEBOX("§R°£")
*ENDIF
   nStringBase=OHEAP.ALLOCBLOB(FormName)
   RetVal=AddForm(hPrinter,1,NumToDWord(0)+;
      NumToDWord(nStringBase)+;
      NumToDWord(215900)+;
      NumToDWord(139700)+;
      NumToDWord(0)+;
      NumToDWord(0)+;
      NumToDWord(215900)+;
      NumToDWord(139700)+;
      NumToDWord(1)+;
      NumToDWord(0))
   If RetVal=0
      =MESSAGEBOX("·s¼W¦Û©w¯È±i¿ù»~")
   Else
      Clear
      cSubKey='SYSTEM\CurrentControlSet\Control\Print\Forms'
      Local result as Long
      nResult=0
      If RegOpenKey(HKEY_LOCAL_MACHINE,@cSubKey,@nResult)=0
*result=RegOpenKey(HKEY_LOCAL_MACHINE,@csubkey,@nresult)
         RegSetValueEx(nResult,'¤¤¤@¤M',0,REG_DWORD,NumToDWord(215900)+;
            NumToDWord(139700)+;
            NumToDWord(0)+;
            NumToDWord(0)+;
            NumToDWord(215900)+;
            NumToDWord(139700)+;
            NumToDWord(1)+;
            NumToDWord(0),32)

      Endif
      RegCloseKey(nResult)
   Endif
Else
   Wait WINDOW "µLªk¶}±Ò¦Lªí¾÷!"
Endif
Clear DLLS
Return
Endfunc

Define CLASS HEAP AS CUSTOM
   Protected INHANDLE, INNUMALLOCSACTIVE,IAALLOCS[1,3]
   INHANDLE=NULL
   INNUMALLOCSACTIVE=0
   IAALLOCS=NULL
   Name="heap"

   Procedure ALLOC
   Lparameter nSize
   Declare Integer HeapAlloc IN WIN32API AS HAlloc ;
      Integer hHeap,Integer dwFlags,Integer dwBytes
   Declare Integer HeapSize IN WIN32API AS HSize ;
      Integer hHeap,Integer dwFlags,Integer lpcMem
   Local NPTR
   With THIS
      NPTR=HAlloc(.INHANDLE, 0, @nSize)
      If NPTR # 0
         .INNUMALLOCSACTIVE=.INNUMALLOCSACTIVE + 1
         Dimension .IAALLOCS[.inNumAllocsActive,3]
         .IAALLOCS[.inNumAllocsActive,1]=NPTR
         .IAALLOCS[.inNumAllocsActive,2]=HSize(.INHANDLE, 0, NPTR)
         .IAALLOCS[.inNumAllocsActive,3]=.T.
      Else
         NPTR=NULL
      Endif
   Endwith
   Return NPTR
Endproc

   Function ALLOCBLOB
   Lparameter CBSTRINGTOCOPY
   Local NALLOCPTR
   With THIS
      NALLOCPTR=.ALLOC(LEN(CBSTRINGTOCOPY))
      If !ISNULL(NALLOCPTR)
         .COPYTO(NALLOCPTR,CBSTRINGTOCOPY)
      Endif
   Endwith
   Return NALLOCPTR
Endfunc

   Function ALLOCSTRING
   Lparameter CSTRING
   Return This.ALLOCBLOB(CSTRING+CHR(0))
Endfunc

   Function ALLOCINITAS
   Lparameter NSIZEOFBUFFER, NBYTEvalue
   If TYPE("nBytevalue")#"N" OR !BETWEEN(NBYTEvalue,0,255)
      NBYTEvalue=0
   Endif
   Return This.ALLOCBLOB(REPLICATE(CHR(NBYTEvalue),NSIZEOFBUFFER))
Endfunc

   Procedure DEALLOC
   Lparameter NPTR
   Declare Integer HeapFree IN WIN32API AS HFree ;
      Integer hHeap, ;
      Integer dwFlags, ;
      Integer lpMem
   Local NCTR
   NCTR=NULL
   With This
      NCTR=.FINDALLOCID(NPTR)
      If !ISNULL(NCTR)
         =HFree(.INHANDLE, 0, NPTR)
         .IAALLOCS[nCtr,3] = .F.
      Endif
   Endwith
   Return !ISNULL(NCTR)
Endproc

   Procedure COPYTO
   Lparameter NPTR, CSOURCE
   Declare RtlMoveMemory IN WIN32API AS RtlCopy ;
      Integer nDestBuffer, ;
      String @pVoidSource, ;
      Integer nLength
   Local NCTR
   NCTR=NULL
   If TYPE("nPtr")="N" AND TYPE("cSource") $ "CM" ;
         AND ! (ISNULL(NPTR) OR ISNULL(CSOURCE))
      With THIS
         NCTR=.FINDALLOCID(NPTR)
         If ! ISNULL(NCTR)
            =RtlCopy((.IAALLOCS[nCtr,1]), ;
               CSOURCE, ;
               MIN(LEN(CSOURCE),.IAALLOCS[nCtr,2]))
         Endif
      Endwith
   Endif
   Return !ISNULL(NCTR)
Endproc

   Procedure COPYFROM
   Lparameter NPTR
   Declare RtlMoveMemory IN WIN32API AS RtlCopy ;
      String @DestBuffer, ;
      Integer pVoidSource, ;
      Integer nLength
   Local NCTR, UBUFFER
   UBUFFER=NULL
   NCTR=NULL
   If TYPE("nPtr")="N" AND !ISNULL(NPTR)
      With This
         NCTR=.FINDALLOCID(NPTR)
         If !ISNULL(NCTR)
            UBUFFER=REPLICATE(CHR(0),.IAALLOCS[nCtr,2])
            =RtlCopy(@UBUFFER, ;
               (.IAALLOCS[nCtr,1]), ;
               (.IAALLOCS[nCtr,2]))
         Endif
      Endwith
   Endif
   Return UBUFFER
Endproc

   Protected FUNCTION FINDALLOCID
      Lparameter NPTR
      Local NCTR
      With This
         For NCTR=1 TO .INNUMALLOCSACTIVE
            If .IAALLOCS[nCtr,1] = NPTR AND .IAALLOCS[nCtr,3]
               Exit
            Endif
         Endfor
         Return IIF(NCTR <= .INNUMALLOCSACTIVE,NCTR,NULL)
      Endwith
   Endproc

   Procedure SIZEOFBLOCK
   Lparameters NPTR
   Local NCTR, NSIZEOFBLOCK
   NSIZEOFBLOCK=NULL
   With This
      NCTR = .FINDALLOCID(NPTR)
      Return IIF(ISNULL(NCTR),NULL,.IAALLOCS[nCtr,2])
   Endwith
Endproc

   Procedure DESTROY
   Declare HeapDestroy IN WIN32API AS HDestroy Integer hHeap

   Local NCTR
   With This
      For NCTR = 1 TO .INNUMALLOCSACTIVE
         If .IAALLOCS[nCtr,3]
            .DEALLOC(.IAALLOCS[nCtr,1])
         Endif
      Endfor
      HDestroy[.inHandle]
   Endwith
   DoDefault()
Endproc

   Procedure INIT
   Declare Integer HeapCreate IN WIN32API AS HCreate ;
      Integer dwOptions, ;
      Integer dwInitialSize, ;
      Integer dwMaxSize
   #Define SWAPFILEPAGESIZE 4096
   #Define BLOCKALLOCSIZE 2 * SWAPFILEPAGESIZE
   With This
      .INHANDLE = HCreate(0, BLOCKALLOCSIZE, 0)
      Dimension .IAALLOCS[1,3]
      .IAALLOCS[1,1] = 0
      .IAALLOCS[1,2] = 0
      .IAALLOCS[1,3] = .F.
      .INNUMALLOCSACTIVE = 0
   Endwith
   Return (This.INHANDLE#0)
Endproc

Enddefine &&---Ãþ§O©w¸qµ²§ô

&&-------------©w¸q¤@¨ÇÅܼƫ¬ºAªºÂà´«¨ç¦¡-------------------
Function SETMEM&&³]©w°O¾ÐÅé¨ç¦¡,§Q¥ÎWinApiªº¨ç¦¡¶i¦æ°O¾ÐÅé«þ³Æ
Lparameters NPTR, CSOURCE
Declare RtlMoveMemory IN WIN32API AS RtlCopy ;
   Integer nDestBuffer, ;
   String @pVoidSource, ;
   Integer nLength

RtlCopy(NPTR, ;
   CSOURCE, ;
   LEN(CSOURCE))
Return .T.
Endfunc

Function GETMEM&&±N°O¾ÐÅ餺®e«þ³Æ¦ÜÅܼÆ
Lparameters NPTR, NLEN
Declare RtlMoveMemory IN WIN32API AS RtlCopy ;
   String @DestBuffer, ;
   Integer pVoidSource, ;
   Integer nLength
Local UBUFFER
UBUFFER = REPL(CHR(0),NLEN)
=RtlCopy(@UBUFFER, ;
   NPTR, ;
   NLEN)
Return UBUFFER
Endfunc

Function GETMEMSTRING
Lparameters NPTR, nSize
Declare Integer lstrcpyn IN WIN32API AS StrCpyN ;
   STRING @ lpDestString, ;
   Integer lpSource, ;
   Integer nMaxLength
Local UBUFFER
If TYPE("nSize") # "N" OR ISNULL(nSize)
   nSize = 512
Endif
UBUFFER = REPL(CHR(0), nSize)
If StrCpyN(@UBUFFER, NPTR, nSize-1) # 0
   UBUFFER = LEFT(UBUFFER, MAX(0,AT(CHR(0),UBUFFER) - 1))
Else
   UBUFFER = NULL
Endif
Return UBUFFER
Endfunc

Function SHORTTONUM&&¼Æ­È«¬§OªºÂà´«
Lparameter TCINT
Local B0,B1,NRETVAL
B0=ASC(TCINT)
B1=ASC(SUBS(TCINT,2,1))
If B1<128
   NRETVAL=B1 * 256 + B0
Else
   B1=255-B1
   B0=256-B0
   NRETVAL= -( (B1 * 256) + B0)
Endif
Return NRETVAL
Endfunc

Function NUMTOSHORT
Lparameter TNNUM
Local B0,B1,X
If TNNUM>=0
   X=INT(TNNUM)
   B1=INT(X/256)
   B0=MOD(X,256)
Else
   X=INT(-TNNUM)
   B1=255-INT(X/256)
   B0=256-MOD(X,256)
   If B0=256
      B0=0
      B1=B1+1
   Endif
Endif
Return CHR(B0)+CHR(B1)
Endfunc

Function DWORDTONUM
Lparameter TCDWORD
Local B0,B1,B2,B3
B0=ASC(TCDWORD)
B1=ASC(SUBS(TCDWORD,2,1))
B2=ASC(SUBS(TCDWORD,3,1))
B3=ASC(SUBS(TCDWORD,4,1))
Return (((B3*256+B2)*256+B1)*256+B0)
Endfunc

Function NumToDWord
Lparameter TNNUM
Return NUMTOLONG(TNNUM)
Endfunc

Function WORDTONUM
Lparameter TCWORD
Return (256*ASC(SUBST(TCWORD,2,1)))+ASC(TCWORD)
Endfunc

Function NUMTOWORD
Lparameter TNNUM
Local X
X=INT(TNNUM)
Return CHR(MOD(X,256))+CHR(INT(X/256))
Endfunc

Function NUMTOLONG
Lparameter TNNUM
Declare RtlMoveMemory IN WIN32API AS RtlCopyLong ;
   String @pDestString, ;
   Integer @pVoidSource, ;
   Integer nLength
Local CSTRING
CSTRING=SPACE(4)
=RtlCopyLong(@CSTRING, BITOR(TNNUM,0), 4)
Return CSTRING
Endfunc

Function LONGTONUM
Lparameter TCLONG
Declare RtlMoveMemory IN WIN32API AS RtlCopyLong ;
   Integer @DestNum, ;
   String @pVoidSource, ;
   Integer nLength
Local NNUM
NNUM = 0
=RtlCopyLong(@NNUM, TCLONG, 4)
Return NNUM
Endfunc

Function ALLOCNETAPIBUFFER
Lparameter nSize
If TYPE("nSize") # "N" OR nSize <= 0
   Return NULL
Endif
If ! "NT" $ OS()
   Return NULL
Endif
Declare Integer NetApiBufferAllocate IN NETAPI32.DLL ;
   Integer dwByteCount, ;
   Integer lpBuffer
Local NBUFFERPOINTER
NBUFFERPOINTER = 0
If NetApiBufferAllocate(INT(nSize), @NBUFFERPOINTER) # 0
   NBUFFERPOINTER = NULL
Endif
Return NBUFFERPOINTER
Endfunc

Function DEALLOCNETAPIBUFFER
Lparameter NPTR
If TYPE("nPtr")#"N"
   Return .F.
Endif
If !"NT" $ OS()
   Return .F.
Endif
Declare Integer NetApiBufferFree IN NETAPI32.DLL ;
   Integer lpBuffer
Return (NetApiBufferFree(INT(NPTR))=0)
Endfunc

Function COPYDOUBLETOSTRING
Lparameter NDOUBLETOCOPY
Declare RtlMoveMemory IN WIN32API AS RtlCopyDbl ;
   String @DestString, ;
   Double @pVoidSource, ;
   Integer nLength
Local CSTRING
CSTRING=SPACE(8)
=RtlCopyDbl(@CSTRING, NDOUBLETOCOPY, 8)
Return CSTRING
Endfunc

Function DOUBLETONUM
Lparameter CDOUBLEINSTRING
Declare RtlMoveMemory IN WIN32API AS RtlCopyDbl ;
   Double @DestNumeric, ;
   String @pVoidSource, ;
   Integer nLength
Local NNUM
NNUM = 0.000000000000000000
=RtlCopyDbl(@NNUM, CDOUBLEINSTRING, 8)
Return NNUM
Endfunc
****
¸Ó·PÁªºhsf123¡A­Y«D³o¦ì¤j­ô§ä¥X¯È±i¾÷½X©w¸q³W«h¡A¤p§Ì¤]µL¯à¬°¤O¡A¹ï¤F¥i¥H­×§ï¥H¤Uªº¾÷½X
RegSetValueEx(nResult,'¤¤¤@¤M',0,REG_DWORD,NumToDWord(215900)+;
   NumToDWord(139700)+;
   NumToDWord(0)+;
   NumToDWord(0)+;
   NumToDWord(215900)+;
   NumToDWord(139700)+;
   NumToDWord(1)+;&&-----¥H²Ö­pªº¤è¦¡¼W¥[1¡B2¡B3¡B¡K¡A¯È±iªºªº½s½X¤]·|¥Ñ120¡B121¡B122¡B¡KÄ~Äòªº½s½X¤U¥h¡A¤¤¶¡¤£­n¦³¶¡Â_§Y¥i¡A¦ý°O¦í¤@¥ó¨Æ´N¬O¡A¯È±i¦WºÙ¥²»Ý¤£¦P ^^
NumToDWord(0),32)


_________________
§Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙ­n§Ö±o¨ìµª®×.
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
goto-dream



µù¥U®É¶¡: 2004-05-11
¤å³¹: 909


²Ä 17 ¼Ó

µoªíµoªí©ó: ¬P´Á¤G ¤»¤ë 06, 2006 11:42 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¨Ï¥ÎICTANGªº¤èªk...¨ì§O¥x¹q¸£¤W®É...³øªíªº°õ·|¶]±¼....

¥»¾÷¤W...³øªí¬O¥i¥Hªº.....


½Ð°Ý¦³¤H¦³¦¹°ÝÃD¶Ü?

_________________
ºÖ¶©©÷²b¤ô¦³­­¤½¥q--²b¤ô¾¹ªº±M®a,²b¤ô¾¹,¶¼¤ô¾÷,Âo¤ß!!

·Q¤F¸Ñ§ó¦h¡A±z¥i¤W©¯ºÖÂû´ö²Õ.§ä´M!!¤BæXÞ±.¦Ñ®v.

¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@·R§@¹Ú
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
goto-dream



µù¥U®É¶¡: 2004-05-11
¤å³¹: 909


²Ä 18 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤»¤ë 07, 2006 2:10 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¨Ï¥ÎICTANGªº¤èªk¡A¦b§ó§ï³øªí®É¡A¬°¦ó¤£¥Î¤U¥´¥H¤U«ü¥O¡H¡H

pdate (.file+ ".frx") set expr=TmpExpr,tag="",tag2="" where objtype=1 and objcode=53

_________________
ºÖ¶©©÷²b¤ô¦³­­¤½¥q--²b¤ô¾¹ªº±M®a,²b¤ô¾¹,¶¼¤ô¾÷,Âo¤ß!!

·Q¤F¸Ñ§ó¦h¡A±z¥i¤W©¯ºÖÂû´ö²Õ.§ä´M!!¤BæXÞ±.¦Ñ®v.

¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@·R§@¹Ú
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
goto-dream



µù¥U®É¶¡: 2004-05-11
¤å³¹: 909


²Ä 19 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤»¤ë 09, 2006 1:36 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

±ø½X¨Ï¥Î¤W­±ªº¤è¦¡...®æ¦¡·|°¾²¾....
_________________
ºÖ¶©©÷²b¤ô¦³­­¤½¥q--²b¤ô¾¹ªº±M®a,²b¤ô¾¹,¶¼¤ô¾÷,Âo¤ß!!

·Q¤F¸Ñ§ó¦h¡A±z¥i¤W©¯ºÖÂû´ö²Õ.§ä´M!!¤BæXÞ±.¦Ñ®v.

¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@·R§@¹Ú
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
OLDSTONE



µù¥U®É¶¡: 2003-09-30
¤å³¹: 29


²Ä 20 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤K¤ë 30, 2006 3:22 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¦b Expr ªº¤º®e¤¤ ¤ñ¹ï¤F¤@¤U..

¦b VFP8.0 ®É ASCII=1
¦b VFP8.0 ®É ASCII=0

½Ð±Ð ASCII ¬O¦b³]©w¤°»ò??

ÁÂÁÂ
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
OLDSTONE



µù¥U®É¶¡: 2003-09-30
¤å³¹: 29


²Ä 21 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤K¤ë 30, 2006 3:24 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

µ§»~
¦b VFP9.0 ®É ASCII=0
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
OLDSTONE



µù¥U®É¶¡: 2003-09-30
¤å³¹: 29


²Ä 22 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤K¤ë 30, 2006 3:39 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¶}±Ò³øªíÀÉ

USE *.frx

BROWSE NORMAL

¦b ²Ä1µ§Tag2 «ö¤U¥ªÁä...´N·|¨S¦³¦^À³...·í±¼

¤£ª¾¦U¦ìªºÀô¹Ò·|·í±¼¶Ü??
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
syntech



µù¥U®É¶¡: 2003-05-16
¤å³¹: 4211
¨Ó¦Û: Taipei,Taiwan

²Ä 23 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤K¤ë 30, 2006 4:15 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

OLDSTONE ¼g¨ì:
¶}±Ò³øªíÀÉ

USE *.frx

BROWSE NORMAL

¦b ²Ä1µ§Tag2 «ö¤U¥ªÁä...´N·|¨S¦³¦^À³...·í±¼

¤£ª¾¦U¦ìªºÀô¹Ò·|·í±¼¶Ü??


vfp9 ¦ü¥G·|,
¤]¤£»Ý­n¶},
ª½±µreplace tag2 with "" ´N¦n

_________________
¦pªG¤½¥q¦³¤U¦C§xÂZ:
1. §ä¤£¨ì«K©y,§Ö³t,²©öªº ¥Í²£±Æµ{³nÅé
2. ¤£ª¾¹D¦p¦ó§Ö³t±Æ©w ±ÄÁÊ­p¹º
3. ¦¨¥»§ì¤£·Ç,¦Û¤vºâ¤ñ³nÅéºâ¦³¥Î
4. ·Q¾Ç²ß¨t²Î³W¹º,·Q§ä¨t²Î¬[ºcªºÅU°Ý

½ÐÁpµ¸§Ú­Ì,¤]³\§Ú­ÌÀ°±o¤W¦£
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó AIM Address
OLDSTONE



µù¥U®É¶¡: 2003-09-30
¤å³¹: 29


²Ä 24 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤K¤ë 31, 2006 5:05 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¦pªG§Ú´ú¸Õªºµ²ªG¬O¥¿½Tªº¸Ü

¨ºvfp9.0 ¥i¥H¥Î SYS(1037,1)
¦Û¥Ñ³]©w¯È±i¨Ã¥B¬ö¿ý¦b.frx±oexpr ©Mtag1.
¬Ù¥h¤F«Ü¦h³Â·Ð....

Use A.Frx Exclusive
=Sys(1037,1)
Use
Report Form A.Frx To Printer Prompt Noeject Noconsole Preview

¦ý¬O­n¥h¬Ý tag2 ªº¤º®e ¥¦¬O¼g¤°»ò... ÁÙ¬O·|¦º·í....
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
kojanlai0823



µù¥U®É¶¡: 2011-12-02
¤å³¹: 74


²Ä 25 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤C¤ë 26, 2012 4:54 pm    ¤å³¹¥DÃD: LQ 300 +II ¤Þ¨¥¦^ÂÐ

¥Ø«e«È¤á«Ü¦h¤H¸Ë³o­Ó¦Lªí¾÷..¦ý«o¹J¨ì¤FµLªk³]©w¯È±iªºÊ¨¹Ò..
µÛ¹ê»áÅý§ÚÀY
LQ 300 ¹ïWIN API¦³µÛ¤°»ò¼Ëªº­­¨î¶Ü??
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
syntech



µù¥U®É¶¡: 2003-05-16
¤å³¹: 4211
¨Ó¦Û: Taipei,Taiwan

²Ä 26 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤C¤ë 26, 2012 5:04 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

§Ú¦Û¤vªº¸gÅç¬O¨S¦³.

¦pªG¥i¥H¤â°Ê³]©w,³q±`´N¥i¥H¦Û°Ê³]©w.



¥t¥~¥i¯àªº°ÝÃD¬O,
§A¨S¦³¨¬°÷ªºÅv­­,
¨Ò¦p§A¥Îªº¬O vista/win7 ¤§Ãþªºos,
©ú©ú³]¬°"¨t²ÎºÞ²zªÌ",°¾°¾¤S¨S¦³"administrator"ªºÅv­­

_________________
¦pªG¤½¥q¦³¤U¦C§xÂZ:
1. §ä¤£¨ì«K©y,§Ö³t,²©öªº ¥Í²£±Æµ{³nÅé
2. ¤£ª¾¹D¦p¦ó§Ö³t±Æ©w ±ÄÁÊ­p¹º
3. ¦¨¥»§ì¤£·Ç,¦Û¤vºâ¤ñ³nÅéºâ¦³¥Î
4. ·Q¾Ç²ß¨t²Î³W¹º,·Q§ä¨t²Î¬[ºcªºÅU°Ý

½ÐÁpµ¸§Ú­Ì,¤]³\§Ú­ÌÀ°±o¤W¦£
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó AIM Address
kojanlai0823



µù¥U®É¶¡: 2011-12-02
¤å³¹: 74


²Ä 27 ¼Ó

µoªíµoªí©ó: ¬P´Á¤@ ¤K¤ë 27, 2012 11:15 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

°£¤FLQ 300 + II ³ÌªñÁÙµo²{¤FLQ 680 ¨C¨C¦b°µ·s¼W¦Û­q¯È±i..2¥x³£¬OUSBªº³s±µ°ð
¥Ø«e¹J¨ìUSB³s±µ°ðªº³o2¥x¦Lªí¾÷,³£·|¹J¨ìµLªk³]©w¯È±i
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
±q¤§«eªº¤å³¹¶}©lÅã¥Ü:   
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï ©Ò¦³ªº®É¶¡§¡¬° ¥x¥_®É¶¡ (GMT + 8 ¤p®É)
«e©¹­¶­± ¤W¤@­¶  1, 2
²Ä2­¶(¦@2­¶)

 
«e©¹:  
±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§@