以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按钮效果求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109257)

--  作者:hahahehe21
--  发布时间:2017/11/7 22:33:00
--  [求助]按钮效果求助

想实现这样的效果(在其他软件中看到的)

窗口运行后不允许直接在窗口的表中直接编辑数据

 

三个按钮的初始状态如下

开单按钮 可用,修改按钮 可用,保存按钮 不可用。

 

开单(取消):单击开单按钮后表新增一行(单击开单后按钮标题自动变成取消,修改按钮变为不可用状态),此时当前行可以录入数据但并未保存添加到表中,

如单击保存(单击开单按钮后保存按钮自动变为可用状态)按钮则保存数据,三个按钮的状态恢复到初始状态。

如果不想保存,点击取消按钮则不保存,三个按钮的状态恢复到初始状态。

 

修改(取消):单击修改按钮后可修改当前行数据(单击修改后按钮标题自动变成取消,开单按钮变为不可用状态),此时当前行数据所做的修改并未保存到表中,

如单击保存按钮(单击修改按钮后保存按钮自动变为可用状态)则保存数据,三个按钮的状态恢复到初始状态

如果不想保存,点击取消按钮则不保存,三个按钮的状态恢复到开单前。


 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:测试按钮功能.foxdb


[此贴子已经被作者于2017/11/7 22:33:49编辑过]

--  作者:有点蓝
--  发布时间:2017/11/7 22:40:00
--  
开单按钮事件,其它按钮控制方法一样,参考处理

If e.Sender.Text = "开单"
    Tables("业务估价").Rows.AddNew()
    e.Sender.Text = "取消"
    e.Form.Controls("Button1").Enabled = False
    e.Form.Controls("Button3").Enabled = True
Else
    e.Sender.Text = "开单"
    DataTables("业务估价").RejectChanges
    e.Form.Controls("Button1").Enabled = True
    e.Form.Controls("Button3").Enabled = False
End If

--  作者:hahahehe21
--  发布时间:2017/11/9 11:52:00
--  回复:(有点蓝)开单按钮事件,其它按钮控制方法一样...
有点蓝老师,我还差保存按钮的功能没设置好

初始状态
开单按钮 可用,修改按钮 可用,保存按钮 不可用。

点击开单或者修改后  如果点保存按钮 则恢复到初始状态 (“开单”按钮标题要显示开单不是取消,修改按钮标题要显示修改不是取消,

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试按钮功能.foxdb



--  作者:有点甜
--  发布时间:2017/11/9 12:46:00
--  

保存按钮

 

If e.Form.Controls("保存").Enabled = True
    Tables("业务估价").Current.Save()
    e.Form.Controls("修改取消").Enabled = True
    e.Form.Controls("开单取消").Enabled = True
    e.Form.Controls("修改取消").text = "修改"
    e.Form.Controls("开单取消").text = "开单"
   
    e.Form.Controls("保存").Enabled = False
End If