- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
资料信息管理系统中编码和实现及后期维护
资料信息管理系统中编码和实现及后期维护
摘要:随着社会化大生产的不断扩大和社会对产品多样化的需求,人们越来越重视信息在生产经营及学校管理中的作用,并把它当作学校的一种极其重要的资源,人们称之为“信息资源”,信息资源的处理已经成为当今世界上一项主要的社会活动。资料信息管理系统的建立也就变得越来越显得重要,资料信息管理系统的建立涉及到许多环节,而系统编码与实现起着决定性的作用。在此,文章主要探讨系统编码与实现及其后期维护问题。
关键词:程序设计;创建信息管理模块;系统配置
中图分类号:TP311.138文献标识码:A文章编号:1006-8937(2009)14-0127-01
1开发平台的选择
由于WINDOWS操作系统拥有全新的用户界面和简单快捷的图形操作,能为程序开发提供功能强大的窗口控制能力,并且其拥有最健壮的开发工具,可应用于任何平台,结合资料信息管理系统的性能需求和现有的软硬件条件,在此,选用WINDOWSXP中文版作为开发平台,能使资料信息管理系统在今后发展中便于扩展和升级。
2开发工具的选择
根据资料信息管理系统的功能需求和目前的硬件环境,对常用的数据库开发软件进行了深入的研究,并详细的对比分析了各流行数据库软件开发工具的优缺点,总以上考虑,在此,选用Visual FoxPRO6.0(简写为VFP6.0)作为本系统的开发工具,其有以下优点:
①VFP6.0作为最优秀的关系型数据库开发软件之一,其采用了可视化、面向对象等的程序设计思想,使系统的开发过程简洁高效,并提高了系统的内聚性和耦合性。②VFP6.0数据库开发功能强大,易学易用,开发效率高,成本低。③用Visual FoxPro 6.0开发出来的系统,具有良好的可操作性,可允许开发人员进行二次开发。④VFP6.0简单、方便、命令丰富、速度快、数据处理能力强,有数据库工作区窗口,调试非常方便。⑤VFP6.0提供了大量的智能开发工具和向导提示工具,诸如“数据库设计器”、“表单设计器”、“菜单设计器”、“报表设计器”等,在很大程度上减轻了开发人员编码压力。
3程序设计(部分逻辑及代码)
创建系统主表单、创建主程序。
CLEAR
CLEAR ALL
SET ESCAPE OFF→→→禁止运行的程序在按ESC键被中断
SET TALK OFF→→→关闭命令显示
SET SAFETY OFF覆盖时不要确认
SET STAT BAR OFF将状态栏关闭
SET SYSMENU OFF可关掉VFP系统菜单区域
SET SYSMENU TO关闭系统菜单
SET CENTURY ON显示四位年代
SET DATE ANSI→→→指定日期表达式的显示格式为yy.mm.dd
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName=“资料管理系统”
IF .NOT. FindWindow(0,lpWindowName)==0 寻找窗口标题
=MESSAGEBOX(“程序已经运行了”,48,“资料管理系统”)
QUIT
ENDIF
_Screen.Caption=lpWindowName
PUBLIC cCurUser 声明全局变量,用来保存系统中的登录用户
PUBLIC bDataAdmin,bDataBrow,bUserAdmin,bUserBrow,bLendAdmin,bLendBrow,bSysUser,bUserPurv,bAct
DO FORM Logon 调用登录表单
READ EVENTS进入事务处理
4创建信息管理模块
创建“资料信息管理”表单。
【新增】按钮的“Click”事件代码:
SELECT DataInfo //选择“资料信息”表所在的工作区
THISFORM.OldRecord=RECNO()//保存记录号
GO BOTTOM//到末记录
LOCAL sNum//声明本地变量
sNum=DataInfo.资料编号//数据表最后一条记录的值
APPEND BLANK//数据表末尾新增记录
THISFORM.txt资料编号.Value=AutoAdd(sNum) //新增记录的“资料编号”值为自动增加的值
*――表单进入修改状态
THISFORM.bModify=.T.
THISFORM.bBrowse=.T.
文档评论(0)