2,748
社区成员
发帖
与我相关
我的任务
分享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