企业管理

开发平台：

VFP

GSXG.PRG：源码内容

							 ON KEY
 ON KEY LABEL CTRL+N do _insert
 ON KEY LABEL CTRL+T DO _DELE 
 ON KEY LABEL F6 do _inser1
 SELE 1
 BROW FIELDS h :H = '行' :V = h>0 :E = '行数应大于零!', l :H = '列' :V = l>0 :E = '列数应大于零!', ysf :H = '算符' :V = fysf() :E = "只能输入'= + - * / 符号!'", kmh :H = '科目号码' :P = '99999999999', fx :H = '数据方向' :P = '@!' :V = ffx() :E = "输入'YE DJE JJE NJYE NDYE SSL FSL YSL YYSL IN()'", rzy :H = '帐本摘要' :V = frzy() :E = "输入'期末及累计 期初余额 本月合计'", bj :H = '备注' TITLE bt+'取数公式   F6 增加 ^T 删除 ^N 插入 ^W 存盘退出'
 PACK
 CLOS DATABASES
 ON KEY
 ON KEY LABEL ESCape do Rquit
 RETU
*
FUNC frzy
 IF rzy='期末及累计' .OR. rzy='期初余额' .OR. rzy='本月合计'
      pd = .T.
 ELSE
      pd = .F.
 ENDI
 RETU (pd)
*
FUNC ffx
 IF fx='YE' .OR. fx='SSL' .OR. fx='FSL' .OR. fx='YSL' .OR. fx='YYSL' .OR. fx='DJE' .OR. fx='JJE' .OR. fx='NJYE' .OR. fx='NDYE' .OR. fx='IN()'
      pd = .T.
 ELSE
      pd = .F.
 ENDI
 RETU (pd)
*
FUNC fysf
 IF ysf='=' .OR. ysf='+' .OR. ysf='-' .OR. ysf='*' .OR. ysf='/'
      pd = .T.
 ELSE
      pd = .F.
 ENDI
 RETU (pd)
*
PROC _insert
 INSE BLANK BEFORE
 DEFI WINDOW win FROM 2, 2 TO 10, 10
 ACTI WINDOW win
 DEAC WINDOW win
 KEYB '{ctrl+leftarrow}'
 KEYB '{ctrl+rightarrow}'
 RETU
*
PROC _dele
 IF DELETED()
      RECA
 ELSE
      DELE
 ENDI
 RETU
*
PROC _inser1
 SET CARRY ON
 INSE BLANK
 DEFI WINDOW win FROM 2, 2 TO 10, 10
 ACTI WINDOW win
 DEAC WINDOW win
 KEYB '{ctrl+leftarrow}'
 KEYB '{ctrl+rightarrow}'
 SET CARRY OFF
 RETU
*

						