jxc.prg

进销存源码

set escape off
*广州市白云天时贸易商行进销存系统 V1.0
*主程序
*程序名：JXC
*开发日期：1997.11.19
*最后修改日期：
*修改记录

*变量说明
*cxlj: 本程序所在的路径
*cxzf: 本程序所包含的字符
*dqml: 当前目录
*p_cxlj:全局程序路径
*p_gzrrdm:工作人员代码
*p_gzrrxm:工作人员姓名
*mmtg:密码通过
*xtzzyx:系统正在运行

*设置功能键
set talk off
set century on
set date ansi
set safety off
set message to ''
SET FUNCTION '1' TO ''
SET FUNCTION '2' TO ''
SET FUNCTION '3' TO ''
SET FUNCTION '4' TO ''
SET FUNCTION '5' TO ''
SET FUNCTION '6' TO ''
SET FUNCTION '7' TO ''
SET FUNCTION '8' TO ''
SET FUNCTION '9' TO ''
SET FUNCTION '10' TO ''
close table all

*设置屏幕
_screen.caption='天时进销存系统'
_screen.windowstate=2
_screen.icon='jfz3.ico'

*设置隐含路径
DQML=SYS(5)+SYS(2003)
CXLJ=SYS(16)
FOR JSQ=1 TO LEN(CXLJ)
  CXZF=LEFT(RIGHT(CXLJ,JSQ),1)
  IF CXZF='\'
    CXLJ=STUFF(CXLJ,LEN(CXLJ)-JSQ+1,JSQ,'')
    EXIT
  ENDIF
ENDFOR
SET DEFAULT TO &CXLJ
p_cxlj=cxlj

use jhd
if reccount()>1000
  cancel
endif

*起动菜单
do menu.mpr
do form logo name logo linked

if .not. file('xtzcgb.mem')
  *故障恢复
  dhxx='    上次系统为非正常退出，为安全起见，系统现在需'+chr(13)+'要进行故障恢复！'
  do form dhk
  do zlsj
  dhxx=' 故障恢复完毕，如仍有问题，请与软件开发商联系。'
  do form dhk
 else
  erase xtzcgb.mem
endif

*记日志
do dksjk with 'rzk','rzk'
append blank
replace 日期 with date(),;
  时间 with time(),;
  操作 with '进入系统。'

*密码确认
mmtg=.t.
p_gzrrdm=''
p_gzrrxm=''
do dksjk with 'gzrr','gzrr'
do form gzrrmm
if .not. mmtg
  select rzk
  replace 日期 with date(),;
    时间 with time(),;
    操作 with '有人试图进入系统，但未成功。'
  do tcxt
endif

select rzk
replace 操作员 with p_gzrrxm

*确认日期、时间
dhxx='今天的日期是：'+dtoc(date())+chr(13)+'现在的时间是：'+time()+chr(13)+chr(13)+;
  '    请确认是否正确。如不正确，请用WINDOWS功能'+chr(13)+'重新设置，否则系统可能不能正常运行。'
do form dhk

read events