论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP Java Web .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VF >

(C)资料信息管理系统(论文)

第四章 系统编码与实现

4.1 开发平台的选择 copyright paper51.com

   考虑到本系统的性能要求,和现有的条件,我们选择了WINDOWSXP中文版作为开发、测试和运行的平台。因为WINDOWS操作系统是目前应用最广的操作系统,它以全新的图形界面,简单快捷的操作方式,支持多媒体功能等特点而成为软件发展的流行趋势,选用它作为开发平台,易于功能的扩展和软件升级。 http://www.paper51.com

4.2 开发工具的选择 内容来自www.paper51.com

   针对目前世界上流行的大量软件和开发工具,经过认真分析其优缺点,结合学籍器具管理系统的需要和目前的硬件环境,我们选用微软WINDOWS平台下的Visual FoxPRO6.0(简写为VFP6.0)作为软件开发工具。选用该工具有发下几方面的优点: http://www.paper51.com

   (1)VFP6.0是目前微机上最优秀的关系型数据库管理系统软件,正如其名称中冠以的“Visual”一样,它采用了可视化、面向对象的程序设计方法,大大简化了应用系统的开发过程,并提高了系统工程的模块化和紧凑性。 http://www.paper51.com

   (2)VFP6.0版本中提供了大量的诸如“数据库设计器”、“表单设计器”、“菜单设计器”、“报表设计器”等开发设计工具和向导工具(Wizard),使以往费时费力的开发工作变得轻松自如。这些可视化的设计工具免除了开发者编写大量程序代码的工作。

copyright paper51.com

4.3 程序设计(部分逻辑及代码) 内容来自www.paper51.com

4.3 创建可视化按钮 paper51.com

paper51.com

4.3.1要使鼠标指针移动到按钮上方时鼠标指针发生变化,需要在按钮的“MouseMove”事件中添加代码。

paper51.com

*————修改控件上鼠标指针形状

内容来自www.paper51.com

LPARAMETERSnButton, nShift, nXCoord, nYCoord

http://www.paper51.com

This.MousePointer=  99                   &&————使用自定义的鼠标指针 内容来自论文无忧网 www.paper51.com

This.MouseIcon=  "h_point.cur"             &&————鼠标指针文件 内容来自论文无忧网 www.paper51.com

4.3.2 创建可视化类

http://www.paper51.com

单击【首记录】按钮时,只需要将记录指针移动到表的第一条记录即可,按钮的“Click”事件代码如下:

http://www.paper51.com

GO TOP             &&到首记录 copyright paper51.com

THISFORM.REFRESH   &&刷新表单

paper51.com

单击【上记录】按钮时,首先判断记录指针是否位于第一条记录,如果是,则弹出警告,否则将记录指针向前移动一个位置,该按钮的“click”事件代码如下:

http://www.paper51.com

*——如果到了数据表首部 http://www.paper51.com

IF BOF().OR. RECNO() = 1 copyright paper51.com

   MessageBox("已到首记录",48,"移动记录")

内容来自论文无忧网 www.paper51.com

ELSE

内容来自论文无忧网 www.paper51.com

*——如果数据指针不位于数据表首部

http://www.paper51.com

   SKIP-1 paper51.com

ENDIF

内容来自论文无忧网 www.paper51.com

*——刷新表单

copyright paper51.com

THISFORM.REFRESH

内容来自论文无忧网 www.paper51.com

单击【下记录】按钮代码:

http://www.paper51.com

*——如果记录指针位于数据表末尾

内容来自www.paper51.com

IF EOF() orRecNO() = RecCount()

内容来自www.paper51.com

   MessageBox("已到末记录",48,"移动记录")

http://www.paper51.com

*——如果记录指针不位于数据表末尾 http://www.paper51.com

ELSE 内容来自www.paper51.com

   *——记录指针下移                   

copyright paper51.com

   SKIP paper51.com

ENDIF

paper51.com

*——刷新表单 copyright paper51.com

THISFORM.REFRESH()

copyright paper51.com

单击【末记录】按钮代码: 内容来自www.paper51.com

GOBOTTOM               &&到数据表末尾 内容来自论文无忧网 www.paper51.com

THISFORM.REFRESH       &&刷新表单

内容来自www.paper51.com

“MyMove”类的“Refresh”事件代码如下:

paper51.com

*——如果数据表为空或者只有一条记录 内容来自论文无忧网 www.paper51.com

IF BOF().AND. EOF() .OR. RECCOUNT()<=1

http://www.paper51.com

   THIS.Cmdtop.ENABLED=.F.

paper51.com

   THIS.Cmdpre.ENABLED=.F.

内容来自www.paper51.com

   THIS.Cmdnxt.ENABLED=.F.

paper51.com

   THIS.Cmdbtm.ENABLED=.F. 内容来自www.paper51.com

ELSE paper51.com

   *——如果在记录指针在数据表的末尾 内容来自www.paper51.com

   IF RECNO()=RECCOUNT()  .OR. EOF()

内容来自论文无忧网 www.paper51.com

       THIS.Cmdtop.ENABLED=.T. 内容来自www.paper51.com

       THIS.Cmdpre.ENABLED=.T.

http://www.paper51.com

       THIS.Cmdnxt.ENABLED=.F.

copyright paper51.com

       THIS.Cmdbtm.ENABLED=.F.

http://www.paper51.com

   ELSE 内容来自论文无忧网 www.paper51.com

   *——如果记录指针在数据表的首部

http://www.paper51.com

       IFRECNO()=1 .OR. BOF() 内容来自www.paper51.com

           THIS.Cmdtop.ENABLED=.F. 内容来自www.paper51.com

           THIS.Cmdpre.ENABLED=.F. paper51.com

           THIS.Cmdnxt.ENABLED=.T. 内容来自论文无忧网 www.paper51.com

           THIS.Cmdbtm.ENABLED=.T. paper51.com

       ELSE

内容来自论文无忧网 www.paper51.com

           *——如果记录指针不在数据表的首部也不在尾部

内容来自www.paper51.com

           THIS.Cmdtop.ENABLED=.T.

http://www.paper51.com

           THIS.Cmdpre.ENABLED=.T. 内容来自www.paper51.com

           THIS.Cmdnxt.ENABLED=.T. http://www.paper51.com

           THIS.Cmd