我是新手小白,由于刚接手上一任同事的工作,不太明白人家写的代码的含义,想麻烦您给我解释一下每一句命令的含义,谢谢谢谢

2501_92615255 2025-12-05 11:09:57

close all
set talk off
set safe off
set sysmenu off
set century on
set date to YMD
set status bar off
set deleted on
SET RESOURCE OFF
on shutdown quit
modify window screen title "工作证打印程序2025"
modify window screen fill file "beijing.jpg"
zoom window screen max
*_screen.controlbox=.f.      &&最大化、最小化、关闭按钮

Pm_k=wcols()
Pm_g=wrows()

@(Pm_g-9),(Pm_k-36) say "  程序:工作证打印系统   " color 5/3
@(Pm_g-8),(Pm_k-36) say "  编程:xxxxx " color 1/6
@(Pm_g-7),(Pm_k-36) say "  时间:  2021.5.27        -0822   " color 5/3
@(Pm_g-6),(Pm_k-36) say "  地点:xx地方 " color 5/3

set defa to left(sys(16),rat("\",sys(16)))
set path to date;img;system32
if allt(dtos(date()))>'20301025'
  messagebox("你需要更新你的软件了!",0+16+0,"提示窗口")
endif
if allt(dtos(date()))>'20301025'
  messagebox("对不起,你已超过规定的使用期限,再见!",0+16+0,"提示窗口")
  quit
endif


do 菜单.mpr
read events 

...全文
103 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

2,748

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧