毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VF资料信息管理系统(开题报告+论文+源程序) 第6页

更新时间:2010-4-13:  来源:毕业论文
VF资料信息管理系统(开题报告+论文+源程序) 第6页
4.3.1要使鼠标指针移动到按钮上方时鼠标指针发生变化,需要在按钮的“MouseMove”事件中添加代码。
*————修改控件上鼠标指针形状
LPARAMETERS nButton, nShift, nXCoord, nYCoord
This.MousePointer =  99                    &&————使用自定义的鼠标指针
This.MouseIcon =  "h_point.cur"      &&————鼠标指针文件
4.3.2 创建可视化类
单击【首记录】按钮时,只需要将记录指针移动到表的第一条记录即可,按钮的“Click”事件代码如下:
GO TOP    &&到首记录
THISFORM.REFRESH &&刷新表单
单击【上记录】按钮时,首先判断记录指针是否位于第一条记录,如果是,则弹出警告,否则将记录指针向前移动一个位置,该按钮的“click”事件代码如下:
*——如果到了数据表首部
IF BOF() .OR. RECNO() = 1
   MessageBox("已到首记录",48,"移动记录")
ELSE
*——如果数据指针不位于数据表首部
   SKIP-1
ENDIF
*——刷新表单
THISFORM.REFRESH
单击【下记录】按钮代码:
*——如果记录指针位于数据表末尾
IF EOF() or RecNO() = RecCount()
   MessageBox("已到末记录",48,"移动记录")
*——如果记录指针不位于数据表末尾
ELSE
 *——记录指针下移                   
   SKIP
ENDIF
*——刷新表单
THISFORM.REFRESH()
单击【末记录】按钮代码:
GO BOTTOM       &&到数据表末尾
THISFORM.REFRESH  &&刷新表单
“MyMove”类的“Refresh”事件代码如下:
*——如果数据表为空或者只有一条记录
IF BOF() .AND. EOF() .OR. RECCOUNT()<=1
   THIS.Cmdtop.ENABLED=.F.
   THIS.Cmdpre.ENABLED=.F.
   THIS.Cmdnxt.ENABLED=.F.
   THIS.Cmdbtm.ENABLED=.F.
ELSE
 *——如果在记录指针在数据表的末尾
 IF RECNO()=RECCOUNT()  .OR. EOF()
  THIS.Cmdtop.ENABLED=.T.
  THIS.Cmdpre.ENABLED=.T.
  THIS.Cmdnxt.ENABLED=.F.
  THIS.Cmdbtm.ENABLED=.F.
 ELSE
 *——如果记录指针在数据表的首部
  IF RECNO()=1 .OR. BOF()
   THIS.Cmdtop.ENABLED=.F.
   THIS.Cmdpre.ENABLED=.F.
   THIS.Cmdnxt.ENABLED=.T.
   THIS.Cmdbtm.ENABLED=.T.
  ELSE
   *——如果记录指针不在数据表的首部也不在尾部
   THIS.Cmdtop.ENABLED=.T.
   THIS.Cmdpre.ENABLED=.T.
   THIS.Cmdnxt.ENABLED=.T.
   THIS.Cmdbtm.ENABLED=.T.
  ENDIF
 ENDIF
ENDIF
4.3.3“命令按钮工具栏”类
 【推出】按钮的“Click”事件代码:
LOCAL YN
YN=Messagebox("确定退出",4+32,"资料管理系统")
IF YN=6
 THISFORM.Release
ENDIF
6.2 创建系统主表单
6.2.1 创建主程序
 *——系统环境设置
CLEAR
CLEAR ALL
SET ESCAPE OFF   &&  禁止运行的程序在按ESC键被中断
SET TALK OFF   &&  关闭命令显示
SET SAFETY OFF          &&  覆盖时不要确认
SET STAT BAR OFF        &&  将状态栏关闭
SET SYSMENU OFF         &&  可关掉VFP系统菜单区域
SET SYSMENU TO          &&  关闭系统菜单

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VF资料信息管理系统(开题报告+论文+源程序) 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。