| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 保存提示框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101956) |
|
| -- 作者：jick0526 -- 发布时间：2017/6/10 17:12:00 -- 保存提示框 老师，请问下，这样的功能要怎么实现，我如果想当软件有新的数据输入后，三分钟内如果没有保存，那么就会跳出提示框，你还未保存，并有两个按钮供选择 1.现在保存 2.在等一会儿（如果选择等一会儿，就会默认在30分钟后再跳出提示框）
|
|
| -- 作者：有点蓝 -- 发布时间：2017/6/10 17:38:00 -- 计划管理，新增任务，初始间隔可以设置为10000，代码 If vars("state") = 0 Then \'已经保存过 For Each dt As DataTable In DataTables If dt.HasChanges Then MyTimers("计划1").Interval = 180000 \'设置为3分钟后提示 vars("state") = 1 Return End If Next ElseIf vars("state") = 1 Then \'3分钟提示 If MessageBox.Show("数据已经修改,是否现在保存,选否30分钟后再提示","温馨提示",MessageBoxButtons.YesNo) = DialogResult.Yes For Each dt As DataTable In DataTables dt.Save Next MyTimers("计划1").Interval = 10000 \'设置为每10秒后检测是否改动,根据需要自己改 vars("state") = 0 Else MyTimers("计划1").Interval = 1800000 \'设置为30分钟后提示 vars("state") = 2 End If ElseIf vars("state") = 2 Then \'30分钟提示 If MessageBox.Show("数据已经修改,是否现在保存,选否30分钟后再提示","温馨提示",MessageBoxButtons.YesNo) = DialogResult.Yes For Each dt As DataTable In DataTables dt.Save Next MyTimers("计划1").Interval = 10000 \'设置为每10秒后检测是否改动,根据需要自己改 vars("state") = 0 End If End If |
|
| -- 作者：jick0526 -- 发布时间：2017/6/10 17:55:00 -- 老师，这个是什么意思，在菜单档做个按钮还是什么，放在什么事件
|
|
| -- 作者：有点色 -- 发布时间：2017/6/11 16:04:00 -- 参考
http://www.foxtable.com/webhelp/scr/0657.htm
|
|
| -- 作者：jick0526 -- 发布时间：2017/6/26 19:41:00 -- 老师，请下面的代码3分钟后跳出提示，如果我不选择的话，每隔三分钟就会跳出新的提示框，能不能改下代码，我如果不选择的话，就保持第一个提示框在界面上 ，不会过三分钟后重复跳出一样的提示框 If vars("state") = 0 Then \'已经保存过 For Each dt As DataTable In DataTables If dt.HasChanges Then MyTimers("计划1").Interval = 180000 \'设置为3分钟后提示 vars("state") = 1 Return End If Next ElseIf vars("state") = 1 Then \'3分钟提示 If MessageBox.Show("数据已经修改,是否现在保存,选否15分钟后再提示, The data has been modified, whether it is now saved, selected 15 minutes after the prompt","温馨提示",MessageBoxButtons.YesNo) = DialogResult.Yes For Each dt As DataTable In DataTables dt.Save Next MyTimers("计划1").Interval = 60000 \'设置为每60秒后检测是否改动,根据需要自己改 vars("state") = 0 Else MyTimers("计划1").Interval = 900000 \'设置为15分钟后提示 vars("state") = 2 End If ElseIf vars("state") = 2 Then \'20分钟提示 If MessageBox.Show("数据已经修改,是否现在保存,选否15分钟后再提示, The data has been modified, whether it is now saved, selected 15 minutes after the prompt","温馨提示",MessageBoxButtons.YesNo) = DialogResult.Yes For Each dt As DataTable In DataTables dt.Save Next MyTimers("计划1").Interval = 900000 \'设置为每10秒后检测是否改动,根据需要自己改 vars("state") = 0 End If End If
|
|
| -- 作者：有点蓝 -- 发布时间：2017/6/26 20:36:00 -- If vars("state") = 0 Then \'已经保存过 For Each dt As DataTable In DataTables If dt.HasChanges Then MyTimers("计划1").Interval = 180000 \'设置为3分钟后提示 vars("state") = 1 Return End If Next ElseIf vars("state") = 1 Then \'3分钟提示 MyTimers("计划1").Enabled= False If MessageBox.Show("数据已经修改,是否现在保存,选否15分钟后再提示, The data has been modified, whether it is now saved, selected 15 minutes after the prompt","温馨提示",MessageBoxButtons.YesNo) = DialogResult.Yes For Each dt As DataTable In DataTables dt.Save Next MyTimers("计划1").Interval = 60000 \'设置为每60秒后检测是否改动,根据需要自己改 vars("state") = 0 Else MyTimers("计划1").Interval = 900000 \'设置为15分钟后提示 vars("state") = 2 End If ElseIf vars("state") = 2 Then \'20分钟提示 MyTimers("计划1").Enabled= False If MessageBox.Show("数据已经修改,是否现在保存,选否15分钟后再提示, The data has been modified, whether it is now saved, selected 15 minutes after the prompt","温馨提示",MessageBoxButtons.YesNo) = DialogResult.Yes For Each dt As DataTable In DataTables dt.Save Next MyTimers("计划1").Interval = 900000 \'设置为每10秒后检测是否改动,根据需要自己改 vars("state") = 0 End If End If MyTimers("计划1").Enabled= True
|
|
| -- 作者：jick0526 -- 发布时间：2017/6/28 12:53:00 -- 老师，请问下，下面的代码如果加上一个前提条件怎么改代码，就是在表A,表B,表C这三个表数据有 更新的情况下，才启动下面的代码
|
|
| -- 作者：有点蓝 -- 发布时间：2017/6/28 15:10:00 -- If vars("state") = 0 Then \'已经保存过 Dim nms() As String = {"表A","表B","表C"} For Each name As String In nms If DataTables(name).HasChanges Then MyTimers("计划1").Interval = 180000 \'设置为3分钟后提示 vars("state") = 1 Return End If Next ...... 原来下面其它代码判断所有表的地方自己学着改改
|