企业管理

开发平台：
VFP

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
*

						