- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 停止命令 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52434)
-- 发布时间：2014/6/16 10:17:00
-- [求助] 停止命令
我在项目的AfterOpenProject中写有以下命令；我希望实现比如打开“填写申请资料窗口”后、能够不再显示系统；也就是说电脑桌面上只有“填写申请资料窗口”这个窗口，后面的项目不要显示。我该增加什么命令？
此主题相关图片如下：132.jpg
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
[此贴子已经被作者于2014-6-16 10:18:18编辑过]
-- 发布时间：2014/6/16 10:19:00
--
把这个窗口设置为模式窗口
-- 发布时间：2014/6/16 10:28:00
--
还有一个问题：如果现在我打开的是“用户登录窗口” ，在该窗口中的取消按钮命令为e.Form.Close()；当我点击取消时会有错误提示，是不是我哪里写错了？
此主题相关图片如下：333.jpg
此主题相关图片如下：222.jpg
此主题相关图片如下：111.jpg
-- 发布时间：2014/6/16 10:29:00
--
检查错误提示对应事件的代码, 看看哪里引用了控制.
-- 发布时间：2014/6/16 10:38:00
--
错误提示中、好像没有写事件代码呀
-- 发布时间：2014/6/16 10:48:00
--
以下是引用wumingrong1在2014-6-16 10:38:00的发言：
错误提示中、好像没有写事件代码呀
错误提示中、好像没有写事件代码呀
错误提示，是在BeforeCloseProject事件，你去看看是否有写什么代码了。
-- 发布时间：2014/6/16 11:05:00
--
写了这些代码：有什么影响？
If CurrentTable.Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
e.Cancel = True
MessageBox.Show("请先保存被修改数据 再退出系统", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
End If
-- 发布时间：2014/6/16 11:16:00
--
删除。改成这样
If CurrentTable.DataTable.HasChanges Then
e.Cancel = True
MessageBox.Show("请先保存被修改数据 再退出系统", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
End If
-- 发布时间：2014/6/18 15:58:00
--
OK，谢谢！！！