[问]fox pro ＰＲＯＧＲＡＭ问题

flashang

samm4u 于 7-7-2005 04:07 PM  说 :
replace model with model

replace itn.model with tempitn.model

samm4u

我又回来了
怎样AUTO NUMBER
例:前一次开PROGRAM 时NUM是12345
下一次开PROGRAM时NUMBER 变12346

flashang

原帖由 samm4u 于 22-7-2005 03:49 PM 发表
我又回来了
怎样AUTO NUMBER
例:前一次开PROGRAM 时NUM是12345
下一次开PROGRAM时NUMBER 变12346

方法一

用 odbc 连接其他 database (mdb, postgresql, mysql, ...) 这些都有 auto number, 以及其他方便的功能


方法二

制造一个 table 来记录每一个 table 的 last running number

samm4u

radio button code
@ 5,9 GET m.reason ;
    PICTURE "@*RVN FINISHED GOOD DISPATCHED;SEMI FINISHED GOODS TO SUB-CON;S SEMI FINISHED GOODS COLLECTED BY SUB-CON;DEFECTIVE GOOD (RETURNED);OTHER" ;
SIZE 1,44,0 ;
DEFAULT 0;
when _1kt0vnvcu()


FUNCTION _1kt0vnvcu     &&  m.reason WHEN
#REGION 1

do case
   case m.reason = 5
   do freason.spr
   otherwise
   do fsave.spr
   endcase
end


要怎样叫她在BUTTON 选择后才do
FUNCTION _1kt0vnvcu     &&  m.reason WHEN 呢?
*(她直接进入  FUNCTION _1kt0vnvcu     &&  m.reason WHEN)

flashang

把 when _1kt0vnvcu() 改成 valid _1kt0vnvcu() 就行了。

samm4u

这是 FOXPRO GENERATE 出来的 MENU SOURCE　ＣＯＤＥ

ＭＥＮＵ．ＭＮＲ
SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _1le0mfaeo OF _MSYSMENU PROMPT "\<Create" COLOR SCHEME 3
DEFINE PAD _1le0mfaev OF _MSYSMENU PROMPT "\<Return" COLOR SCHEME 3
DEFINE PAD _1le0mfaex OF _MSYSMENU PROMPT "\<Print" COLOR SCHEME 3
DEFINE PAD _1le0mfaey OF _MSYSMENU PROMPT "E\<Xit" COLOR SCHEME 3
ON PAD _1le0mfaeo OF _MSYSMENU ACTIVATE POPUP create
ON SELECTION PAD _1le0mfaev OF _MSYSMENU ;
        DO _1le0mfafg ;
        IN LOCFILE("GRF\MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
ON SELECTION PAD _1le0mfaex OF _MSYSMENU ;
        DO _1le0mfag3 ;
        IN LOCFILE("GRF\MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
ON SELECTION PAD _1le0mfaey OF _MSYSMENU quit

DEFINE POPUP create MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF create PROMPT "New GRF"
ON SELECTION BAR 1 OF create ;
        DO _1le0mfagq ;
        IN LOCFILE("GRF\MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")

PROCEDURE _1le0mfafg
do return.spr

PROCEDURE _1le0mfag3
do fseargrf.spr

PROCEDURE _1le0mfagq
do fid.spr


我在ＰＲＯＪＥＣＴ　　里ＳＥＴ　ＡＳ　ＭＡＩＮ

１．为什么开　那ＰＲＯＧＲＡＭ后　ＰＲＥＳＳ　任何一个ＫＥＹ　她会直接关掉ＰＲＯＧＲＡＭ　呢？
*project build executable stand -alone extended
＊用ＦＯＸＰＲＯ单独ＲＵＮ　时ＯＫ

２．在　ＤＯＳ　怎样　ＣＡＬＬ　ＭＯＵＳＥ　ＦＵＮＣＴＩＯＮ？
　

[ 本帖最后由 samm4u 于 20-8-2005 09:15 AM 编辑 ]

白日梦

原帖由 samm4u 于 19-8-2005 03:38 PM 发表
２．在　ＤＯＳ　怎样　ＣＡＬＬ　ＭＯＵＳＥ　ＦＵＮＣＴＩＯＮ？

2. 找有没有 滑鼠DOS的Driver，比如 mouse.com，在 c:\config.sys 里加入这行指令 load=c:\path\mouse.com

FoxPro 有没有 Set Mouse On 这指令？

Clipper 是用 inkey() = 1001 来 detact movement，inkey() = 1002 是按着左键，mcol() 和 mrow() 来查 screen 的鼠标位置。

samm4u

*PROGRAM NAME “FADDITEM。SPR*

IF NOT WEXIST("_1ll0we5vw")
        DEFINE WINDOW _1ll0we5vw ;
                FROM INT((SROW()-10)/2),INT((SCOL()-50)/2) ;
                TO INT((SROW()-10)/2)+9,INT((SCOL()-50)/2)+49 ;
                TITLE "ADD ITEM" ;
                NOFLOAT ;
                NOCLOSE ;
                SHADOW ;
                NOMINIMIZE ;
                COLOR SCHEME 1
ENDIF


#REGION 1
IF WVISIBLE("_1ll0we5vw")
        ACTIVATE WINDOW _1ll0we5vw SAME
ELSE
        ACTIVATE WINDOW _1ll0we5vw NOSHOW
ENDIF
@ 1,22 GET M.item ;
        SIZE 1,2 ;
        DEFAULT 0 ;
        PICTURE "@L"
@ 2,22 GET M.desc ;
        SIZE 1,20 ;
        DEFAULT " " ;
        PICTURE "@!"
@ 1,14 SAY "ITEM" ;
        SIZE 1,4, 0
@ 2,7 SAY "DESCRIPTION" ;
        SIZE 1,11, 0
@ 3,5 SAY "SPECIFICATION" ;
        SIZE 1,13, 0
@ 4,10 SAY "QUANTITY" ;
        SIZE 1,8, 0
@ 5,12 SAY "REMARK" ;
        SIZE 1,6, 0
@ 3,22 GET M.spec ;
        SIZE 1,15 ;
        DEFAULT " " ;
        PICTURE "@!"
@ 4,22 GET M.qty ;
        SIZE 1,10 ;
        DEFAULT " " ;
        PICTURE "@!"
@ 5,22 GET m.remarks ;
        SIZE 1,25 ;
        DEFAULT " " ;
        PICTURE "@!"
@ 7,5 GET M.SITEM ;
        PICTURE "@*HN \<ADD;\<DONE" ;
        SIZE 1,8,18 ;
        DEFAULT 1 ;
        VALID _1ll0we63e()

IF NOT WVISIBLE("_1ll0we5vw")
        ACTIVATE WINDOW _1ll0we5vw
ENDIF

READ CYCLE ;
        VALID _1ll0we65c()

RELEASE WINDOW _1ll0we5vw

IF USED("item")
        SELECT item
        USE
ENDIF

SELECT (m.currarea)


#REGION 0
IF m.talkstat = "ON"
        SET TALK ON
ENDIF
IF m.compstat = "ON"
        SET COMPATIBLE ON
ENDIF

FUNCTION _1ll0we63e     &&  M.SITEM VALID
#REGION 1
DO CASE
CASE M.SITEM = 1
APPEND BLANK
*REPLACE ITEM.GRF_NO WITH M.SGRFNO
REPLACE ITEM.ITEM WITH M.ITEM
REPLACE ITEM.DESC WITH M.DESC
REPLACE ITEM.SPEC WITH M.SPEC
REPLACE ITEM.QTY WITH M.QTY
REPLACE ITEM.REMARKS WITH M.REMARKS
STORE " " TO M.DESC
STORE " " TO M.SPEC
STORE " " TO M. QTY
STORE " " TO M. REMARKS
CLEAR WINDOW
DO FADDITEM.SPR
OTHERWISE
CLEAR WINDOWS
ENDCASE


要怎样refresh 这WINDOWS

*我尝试用DO FADDITEM.SPR 不过只能用四次
*用CLEAR WINDOWS THEN ACTIVATE WINDOW FADDITEM 不能INITIAL THE　ＳＣＲＥＥＮ
ＩＮＩＴＩＡＬSCREEN 是
CLEAR ALL　ＩＮＰＵＴ　ＦＩＥＬＤ
ＴＨＥＮ　ＧＯ TO FIELD M。ITEM

*
怎样用？不能ＳＥＴ　ＮＡＭＥ

DO WHILE　＊＊＊＊＝.t.
在ＤＯＮＥ的地方
ＳＥＴ　。Ｆ。
enddo