以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] 系统登录提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63236)

--  作者：wumingrong1 --  发布时间：2015/1/16 17:10:00 --  [求助] 系统登录提示 我想在项目的BeforeOpenProject中写入命令，实现当我项目进行维护时、打开项目能够弹出维护提示、并退出项目不给登录。以下命令该怎么修改？ 此主题相关图片如下：360截图20150116171016656.jpg     If Tables("系统维护").Current("系统维护").Checked = True  Then \'如果电脑日期大于 ****日期         e.Cancel = True \'拒绝打开项目         e.HideSplashForm = True \'关闭Foxtable的启动封面         MessageBox.Show("本系统于“&Tables("系统维护").Current("开始时间")&”至“&Tables("系统维护").Current("计划完成")&”期间进行维护,请该时间后再登录系统！！！", "系统维护提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification) \'弹出提示窗口              End If

--  作者：Bin --  发布时间：2015/1/16 17:15:00 --   BeforeOpenProject 数据表还没加载,无法获取数据表的数据的.  你可以在ALterOpenProject事件里控制

--  作者：wumingrong1 --  发布时间：2015/1/16 17:26:00 --   在AFterOpenProject中写以下命令，好像有错误；该怎么改？ If Tables("系统维护").Current("系统维护").Checked = True  Then       MessageBox.Show("本系统于"&Tables("系统维护").Current("开始时间")&"至"&Tables("系统维护").Current("计划完成")&"期间进行维护,请该时间后再登录系统!!!", "系统维护提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification) \'弹出提示窗口           Syscmd.Project.Exit() \'正常退出飞狐                   Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错 end if 此主题相关图片如下：360截图20150116172811640.jpg

--  作者：有点甜 --  发布时间：2015/1/16 17:28:00 --   If Tables("系统维护").Current("系统维护") = True  Then