123.txt

人事管理系统是现代企业管理工作不可缺少的一部分

w操作系统：Windows 2000以上版本均可         

w数据库系统：Microsoft SQL Server / Microsoft Visual Foxpro

w应用软件配置：Microsoft Office 2003

 

w（2）系统开发平台、工具：

w系统开发建立在Windows2000操作系统环境下，采用. NET 开发平台下的VB.NET做为主要的开发语言，系统数据库采用Microsoft  SQL Server即可适应政府的要求。开发模式将采用主流的B/S模式进行系统的开发。

w2、系统开发关键技术路径：

w（1）职员基本信息记录。

w建立职员信息表，录入职员基本信息（包括：职员编号，姓名，年龄，工龄，所在部门，职位等）。形成职员注册表。主要是对数据库建立表，同时进行数据的简易录入操作。

w（3）个人信息查询。

w职员登陆软件系统，系统根据职员登陆帐户判断操作权限，让用户在响应权限下进行任意字段的工资信息查询。这主要也是直接对数据库中的表进行操作。

w例，普通部门职员只能查看个人工资信息，财务部或政府高级管理人可以查看所有职职员资信息。

 

4、新旧系统更新方法 ： 

 

系统后期维护

系统的后期维护主要由政府的系统管理员完成，主要工作包括：

 a 系统使用过程中出现问题的解决

 a系统数据库定期备份

 a 系统图库定期备份

 a 收集新需求并反馈给系统设计者

 a 关注系统的新版本发展状况

 a 制订《系统操作规范》

 a 制订《系统服务器维护规范》

 

第三部分
系统开发计划及分工

 

w1、系统开发成本/进度计划安排。

 

w2、人员组织及任务分配情况。

 

w3、总结

 

w1、系统开发成本/进度计划安排：

w系统开发成本：

w由于计算机、软件平台、开发工具等已经具备，小组开发团队已经建立，且不需要支付开发人员的工资等。所以本次系统开发的成本不存在很大的问题。

w按照软件开发的7个生命周期，我们将系统开发任务分解为7个环节。见下表：

 

?安装：实施人员到政府进行每个分阶段的系统安装

?培训：对系统管理员及客户端操作人员分别培训，培训贯穿分步实施的每个阶段

?试运行：系统每个分阶段均需要试运行，试运行合格方可推广开来

 

w人员组织及任务分配情况：

w系统总体分析阶段由   董志、郭春晖负责

w系统需求分析阶段由    郭春晖、涂国潘负责

w系统概要设计阶段由   董志、林贻果负责

w系统详细设计阶段由   董志、郭春晖负责

w程序编码阶段由       林贻果、涂国潘负责

w系统测试阶段由       于飞、吴春慧负责

w系统运行、用户手册由  于飞、吴春慧负责

 

 

w3、总结：

w在总体分析文档中，我们重点是在目前系统的充分调研的基础上分析了当前相关系统的情况，列举了本系统所体现的优势和特色及创新性。并强调了我们需要重点做的几件事情。另外，我们对技术可行性方面的关键技术做了一定的叙述。其次，我们还对系统的功能描述，系统目标、系统开发进度计划做了大致的描述。

 

第四部分

系统相关核心代码

系统相关核心代码

(1)main.prg 系统初始化代码

wset talk off

wset safety off

wclose all

wset talk off

wset near on

wset exact on

w*---设置运行环境

wset ansi on

wset excl off

wset safety off

wset dele on

wset century on

wset date to YMD

w*---设置系统路径

wpublic mypath

wmypath=left(sys(16),rat("\",sys(16)))

wset defa to &mypath

w*---打开用户表

wselect a

wuse 用户表.dbf

w*---调用登录窗体

wdo form frmLogin

 

(2)相关控件代码

上一条

wif .not.bof()

w    skip -1

w   thisform.command3.setfocus

w   thisform.refresh

wendif 

下一条

wif .not.eof()

w    skip 

w   thisform.command5.setfocus

w   thisform.refresh

wendif 

 

添加

wappend blank

wgoto bottom

wthisform.refresh 

w*this.enabled=.f.

删除记录

w x=messagebox("真的删除姓名为 "+allt(thisform.姓名1.text1.value)+"的员工信息吗？",4+32+256,"重要提示")

w    if x=6

w      delete

w       thisform.refresh

w    else

w      return .F.

w    endif

 

 

 

w密码验证

wst='密码不正确,请重新输入!'

w*选择用户表

wselect 用户表

 

wPwd=alltrim(thisform.text1.value)

 

wlocate for alltrim(thisform.combo1.value)==alltrim(用户表.管理员id)

wif found() and alltrim(用户表.密码)==Pwd

w      caozuoyuan=alltrim(用户表.管理员id)

w      thisform.visible=.f.

w    *调用主窗体

w      do form frmMain.scx

w      thisform.visible=.t.

welse

w      wait window st timeout 2

w      thisform.text1.value=''

w      thisform.text1.setfocus

wendi

 

 

w 查询代码 

wpublic X 

wif empty(thisform.text1.value)

w     messagebox("请输入查询条件，不能为空值",32+8,"信息窗口")

welse 

w    X=alltrim(thisform.text1.value)

w    select * from 人事考评 where   ( 人事考评.政治面目 like  X ) or 姓名 like  X or 部门 like X;

w        or 性别 like X or 现任职务 like X or 民族 like X or  籍贯 like X;

w        or 职称 like X or 文化程度 like X or 健康状况 like X or  家庭出身 like X;

w        or 本人成分 like X or 婚姻状况 like X or 家庭住址 like X or  备注 like X;

w        or 代号 =val(X) or 工资 =val(X) or 编号 =val(X) or 职号=val(X) or 代码 =val(X);

w        or 年龄= val(X)        

wendif

w     

 

 

w 显示所有 

wsele *(文件名)

wBrowse

w打印

wreport form qtda preview

w 退出系统 

wthisform.release

wclear events