学校内部管理系统Word格式.docx
《学校内部管理系统Word格式.docx》由会员分享，可在线阅读，更多相关《学校内部管理系统Word格式.docx（29页珍藏版）》请在冰豆网上搜索。
在某种意义上，信息与科技在现代化建设中显现出越来越重要的地位。
管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。
好的管理系统对提高人们的生活效益是极为有益的。
2.4管理可行性分析
主要是管理人员对开发信息系统是否支持，现有管理制度和方法是否科学，规章制度是否齐全，原始数据是否正确等，教职工工资管理系统比较完善的规章制度和管理方法为系统的建设提供了保障。
操作可行性基本的教工信息的录入、查询、更新、删除；
2.4系统优势
1．可以方便对教工信息进行录入、查询、修改、删除；
2．只需一到二名管理员即可操作系统，节省大量人力；
3．可以迅速查到所需要的教工信息；
4．可以方便注册新用户和修改密码；
5.可以方便对专项数据进行修改。
第三章详细设计
１.系统功能模块：
２.数据流图：
0层DFD
一层DFD
二层DFD加工1.0
二层DFD加工2.0分解
二层DFD加工3.0的分解
３.数据字典：
数据项：
数据项名:
工号
别名:
GH
简述:
所有职工的编号
类型:
文本
取值范围及含义:
系部内编号
数据项名:
姓名
XM
所有职工的姓名
部门号
BM
职工所属的部门
数字
具体的部门名称
职位
job
职工所在该部门的具体职位
具体的职位名称
数据存储:
文件名:
部门信息表
部门表
存放部门基本信息
组成：
部门号+部门名+描述信息
组织方式：
索引文件，以部门号为关键字
查询要求:
要求能够立即查询
文件名:
职位信息表
职称表
存放员工和相应的补贴
职位+姓名+补贴
索引文件，以职位为关键字
奖罚信息表
工资奖罚信息表
存放职工工资奖罚信息
工号+姓名+阶级+记录人员+记录时间+记录
索引文件，以工号为关键字
数据流:
数据流名:
职工基本信息
无
职工的各项属性信息
来源:
各系部
去向:
加工1.1“职工信息的输入并整理存储”
组成:
工号＋姓名＋性别＋所属系部＋职位
出勤工资,奖金,扣款清单
人事处的对职工出勤信息的整理结果
人事处
加工2.1“职工工资信息生成”
出勤工资+奖金+扣款清单
职工工资信息
生成的职工工资信息
加工2.1
加工2.2“财务处职工工资信息整理发送”
工号+姓名+基本工资+原始奖金+缺勤金+实际工资
职工工资条
针对系部的工资条
加工2.2
４.类图：
５.用例图
６.主要数据表：
各部门表：
DeptInfo
部门编号
部门名称
描述
4
财务部
5
人事部
6
行政部
9
系部
职位表：
DutyType
职务
职务名称
补贴
无
1
项目经理
1000
2
经理
2000
3
总经理
3000
总裁
4000
12
500
职工信息表：
EmployeeInfo
员工编号
员工姓名
性别
身份证
籍贯
户口所在地
婚姻状况
出生年月
民族
政治面貌
文化程度
所在部门编号
固定电话
手机
电子邮件
现在居住地
在职状况
职称
工龄
工资级别
33
钱小二
男
1990-7-11
456
r
女
123456789123456789
aertgedrtgsertg
eetrgergy
未婚
2005-7-26
满族
团员
大专
1234567
12345678900
@
tdyiked
7
45
张三
夺标
已婚
1989-1-1
汉族
李四
546
本科
65
14
王五
231
离异
2010-5-23
4657
奖惩信息表：
RewardInfo
奖罚类别
记录人员
记录时间
备注
-1
收到发货
2012-5-28
1905-6-5
2012-5-29
super
zhang
2000-1-1
556
2005-7-11
工资信息表：
WageInfo
基本工资
岗位工资
公积金
奖金
工龄工资
职称工资
保险费
罚金
个人所得税
应发工资
应扣工资
实发工资
sad
600
100
30
200
424
3130
724
2406
32
sdf
800
560
399
2960
699
2261
1200
300
40
606
4340
906
3434
400
450
1150
6050
1450
4600
村
10
706.5
4810
806.5
4003
要
63
41
二
854
jk
dsa
525
3500
2975
5.主要功能代码及界面：
1.）用户登录
'
定义重试次数
PubliccounterAsInteger
窗体装载事件
PrivateSubForm_Load（）
'
初始化重试次数
counter=0
EndSub
单击确定按钮
PrivateSubcmdOK_Click（）
定义user变量，用于存储用户名
DimUserAsString
给user赋值
User=Trim（txtUser.Text）
定义pwd变量，用于存储密码
DimpwdAsString
给密码赋值
pwd=Trim（txtPasswd.Text）
没有输入用户名
IfTrim（User）="
"
Then
MsgBox"
请输入用户名"
vbInformation,"
信息提示"
txtUser.SetFocus
ExitSub
EndIf
判断用户是否存在
IfNotobjPasswd.IsExistUser（User）Then
counter=counter+1
Ifcounter<
3Then
用户名不存在，请重新输入！
vbOKOnly+vbInformation,_
"
用户名错误"
txtUser.Text="
txtPasswd.Text="
Else
重试次数已到，不能再输入用户名和密码，即将退出系统！
_
vbOKOnly+vbExclamation,"
DBDisconnect
End
判断密码是否正确
objPasswd.GetInfo（User）
IfobjPasswd.Passwd<
>
pwdThen
用户或密码错误，请重新输入！
密码错误"
登录成功，将当前用户的信息保存在objCurPasswd中
objCurPasswd.User=objPasswd.User
objCurPasswd.UserType=objPasswd.UserType
关闭自己
UnloadMe
frmMain.Show
当重新登录时用到
frmMain.Enabled=True
单击退出按钮
PrivateSubcmdExit_Click（）
２.）用户信息
设置ADO控件ADOBC的连接字符串
DimtmpRecordSourceAsString
添加状态时的属性设置
DimSQLStmtAsString
所在部门
SQLStmt="
SELECT*FROMDeptInfo"
AddcbocboDept,SQLStmt,1
在职状态
SELECT*FROMMissionType"
AddcbocboMissionStatus,SQLStmt,1
SELECT*FROMDutyType"
AddcbocboDuty,SQLStmt,1
SELECT*FROMPostType"
AddcbocboPost,SQLStmt,1
SELECT*FROMLevelType"
AddcbocboLevel,SQLStmt,1
PrivateSubForm_Activate（）
IfNotIsAddThen
cboDept.Text=frmEmpManage.adoEmployeeInfo.Recordset.Fields
（2）.Value
cboMissionStatus.Text=frmEmpManage.adoEmployeeInfo.Recordset.Fields（12）.Value
cboDuty.Text=frmEmpManage.adoEmployeeInfo.Recordset.Fields（13）.Value
cboPost.Text=frmEmpManage.adoEmployeeInfo.Recordset.Fields（14）.Value
cboLevel.Text=frmEmpManage.adoEmployeeInfo.Recordset.Fields（16）.Value
确定按钮
IfTrim（txtENo.Text）="
请输入员工编号"
ElseIfNotIsNumeric（Trim（txtENo.Text））Then
员工编号只能为数字"
IfTrim（txtName）="
请输入员工姓名"
IfTrim（cboDept.Text）="
请选择员工所在的部门"
IfTrim（txtIDCard.Text）="
请输入身份证号"
ElseIfNotIsNumeric（Trim（txtIDCard.Text））Then
身份证号只能为数字"
IfTrim（cboMissionStatus.Text）="
请选择在职状态"
IfTrim（cboDuty.Text）="
请选择职务"
IfTrim（cboPost.Text）="
请选择职称"
IfTrim（txtServiceLength.Text）="
请输入工龄"
ElseIfNotIsNumeric（Trim（txtServiceLength.Text））Then
工龄只能为数字"
IfTrim（cboLevel.Text）="
请选择工资级别"
员工编号是否重复
IfIsAddThen
IfobjEmployeeInfo.IsExistENo（Trim（txtENo.Text））Then
此员工编号已经存在，请再选择另一个编号"
员工编号重复"
往objEmployeeInfo里添加数据
objEmployeeInfo.ENo=Trim（txtENo.Text）
objEmployeeInfo.Name=Trim（txtName.Text）
objDept.GetInfoTrim（cboDept.Text）
objEmployeeInfo.DeptID=objDept.DeptID
objEmployeeInfo.Sex=Trim（cboSex.Text）
objEmployeeInfo.Folk=Trim（cboFolk.Text）
objEmployeeInfo.Marry=Trim（cboMarry.Text）
objEmployeeInfo.Education=Trim（cboEducation.Text）
objEmployeeInfo.Party=Trim（cboParty.Text）
IfIsNull（dtpBirthday.Value）Then
objEmployeeInfo.Birthday=Now
objEmployeeInfo.Birthday=dtpBirthday.Value
objEmployeeInfo.IDCard=Trim（txtIDCard.Text）
objEmployeeInfo.Residence=Trim（txtResidence.Text）
objEmployeeInfo.NativePlace=Trim（txtNativePlace.Text）
objMissionType.GetInfoTrim（cboMissionStatus.Text）
objEmployeeInfo.MissionStatus=objMissionType.MissionStatus
objDutyType.GetInfoTrim（cboDuty.Text）
objEmployeeInfo.Duty=objDutyType.Duty
objPostType.GetInfoTrim（cboPost.Text）
objEmployeeInfo.Post=objPostType.Post
objEmployeeInfo.ServiceLength=Trim（txtServiceLength.Text）
objLevelType.GetInfoTrim（cboLevel.Text）
objEmployeeInfo.Levels=objLevelType.Levels
objEmployeeInfo.Tele=Trim（txtTele.Text）
objEmployeeInfo.Mobile=Trim（txtMobile.Text）
objEmployeeInfo.Email=Trim（txtEmail.Text）
objEmployeeInfo.Address=Trim（txtAddress.Text）
员工插入数据
objEmployeeInfo.Insert
向WageInfo表插入数据
objWageInfo.Init
objWageInfo.ENo=Trim（txtENo.Text
升级会员 