标题：服务器关闭提示(已解决)

   我想在关闭系统的按钮中加入一个提示,服务器已经关闭,无法保存之类的提示,代码应该怎么写?

怎么解决的？分享下。

Dim Result As DialogResult
Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.Yesno, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Syscmd.Project.Exit(True)
    MessageBox.Show("服务器已关闭,无法保存后退出,请开启服务器!","警告!!!")
else
   Return
End If

   如果服务器开着,会先保存后退出.如果服务器不开,系统会保存不了,然后会提示就这样搞定的.

 下面这两句中间是不是少了些什么？
Syscmd.Project.Exit(True)
.......判断服务器是否开着。。。
    MessageBox.Show("服务器已关闭,无法保存后退出,请开启服务器!","警告!!!")

   我试过了,也行,本来我也是想加个判断服务器是否开着(但不知道这个代码这么写),后来这么做了后,我测试了一下如果服务器开着,保存后直接关闭.如果关着,会先保存,没有结果后会出来提示.有哪位高手可以帮忙完善一下.

如果是模式窗口中的录入保存呢？如何判断服务器关闭与否？

   我这个是在菜单里.

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
End If


做好了,加了判断.