摘
系统企业职工教育培训理系统设计课题型企业进行事信息进行理企业职工信息理系统典型信息理系统(MIS) 开发包括台数库建立维护前端应程序开发两方面前者求建立起数致性完整性强数安全性高数库数库设计采数库规范设计方法基3NF(第三范式)设计方法基抽象语法规范设计方法等者求应程序功完备易等特点分析系统 MICROSOFT公司 VISUAL FORFRO 60作系统开发工具开发理系统软件开发全程采工程概念原理技术方法开发软件企业进行员工信息理时作模块系统包括职员工档案理添加删数查询系统维护系统功帮助退出等功
关键词 信息理系统(MIS) NF(第三范式) VISUAL FORFRO 60
目 录
摘 1
序 言 4
1 行性研究 5
1．1职员信息意义 5
1．2行性研究 5
1．2．1济行性 5
1．2．2操作行性 5
1．2．3技术行性 5
1．2．4运行行性 5
2 理信息系统综述 6
21 信息系统发展历程 6
22 理信息系统概述 6
2．3系统功结构图 7
3需求分析 9
3．1企业工作流程分析 9
3．2公司具体需求分析 9
3．3系统设计思想 9
3．4系统设计分析 9
3．5系统功分析 9
3．6企业员工信息理系统目标 10
3．7数库分析 10
3．8数流图 10
381数元素表 13
382 数流 13
383 数存储 14
4 概设计 15
4．1总体设计 15
4．1．1处理流程 15
4．1．2系统模块菜单 15
4．1．3企业员工信息理系统需完成具体功 15
4．1．4系统模块图 16
4．1．5接口设计 16
4．2模块具体分析 17
4．3出错输出信息 17
5 详细设计 18
6 程序实现 23
6． 1数库表测试记录 23
6． 2模块设计说明程序代码 24
6． 3测试情况 40
6．3．1程序数表功模块报表应文件名 41
6．3．2程序说明 41
6．4 结束语 41
参考文献 43
设计总结 44
致谢 45
序 言
年着计算机技术发展互联网时代已进入信息时代称数字化时代数字化时代里企业职员信息理受极挑战
企业职员信息理系统企业单位缺少部分容企业决策者理者说关重企业职员信息理系统应该够户提供充足信息快捷查询手段直传统工方式理文件档案种理方式存着许缺点效率低保密性差外时间长产生量文件数查找更新维护带少困难
着科学技术断提高计算机科学日渐成熟强功已深刻认识已进入类社会领域发挥着越越重作
作计算机应部分计算机企业职员信息系统进行理具着手工理法拟优点例检索迅速查找方便性高存储量保密性寿命长成低等优点够极提高企业职员信息理效率企业科学化正规化理世界接轨重条件
系统企业职员信息理系统信息理系统开发包括数库建立维护前端应程序开发两方面
分析 MICROSOFT公司 VISUAL FORFRO 60开发工具利提供种面象开发工具短时间建立系统应原形然初始原型系统进行需求迭代断修正改进直形成满意行系统
面章中开发企业职员信息理系统谈谈
开发程涉问题解决方法
面开始正文介绍
1行性研究
1．1企业职员信息意义：
中企业计算机理企信息已越越普遍计算机提高工作效率节省许力物力增强职员资料安全性提高企业理力计算机职员信息非常必
作计算机专业学生希贡献三年学编制实程序帮助公司进行更效企业职员信息理
1．2行性研究：
目：行性研究目代价时间确定问题否够解决
1．2．1济行性：
现计算机价格已十分低廉性长足进步系统开发
学校工作效率带质飞跃表现方面：
第系统运行节省许资源
第二系统运行提高公司工作效率
第三系统敏感文档更加安全等等
系统济行
1．2．2操作行性：
第存储职员基信息安全高效
第二需二名档案录入员操作系统节省量力
第三迅速查需信息
系统操作行
1．2．3技术行性：
VISUAL FOXPRO进行数库开发优秀数库理系统提供快速高效数理性VISUAL FOXPRO数组织成数库然VISUAL FOXPRO集成环境VISUAL FOXPRO编制应程序数库进行操作需数库中数时通VISUAL FOXPOR集成环境中菜单命令已编制应程序快速需数找出数指定格式整理成文档
文中详细介绍
系统技术行
1．2．4运行行性：
系统企业职员信息理系统耗费资源非常公司电脑
硬件软件够满足条件系统运行行
2 理信息系统综述
21 信息系统发展历程
信息系统发展历电子数处理系统理信息系统发展程
1电子数处理系统（1953～1960年）
数处理工系统计算机问世前已存计算机出现首先数处理时计算机代手工劳动统计产量工资计算等1960年出现数更新系统属方面容例美国share航空预约订票系统掌握1008预约点76000座位27000飞行记录种系统报告前售票速度时票售完没预测控制功说理信息系统
2信息报告系统（1961～1970年）
信息报告系统理信息系统雏形特点事先规定求提供理报告支持决策制订通常包括生产状态报告系统服务状态报告系统研究状态报告系统
3决策支持系统（1970～1980年）
欧美早期理信息系统失败原非系统提供信息时理信息系统够提供报告呈送领导资料部分丢进垃圾堆领导决策需决策支持系统早期理信息系统早期理信息系统理者提供预定报告数库查询数决策支持系统计算机话程中帮助决策者探索方案生成理决策需信息
4信息系统进步发展
着微型计算机处理力通讯网络高速发展信息系统出现少新概念诸：
①专家系统基知识系统
②理信息系统－支持领导层决策
③战略信息系统－竞争中支持战略决策
④电子数交换
⑤计算机集成制造系统等
关容详述面着重述理信息系统：
22 理信息系统概述
理信息系统计算机等组成进行理信息收集传递加工保存维护系统实测国民济企业种运行情况利历史数预测未全局出发辅助理决策利信息控制企业行帮助实现规划目标说理信息系统仅理者提供帮助基计算机机系统社会技术系统应理信息系统放社会背景考察解决技术问题时充分考虑信息技术组织重视系统组织环境交互作
理信息系统介信息济理理统计学运筹学计算机科学间门边缘性综合性系统性交叉学科伴着理科学信息技术计算机技术等发展产生发展起
20世纪20年代理重视理信息系统产生前提泰勒制代表科学理出现行科学学派数学理学派计算机理学派系统工程学派发展理水断提高计算机诞生飞速发展信息理现代化成信息技术断进步信息理提供强力工具手段类开发利信息资源力增强整社会信息化水断提高
系统初步调查行性分析工作步骤图示
（单位求）
组织队伍拟定计划
单位情况调查 现行信息系统调查
确定新系统目标功
提出技术方案
明确新系统单 拟定新系统 效益分析
位变化影响 开发计划
行性证
行 修改
（评审）
行 修改
（系统分析）
行性证工作步骤
2．3系统功业务流程图
员工信息
部门
员工信息
员工信息理
员工信息理
查 询
员工基信息
员工基信息
更 新
员工信息
添 加
删
修 改
印
理员
3需求分析
21世纪类济高速发展发生日新月异变化特计算机应普济社会生活领域原旧理方法越越适应现社会发展许停留前手工操作阻碍类济发展适应现代社会高度强烈时间观念学校信息理系统软件学校办公室带极方便开发系统采VISUAL FOXPRO功系统部源代码直接完成需系统求输入操作
3．1企业工作流程分析
公司工作总体规划档案理员企业员工信息理系统中完成运行公司需基数维护包括信息增加修改项信息变动进行操作
3．2公司具体需求分析
员工：基信息查询查公司员基信息
信息理员：员工基信息进行理修改员工增加减少进行理
3．3系统设计思想
1 采现资源先进理系统开发方案充分利公司现资源减少开发中时间财力物力提高系统开发水应效果
2 系统满足公司需求例员工信息录入查询更新等
3 系统具备数库维护功时根户需求进行数添加删修改等操作
3．4系统设计分析
系统适型企业功分
户理：户添加删修改
帮助信息：系统具体操作进行详解
系统性力求易具体较高扩展性维护性
3．5系统功分析
系统数初始化
职员信息数增加
职员信息数修改
职员信息数删
职员信息览查询
职员信息报表印
3．6企业员工信息理系统目标
着济发展企业正着型化规模化方发展企业职员数量急剧增加关职员种信息量成倍增长种情况单工处理职员信息工作量公司员万甚十万工处理变想象计算机繁重劳动中解脱出仅简单操作便时准确获需信息
该系统具体务设计企业职员信息理系统计算机代工执行系列诸增加新进职员信息变更职员信息删离职职员信息查询印等操作样办公员轻松快捷完成职员信息理务企业职员理工作系统化规范化动化达提高企业理效率目
设计指导思想切户着想界面美观方操作量简单明作实应程序良容错性户出现误操作时量时出警告便户时改正
3．7数库分析
户需求具体教学理系统提供保存更新查询维护印需求数库结构充分满足种信息输入输出实现组织动态存储量关联数方便户访问系统中数文件系统重区数充分享交叉访问应程序高度独立性
3．8数流图
数流图简称DFD图数流图四种成分：源点终点处理数存储表数流图中没具体物理元素描述信息系统中流动处理情况专业计算机技术员容易理解极理解工具精确描述系统逻辑模型描述数MIS中输入存储加工处理输出全程设计者户交流工具
现行系统进行详细调查基础定方式系统信息流程表示出数流图图形式表示象逻辑模型户直观理解系统概貌系统设计员够逻辑模型基础进行系统设计出系统功结构
数流图系统逻辑模型组成部分模型赖硬件软件数结构文件组织
数流图：
F3
般户
F1
般户
P0
企业员工信息理系统
F4
系统理员
F2
系统理员
图1 企业员工信息理系统顶层TOP图
F3
F1
般户
P1
员工
信息
维护
般户
F4
F2
系统理员
P2
系统信息
维护
系统理员
图2 企业员工信息理系统级细化DFD
F31
般户系统理员
P11
职
员工
信息
维护
F11
般户系统理员
职员工基信息表
D1
般户系统理员
P24
档案
状态
维护
D7
F24
档案状态表
般户系统理员
F44
图3 企业员工信息理系统二级细化DFD
数字典
数字典数流图中包含元素定义集合途作分析阶段工具改进分析员户间通信消许误解开发员避免许麻烦接口处理问题
数字典条目类型：数流条目文件条目加工条目数项条目
面数字典汇总览表表达数流程图中数流数文件数加工数元素具体格式：
3．8．1 数元素
字段名
数类型
字段
职员号（键）
CHARACTER
4
姓名
CHARACTER
8
性
CHARACTER
2
生日
CHARACTER
10
学历
CHARACTER
8
政治面貌
CHARACTER
4
联系电话
CHARACTER
12
家庭住址
CHARACTER
40
属部门
CHARACTER
10
现职务
CHARACTER
10
进单位年份
CHARACTER
4
备注
MEMO
4
3．8．2数流
F1
基档案信息
F312
职员工信息输出报表
F11
职员工档案信息
F4
系统信息表
F2
系统表信息
F41
政治面貌表
F21
政治面貌情况
F42
民族信息表
F22
民族信息
F43
学历情况表
F23
学历信息
F44
档案状态表
F24
职员工信息
F45
部门情况表
F25
职员工信息
D5
民族信息表
F3
职员工基信息
D6
学历信息表
F31
政治面貌信息表
D7
员工状态表
383数存储：
表3 数存储表
名字：职员工档案信息
描述：职员工基信息
编号：D1
组成：职员号姓名性生日学历政治面貌联系电话家庭住址属部门
现职务进单位年份备注
4概设计
4概设计
目：设计系统结构根需求析出功出系统体系结构划分模块
目标：通系统软件帮助工作员利计算机快速方便属公司信息理进行维护输入输出查找需操作散乱员工数够具体化直观化合理化
开发运行环境选择
开发工具：Visual FoxPro60
运行环境：Windows 7Windows xp
4．1总体设计
4．1．1处理流程：
1启动系统激活登陆口令界面
2通验证系统进行初始化
3系统进入消息循环通事件驱动机制激活相应功模块执行相应功
4通关闭系统事件激活关闭系统模块退出系统
4．1．2系统模块菜单：
企业员工信息理系统
户理
添加户
修改户
删户
员工信息理
添加员工信息
查询员工信息
修改员工信息
删员工信息
4．1．3企业员工信息理系统需完成具体功：
系统理模块： 户添加删修改
员工信息理模块：输入员工基信息员工信息进行添加查询修改删关键字查询数库里调出员工基信息
输出员工基信息
4．1．4系统模块图：（图4）
职员信息理系统
界面
增加记录
修改
删记录
查询
报表印
退出
印预览
印报表
览
条件查询
系统功模块结构图
4．1．5接口设计
外部接口：户般通终端进行操作户进入界面进行相应操作
硬件接口：赛扬133 存32兆PC机满足输入端条件
软件接口：Windows98NT更高操作系统
部接口：部接口(模块间接口)
验证模块：启动系统时便激活登陆口令界面
初始化模块：系统进行初始化
系统功模块：接收系统功相应消息启动信息录入信息查询信息维护等模块
4．2模块具体分析
：
1． 系统理模块：理系统户赋权限系统操作实体ER图：（图5）
系统理
户身份
户
（图10）
2．员工信息理：员工基信息理（员工号姓名性出生年月联系址等）实体ER图：（图6）
员工信息理
进单位年份
现职务
属部门
员工号
4．3出错输出信息：系统采机话模式操作失误弹出话框（：输错信息等）
出错处理策：户根弹出话框中提示信息进行操作
5详细设计
目： 系统中模块确定算法块数结构表达工具出清晰描述
实现数库间联系：数库间关系指明两库间享关键字值连接指种虚拟表种表户求相互关联表中获取信息时建立关键字段相互连接表中查找匹配记录更高级连接形式称连接种连接指表连接字段纪录中重复数组合字段数库中三种类型关键字：关键字组合关键字外关键字表中关键字类型描述库表示什数库中库建立关系
修改已建数库：数库修改分添加编辑删记录VISUAL FOXPRO 创建程序实现
IPO图
IPO图实际张图形化表格描述分层图中模块输入输出关系处理容模块部数模块间调关系系统设计重成果系统实施阶段编制程序设计务书进行程序设计出发点系统设计中模块必须
相应IPO图作设计结果描述
模 块 名 称：员工档案理 模块代码：P1
层调模块：
调层模块：P11P12 P13
输 入：F1
处 理：DO WHILE 档案数录入
档案数录入
IF 档案数录入正确
INSERT ()
VALUSE(相应字段录入)
ELSE
重新录入
END IF
END DO
输 出：档案信息
模 块 名 称：系统表维护 模块代码：P2
层调模块：
调层模块：P21P22 P23 P24 P25
输 入：F2
处 理：DO WHILE 系统表信息录入
IF数录入正确
INSERT ()
VALUSE(相应字段录入)
ELSE
重新录入
END IF
END DO
输 出：属部门政治面貌信息民族信息
学历信息等
模 块 名 称：职员工维护 模块代码：P11
层调模块：P1
调层模块：
输 入：F11
处 理：DO WHILE 职员工信息录入
IF数录入正确
INSERT ()
VALUSE(相应字段录入)
ELSE
重新录入
END IF
END DO
输 出：职员工信息
模 块 名 称：职员报表输出 模块代码：P113
层调模块：P11
调层模块：
输 入：D1
处 理： SELECT(*)
FROM B_0001
IF 印
输出报表
END IF
输 出：分类档案数报表
模 块 名 称：职职工查询 模块代码：P112
层调模块：P11
调层模块：
输 入：D1
处 理：SELECT(*)
SUM ALL(符合条件数)
分类ALL
输 出：职员工分类查询结果
查询
符合条件
条件
满足条件
数库
显示结果
退出
查询模块流程图（图8）
维护
查找记录
查找成功
显示出错信息
修改增加记录
继续？
继续？
退出
维护模块流程图（图9）
6程序实现
6． 1数库表测试记录（备注）：
职员号 姓名 性 生日 学历 政治面貌 联系电话 家庭住址 属部门 现职务 进单位年份
0001 刘备 男 19600910 博士 员 02787820910 武汉市洪山区关山 CEO 1985
0002 关羽 男 19650415 科 员 02787800415 武汉市洪山区卓刀泉 销售部 理 1985
0003 张飞 男 19660730 科 员 02787830730 武汉市洪山区鲁巷 生产部 理 1985
0004 赵云 男 19671202 科 员 02787311202 武汉市洪山区中南路 配送部 理 1988
0005 诸葛亮 男 19700606 博士 员 02788850606 武汉市武昌区成路 CIO 1990
0006 孙乾 男 19660717 专科 团员 02786580717 武汉市青山区八家 事部 职员 1988
0007 赵敏 女 19720530 博士 员 13871360530 武汉市桥口区武胜路 财务部 理 1993
0008 郭襄 女 19741108 硕士 员 13871081108 武汉市江汉区江汉路 广告部 理 1995
0009 苗兰 女 19760214 科 员 02788850214 武汉市武昌区中山路 财务部 1997
0010 周芷 女 19751025 科 员 02784771025 武汉市汉阳区钟家村 广告部 1996
0011 简雍 男 19670927 专科 团员 13011240927 武汉市青山区红钢城 勤部 职员 1987
0012 糜竺 男 19670712 专科 团员 02786560712 武汉市青山区家路 勤部 职员 1987
0013 徐庶 男 19690305 硕士 员 13339680305 武汉市武昌区积玉桥 事部 理 1989
0014 钟灵 女 19780616 专科 团员 13976270616 武汉市洪山区街道口 广告部 职员 1999
0015 穆婉清 女 19771224 专科 团员 02788321224 武汉市武昌区武泰闸 财务部 职员 1998
0016 庞统 男 19660131 博士 员 13035250131 武汉市武昌区东门 技术部 理 1990
0017 蒋琬 男 19721007 科 员 02783861007 武汉市桥口区易家墩 技术部 1995
0018 马超 男 19750612 科 员 13029680612 武汉市江汉区姑嫂树 销售部 1996
0019 黄忠 男 19550926 科 员 13578280926 武汉市武昌区梅家山 配送部 1991
0020 廖化 男 19680511 专科 团员 13013570511 武汉市江岸区永清街 销售部 职员 1988
6． 2模块设计说明程序代码
系统界面
系统界面户进入系统接触界面进入功模块分单击钮增加记录修改记录删记录查询报表印进入相应功模块单击退出钮退出系统界面单调界面加入背景
增加记录钮Click事件中添加代码：
do form 增加记录
thisformrelease
修改记录钮Click事件中添加代码：
do form 修改记录
thisformrelease
删记录钮Click事件中添加代码：
do form 删记录
thisformrelease
查询钮Click事件中添加代码：
do form 查询
thisformrelease
报表印钮Click事件中添加代码：
do form 报表印
thisformrelease
退出钮Click事件中添加代码：
thisformrelease
clear events
增加记录模块
企业新进职员建立事档案该模块功添加新职员信息
操作简单需输入完数单击确定钮时系统会弹出话框提示输入成功取消钮功清空文框该模块做限制性设计防户误操作：输入职员号进单位年份文框FormatInputMask属性设9999户输入四位数字输入字符效样输入生日文框FormatInputMask
属性设99999999单击确定果没输入职员号输入职员号已存系统会弹出提示信息便户改正
确定钮Click事件中添加代码：
* 检查职员号否空
if empty(alltrim(thisformtxtIDvalue))
messagebox(职员号空48错误)
thisformtxtIDsetfocus
else
* 获取输入值
inIDalltrim(thisformtxtIDvalue)
inNamealltrim(thisformtxtNamevalue)
inSexalltrim(thisformtxtSexvalue)
inBirthalltrim(thisformtxtBirthvalue)
inLearnalltrim(thisformtxtLearnvalue)
inPoliticsalltrim(thisformtxtPoliticsvalue)
inPhonealltrim(thisformtxtPhonevalue)
inAddressalltrim(thisformtxtAddressvalue)
inDepartmentalltrim(thisformtxtDepartmentvalue)
inFunctionalltrim(thisformtxtFunctionvalue)
inDatealltrim(thisformtxtDatevalue)
inMemoalltrim(thisformedtMemovalue)
* 检查输入职员号否已存
set order to 职员号
seek inID
if found()
insert into 职员信息表 value(inIDinNameinSexinBirthinLearninPoliticsinPhoneinAddressinDepartmentinFunctioninDateinMemo)
messagebox(添加成功48信息)
* 添加完毕清空文框
thisformtxtIDvalue''
thisformtxtNamevalue''
thisformtxtSexvalue''
thisformtxtBirthvalue''
thisformtxtLearnvalue''
thisformtxtPoliticsvalue''
thisformtxtPhonevalue''
thisformtxtAddressvalue''
thisformtxtDepartmentvalue''
thisformtxtFunctionvalue''
thisformtxtDatevalue''
thisformedtMemovalue''
else
messagebox(职员号已存请输48错误)
thisformtxtIDvalue''
thisformtxtIDsetfocus
endif
endif
取消钮Click事件中添加代码：
* 清空文框
thisformtxtIDvalue''
thisformtxtNamevalue''
thisformtxtSexvalue''
thisformtxtBirthvalue''
thisformtxtLearnvalue''
thisformtxtPoliticsvalue''
thisformtxtPhonevalue''
thisformtxtAddressvalue''
thisformtxtDepartmentvalue''
thisformtxtFunctionvalue''
thisformtxtDatevalue''
thisformedtMemovalue''
thisformtxtIDsetfocus
退出钮Click事件中添加代码：
thisformrelease
do form 界面
修改记录模块
职员信息改变：部门调动职位升降搬家换电话者发
现输入错误信息进入该模块进行修改单击导航条逐条定位查找果知道修改职员职员号面文框里直接输入该职员号单击查找果找系统会定位该记录果没找系统会出提示信息该模块做增加记录模块相限制性设计
该表单数环境（Data Environment）中添加职员信息表文框ControlSource属性设置职员信息表中相应字段样便完成职员信息表绑定
查找钮Click事件中添加代码：
set order to 职员号
seek alltrim(thisformtext1value)
if found()
messagebox(该职员号存48错误)
go top
endif
thisformtext1value''
thisformrefresh
退出钮Click事件中添加代码：
thisformrelease
do form 界面
删记录模块
果职员离职退休原删某条记录进入该模块进行删模块控件布局修改记录模块基相似显示记录文框Enabled属性均设置f（假）修改记录模块样设置职员信息表绑定
删条记录钮Click事件中添加代码：
nAnswermessagebox(确定删？36信息)
if nAnswer6
thisformdataenvironmentclosetables('职员信息表')
* 独占方式开表执行删命令
use 职员信息表 exclusive
delete from 职员信息表 where 职员号alltrim(thisformtxtIDvalue)
pack
use
thisformdataenvironmentopentables('职员信息表')
thisformrefresh
endif
查找钮Click事件中添加代码：
set order to 职员号
seek alltrim(thisformtext1value)
if found()
messagebox(该职员号存48错误)
go top
endif
thisformtext1value''
thisformrefresh
退出钮Click事件中添加代码：
thisformrelease
do form 界面
查询模块
模块选择查询条件快速查找需职员信息览整职员信息表供选择查询关键字职员号姓名属部门3字段单项查询组合查询
首先表单激活时根复选框选中情况决定相应文框否
表单Activate事件中添加代码：
flag1thischeck1value
do case
case flag10
thistext1enabledf
thistext1value''
case flag11
thistext1enabledt
endcase
flag2thischeck2value
do case
case flag20
thistext2enabledf
thistext2value''
case flag21
thistext2enabledt
endcase
flag3thischeck3value
do case
case flag30
thiscombo1enabledf
thiscombo1value''
case flag31
thiscombo1enabledt
endcase
减少户输入属部门复选框组合框
组合框Init事件中添加代码：
* 组合框添加选项
thisclear
local dmi
dimension dm[1]
select distinct 属部门 from 职员信息表 into array dm
for each i in dm
if empty(i)
thisadditem(i)
endif
endfor
单击复选框果框里√标记面文框组合框反
职员号复选框Click事件中添加代码：
flagthisformcheck1value
do case
case flag0
thisformtext1enabledf
thisformtext1value''
case flag1
thisformtext1enabledt
endcase
姓名复选框Click事件中添加代码：
flagthisformcheck2value
do case
case flag0
thisformtext2enabledf
thisformtext2value''
case flag1
thisformtext2enabledt
endcase
属部门复选框Click事件中添加代码：
flagthisformcheck3value
do case
case flag0
thisformcombo1enabledf
thisformcombo1value''
case flag1
thisformcombo1enabledt
endcase
查询钮Click事件中添加代码：
* 获取查询关键字输入值
getidalltrim(thisformtext1value)
getnamealltrim(thisformtext2value)
getdepartalltrim(thisformcombo1value)
* 获取复选框值
flag1thisformcheck1value
flag2thisformcheck2value
flag3thisformcheck3value
* 选中查询关键字进行查询
if flag10 and flag20 and flag30
messagebox(请输入查询条件48错误)
endif
if flag11 and flag20 and flag30
select * from 职员信息表 where 职员号getid
endif
if flag10 and flag21 and flag30
select * from 职员信息表 where 姓名getname
endif
if flag10 and flag20 and flag31
select * from 职员信息表 where 属部门getdepart
endif
if flag11 and flag21 and flag30
select * from 职员信息表 where 职员号getid and 姓名getname
endif
if flag11 and flag20 and flag31
select * from 职员信息表 where 职员号getid and 属部门getdepart
endif
if flag10 and flag21 and flag31
select * from 职员信息表 where 姓名getname and 属部门getdepart
endif
if flag11 and flag21 and flag31
select * from 职员信息表 where 职员号getid and 姓名getname and 属部门getdepart
endif
览钮Click事件中添加代码：
select * from 职员信息表
退出钮Click事件中添加代码：
thisformrelease
do form 界面
报表印模块
模块实现两功：印报表印预览
确定钮Click事件中添加代码：
do case
case thisformoptiongroup1option1value1
report form 职员信息报表 to print
case thisformoptiongroup1option2value1
report form 职员信息报表 to print preview
endcase
退出钮Click事件中添加代码：
thisformrelease
do form 界面
导航条类
修改记录删记录模块中导航条简化代码方便系统维护修改做导航条类类设计器中次放置第条记录条记录条记录条记录四钮
第条记录钮Click事件中添加代码：
goto top
thisparentcmdFirstenabledf
thisparentcmdPreviousenabledf
thisparentcmdNextenabledt
thisparentcmdLastenabledt
thisformrefresh
条记录钮Click事件中添加代码：
skip 1
if bof()
messagebox(已第条记录48信息窗口)
thisparentcmdFirstenabledf
thisparentcmdPreviousenabledf
else
thisparentcmdFirstenabledt
thisparentcmdPreviousenabledt
endif
thisparentcmdNextenabledt
thisparentcmdLastenabledt
thisformrefresh
条记录钮Click事件中添加代码：
skip
if eof()
messagebox(已条记录48信息窗口)
skip 1
thisparentcmdNextenabledf
thisparentcmdLastenabledf
else
thisparentcmdNextenabledt
thisparentcmdLastenabledt
endif
thisparentcmdFirstenabledt
thisparentcmdPreviousenabledt
thisformrefresh
条记录钮Click事件中添加代码：
goto bottom
thisparentcmdFirstenabledt
thisparentcmdPreviousenabledt
thisparentcmdNextenabledf
thisparentcmdLastenabledf
thisformrefresh
settingprg代码
该程序功设置系统环境配置
* 关闭系统菜单
set sysmenu off
set sysmenu to
* 显示图形状态框
set status bar off
set talk off
set notify off
* 时钟指定位置显示
set clock status
* Visual FoxPro默认调色板
set palette off
* 开计算机喇叭
set bell on
* 指定覆盖已文件时开话框
set safety off
* 指定ESC键中断命令程序运行
set escape on
set keycomp to windows
set carry on
set confirm on
* 指定两表达式必须长度相等进行较
set exact on
set near on
set ansi off
set lock on
set multilocks on
set deleted on
set optimize on
* 设定网络中表刷新时间
set refresh to 05
* 设定字符型字段排列序
set collate to 'stroke'
* 设置默认文件目录
set default to sys(5)+curdir()
* 指定查找文件目录
set path to sys(5)+curdir()
set sysformats off
set seconds on
set century off
set currency left
set currency to 'nt'
set hours to 12
set date to usa
set decimals to 2
set fdow to 1
set fweek to 1
set mark to ''
set separator to ''
set point to ''
resetprg代码
该程序功原系统环境配置
set sysmenu to default
set sysmenu on
set talk on
set notify on
set safety on
程序prg代码
* 程序资源路径设前程序文件夹
set directory to curdir()
clear screen
clear events
* 执行settingprg文件
do setting
* 开数库
open database 职员信息理
* 运行界面表单
do form 界面
* 窗口提供关闭功
on shutdown quit
* 开始响应事件
read events
close database
* 执行resetprg文件
do reset
6．3测试情况
模块测试
增加记录模块运行测试中通输入数发现职员号生日进单位年份等输入数字文框中应该做输入性限制户法输入汉字标点符号等非数字型数
删记录模块第次运行测试中单击删条记录钮时系统弹出出错信息指出表必须独占方式开执行删命令开始知道该样修改找相关书解决
查询模块中开始准备通表单中放置表格（Grid）控件实现览功发现放置未做属性设置运行时完整显示职员信息表书次调试解放弃种方式
报表印模块测试中家里没印机执行印报表命令时开传真导话框该功法利测试
系统测试
整体测试时发现界面开功模块应该释放隐藏界面然功模块时开功模块返回界面时样释放该功模块
想全部表单设置运行时改变发现查询模块运行时显示查询结果窗口改变考虑样方便户浏览查询模块运行时改变表单
6．3．1程序数表功模块报表应文件名：
程序程序prg
职员信息表职员信息表dbf
界面模块界面scx
增加记录模块增加记录scx
修改记录模块修改记录scx
删记录模块删记录scx
查询模块查询scx
报表印模块报表印scx
职员信息报表职员信息报表frx
6．3．2说明
职员信息理系统文件夹复制硬盘
程序启动方式：
1直接启动应程序：开职员信息理系统文件夹双击职员信息理系统exe（图标狐狸头）
2Visual FoxPro60环境启动：启动Visual FoxPro60命令窗口中输入set defa to x\xxxxx回车输入do 程序
（x\xxxxx职员信息理系统文件夹硬盘路径）
查修改程序设计Visual FoxPro60环境开职员信息理系统pjx文件
体制
6．4 结束语
通系统分析开发应步骤完成系统开发务达单位求发现问题该系统进步完善积累宝贵验
参考文献
1 黄梯云理信息系统济科学出版社2000年
2 张海藩软件工程导清华学出版社2003年
3 邢长征数库原理应高等教育出版社2004年
4 瓮正科王新英 Visual FoxPro 60 应系统样例解析 科学出版社2000年
5 邵洋谷宇旭洪Visual FoxPro数库系统开发实例导航（第二版）民邮电出版社2003年
6 崔宝深王娟Visual FoxPro程序设计教程 南开学出版社200210
7 邵洋谷宇旭洪Visual FoxPro 60数库系统开发实例导航民邮电 出版社200210
8 李Visual FoxPro 60程序设计基础教程 水利水电出版社 200005
9 蔡伟刘立志 段海午 范元Visual FoxPro 60应开发实例民邮电出版社200207
10 余文芳 Visual FoxPro 60 民邮电出版社 200404
11 范立南张宇Visual FoxPro 60程序设计应 电子工业出版社 200402
12 马义玲汪令江勇 数库应 FoxPro for windows 机械工业出版社200008
设计总结
课程设计两周时间学生生涯中价值段时光里治学严谨失亲切老师互相帮助学更融洽学生活氛围文际想表示谢意
首先感谢指导完成文老师细心帮助指导表示衷感谢段时间里身仅学许专业知识更感受工作中兢兢业业生活中易外严谨治学态度忘工作精神值学项目设计中指导予极帮助整项目设计思路总体握耐心帮解决许实际问题收获
感谢帮助学师长毕业设计程中常提出许关键性问题受益匪浅整开发程中提出许建设性意见解决专业性问题
感谢三年传授知识老师感谢学设计支持鼓励感谢关心帮助时感谢学感谢兰州理工
总学生活中加倍努力作予帮助学校老师学回报
致 谢
首先非常感谢学院开设计算机组成原理课程设计事计算机方面工作提供实战验奠定初步基础
次课程设计中特感谢指导老师张红老师辞辛苦辅导软件项目老师学计算机组成原理程中付出辛劳汗水献诚挚谢意感谢队学课程设计程中予帮助时感谢实验室老师课程设计程中帮助
专业知识学生活中问题问起时张老师总问必答问题分析通通透透简明扼语言分析开难懂问题杜老师真处处学生着想认认真真工作老师杜老师认真负责工作态度严谨治学精神深厚理水收益匪浅成学工作榜样觉张老师决止专业知识教育更迷雾中导航灯学知识时认识前位置市场联系指明方思想教育深思张红老师表示深深感谢衷敬意
次感谢次课程设计提供帮助谢谢
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
系统企业职工教育培训理系统设计课题型企业进行事信息进行理企业职工信息理系统典型信息理系统(MIS) 开发包括台数库建立维护前端应程序开发两方面前者求建立起数致性完整性强数安全性高数库数库设计采数库规范设计方法基3NF(第三范式)设计方法基抽象语法规范设计方法等者求应程序功完备易等特点分析系统 MICROSOFT公司 VISUAL FORFRO 60作系统开发工具开发理系统软件开发全程采工程概念原理技术方法开发软件企业进行员工信息理时作模块系统包括职员工档案理添加删数查询系统维护系统功帮助退出等功
关键词 信息理系统(MIS) NF(第三范式) VISUAL FORFRO 60
目 录
摘 1
序 言 4
1 行性研究 5
1．1职员信息意义 5
1．2行性研究 5
1．2．1济行性 5
1．2．2操作行性 5
1．2．3技术行性 5
1．2．4运行行性 5
2 理信息系统综述 6
21 信息系统发展历程 6
22 理信息系统概述 6
2．3系统功结构图 7
3需求分析 9
3．1企业工作流程分析 9
3．2公司具体需求分析 9
3．3系统设计思想 9
3．4系统设计分析 9
3．5系统功分析 9
3．6企业员工信息理系统目标 10
3．7数库分析 10
3．8数流图 10
381数元素表 13
382 数流 13
383 数存储 14
4 概设计 15
4．1总体设计 15
4．1．1处理流程 15
4．1．2系统模块菜单 15
4．1．3企业员工信息理系统需完成具体功 15
4．1．4系统模块图 16
4．1．5接口设计 16
4．2模块具体分析 17
4．3出错输出信息 17
5 详细设计 18
6 程序实现 23
6． 1数库表测试记录 23
6． 2模块设计说明程序代码 24
6． 3测试情况 40
6．3．1程序数表功模块报表应文件名 41
6．3．2程序说明 41
6．4 结束语 41
参考文献 43
设计总结 44
致谢 45
序 言
年着计算机技术发展互联网时代已进入信息时代称数字化时代数字化时代里企业职员信息理受极挑战
企业职员信息理系统企业单位缺少部分容企业决策者理者说关重企业职员信息理系统应该够户提供充足信息快捷查询手段直传统工方式理文件档案种理方式存着许缺点效率低保密性差外时间长产生量文件数查找更新维护带少困难
着科学技术断提高计算机科学日渐成熟强功已深刻认识已进入类社会领域发挥着越越重作
作计算机应部分计算机企业职员信息系统进行理具着手工理法拟优点例检索迅速查找方便性高存储量保密性寿命长成低等优点够极提高企业职员信息理效率企业科学化正规化理世界接轨重条件
系统企业职员信息理系统信息理系统开发包括数库建立维护前端应程序开发两方面
分析 MICROSOFT公司 VISUAL FORFRO 60开发工具利提供种面象开发工具短时间建立系统应原形然初始原型系统进行需求迭代断修正改进直形成满意行系统
面章中开发企业职员信息理系统谈谈
开发程涉问题解决方法
面开始正文介绍
1行性研究
1．1企业职员信息意义：
中企业计算机理企信息已越越普遍计算机提高工作效率节省许力物力增强职员资料安全性提高企业理力计算机职员信息非常必
作计算机专业学生希贡献三年学编制实程序帮助公司进行更效企业职员信息理
1．2行性研究：
目：行性研究目代价时间确定问题否够解决
1．2．1济行性：
现计算机价格已十分低廉性长足进步系统开发
学校工作效率带质飞跃表现方面：
第系统运行节省许资源
第二系统运行提高公司工作效率
第三系统敏感文档更加安全等等
系统济行
1．2．2操作行性：
第存储职员基信息安全高效
第二需二名档案录入员操作系统节省量力
第三迅速查需信息
系统操作行
1．2．3技术行性：
VISUAL FOXPRO进行数库开发优秀数库理系统提供快速高效数理性VISUAL FOXPRO数组织成数库然VISUAL FOXPRO集成环境VISUAL FOXPRO编制应程序数库进行操作需数库中数时通VISUAL FOXPOR集成环境中菜单命令已编制应程序快速需数找出数指定格式整理成文档
文中详细介绍
系统技术行
1．2．4运行行性：
系统企业职员信息理系统耗费资源非常公司电脑
硬件软件够满足条件系统运行行
2 理信息系统综述
21 信息系统发展历程
信息系统发展历电子数处理系统理信息系统发展程
1电子数处理系统（1953～1960年）
数处理工系统计算机问世前已存计算机出现首先数处理时计算机代手工劳动统计产量工资计算等1960年出现数更新系统属方面容例美国share航空预约订票系统掌握1008预约点76000座位27000飞行记录种系统报告前售票速度时票售完没预测控制功说理信息系统
2信息报告系统（1961～1970年）
信息报告系统理信息系统雏形特点事先规定求提供理报告支持决策制订通常包括生产状态报告系统服务状态报告系统研究状态报告系统
3决策支持系统（1970～1980年）
欧美早期理信息系统失败原非系统提供信息时理信息系统够提供报告呈送领导资料部分丢进垃圾堆领导决策需决策支持系统早期理信息系统早期理信息系统理者提供预定报告数库查询数决策支持系统计算机话程中帮助决策者探索方案生成理决策需信息
4信息系统进步发展
着微型计算机处理力通讯网络高速发展信息系统出现少新概念诸：
①专家系统基知识系统
②理信息系统－支持领导层决策
③战略信息系统－竞争中支持战略决策
④电子数交换
⑤计算机集成制造系统等
关容详述面着重述理信息系统：
22 理信息系统概述
理信息系统计算机等组成进行理信息收集传递加工保存维护系统实测国民济企业种运行情况利历史数预测未全局出发辅助理决策利信息控制企业行帮助实现规划目标说理信息系统仅理者提供帮助基计算机机系统社会技术系统应理信息系统放社会背景考察解决技术问题时充分考虑信息技术组织重视系统组织环境交互作
理信息系统介信息济理理统计学运筹学计算机科学间门边缘性综合性系统性交叉学科伴着理科学信息技术计算机技术等发展产生发展起
20世纪20年代理重视理信息系统产生前提泰勒制代表科学理出现行科学学派数学理学派计算机理学派系统工程学派发展理水断提高计算机诞生飞速发展信息理现代化成信息技术断进步信息理提供强力工具手段类开发利信息资源力增强整社会信息化水断提高
系统初步调查行性分析工作步骤图示
（单位求）
组织队伍拟定计划
单位情况调查 现行信息系统调查
确定新系统目标功
提出技术方案
明确新系统单 拟定新系统 效益分析
位变化影响 开发计划
行性证
行 修改
（评审）
行 修改
（系统分析）
行性证工作步骤
2．3系统功业务流程图
员工信息
部门
员工信息
员工信息理
员工信息理
查 询
员工基信息
员工基信息
更 新
员工信息
添 加
删
修 改
印
理员
3需求分析
21世纪类济高速发展发生日新月异变化特计算机应普济社会生活领域原旧理方法越越适应现社会发展许停留前手工操作阻碍类济发展适应现代社会高度强烈时间观念学校信息理系统软件学校办公室带极方便开发系统采VISUAL FOXPRO功系统部源代码直接完成需系统求输入操作
3．1企业工作流程分析
公司工作总体规划档案理员企业员工信息理系统中完成运行公司需基数维护包括信息增加修改项信息变动进行操作
3．2公司具体需求分析
员工：基信息查询查公司员基信息
信息理员：员工基信息进行理修改员工增加减少进行理
3．3系统设计思想
1 采现资源先进理系统开发方案充分利公司现资源减少开发中时间财力物力提高系统开发水应效果
2 系统满足公司需求例员工信息录入查询更新等
3 系统具备数库维护功时根户需求进行数添加删修改等操作
3．4系统设计分析
系统适型企业功分
户理：户添加删修改
帮助信息：系统具体操作进行详解
系统性力求易具体较高扩展性维护性
3．5系统功分析
系统数初始化
职员信息数增加
职员信息数修改
职员信息数删
职员信息览查询
职员信息报表印
3．6企业员工信息理系统目标
着济发展企业正着型化规模化方发展企业职员数量急剧增加关职员种信息量成倍增长种情况单工处理职员信息工作量公司员万甚十万工处理变想象计算机繁重劳动中解脱出仅简单操作便时准确获需信息
该系统具体务设计企业职员信息理系统计算机代工执行系列诸增加新进职员信息变更职员信息删离职职员信息查询印等操作样办公员轻松快捷完成职员信息理务企业职员理工作系统化规范化动化达提高企业理效率目
设计指导思想切户着想界面美观方操作量简单明作实应程序良容错性户出现误操作时量时出警告便户时改正
3．7数库分析
户需求具体教学理系统提供保存更新查询维护印需求数库结构充分满足种信息输入输出实现组织动态存储量关联数方便户访问系统中数文件系统重区数充分享交叉访问应程序高度独立性
3．8数流图
数流图简称DFD图数流图四种成分：源点终点处理数存储表数流图中没具体物理元素描述信息系统中流动处理情况专业计算机技术员容易理解极理解工具精确描述系统逻辑模型描述数MIS中输入存储加工处理输出全程设计者户交流工具
现行系统进行详细调查基础定方式系统信息流程表示出数流图图形式表示象逻辑模型户直观理解系统概貌系统设计员够逻辑模型基础进行系统设计出系统功结构
数流图系统逻辑模型组成部分模型赖硬件软件数结构文件组织
数流图：
F3
般户
F1
般户
P0
企业员工信息理系统
F4
系统理员
F2
系统理员
图1 企业员工信息理系统顶层TOP图
F3
F1
般户
P1
员工
信息
维护
般户
F4
F2
系统理员
P2
系统信息
维护
系统理员
图2 企业员工信息理系统级细化DFD
F31
般户系统理员
P11
职
员工
信息
维护
F11
般户系统理员
职员工基信息表
D1
般户系统理员
P24
档案
状态
维护
D7
F24
档案状态表
般户系统理员
F44
图3 企业员工信息理系统二级细化DFD
数字典
数字典数流图中包含元素定义集合途作分析阶段工具改进分析员户间通信消许误解开发员避免许麻烦接口处理问题
数字典条目类型：数流条目文件条目加工条目数项条目
面数字典汇总览表表达数流程图中数流数文件数加工数元素具体格式：
3．8．1 数元素
字段名
数类型
字段
职员号（键）
CHARACTER
4
姓名
CHARACTER
8
性
CHARACTER
2
生日
CHARACTER
10
学历
CHARACTER
8
政治面貌
CHARACTER
4
联系电话
CHARACTER
12
家庭住址
CHARACTER
40
属部门
CHARACTER
10
现职务
CHARACTER
10
进单位年份
CHARACTER
4
备注
MEMO
4
3．8．2数流
F1
基档案信息
F312
职员工信息输出报表
F11
职员工档案信息
F4
系统信息表
F2
系统表信息
F41
政治面貌表
F21
政治面貌情况
F42
民族信息表
F22
民族信息
F43
学历情况表
F23
学历信息
F44
档案状态表
F24
职员工信息
F45
部门情况表
F25
职员工信息
D5
民族信息表
F3
职员工基信息
D6
学历信息表
F31
政治面貌信息表
D7
员工状态表
383数存储：
表3 数存储表
名字：职员工档案信息
描述：职员工基信息
编号：D1
组成：职员号姓名性生日学历政治面貌联系电话家庭住址属部门
现职务进单位年份备注
4概设计
4概设计
目：设计系统结构根需求析出功出系统体系结构划分模块
目标：通系统软件帮助工作员利计算机快速方便属公司信息理进行维护输入输出查找需操作散乱员工数够具体化直观化合理化
开发运行环境选择
开发工具：Visual FoxPro60
运行环境：Windows 7Windows xp
4．1总体设计
4．1．1处理流程：
1启动系统激活登陆口令界面
2通验证系统进行初始化
3系统进入消息循环通事件驱动机制激活相应功模块执行相应功
4通关闭系统事件激活关闭系统模块退出系统
4．1．2系统模块菜单：
企业员工信息理系统
户理
添加户
修改户
删户
员工信息理
添加员工信息
查询员工信息
修改员工信息
删员工信息
4．1．3企业员工信息理系统需完成具体功：
系统理模块： 户添加删修改
员工信息理模块：输入员工基信息员工信息进行添加查询修改删关键字查询数库里调出员工基信息
输出员工基信息
4．1．4系统模块图：（图4）
职员信息理系统
界面
增加记录
修改
删记录
查询
报表印
退出
印预览
印报表
览
条件查询
系统功模块结构图
4．1．5接口设计
外部接口：户般通终端进行操作户进入界面进行相应操作
硬件接口：赛扬133 存32兆PC机满足输入端条件
软件接口：Windows98NT更高操作系统
部接口：部接口(模块间接口)
验证模块：启动系统时便激活登陆口令界面
初始化模块：系统进行初始化
系统功模块：接收系统功相应消息启动信息录入信息查询信息维护等模块
4．2模块具体分析
：
1． 系统理模块：理系统户赋权限系统操作实体ER图：（图5）
系统理
户身份
户
（图10）
2．员工信息理：员工基信息理（员工号姓名性出生年月联系址等）实体ER图：（图6）
员工信息理
进单位年份
现职务
属部门
员工号
4．3出错输出信息：系统采机话模式操作失误弹出话框（：输错信息等）
出错处理策：户根弹出话框中提示信息进行操作
5详细设计
目： 系统中模块确定算法块数结构表达工具出清晰描述
实现数库间联系：数库间关系指明两库间享关键字值连接指种虚拟表种表户求相互关联表中获取信息时建立关键字段相互连接表中查找匹配记录更高级连接形式称连接种连接指表连接字段纪录中重复数组合字段数库中三种类型关键字：关键字组合关键字外关键字表中关键字类型描述库表示什数库中库建立关系
修改已建数库：数库修改分添加编辑删记录VISUAL FOXPRO 创建程序实现
IPO图
IPO图实际张图形化表格描述分层图中模块输入输出关系处理容模块部数模块间调关系系统设计重成果系统实施阶段编制程序设计务书进行程序设计出发点系统设计中模块必须
相应IPO图作设计结果描述
模 块 名 称：员工档案理 模块代码：P1
层调模块：
调层模块：P11P12 P13
输 入：F1
处 理：DO WHILE 档案数录入
档案数录入
IF 档案数录入正确
INSERT ()
VALUSE(相应字段录入)
ELSE
重新录入
END IF
END DO
输 出：档案信息
模 块 名 称：系统表维护 模块代码：P2
层调模块：
调层模块：P21P22 P23 P24 P25
输 入：F2
处 理：DO WHILE 系统表信息录入
IF数录入正确
INSERT ()
VALUSE(相应字段录入)
ELSE
重新录入
END IF
END DO
输 出：属部门政治面貌信息民族信息
学历信息等
模 块 名 称：职员工维护 模块代码：P11
层调模块：P1
调层模块：
输 入：F11
处 理：DO WHILE 职员工信息录入
IF数录入正确
INSERT ()
VALUSE(相应字段录入)
ELSE
重新录入
END IF
END DO
输 出：职员工信息
模 块 名 称：职员报表输出 模块代码：P113
层调模块：P11
调层模块：
输 入：D1
处 理： SELECT(*)
FROM B_0001
IF 印
输出报表
END IF
输 出：分类档案数报表
模 块 名 称：职职工查询 模块代码：P112
层调模块：P11
调层模块：
输 入：D1
处 理：SELECT(*)
SUM ALL(符合条件数)
分类ALL
输 出：职员工分类查询结果
查询
符合条件
条件
满足条件
数库
显示结果
退出
查询模块流程图（图8）
维护
查找记录
查找成功
显示出错信息
修改增加记录
继续？
继续？
退出
维护模块流程图（图9）
6程序实现
6． 1数库表测试记录（备注）：
职员号 姓名 性 生日 学历 政治面貌 联系电话 家庭住址 属部门 现职务 进单位年份
0001 刘备 男 19600910 博士 员 02787820910 武汉市洪山区关山 CEO 1985
0002 关羽 男 19650415 科 员 02787800415 武汉市洪山区卓刀泉 销售部 理 1985
0003 张飞 男 19660730 科 员 02787830730 武汉市洪山区鲁巷 生产部 理 1985
0004 赵云 男 19671202 科 员 02787311202 武汉市洪山区中南路 配送部 理 1988
0005 诸葛亮 男 19700606 博士 员 02788850606 武汉市武昌区成路 CIO 1990
0006 孙乾 男 19660717 专科 团员 02786580717 武汉市青山区八家 事部 职员 1988
0007 赵敏 女 19720530 博士 员 13871360530 武汉市桥口区武胜路 财务部 理 1993
0008 郭襄 女 19741108 硕士 员 13871081108 武汉市江汉区江汉路 广告部 理 1995
0009 苗兰 女 19760214 科 员 02788850214 武汉市武昌区中山路 财务部 1997
0010 周芷 女 19751025 科 员 02784771025 武汉市汉阳区钟家村 广告部 1996
0011 简雍 男 19670927 专科 团员 13011240927 武汉市青山区红钢城 勤部 职员 1987
0012 糜竺 男 19670712 专科 团员 02786560712 武汉市青山区家路 勤部 职员 1987
0013 徐庶 男 19690305 硕士 员 13339680305 武汉市武昌区积玉桥 事部 理 1989
0014 钟灵 女 19780616 专科 团员 13976270616 武汉市洪山区街道口 广告部 职员 1999
0015 穆婉清 女 19771224 专科 团员 02788321224 武汉市武昌区武泰闸 财务部 职员 1998
0016 庞统 男 19660131 博士 员 13035250131 武汉市武昌区东门 技术部 理 1990
0017 蒋琬 男 19721007 科 员 02783861007 武汉市桥口区易家墩 技术部 1995
0018 马超 男 19750612 科 员 13029680612 武汉市江汉区姑嫂树 销售部 1996
0019 黄忠 男 19550926 科 员 13578280926 武汉市武昌区梅家山 配送部 1991
0020 廖化 男 19680511 专科 团员 13013570511 武汉市江岸区永清街 销售部 职员 1988
6． 2模块设计说明程序代码
系统界面
系统界面户进入系统接触界面进入功模块分单击钮增加记录修改记录删记录查询报表印进入相应功模块单击退出钮退出系统界面单调界面加入背景
增加记录钮Click事件中添加代码：
do form 增加记录
thisformrelease
修改记录钮Click事件中添加代码：
do form 修改记录
thisformrelease
删记录钮Click事件中添加代码：
do form 删记录
thisformrelease
查询钮Click事件中添加代码：
do form 查询
thisformrelease
报表印钮Click事件中添加代码：
do form 报表印
thisformrelease
退出钮Click事件中添加代码：
thisformrelease
clear events
增加记录模块
企业新进职员建立事档案该模块功添加新职员信息
操作简单需输入完数单击确定钮时系统会弹出话框提示输入成功取消钮功清空文框该模块做限制性设计防户误操作：输入职员号进单位年份文框FormatInputMask属性设9999户输入四位数字输入字符效样输入生日文框FormatInputMask
属性设99999999单击确定果没输入职员号输入职员号已存系统会弹出提示信息便户改正
确定钮Click事件中添加代码：
* 检查职员号否空
if empty(alltrim(thisformtxtIDvalue))
messagebox(职员号空48错误)
thisformtxtIDsetfocus
else
* 获取输入值
inIDalltrim(thisformtxtIDvalue)
inNamealltrim(thisformtxtNamevalue)
inSexalltrim(thisformtxtSexvalue)
inBirthalltrim(thisformtxtBirthvalue)
inLearnalltrim(thisformtxtLearnvalue)
inPoliticsalltrim(thisformtxtPoliticsvalue)
inPhonealltrim(thisformtxtPhonevalue)
inAddressalltrim(thisformtxtAddressvalue)
inDepartmentalltrim(thisformtxtDepartmentvalue)
inFunctionalltrim(thisformtxtFunctionvalue)
inDatealltrim(thisformtxtDatevalue)
inMemoalltrim(thisformedtMemovalue)
* 检查输入职员号否已存
set order to 职员号
seek inID
if found()
insert into 职员信息表 value(inIDinNameinSexinBirthinLearninPoliticsinPhoneinAddressinDepartmentinFunctioninDateinMemo)
messagebox(添加成功48信息)
* 添加完毕清空文框
thisformtxtIDvalue''
thisformtxtNamevalue''
thisformtxtSexvalue''
thisformtxtBirthvalue''
thisformtxtLearnvalue''
thisformtxtPoliticsvalue''
thisformtxtPhonevalue''
thisformtxtAddressvalue''
thisformtxtDepartmentvalue''
thisformtxtFunctionvalue''
thisformtxtDatevalue''
thisformedtMemovalue''
else
messagebox(职员号已存请输48错误)
thisformtxtIDvalue''
thisformtxtIDsetfocus
endif
endif
取消钮Click事件中添加代码：
* 清空文框
thisformtxtIDvalue''
thisformtxtNamevalue''
thisformtxtSexvalue''
thisformtxtBirthvalue''
thisformtxtLearnvalue''
thisformtxtPoliticsvalue''
thisformtxtPhonevalue''
thisformtxtAddressvalue''
thisformtxtDepartmentvalue''
thisformtxtFunctionvalue''
thisformtxtDatevalue''
thisformedtMemovalue''
thisformtxtIDsetfocus
退出钮Click事件中添加代码：
thisformrelease
do form 界面
修改记录模块
职员信息改变：部门调动职位升降搬家换电话者发
现输入错误信息进入该模块进行修改单击导航条逐条定位查找果知道修改职员职员号面文框里直接输入该职员号单击查找果找系统会定位该记录果没找系统会出提示信息该模块做增加记录模块相限制性设计
该表单数环境（Data Environment）中添加职员信息表文框ControlSource属性设置职员信息表中相应字段样便完成职员信息表绑定
查找钮Click事件中添加代码：
set order to 职员号
seek alltrim(thisformtext1value)
if found()
messagebox(该职员号存48错误)
go top
endif
thisformtext1value''
thisformrefresh
退出钮Click事件中添加代码：
thisformrelease
do form 界面
删记录模块
果职员离职退休原删某条记录进入该模块进行删模块控件布局修改记录模块基相似显示记录文框Enabled属性均设置f（假）修改记录模块样设置职员信息表绑定
删条记录钮Click事件中添加代码：
nAnswermessagebox(确定删？36信息)
if nAnswer6
thisformdataenvironmentclosetables('职员信息表')
* 独占方式开表执行删命令
use 职员信息表 exclusive
delete from 职员信息表 where 职员号alltrim(thisformtxtIDvalue)
pack
use
thisformdataenvironmentopentables('职员信息表')
thisformrefresh
endif
查找钮Click事件中添加代码：
set order to 职员号
seek alltrim(thisformtext1value)
if found()
messagebox(该职员号存48错误)
go top
endif
thisformtext1value''
thisformrefresh
退出钮Click事件中添加代码：
thisformrelease
do form 界面
查询模块
模块选择查询条件快速查找需职员信息览整职员信息表供选择查询关键字职员号姓名属部门3字段单项查询组合查询
首先表单激活时根复选框选中情况决定相应文框否
表单Activate事件中添加代码：
flag1thischeck1value
do case
case flag10
thistext1enabledf
thistext1value''
case flag11
thistext1enabledt
endcase
flag2thischeck2value
do case
case flag20
thistext2enabledf
thistext2value''
case flag21
thistext2enabledt
endcase
flag3thischeck3value
do case
case flag30
thiscombo1enabledf
thiscombo1value''
case flag31
thiscombo1enabledt
endcase
减少户输入属部门复选框组合框
组合框Init事件中添加代码：
* 组合框添加选项
thisclear
local dmi
dimension dm[1]
select distinct 属部门 from 职员信息表 into array dm
for each i in dm
if empty(i)
thisadditem(i)
endif
endfor
单击复选框果框里√标记面文框组合框反
职员号复选框Click事件中添加代码：
flagthisformcheck1value
do case
case flag0
thisformtext1enabledf
thisformtext1value''
case flag1
thisformtext1enabledt
endcase
姓名复选框Click事件中添加代码：
flagthisformcheck2value
do case
case flag0
thisformtext2enabledf
thisformtext2value''
case flag1
thisformtext2enabledt
endcase
属部门复选框Click事件中添加代码：
flagthisformcheck3value
do case
case flag0
thisformcombo1enabledf
thisformcombo1value''
case flag1
thisformcombo1enabledt
endcase
查询钮Click事件中添加代码：
* 获取查询关键字输入值
getidalltrim(thisformtext1value)
getnamealltrim(thisformtext2value)
getdepartalltrim(thisformcombo1value)
* 获取复选框值
flag1thisformcheck1value
flag2thisformcheck2value
flag3thisformcheck3value
* 选中查询关键字进行查询
if flag10 and flag20 and flag30
messagebox(请输入查询条件48错误)
endif
if flag11 and flag20 and flag30
select * from 职员信息表 where 职员号getid
endif
if flag10 and flag21 and flag30
select * from 职员信息表 where 姓名getname
endif
if flag10 and flag20 and flag31
select * from 职员信息表 where 属部门getdepart
endif
if flag11 and flag21 and flag30
select * from 职员信息表 where 职员号getid and 姓名getname
endif
if flag11 and flag20 and flag31
select * from 职员信息表 where 职员号getid and 属部门getdepart
endif
if flag10 and flag21 and flag31
select * from 职员信息表 where 姓名getname and 属部门getdepart
endif
if flag11 and flag21 and flag31
select * from 职员信息表 where 职员号getid and 姓名getname and 属部门getdepart
endif
览钮Click事件中添加代码：
select * from 职员信息表
退出钮Click事件中添加代码：
thisformrelease
do form 界面
报表印模块
模块实现两功：印报表印预览
确定钮Click事件中添加代码：
do case
case thisformoptiongroup1option1value1
report form 职员信息报表 to print
case thisformoptiongroup1option2value1
report form 职员信息报表 to print preview
endcase
退出钮Click事件中添加代码：
thisformrelease
do form 界面
导航条类
修改记录删记录模块中导航条简化代码方便系统维护修改做导航条类类设计器中次放置第条记录条记录条记录条记录四钮
第条记录钮Click事件中添加代码：
goto top
thisparentcmdFirstenabledf
thisparentcmdPreviousenabledf
thisparentcmdNextenabledt
thisparentcmdLastenabledt
thisformrefresh
条记录钮Click事件中添加代码：
skip 1
if bof()
messagebox(已第条记录48信息窗口)
thisparentcmdFirstenabledf
thisparentcmdPreviousenabledf
else
thisparentcmdFirstenabledt
thisparentcmdPreviousenabledt
endif
thisparentcmdNextenabledt
thisparentcmdLastenabledt
thisformrefresh
条记录钮Click事件中添加代码：
skip
if eof()
messagebox(已条记录48信息窗口)
skip 1
thisparentcmdNextenabledf
thisparentcmdLastenabledf
else
thisparentcmdNextenabledt
thisparentcmdLastenabledt
endif
thisparentcmdFirstenabledt
thisparentcmdPreviousenabledt
thisformrefresh
条记录钮Click事件中添加代码：
goto bottom
thisparentcmdFirstenabledt
thisparentcmdPreviousenabledt
thisparentcmdNextenabledf
thisparentcmdLastenabledf
thisformrefresh
settingprg代码
该程序功设置系统环境配置
* 关闭系统菜单
set sysmenu off
set sysmenu to
* 显示图形状态框
set status bar off
set talk off
set notify off
* 时钟指定位置显示
set clock status
* Visual FoxPro默认调色板
set palette off
* 开计算机喇叭
set bell on
* 指定覆盖已文件时开话框
set safety off
* 指定ESC键中断命令程序运行
set escape on
set keycomp to windows
set carry on
set confirm on
* 指定两表达式必须长度相等进行较
set exact on
set near on
set ansi off
set lock on
set multilocks on
set deleted on
set optimize on
* 设定网络中表刷新时间
set refresh to 05
* 设定字符型字段排列序
set collate to 'stroke'
* 设置默认文件目录
set default to sys(5)+curdir()
* 指定查找文件目录
set path to sys(5)+curdir()
set sysformats off
set seconds on
set century off
set currency left
set currency to 'nt'
set hours to 12
set date to usa
set decimals to 2
set fdow to 1
set fweek to 1
set mark to ''
set separator to ''
set point to ''
resetprg代码
该程序功原系统环境配置
set sysmenu to default
set sysmenu on
set talk on
set notify on
set safety on
程序prg代码
* 程序资源路径设前程序文件夹
set directory to curdir()
clear screen
clear events
* 执行settingprg文件
do setting
* 开数库
open database 职员信息理
* 运行界面表单
do form 界面
* 窗口提供关闭功
on shutdown quit
* 开始响应事件
read events
close database
* 执行resetprg文件
do reset
6．3测试情况
模块测试
增加记录模块运行测试中通输入数发现职员号生日进单位年份等输入数字文框中应该做输入性限制户法输入汉字标点符号等非数字型数
删记录模块第次运行测试中单击删条记录钮时系统弹出出错信息指出表必须独占方式开执行删命令开始知道该样修改找相关书解决
查询模块中开始准备通表单中放置表格（Grid）控件实现览功发现放置未做属性设置运行时完整显示职员信息表书次调试解放弃种方式
报表印模块测试中家里没印机执行印报表命令时开传真导话框该功法利测试
系统测试
整体测试时发现界面开功模块应该释放隐藏界面然功模块时开功模块返回界面时样释放该功模块
想全部表单设置运行时改变发现查询模块运行时显示查询结果窗口改变考虑样方便户浏览查询模块运行时改变表单
6．3．1程序数表功模块报表应文件名：
程序程序prg
职员信息表职员信息表dbf
界面模块界面scx
增加记录模块增加记录scx
修改记录模块修改记录scx
删记录模块删记录scx
查询模块查询scx
报表印模块报表印scx
职员信息报表职员信息报表frx
6．3．2说明
职员信息理系统文件夹复制硬盘
程序启动方式：
1直接启动应程序：开职员信息理系统文件夹双击职员信息理系统exe（图标狐狸头）
2Visual FoxPro60环境启动：启动Visual FoxPro60命令窗口中输入set defa to x\xxxxx回车输入do 程序
（x\xxxxx职员信息理系统文件夹硬盘路径）
查修改程序设计Visual FoxPro60环境开职员信息理系统pjx文件
体制
6．4 结束语
通系统分析开发应步骤完成系统开发务达单位求发现问题该系统进步完善积累宝贵验
参考文献
1 黄梯云理信息系统济科学出版社2000年
2 张海藩软件工程导清华学出版社2003年
3 邢长征数库原理应高等教育出版社2004年
4 瓮正科王新英 Visual FoxPro 60 应系统样例解析 科学出版社2000年
5 邵洋谷宇旭洪Visual FoxPro数库系统开发实例导航（第二版）民邮电出版社2003年
6 崔宝深王娟Visual FoxPro程序设计教程 南开学出版社200210
7 邵洋谷宇旭洪Visual FoxPro 60数库系统开发实例导航民邮电 出版社200210
8 李Visual FoxPro 60程序设计基础教程 水利水电出版社 200005
9 蔡伟刘立志 段海午 范元Visual FoxPro 60应开发实例民邮电出版社200207
10 余文芳 Visual FoxPro 60 民邮电出版社 200404
11 范立南张宇Visual FoxPro 60程序设计应 电子工业出版社 200402
12 马义玲汪令江勇 数库应 FoxPro for windows 机械工业出版社200008
设计总结
课程设计两周时间学生生涯中价值段时光里治学严谨失亲切老师互相帮助学更融洽学生活氛围文际想表示谢意
首先感谢指导完成文老师细心帮助指导表示衷感谢段时间里身仅学许专业知识更感受工作中兢兢业业生活中易外严谨治学态度忘工作精神值学项目设计中指导予极帮助整项目设计思路总体握耐心帮解决许实际问题收获
感谢帮助学师长毕业设计程中常提出许关键性问题受益匪浅整开发程中提出许建设性意见解决专业性问题
感谢三年传授知识老师感谢学设计支持鼓励感谢关心帮助时感谢学感谢兰州理工
总学生活中加倍努力作予帮助学校老师学回报
致 谢
首先非常感谢学院开设计算机组成原理课程设计事计算机方面工作提供实战验奠定初步基础
次课程设计中特感谢指导老师张红老师辞辛苦辅导软件项目老师学计算机组成原理程中付出辛劳汗水献诚挚谢意感谢队学课程设计程中予帮助时感谢实验室老师课程设计程中帮助
专业知识学生活中问题问起时张老师总问必答问题分析通通透透简明扼语言分析开难懂问题杜老师真处处学生着想认认真真工作老师杜老师认真负责工作态度严谨治学精神深厚理水收益匪浅成学工作榜样觉张老师决止专业知识教育更迷雾中导航灯学知识时认识前位置市场联系指明方思想教育深思张红老师表示深深感谢衷敬意
次感谢次课程设计提供帮助谢谢
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
