|
dhxx=' 故障恢复完毕，如仍有问题，请与软件开发商联系。' http://www.paper51.com do form dhk copyright paper51.com else paper51.com erase xtzcgb.mem 内容来自www.paper51.com endif paper51.com *记日志 copyright paper51.com do dksjk with 'rzk','rzk' http://www.paper51.com append blank http://www.paper51.com replace 日期 with date(),; 内容来自论文无忧网 www.paper51.com 时间 withtime(),; 内容来自www.paper51.com
操作 with '进入系统。' 内容来自论文无忧网 www.paper51.com *密码确认 copyright paper51.com mmtg=.t. 内容来自www.paper51.com p_gzrrdm='' 内容来自论文无忧网 www.paper51.com p_gzrrxm='' paper51.com
do dksjk with 'gzrr','gzrr' paper51.com do form gzrrmm copyright paper51.com if .not. mmtg 内容来自www.paper51.com select rzk http://www.paper51.com replace 日期 withdate(),; 内容来自www.paper51.com
时间 with time(),; 内容来自论文无忧网 www.paper51.com
操作 with '有人试图进入系统，但未成功。' 内容来自www.paper51.com do tcxt 内容来自www.paper51.com endif copyright paper51.com select rzk http://www.paper51.com replace 操作员 with p_gzrrxm paper51.com *确认日期、时间 http://www.paper51.com dhxx='今天的日期是：'+dtoc(date())+chr(13)+'现在的时间是：'+time()+chr(13)+chr(13)+; copyright paper51.com
' 请确认是否正确。如不正确，请用WINDOWS功能'+chr(13)+'重新设置，否则系统可能不能正常运行。' 内容来自论文无忧网 www.paper51.com do form dhk copyright paper51.com
do title.mpr 内容来自论文无忧网 www.paper51.com do form main paper51.com read events copyright paper51.com http://www.paper51.com *仓库帐录入模块 copyright paper51.com *程序名：ckzlr http://www.paper51.com *变量说明 内容来自论文无忧网 www.paper51.com private all except p_* paper51.com do dksjk with 'ckzz','ckzz' paper51.com do dksjk with 'ckrjz','ckrjz' http://www.paper51.com do dksjk with 'ghs','ghs' 内容来自www.paper51.com do dksjk with 'dxs','dxs' copyright paper51.com do dksjk with 'jhd','jhd' 内容来自论文无忧网 www.paper51.com do dksjk with 'thtc','thtc' 内容来自论文无忧网 www.paper51.com do dksjk with 'bxtc','bxtc' 内容来自www.paper51.com
do dksjk with 'xsrjz','xsrjz' copyright paper51.com do dksjk with 'xsth','xsth' copyright paper51.com
do dksjk with 'xsbx','xsbx' 内容来自www.paper51.com
do dksjk with 'chd','chd' 内容来自论文无忧网 www.paper51.com do dksjk with 'dxth','dxth' paper51.com do dksjk with 'dxbx','dxbx' 内容来自www.paper51.com do dksjk with 'dxkrjz','dxkrjz' http://www.paper51.com do dksjk with 'dxkzz','dxkzz' copyright paper51.com set message to '总部仓库帐录入' copyright paper51.com do jrz with p_gzrrxm,'进入总部仓库帐录入' 内容来自论文无忧网 www.paper51.com
cxnr=space(20) paper51.com qd=.t. 内容来自www.paper51.com jsq=1 copyright paper51.com do while qd .and. jsq<=12 http://www.paper51.com do case http://www.paper51.com
|