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