把这段代码写到Initialize事件,不写到afterOpenProject里面去
StatusBar.Message2= "当前用户:" & User.Name &" 程序开发:*** QQ:1234567 "
If GetConfigValue("试用起始日",#1/1/2010#) = #1/1/2010# Then
'定义一个试用起始日的变量,让默认日期为早期时间, 若是第一次运行,则将试用日期设为当天
SaveConfigValue("试用起始日",Date.Today)
End If
Dim usetoday As Date = GetConfigValue("试用日期",Date.today) '定义一个日期变量,来记录系统本次打开日期
Dim Regok As Boolean = getconfigvalue("注册状态",False) '定义一个逻辑变量,用来记录注册成功与否
Dim startday As Date = GetConfigValue("试用起始日",#1/1/2010#) '定义一个日期变量,来记录第一次打开系统的日期
If regok = False Then '若是未注册状态
If Date.Today < usetoday Then '若当前日期小于上一次的试用日期,则说明系统时间被修改
msgbox("系统时间被非法修改,不能进入系统!") '给消息提示
syscmd.project.Exit() '强制退出系统
Return
End If
If Date.Today > startday.AddDays(90) Then '若今天比第一次打开系统的日期过去3天了
Forms("注册").open
Return '返回,不执行后面的打开窗口1的代码
End If
End If
SaveConfigValue("试用日期",Date.Today) '把今天的日期写入到试用日期的参数值里
If Syscmd.Project.Update(False,True) = False Then '如果没有升级
Forms("导航").open()
End If