Dim r As Row = Tables("本机注册表").Rows(0)
Dim fdr As DataRow = DataTables("系统注册信息表").Find("机器码 = '" & r("机器码") & "'")
If r.IsNull("机器码") Then '如果r.机器码为空,那么
Tables("本机注册表").Rows(0)("机器码") = ComputerId '在"本机注册表""机器码"列第一行填入机器码
Else
If r.IsNull("注册码") And fdr Is Nothing Then '如果r.注册码为空,机器码与"系统注册信息表"的机器码相同,那么
MainTable = Tables("系统注册信息表") '打开"主页"表
Forms("填写申请资料窗口").Open()
Else
If fdr.IsNull("注册码") Or fdr.IsNull("截止日期") Then '如果注册码为空
MessageBox.Show("管理员还未完成对本机的授权,请与管理员联系", "未授权提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification) '弹出提示窗口
Else
If r.IsNull("注册码") Then '如果注册码为空
MainTable = Tables("系统注册信息表") '打开"主页"表
Forms("填写注册码窗口").Open() '打开"主窗口(主页)"窗口
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
Else
If fdr IsNot Nothing AndAlso fdr("截止日期") < Date.Today Then
MessageBox.Show("本计算机使用该软件的期限已经过期,请与管理员联系", "未授权提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification) '弹出提示窗口
Else
If Syscmd.Project.Update(False,True) = False Then '如果没有升级(False,True)
Forms("用户登录").Open() '打开 用户登录 窗口
If _UserName = "" Then '如果用户名= 空
Syscmd.Project.Exit() '正常退出飞狐
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
End If
Applicati '系统抬头显示该名称
MainTable = Tables("主页") '打开"主页"表
Forms("主页背景窗口").Open() '打开"主窗口(主页)"窗口
End If
End If
End If
End If
End If
加好友 
发短信
Post By：2014/6/16 10:17:00 [只看该作者]
此主题相关图片如下：132.jpg