主题：关于关闭项目设置？

如上图，为了防止误保存数据，可否设置自设定的提示方式来控制？谢指点！！
此主题相关图片如下：未命名.gif

不保存按“否”即可，还想啥呢？

本来是关闭窗口时，直接退出的，不能保存数据的，这样一来会造成重大数据问题，不知如何解决此问题？

这样，使用者可会按错的呀。这个非常严重的事呀。请教哪位高手可解决？

如果说会按错，自己做的提示同样会按错

其实目的，关闭窗口无需弹出提示，直接未保存退出系统，如同Syscmd.Project.Exit(False)效果一样。

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


  这个是我做的退出系统的代码,里面有一段判断外部数据源是否关闭的代码.你自己根据需要修改一下.

请问在是关闭项目窗口"X”时生效的，不知在哪里编写代码？

按一下在菜单中退出按钮,先显示要不要保存的提示,按"是",保存退出,按"否"不保存退出.如果服务器关闭,在保存不成功后会提示服务器已经关闭的提示.

可能表达能力差，让你们误解。其实是怕操作者按右角"x"来退出系统时，随便按保存时，将会产生对无需保存的数据进行保存了。其实想实现操作者按右角"x"来退出系统时直接不保存数据退出.