- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于关闭项目设置？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6124)
-- 发布时间：2010/3/9 11:10:00
-- 关于关闭项目设置？
如上图，为了防止误保存数据，可否设置自设定的提示方式来控制？谢指点！！
此主题相关图片如下：未命名.gif
-- 发布时间：2010/3/9 11:38:00
--
不保存按“否”即可，还想啥呢？
-- 发布时间：2010/3/9 13:32:00
--
本来是关闭窗口时，直接退出的，不能保存数据的，这样一来会造成重大数据问题，不知如何解决此问题？
-- 发布时间：2010/3/9 13:33:00
--
这样，使用者可会按错的呀。这个非常严重的事呀。请教哪位高手可解决？
-- 发布时间：2010/3/9 14:08:00
--
如果说会按错，自己做的提示同样会按错
-- 发布时间：2010/3/9 14:12:00
--
其实目的，关闭窗口无需弹出提示，直接未保存退出系统，如同Syscmd.Project.Exit(False)效果一样。
-- 发布时间：2010/3/9 14:31:00
--
Dim Result As DialogResult
Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.Yesno, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim T1,T2,T3,T4,T5 As String
T1="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=跟单系统;Data Source=wxd"
T2= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=项目列表;Data Source=wxd"
T3="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=装箱单;Data Source=wxd"
T4="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=面料出库;Data Source=wxd"
T5="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=排期表;Data Source=wxd"
Dim Names(4) As String
Names (0) =t1
Names (1) = t2
Names (2) = t3
Names (3) = t4
Names (4) = t5
Dim C1 As New Data.Oledb.OledbConnection(Names(4))
Try
C1.Open()
C1.Close()
Syscmd.Project.Exit(True)
Catch ex as Exception
MessageBox.Show("服务器已关闭,无法保存后退出,请开启服务器!","警告!!!")
End Try
else
Syscmd.Project.Exit(False)
End If
这个是我做的退出系统的代码,里面有一段判断外部数据源是否关闭的代码.你自己根据需要修改一下.
-- 发布时间：2010/3/9 14:34:00
--
请问在是关闭项目窗口"X”时生效的，不知在哪里编写代码？
-- 发布时间：2010/3/9 14:34:00
--
按一下在菜单中退出按钮,先显示要不要保存的提示,按"是",保存退出,按"否"不保存退出.如果服务器关闭,在保存不成功后会提示服务器已经关闭的提示.
-- 发布时间：2010/3/9 14:53:00
--
以下是引用baoxyang在2010-3-9 11:10:00的发言：
如上图，为了防止误保存数据，可否设置自设定的提示方式来控制？谢指点！！
此主题相关图片如下：未命名.gif
如上图，为了防止误保存数据，可否设置自设定的提示方式来控制？谢指点！！
此主题相关图片如下：未命名.gif可能表达能力差，让你们误解。其实是怕操作者按右角"x"来退出系统时，随便按保存时，将会产生对无需保存的数据进行保存了。其实想实现操作者按右角"x"来退出系统时直接不保存数据退出.