《员工信息管理系统详细设计说明书》一、引言1.1编写目的根据需求规格说明书、概要设计说明书,在仔细考虑讨论之后,我们对员工信息管理系统软件功能的划分、数据结构、软件总体结构的实现有了进一步的想法。
本说明书的预期读者是与员工信息管理系统软件开发有联系的决策人,开发组成人员,扶助开发者,支持本项目的领导和公司人员,软件验证者。
1.2背景利用先进的管理手段,提高人事信息的管理水平,是每一现代公司所面临的重要课题。
为了解决这一重要课题,就必须有一套科学,高效,严密,实用的人事信息管理系统。
现代公司的人事信息管理都是在计算机上实现的,采用现代计算机管理系统来进行管理,提供规范,统一的服务,它在管理系统中的应用不仅可以简化,规范各机构的日常操作,而且可以使企业人事信息管理更加方便,简单,快捷,清晰,从而减轻工作人员的劳动强度,减少企业的财政消耗。
1.3定义SQL Server:所用的数据库管理系统VS 2010:所用的开发软件二、程序(一)设计说明2.1程序描述主模块2.2功能建立与数据库连接获取系统设置能够跳转至子模块:登陆、注册等模块。
2.3输入、输出项用户鼠标点击登陆、注册按钮跳转至相应模块界面2.5流程逻辑选择项登陆系统注册系统查询系统管理系统2.6界面设计2.7功能实现方法'跳转登陆页面Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lbtnLogin.ClickIf Request.Cookies("UserName") Is Nothing ThenResponse.Redirect("Login.aspx")ElsePage.ClientScript.RegisterStartupScript(Page.GetType(), "", "<script>alert('您已成功登陆);</script>")End IfEnd Sub'跳转注册页面Protected Sub lbtnRegister_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lbtnRegister.ClickResponse.Redirect("Register.aspx")End Sub三、程序(二)设计说明3.1程序描述登陆模块3.2功能实现管理员账号登陆,以便继续后面操作3.3输人项输入:管理员账号、密码。
输出:登陆成功界面3.4流程逻辑2.6界面设计登陆界面登陆成功界面2.7功能实现方法'登录Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.ClickDim Count As Integer'返回受影响的行数Dim cookies As New HttpCookie("UserName")managemodel.ManageId = txtName.T ext.Trim()managemodel.ManagePassword = txtPassWord.Text.Trim()Count = managebll.Login(managemodel)'注销登录Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack ThenIf Not Request.Cookies("UserName") Is Nothing Then'如果Cookie中有值则把值赋给标签并显示一些登陆后才显示的控件lblUser.T ext = Request.Cookies("UserName").ValuelbtnSearch.Visible = TruelblSucces.Visible = TruelbtnOut.Visible = TruelblWelcome.Visible = FalseEnd IfEnd IfEnd Sub四、程序(三)设计说明4.1程序描述注册模块4.2功能提供管理员账号注册功能4.3输入项输入:新管理员账号、密码信息输出:注册成功提示4.4流程逻辑注册填写新帐号密码并确认判断密码是否有误判断帐号是否已被注册注册成功YESYESNONO2.6界面设计2.7功能实现方法'注册Check = managebll.Check(managemodel) '执行判定If Check = 0 Then'若表括中无同名用户则行添加用户Count = managebll.Register(managemodel)If Count > 0 Then'若受影响行数大于0说明添加成功Page.ClientScript.RegisterStartupScript(Page.GetType(), "", "<script>alert('注册成功');</script>")Else'否则添加不成功Page.ClientScript.RegisterStartupScript(Page.GetType(), "", "<script>alert('注册失败');</script>")End IfElse'有同名用户时弹出提示Page.ClientScript.RegisterStartupScript(Page.GetType(), "", "<script>alert('该用户名已被注册');</script>")End If五、程序(四)设计说明5.1程序描述查询模块5.2功能提供员工信息查询全部查询:显示所有员工信息按员工ID查询:显示指定ID的员工信息按性别查询:显示指定性别的员工信息5.3输人、输出项输入:选择查询条件,如员工ID或性别等。
输出:显示满足条件的员工。
5.4流程逻辑查询全部查询按员工ID 查询按性别查询输入员工ID 选择性别显示输出结果2.6界面设计全部查询按员工ID查询按性别查询2.7功能实现方法Protected Sub btnOk_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnOk.Click If rblSelect.SelectedValue = "0"Then'全部查询SelectAllInfo()ElseIf rblSelect.SelectedValue = "1"Then'按员工ID查询SelectIdInfo()ElseIf rblSelect.SelectedValue = "2"Then'按性别查询SelectSexInfo()End IfEnd Sub六、程序(五)设计说明6.1程序描述管理模块6.2功能实现员工信息的添加、删除、修改6.3输入、输出项输入:员工信息输出:变更后的员工信息6.4流程逻辑管理添加输入新员工信息判断ID是否重复查询显示输出结果修改员工信息删除员工信息显示输出结果YES2.6界面设计添加员工信息修改员工信息2.7功能实现方法'删除数据Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting Dim index As Integer = Convert.T oInt32(GridView1.DataKeys(e.RowIndex).Value.T oString) '获得主键Dim Count As Integer'调用业务逻辑层Count = staffbll.DeleteInfo(index)'刷新页面?Bind()End Sub'更新Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating Dim index As Integer =Convert.ToInt32(GridView1.DataKeys(e.RowIndex).Value.T oString) '获取主键staffmodel.StfId = indexstaffmodel.StfName = (CType((GridView1.Rows(e.RowIndex).Cells(2).Controls(0)), T extBox)).T ext.Trim()staffmodel.StfSex = (CType((GridView1.Rows(e.RowIndex).Cells(3).Controls(0)), T extBox)).T ext.Trim()staffmodel.StfAge = (CType((GridView1.Rows(e.RowIndex).Cells(4).Controls(0)), T extBox)).T ext.Trim()staffmodel.StfJob = (CType((GridView1.Rows(e.RowIndex).Cells(5).Controls(0)), T extBox)).T ext.Trim()staffmodel.StfTime = (CType((GridView1.Rows(e.RowIndex).Cells(6).Controls(0)), T extBox)).T ext.Trim()staffbll.UpdataInfo(staffmodel)GridView1.EditIndex = -1Bind()End Sub'执行添加staffmodel.StfId = txtId.T ext.Trim()staffmodel.StfName = txtName.T ext.Trim()staffmodel.StfSex = txtSex.T ext.Trim()staffmodel.StfAge = txtAge.T ext.Trim()staffmodel.StfJob = txtJob.Text.Trim()staffmodel.StfTime = txtTime.T ext.Trim()Check = staffbll.Check(staffmodel) '执行判定If Check = 0 Then' 如果表括中无值则可进行添加'调用业务逻辑层staffbll.AddInfo(staffmodel)Bind()Else'如果有值则不能添加Page.ClientScript.RegisterStartupScript(Page.GetType(), "", "<script>alert('ID已存在,请重新输入');</script>")End If七、参考资料(1)张俊兰等。