Foxtable(狐表)用户栏目专家坐堂 → 如何设计一个确认按钮?


  共有1446人关注过本帖树形打印复制链接

主题:如何设计一个确认按钮?

帅哥哟,离线,有人找我吗?
rubonlau
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:298 威望:0 精华:0 注册:2017/3/27 21:11:00
如何设计一个确认按钮?  发帖心情 Post By:2017/3/27 22:53:00 [只看该作者]

最近设计一个录入窗口
可是在录入窗口中输入的信息都会实时录入到数据库中
我想要设计一个确认按钮,只有用户点击这个确认按钮之后
他输入的信息才会录入到数据库中
类似于oracle的commit功能
请问该功能要如何实现?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105866 积分:538387 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/27 22:59:00 [只看该作者]

控件不要绑定或者绑定到sqltable,

提交按钮
datatables().save

取消按钮
DataTables().RejectChanges


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


 回到顶部
帅哥哟,离线,有人找我吗?
rubonlau
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:298 威望:0 精华:0 注册:2017/3/27 21:11:00
  发帖心情 Post By: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
按此在新窗口浏览图片


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105866 积分:538387 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部