以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何设计一个确认按钮?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98301)

--  作者:rubonlau
--  发布时间:2017/3/27 22:53:00
--  如何设计一个确认按钮?
最近设计一个录入窗口
可是在录入窗口中输入的信息都会实时录入到数据库中
我想要设计一个确认按钮,只有用户点击这个确认按钮之后
他输入的信息才会录入到数据库中
类似于oracle的commit功能
请问该功能要如何实现?

--  作者:有点蓝
--  发布时间:2017/3/27 22:59:00
--  
控件不要绑定或者绑定到sqltable,

提交按钮
datatables().save

取消按钮
DataTables().RejectChanges


具体贴出你的代码或者上传例子说明


--  作者:rubonlau
--  发布时间:2017/3/27 23:31:00
--  
附件上是我的表格和我的录入窗口
下面是代码:

此主题相关图片如下:微信图片_20170327232744.png
按此在新窗口浏览图片

窗口表事件

 

窗口与控件事件

 

游戏信息_AfterLoad

 

Dim cmb As WinForm.ComboBox

cmb = Forms("游戏信息").Controls("ComboBox1")

cmb.ComboList = DataTables("法官表").GetComboListString("法官名称")

 

Dim cmb1 As WinForm.ComboBox

cmb1 = Forms("游戏信息").Controls("ComboBox2")

cmb1.ComboList = DataTables("游戏板子").GetComboListString("板子名称")

 

Dim cmb2 As WinForm.ComboBox

cmb2 = Forms("游戏信息").Controls("ComboBox3")

cmb2.ComboList = "好人胜利|狼人胜利|第三方胜利"

 

游戏信息_Button1_Click

 

Tables("游戏信息表").AddNew()

 

游戏信息_Button2_Click

 

With Tables("游戏信息表")

    .Position = .Position + 1

End With



现在来说我想设计一个提交按钮,只有按了这个提交按钮之后,才可以将输入的数据更新到数据库中。

这个要怎么设计?
此主题相关图片如下:微信图片_20170327232755.png
按此在新窗口浏览图片


--  作者:有点蓝
--  发布时间:2017/3/28 8:37:00
--  
提交按钮
datatables("游戏信息表").save

窗口AfterClose事件
If DataTables("游戏信息表").HasChanges Then
    If MessageBox.Show("游戏信息内容改变,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("游戏信息表").Save
    Else
        DataTables("游戏信息表").RejectChanges
    End If
End If