行业应用

开发平台：

VFP

XSBHZSR.PRG：源码内容

							
set conf off
on key
on key label f2 keyb "{enter}"
*use xsmxb
on key label enter keyb "{dnarrow}"
*on key label rightarrow keyb "{tab}"
set colo to
clea 
@ 1,13 say '销售利润明细表' 
define window my_win from 2,0 to 23,79 grow colo w+/3,6+/5,5/5,5+/5,3+/2,4/5,w+/w,2/1,,,
                                        *全景,焦点,框线,标题,           
acti window my_win
brow field sm  :r;
               :h="项目",;
            h  :R;
               :H="行",;
           jldw :V=_next();
               :H="单位";
               :R,;
          xssl :V=_next();
               :H="销售数量";
               :P='@z';
               :w=iif(pp='1',.f.,.t.),;
          xsjsr :V=_next();
               :H="商品销售净收入";
               :P='@z';
               :w=iif(pp='1',.f.,.t.),;
         xscb :V=_next();
               :H="商品销售成本";
               :P='@z';
               :w=iif(pp='1',.f.,.t.),;           
        jyfy :V=_next();
               :H="经营费用";
               :P='@z';
               :w=iif(pp='1',.f.,.t.),;
        sjjfj :V=_next();
               :H="销售税金及附加";
               :P='@z';
               :w=iif(pp='1',.f.,.t.),;
        xslr :V=_next();
               :H="商品销售利润";
               :P='@z';
               :R;
               :w=iif(pp='1',.f.,.t.);
           lock(2) title '→| 左 移    |← 右 移' 
deac window my_win
clea window my_win
on key
retu
func _next
    if lastkey()#24 && 下箭头
    RECN=RECN()
    sele  xsmxbjs
    do jsgs
    on key label escape
    sele 1
    GO RECN
    keyb "{dnarrow}"
    keyb "{backtab}"
    else
    sele  xsmxbjs
    do jsgs
    on key label escape
    sele 1
    endif
retu(.t.)     

						