www.pudn.com > jq_caiwu.ARJ > LLSJK.PRG

 ON KEY 
 SET PATH TO C:\ 
 IF  .NOT. FILE('mxk.dbf') 
      ?? CHR(7) 
      SET PATH TO \cw 
 ELSE 
      SET PATH TO \cw 
      SET COLOR TO 
      @ 5, 47 CLEAR TO 14, 62 
      SET COLOR TO N/BG 
      @ 4, 45 CLEAR TO 13, 60 
      SET COLOR TO W+/BG 
      x1 = 4 
      x2 = 13 
      y1 = 45 
      y2 = 59 
      DO box-1 
      SET COLOR TO W/B, W+/R 
      @ 6, 47 PROMPT ' 查期初余额 ' 
      @ 7, 47 PROMPT ' 查期末累计 ' 
      @ 8, 47 PROMPT ' 查本月合计 ' 
      @ 9, 47 PROMPT ' 查本月明细 ' 
      @ 10, 47 PROMPT ' 查本月全部 ' 
      MENU TO x 
      SET COLOR TO 
      HIDE POPUP pop3 
      ON KEY 
      SET COLOR TO W/N 
      CLOS DATABASES 
      SET MOUSE ON 
      DO CASE 
           CASE x=1 
                USE mxk 
                DELE ALL FOR zy<>'期初余额' 
                GOTO TOP 
                DEFI WINDOW mxzye FROM 1, 0 TO 22, 79 TITLE '查询期初余额' COLOR N/BG,R+/GR,R+/GR,GR+/R  
                ACTI WINDOW mxzye 
                BROW FIELDS pzh :H = '凭证号', kmdm :H = '科目代码', zy :H = '摘  要', zzkm :H = '总帐科目', mxkm :H = '明细科目', jje :H = '借金额', dje :H = '贷金额', ye :H = '余  额', ssl :H = '收数量', fsl :H = '发数量', ysl :H = '余数量' NOEDIT IN mxzye 
                @ 9, 30 SAY '正在处理数据......' 
                RECA ALL 
                USE 
           CASE x=2 
                USE mxk 
                DELE ALL FOR zy<>'期末及累计' 
                GOTO TOP 
                DEFI WINDOW mxzye FROM 1, 0 TO 22, 79 TITLE '查询期末余额' COLOR N/BG,R+/GR,R+/GR,GR+/R  
                ACTI WINDOW mxzye 
                BROW FIELDS pzh :H = '凭证号', kmdm :H = '科目代码', zy :H = '摘  要', zzkm :H = '总帐科目', mxkm :H = '明细科目', jje :H = '借金额', dje :H = '贷金额', ye :H = '余  额', ssl :H = '收数量', fsl :H = '发数量', ysl :H = '余数量' NOEDIT IN mxzye 
                @ 9, 30 SAY '正在处理数据......' 
                RECA ALL 
                USE 
           CASE x=3 
                USE mxk 
                DELE ALL FOR zy<>'本月合计' 
                GOTO TOP 
                DEFI WINDOW mxzye FROM 1, 0 TO 22, 79 TITLE '查询本月合计' COLOR N/BG,R+/GR,R+/GR,GR+/R  
                ACTI WINDOW mxzye 
                BROW FIELDS pzh :H = '凭证号', kmdm :H = '科目代码', zy :H = '摘  要', zzkm :H = '总帐科目', mxkm :H = '明细科目', jje :H = '借金额', dje :H = '贷金额', ye :H = '余  额', ssl :H = '收数量', fsl :H = '发数量', ysl :H = '余数量' NOEDIT IN mxzye 
                @ 9, 30 SAY '正在处理数据 ......' 
                RECA ALL 
                USE 
           CASE x=4 
                USE mxk 
                DELE ALL FOR zy='期初余额' .OR. zy='期末及累计' .OR. zy='本月合计' 
                GOTO TOP 
                DEFI WINDOW mxzye FROM 1, 0 TO 22, 79 TITLE '查询本月明细' COLOR N/BG,R+/GR,R+/GR,GR+/R  
                ACTI WINDOW mxzye 
                BROW FIELDS pzh :H = '凭证号', kmdm :H = '科目代码', zy :H = '摘  要', zzkm :H = '总帐科目', mxkm :H = '明细科目', jje :H = '借金额', dje :H = '贷金额', ye :H = '余  额', ssl :H = '收数量', fsl :H = '发数量', ysl :H = '余数量' NOEDIT IN mxzye 
                @ 9, 30 SAY '正在处理数据 ......' 
                RECA ALL 
                USE 
           CASE x=5 
                USE mxk 
                DEFI WINDOW mxzye FROM 1, 0 TO 22, 79 TITLE '查询本月资料' COLOR N/BG,R+/GR,R+/GR,GR+/R  
                ACTI WINDOW mxzye 
                BROW FIELDS pzh :H = '凭证号', kmdm :H = '科目代码', zy :H = '摘  要', zzkm :H = '总帐科目', mxkm :H = '明细科目', jje :H = '借金额', dje :H = '贷金额', ye :H = '余  额', ssl :H = '收数量', fsl :H = '发数量', ysl :H = '余数量' NOEDIT IN mxzye 
                USE 
      ENDC 
 ENDI 
 DEAC WINDOW mxzye 
 CLOS DATABASES 
 SET COLOR TO W+/B 
 @ 0, 0, 23, 79 BOX '北北北北' 
 SET COLOR TO W+/N 
 @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍' 
 @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG  
 @ 24, 0 SAY ' JQ001财务管理系统(Ver3.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W  
 ON KEY LABEL Escape do Rquit 
 SET CLOCK TO 23, 69 
 SET MOUSE OFF 
 RETU 
*