| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 680 人关注过本帖
标题:VFP中表的应用
只看楼主 加入收藏
li93343609
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-8
收藏
 问题点数:0 回复次数:3 
VFP中表的应用

请高手指教:

图片附件: 游客没有浏览图片的权限,请 登录注册

如图中下方的按钮功能如何实现?
小弟在做毕业设计,时间特紧,拜托了,帮我看看,
我不是很懂
麻烦代码要详细点
搜索更多相关主题的帖子: VFP 中表 应用 指教 
2006-05-08 15:28
sarge_xp
Rank: 2
等 级:论坛游民
帖 子:120
专家分:13
注 册:2006-4-30
收藏
得分:0 
在click设置即可
2006-05-08 21:57
li93343609
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-8
收藏
得分:0 

哥哥,你说的清楚些嘛
我也知道在click里设置,
就是不知道用什么代码实现啊
拜托各位大虾指教的详细点哦


2006-05-09 11:22
li93343609
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-8
收藏
得分:0 
我自己搞定了,在此共享一下

Command1代码:

thisform.pageframe1.page1.commandgroup1.command1.enabled=.f.

thisform.pageframe1.page1.commandgroup1.command2.enabled=.f.

thisform.pageframe1.page1.commandgroup1.command3.enabled=.t.

thisform.pageframe1.page1.commandgroup1.command4.enabled=.t.

thisform.pageframe1.page1.grid1.setfocus

thisform.pageframe1.page1.refresh

go top

Command2代码:

thisform.pageframe1.page1.grid1.setfocus

thisform.pageframe1.page1.refresh

skip -1

if bof()

messagebox("已是第一条记录!",48,"提示")

thisform.pageframe1.page1.commandgroup1.command1.enabled=.f.

thisform.pageframe1.page1.commandgroup1.command2.enabled=.f.

else

thisform.pageframe1.page1.commandgroup1.command1.enabled=.t.

thisform.pageframe1.page1.commandgroup1.command2.enabled=.t.

endif

thisform.pageframe1.page1.commandgroup1.command3.enabled=.t.

thisform.pageframe1.page1.commandgroup1.command4.enabled=.t.

Command3代码:

thisform.pageframe1.page1.grid1.setfocus

thisform.pageframe1.page1.grid1.refresh

skip

if eof()

messagebox("已是最后一条记录!",48,"提示")

thisform.pageframe1.page1.commandgroup1.command3.enabled=.f.

thisform.pageframe1.page1.commandgroup1.command4.enabled=.f.

else

thisform.pageframe1.page1.commandgroup1.command3.enabled=.t.

thisform.pageframe1.page1.commandgroup1.command4.enabled=.t.

endif

thisform.pageframe1.page1.commandgroup1.command1.enabled=.t.

thisform.pageframe1.page1.commandgroup1.command2.enabled=.t.

Command4代码:

thisform.pageframe1.page1.commandgroup1.command1.enabled=.t.

thisform.pageframe1.page1.commandgroup1.command2.enabled=.t.

thisform.pageframe1.page1.commandgroup1.command3.enabled=.f.

thisform.pageframe1.page1.commandgroup1.command4.enabled=.f.

thisform.pageframe1.page1.grid1.setfocus

thisform.pageframe1.page1.grid1.refresh

go bottom

另外还需要在grid1的arftrowcolchange中写入
this.setall('dynamicbackcolor','iif(this.activerow< >recno(),rgb(238,251,255),rgb(153,204,255)','column')


在表格控件的每列的text1控件的GotFocus事件中添加以下代码:
this.backcolor=rgb(153,204,255)

给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 给我加分哦! 
 


2006-05-10 14:48
快速回复:VFP中表的应用
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032507 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved