- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 服务器关闭提示(已解决) (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=5805)
-- 发布时间：2010/1/17 9:05:00
-- 服务器关闭提示(已解决)
我想在关闭系统的按钮中加入一个提示,服务器已经关闭,无法保存之类的提示,代码应该怎么写?
[此贴子已经被作者于2010-1-17 10:50:48编辑过]
-- 发布时间：2010/1/17 11:52:00
--
怎么解决的？分享下。
-- 发布时间：2010/1/17 16:54:00
-- 表不能插入行
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
如果服务器开着,会先保存后退出.如果服务器不开,系统会保存不了,然后会提示就这样搞定的.
-- 发布时间：2010/1/17 19:53:00
--
下面这两句中间是不是少了些什么？Syscmd.Project.Exit(True)
.......判断服务器是否开着。。。
MessageBox.Show("服务器已关闭,无法保存后退出,请开启服务器!","警告!!!")
-- 发布时间：2010/1/18 7:54:00
--
以下是引用菜鸟foxtable在2010-1-17 19:53:00的发言：
下面这两句中间是不是少了些什么？
Syscmd.Project.Exit(True)
.......判断服务器是否开着。。。
MessageBox.Show("服务器已关闭,无法保存后退出,请开启服务器!","警告!!!")
下面这两句中间是不是少了些什么？Syscmd.Project.Exit(True)
.......判断服务器是否开着。。。
MessageBox.Show("服务器已关闭,无法保存后退出,请开启服务器!","警告!!!")
我试过了,也行,本来我也是想加个判断服务器是否开着(但不知道这个代码这么写),后来这么做了后,我测试了一下如果服务器开着,保存后直接关闭.如果关着,会先保存,没有结果后会出来提示.有哪位高手可以帮忙完善一下.
-- 发布时间：2010/1/18 9:17:00
--
如果是模式窗口中的录入保存呢？如何判断服务器关闭与否？
-- 发布时间：2010/1/18 11:24:00
--
以下是引用菜鸟foxtable在2010-1-18 9:17:00的发言：
如果是模式窗口中的录入保存呢？如何判断服务器关闭与否？
我这个是在菜单里.
-- 发布时间：2010/1/18 13:25: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
做好了,加了判断.