您现在的位置：毕业论文 >> 论文 >> 正文

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] ... 下一页 >>