服务器关闭提示(已解决) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

[此贴子已经被作者于2010-1-17 10:50:48编辑过]

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

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

以下是引用菜鸟foxtable在2010-1-17 19:53:00的发言：
图片点击可在新窗口打开查看

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

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

以下是引用菜鸟foxtable在2010-1-18 9:17: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
End If

做好了,加了判断.

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