企业管理

开发平台：

VFP

YECX.PRG：源码内容

							 CLOS DATABASES
 SET PATH TO C:hcshwq
 IF FILE('mxk.dbf')
      SET PATH TO cw
      ON KEY
      USE mxk
      DEFI WINDOW win FROM 4, 2 TO 8, 32 SHADOW
      ACTI WINDOW win
      x = '         '
      @ 1, 1 SAY '请输入科目号码:' GET x PICTURE '999999999' VALID (LEN(ALLTRIM(x))=3 .OR. LEN(ALLTRIM(x))=7 .OR. LEN(ALLTRIM(x))=9)
      READ
      x = ALLTRIM(x)
      pd = LEN(x)
      SET FILTER TO x=SUBSTR(kmdm, 1, pd)
      HIDE POPUP pop3
      DEAC WINDOW win
      DEFI WINDOW win FROM 2, 1 TO 21, 77 SHADOW COLOR N/BG,W+/GR,R/GR,GR+/G 
      ACTI WINDOW win
      SET SYSMENU OFF
      ON KEY
      GOTO TOP
      bt = mxkm+kmdm
      BROW FIELDS pzh :H = '凭证' : 5, zy :H = '摘要' : 20, jje :H = '借方金额' : 14, dje :H = '贷方金额' : 14, ye :H = '余额' : 14, ssl :H = '借数量' : 12, fsl :H = '贷数量' : 12 NOAPPEND NOEDIT NODELETE WINDOW win TITLE bt
      DEAC WINDOW win
 ELSE
      WAIT WINDOW '本月无数据!'
 ENDI
 SET PATH TO cw
 DO zcd
 RETU
*

						