专家坐堂-封面到登陆窗口之间等待时加个窗口Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'界面隐藏开始

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

SaveConfigValue("试用日期",Date.Today) \'把今天的日期写入到试用日期的参数值里

\'系统加密部分结束