数据库课程设计报告人事管理系统Word文档下载推荐.docx
- 文档编号:18868722
- 上传时间:2023-01-01
- 格式:DOCX
- 页数:18
- 大小:284.53KB
数据库课程设计报告人事管理系统Word文档下载推荐.docx
《数据库课程设计报告人事管理系统Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《数据库课程设计报告人事管理系统Word文档下载推荐.docx(18页珍藏版)》请在冰豆网上搜索。
也可以多项查询,比如某个部门所有的员工的工资信息。
二.设计分析:
1,数据表的设计:
(1)基本信息表:
键
名称
数据类型
大小
空
默认值
主键
员工编号
char
8
Notnull
姓名
性别
2
null
“男”
出生年月
datetime
外键
所属部门
4
文化程度
职称
12
身份证号
Varchar
50
婚姻状况
Char
20
备注
100
年龄
Int
Null
(2)基本部门表
部门编号
部门名称
部门负责人
部门人数
int
(3)职工工资表
主键、外键
不可以
可以
基本工资
numeric
5(8,2)
奖金
2.ER图设计:
3.ER图转换成关系模式:
(主键添加下划线)
(1)基本信息(编号,姓名,性别,籍贯,年龄,学历,婚姻状况,部门,职称,参加工作时间,岗位,工资,身份证号,电话号码,备注)
(2)职工部门:
(部门编号,部门名称,职工总数,部门负责人,所有职工编号)
(3)职工工资表:
(编号,姓名,工资,奖金)
(4)人事管理(编号,部门编号,姓名)
三.创建人事管理系统(数据库部分)
1创建数据库:
(1)创建数据库的实现:
createdatabase人事管理系统
onprimary
(
name=人事管理系统,
filename='
G:
\数据库\人事管理系统.mdf'
size=5,
maxsize=100,
filegrowth=10%
)
logon
name=人事信息管理系统,
\数据库\人事管理系统.ldf'
size=3,
filegrowth=5
(2)创建数据库:
2.创建基本数据表:
(1)创建数据标的实现;
use人事管理系统
createtable基本职工信息表
(姓名varchar(20),
编号char(8),
性别char(8),
籍贯char(10),
年龄int,
学历varchar(20),
婚姻状况varchar(20),
部门varchar(20),
职称varchar(20),
参加工作时间char(10),
岗位varchar(30),
工资char(20),
省份证号varchar(30),
电话号码varchar(30),
备注varchar(50)
)
use人事管理系统
createtable职工部门表
(部门编号int,
部门名称varchar(30),
部门负责人varchar(30),
职工总数int,
所有职员编号varchar(100)
createtable职工工资表
(编号char(8),
姓名varchar(50),
奖金char(8)
数据表的创建:
基本信息表:
职工部门表
职工工资表
3.创建存储过程:
createprocp2(@snamevarchar(20))
as
ifexists(select*from职工基本信息表wheresname=@sname)
select*from职工基本信息表wheresname=@sname
else
print'
查无此人'
p2'
刘'
4.创建触发器:
createtriggertr1
on基本职工信息表
forinsert
任何人不得添加数据'
rollback
select*froms
四,创建人事管理系统访问键面:
(VB部分)
1,创建键面的实现代码:
(1)基本职工信息查询:
PrivateSubCommand1_Click()
UnloadMe
EndSub
PrivateSubDataGrid1_Click()
WithAdodc1.Recordset
Text1(0)=.Fields("
姓名"
Text1
(1)=.Fields("
编号"
Text1
(2)=.Fields("
性别"
Text1(3)=.Fields("
籍贯"
EndWith
PrivateSubForm_Load()
Text1.Text="
"
Text2.Text="
Text3.Text="
Text4.Text="
strsql1="
select*from基本职工信息表"
Adodc1.ConnectionString=conn
Adodc1.RecordSource=strsql1
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
Text1.Text=.Fields("
Text2.Text=.Fields("
Text3.Text=.Fields("
Text4.Text=.Fields("
(2)基本的职工工资:
(3)职工部门:
PrivateSubcmdAdd_Click()
Data1.Recordset.AddNew
PrivateSubcmdDelete_Click()
'
如果删除记录集的最后一条记录
记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
PrivateSubcmdRefresh_Click()
这仅对多用户应用程序才是需要的
Data1.Refresh
PrivateSubcmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark=Data1.Recordset.LastModified
PrivateSubcmdClose_Click()
UnloadMe
PrivateSubData1_Error(DataErrAsInteger,ResponseAsInteger)
这就是放置错误处理代码的地方
如果想忽略错误,注释掉下一行代码
如果想捕捉错误,在这里添加错误处理代码
MsgBox"
数据错误事件命中错误:
&
Error$(DataErr)
Response=0'
忽略错误
PrivateSubData1_Reposition()
Screen.MousePointer=vbDefault
OnErrorResumeNext
这将显示当前记录位置
为动态集和快照
Data1.Caption="
记录:
(Data1.Recordset.AbsolutePosition+1)
对于Table对象,当记录集创建后并使用下面的行时,
必须设置Index属性
Data1.Caption="
(Data1.Recordset.RecordCount*(Data1.Recordset.PercentPosition*0.01))+1
PrivateSubData1_Validate(ActionAsInteger,SaveAsInteger)
SelectCaseAction
CasevbDataActionMoveFirst
CasevbDataActionMovePrevious
CasevbDataActionMoveNext
CasevbDataActionMoveLast
CasevbDataActionAddNew
CasevbDataActionUpdate
CasevbDataActionDelete
CasevbDataActionFind
CasevbDataActionBookmark
CasevbDataActionClose
EndSelect
Screen.MousePointer=vbHourglass
(4)基本职工信息:
这是放置验证代码的地方
当下面的动作发生时,调用这个事件
2.实现:
(1)登陆键面:
(2)基本菜单
(3)修改密码
(4)基本信息:
(5)
五:
实验总结
1.实验中遇到的问题:
(1)数据库中存储过程和触发器的建立,因为在平时的学习中没有太认真的学习这一块以至于在课程设计的过程中这块存在者严重的问题,但是在同学的帮助下及时的得到了解决
(2)数据库与VB的连接访问
2,心得:
很多的题目看似简单,其实不然,,一开始看了只有这么几个模块是心里挺高兴的,但是当我真真正正地去把一个操作写成功时,很多意想不到的情况发生了。
有时候会为了一个操作不能调试成功而整个晚上都不能去安心做其他的作业。
这也就要求我们要冷静沉着、兢兢业业的去对待这件事,编程是一个很繁琐的过程,要考虑到很多错误转移情况,在这期间会有很多以前不曾想过的问题出现,次数多了,不免会有觉得做不下去的感觉。
但是我从中发现,只要一步一步调试、静下心来看待问题,再复杂再微小的问题都会迎刃而解,当一个程序被调试出来时,那时的快乐相比与任何困难都值得的。
经过课程设计我觉得立足程序、回归书本才是组重要的,在着手写程序时觉得思路一片混乱,无意间出现的问题会不知道怎么解决。
这时,需要回归书本,书本是前人总结的经验,几乎所有情况都会有解决方法。
只有把书本“吃透”,在遇到问题是才会反应快。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 课程设计 报告 人事管理系统
![提示](https://static.bdocx.com/images/bang_tan.gif)