English
PZXG-1.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：5k
源码类别：
企业管理
开发平台：
VFP
- qq = 1
- ysk = ys
- jyq = RECNO()
- @ 4, 11 GET zy
- READ
- @ 4, 11 SAY zy
- @ 18+bs, 33 SAY zy
- pd = kmdm
- bs1 = bs
- DO km.prg
- ys = ysk
- bs = bs1
- DO kmxs
- pd = slbz
- pd2 = pd
- IF pd='2'
- IF '13k5'=SUBSTR(TRIM(kmdm), 1, 3)
- hh = 0
- zj = '1'
- DO slsr
- ELSE
- ? CHR(7)
- pd1 = 'F'
- SET COLOR TO RB+/B
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '输入数量吗?' GET pd1
- READ
- DO qp
- IF pd1='y' .OR. pd1='Y'
- SET COLOR TO RB+/B
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '规格:'
- @ 2, 3 SAY '数量:'
- @ 3, 3 SAY '单价:'
- SET COLOR TO
- @ 1, 9 GET gg PICTURE 'xxxxxxxxxxxx'
- @ 2, 9 GET sl PICTURE '99999999.999'
- @ 3, 9 GET dj PICTURE '999999999.99'
- READ
- pd1 = sl
- pd = dj
- pd1 = pd1*pd
- DO WHILE .T.
- SET COLOR TO RB+/B
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '发生额是借方或贷方?'
- @ 2, 5 SAY ' (+)=借 (-)=贷'
- pd = INKEY(0)
- DO qp
- DO CASE
- CASE pd=43
- @ 18+bs, 2 SAY gg
- @ 18+bs, 10 SAY sl
- @ 18+bs, 21 SAY dj
- REPL ssl WITH sl
- REPL sdj WITH dj
- REPL fsl WITH 0
- REPL fdj WITH 0
- EXIT
- CASE pd=45
- @ 18+bs, 2 SAY gg
- @ 18+bs, 10 SAY sl
- @ 18+bs, 21 SAY dj
- REPL fsl WITH sl
- REPL fdj WITH dj
- REPL ssl WITH 0
- REPL sdj WITH 0
- EXIT
- OTHE
- ? CHR(7)
- ENDC
- ENDD
- IF '135'=SUBSTR(ALLTRIM(kmdm), 1, 3)
- REPL yysl WITH 0
- ?? CHR(7)
- SET COLOR TO GR+/G
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 2 SAY '是否作购进或销售数?'
- rx = 'Y'
- @ 2, 2 SAY 'Y=是,其他=否 '
- SET COLOR TO W+/BG
- @ 2, 16 GET rx
- READ
- IF rx<>'Y' .AND. rx<>'y'
- IF pd=43
- REPL yysl WITH sl
- ELSE
- ENDI
- ENDI
- ENDI
- DO qp
- ELSE
- pd2 = ' '
- ENDI
- ENDI
- ENDI
- SET COLOR TO N/W
- @ 7+bs, 42 SAY jje
- SET COLOR TO
- k = INKEY(0)
- IF k=1
- DO jsq-1
- IF k=-7
- REPL jje WITH js
- ELSE
- @ 7+bs, 55 SAY ''
- k = INKEY(0)
- IF k=-7
- REPL jje WITH js
- ELSE
- KEYB CHR(k)
- @ 7+bs, 42 GET jje PICTURE '@bz 9999999999.99'
- READ
- ENDI
- ENDI
- ELSE
- IF k=-7
- REPL jje WITH js
- ENDI
- IF k=46 .OR. k=45 .OR. k>47 .AND. k<58
- KEYB CHR(k)
- @ 7+bs, 42 GET jje PICTURE '@bz 999999999.99'
- READ
- ENDI
- ENDI
- pd = jje
- IF pd<>0
- REPL dje WITH 0
- ENDI
- IF pd<0
- SET COLOR TO R+/N
- @ 7+bs, 42 SAY jje
- SET COLOR TO W/N
- ELSE
- @ 7+bs, 42 SAY jje
- ENDI
- IF pd=0
- @ 7+bs, 42 SAY ' '
- SET COLOR TO N/W
- @ 7+bs, 58 SAY dje
- SET COLOR TO
- k = INKEY(0)
- IF k=1
- DO jsq-1
- IF k=-7
- REPL dje WITH js
- ELSE
- @ 7+bs, 71 SAY ''
- k = INKEY(0)
- IF k=-7
- REPL dje WITH js
- ELSE
- KEYB CHR(k)
- @ 7+bs, 58 GET dje PICTURE '@bz 9999999999.99'
- READ
- ENDI
- ENDI
- ELSE
- IF k=-7
- REPL dje WITH js
- ENDI
- IF k=46 .OR. k=45 .OR. k>47 .AND. k<58
- KEYB CHR(k)
- @ 7+bs, 58 GET dje PICTURE '@bz 9999999999.99'
- READ
- ENDI
- ENDI
- pd = dje
- IF pd<>0
- REPL jje WITH 0
- ENDI
- IF pd<0
- SET COLOR TO R+/N
- @ 7+bs, 58 SAY dje
- SET COLOR TO W/N
- ELSE
- @ 7+bs, 58 SAY dje
- ENDI
- ENDI
- x = RECNO()
- DO hjxs
- RETU
- *
