www.pudn.com > jq_caiwu.ARJ > 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 
*