'界面隐藏开始
Dim ribbon As C1.Win.C1Ribbon.C1Ribbon = baseMainForm.Controls("C1Ribbon1")
Forms("用户登录").Open()
If Forms("用户登录").Opened Then
Forms("用户登录").Controls("取消").Visible = 1
Forms("用户登录").Controls("取消离开").Visible = 0
End If
If _UserName = "" Then
'closeMin = True
Syscmd.Project.Exit(True)
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
If _UserName = "开发者" Then
basemainform.controls("mainpages").Dock = windows.Forms.Dockstyle.fill
baseMainForm.MaximizeBox = True
baseMainForm.ControlBox= True
Ribbon.show
Else
ApplicationMenu.visible= False
Ribbon.hide
'Ribbon.height = 0
TableCaptionVisible = 0
'baseMainForm.MinimizeBox = True
'baseMainForm.MaximizeBox = True
baseMainForm.ControlBox= False
InitNotifyIcon()
''-------------------最小化到托盘↑------------------------------''
basemainform.text = "企业管理软件"
basemainform.icon = New Icon("images\png148.ico")
End If
'界面隐藏结束
'系统加密部分开始
If GetConfigValue("试用起始日",#1/1/2000#) = #1/1/2000# 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/2000#) '定义一个日期变量,来记录第一次打开系统的日期
If regok = False Then '若是未注册状态
If Date.Today < usetoday Then '若当前日期小于上一次的试用日期,则说明系统时间被修改
msgbox("系统时间被非法修改,不能进入系统!") '给消息提示
syscmd.project.Exit() '强制退出系统
Return
End If
If Date.Today > startday.AddDays(2) Then '若今天比第一次打开系统的日期过去3天了
Forms("用户须知").open
Return '返回,不执行后面的打开窗口1的代码
End If
End If
SaveConfigValue("试用日期",Date.Today) '把今天的日期写入到试用日期的参数值里
'系统加密部分结束
加好友 
发短信
Post By：2015/4/2 17:31:00 [显示全部帖子]
