|
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´Á¤é ¤K¤ë 24, 2003 5:07 pm ¤å³¹¥DÃD: §ïÅÜMenu¦rÅé¤j¤p(Âà¶K) |
|
|
½Ð°Ñ¦Ò¡G
1¡B¥»¨Ó¥\¯àªí¥Í¦¨¾¹¤¤¬O¨S¦³¦rÅ骺¿ï¶µªº¡C
2¡B§Q¥Î¥\¯àªí¥Í¦¨¾¹ªº ¿ï¶µ¤¤ ¸õ¹L(K) §YSKIP FOR ¤¤½s¼g¥N½X
¥N½X¬°¡G .F. FONT '§ºÅé',12
3¡B¹ê»Ú¤W¡A¥Í¦¨ªº¥N½X¬°¡G skip for .f. FONT '§ºÅé',12
³o¼Ë´N¹F¨ì¤F§ïÅÜ¥\¯àªí¤l¶µ¦rÅ骺¥Øªº¡C
¦ý³»¼h¥\¯àªíªº¦rÅé¬O¤£·|§ïÅܪº¡C
4¡B¥\¯àªí¥Í¦¨«á¡A±z¥i¥Hmodi menu mymenu1.mpr
5¡B¦pªG·Q§¹¥þ¸Ñ¨M°ÝÃD,¥i¥H§Q¥ÎAPI¡C
¦b¶i¤J¨t²Î®É§ïÅܸѪR«×¡A¨Ï¥Î¤á¾Þ§@Àô¹Ò»P¶}µoÀô¹Ò¤Ç°t¡C
¥i¥H°Ñ¦Ò¦³Ãövbªº¤å³¹¡C
§@ ªÌ: wangjd (wxfox) 1999.09.18 ×§ï §R°£ Âà¶K ¥´¥] ¦^´_ ¥[¦ÜºëµØ°Ï
¡i ¦b yztjjf (¦Ñ¶³) ªº¤j§@¤¤´£¨ì: ¡j
: ¦U¦ì¤j«L¡G
: ¦p¦ó§ïÅÜ¥\¯àªíªº¦rÅé¤j¤p,¦hÁ¡I
§A¥i§âVFP¦Û±aªº¥\¯àªí¥Í¦¨µ{¦¡§ï¤@¤U¡A¡]genmenu.prg,§ï¤§«e³Ì¦n³Æ¥÷¤@¤U¡^
¨ãÅé¬O±NGENMENU¡CPRG¤¤ FUNCTION defbars ¨ç¼Æ§ï¤@¤U
¥N½X: | FUNCTION defbars
PARAMETER m.popname, m.howmany, m.newname
IF EMPTY(m.newname)
m.newname = m.popname
ENDIF
PRIVATE m.itemno, m.prompt,m.name, m.cPopExpr
SCAN FOR objtype=c_item AND LOWER(levelname)=m.popname
m.itemno = ALLTRIM(itemnum)
m.cPopExpr = IIF(m.g_inform, "(a_menupops["+ALLTRIM(STR(ASCAN(g_apo
ps,LOWER(m.newname))))+"])", LOWER(m.newname))
IF NOT EMPTY(ALLTRIM(name))
m.name = name
\DEFINE BAR <<m.name>> OF <<m.cPopExpr>>
ELSE
\DEFINE BAR <<m.itemno>> OF <<m.cPopExpr>>
ENDIF
m.prompt = SUBSTR(PROMPT, 1,LEN(PROMPT))
**********************************************************************
* \\ PROMPT "<<m.prompt>>" &&ì¨Ó»y¥y
\\ PROMPT "<<m.prompt>>" FONT "§ºÅé",12 STYLE 'BI' &&§ï¹L¤§«á,³oùتº
"12"´N¬O¦rÅé¤j¤p
** ¥H«á¦Û°Ê¥Í¦¨ªº¥\¯àªí¦rÅé¤j¤p´N¬O§A»Ýnªº
**********************************************************************
DO addmark
DO addkey
DO addskipfor
DO addmessage
IF VAL(m.itemno)=m.howmany
RETURN
ENDIF
ENDSCAN |
_________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
Ruey ¦b ¬P´Á¤@ ¤E¤ë 01, 2003 6:36 pm §@¤F²Ä 3 ¦¸×§ï |
|
¦^³»ºÝ |
|
|
©b¶]ªº·R±¡
µù¥U®É¶¡: 2003-08-28 ¤å³¹: 27
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¤K¤ë 28, 2003 4:38 pm ¤å³¹¥DÃD: |
|
|
§Ú¦¬¡IÁÂÁ _________________ delphi vf sql |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤E¤ë 01, 2003 6:28 pm ¤å³¹¥DÃD: |
|
|
§@ªÌ¡GJames
³Ì«áÀˬd¤é´Á: February 19, 1998
¤å¸¹: Q130657
¥»¤å¸ê°TÀ³¥Î©ó:
Microsoft Visual FoxPro for Windows, versions 3.0, 5.0
·§z
nקï¥\¯àªí¶µªº¦rÅé(¨Ò¦p, ÀÉ¥\¯àªí¤¤ªº¥´¶}), ¥Î¾A·íªº¦rÅé¸ê°T²K¥[¤@Ó SKIP FOR ¤l¥y. ¥\¯àªíªOªº¦rÅé (¨Ò¦p, ÀÉ¥\¯àªíªO) ¤£¯à³q¹L¥\¯àªí³]p¾¹×§ï.
§ó¦h¸ê°T
³v¨B¹Lµ{
nקï¤@Ó¥\¯àªí¶µªº¦rÅé, «ö¥H¤U¨BÆJ:
¥´¶}¥\¯àªí³]p¾¹, ¿ï¾Ü¡§§Ö³t¥\¯àªí¡¨.
¦b´£¥Ü¦C¤¤, ³æÀ»ÀÉ¥\¯àªí¤Uªº¤@Ó¥\¯àªí¶µ(¨Ò¦p, ¥´¶}).
³æÀ»¿ï¶µ«ö¶s¨ÓÅã¥Ü´£¥Ü¿ï¶µ¹ï¸Ü¤è¶ô.
¿ï¾Ü Skip For ¤å¥»®Ø¨ÓÅã¥Ü¹Bºâ¦¡¥Í¦¨¾¹.
¦b Skip For ¤å¥»®Ø¤¤, ¥´¤J¥H¤U©R¥O:
.f. FONT "Courier New", 14 style "BI"
¿ï¾Ü½T»{¨â¦¸ªð¦^¨ì¥\¯àªí³]p¾¹.
¿ï¾Ü¨t²Î¥\¯àªí¤¤ªº¡§¥\¯àªí¡¨¤¤ªº¡§¥Í¦¨¡¨, ¨Ã¹B¦æ¥\¯àªí.
²{¦bÀÉ¥\¯àªí¤¤ªº¥´¶}¥\¯àªí¶µªº¦rÅéÅܱo§ó¤j¨Ã¥B¬O²Ê±×Åé¤F.
ĵ§i: ¸Ó¥\¯à¬O VFP ªº¤@Ó¥¼½sÀÉ¥\¯à, ¦]¦¹¥¦¥i¯à¦b Visual FoxPro ¥H«áªºª©¥»¤¤³Q§ïÅܩΩ¿²¤.
ª`:¥i¥H¬°¤£¦Pªº¥\¯àªí¶µ¿ï¾Ü¤£¦Pªº¦rÅé¦r«¬¤j¤p¡A¥H¹F¨ì¿ô¥Ø©M´£¥Ü¥Î¤áª`·Nªº®ÄªG¡C _________________ #############################
§Ö¼Ö¶ý«}¨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§@
|