Web动态网页设计报告

Web程序设计课程设计报

告

学 生：

学 号：

班 级：

专 业：

2014年5月

目录

工资管理系统的设计与实现 (3)

课程设计总结 (15)

参考文献 (15)

工资管理系统的设计与实现

一、实验目的及要求

1、掌握Web网页常用的开发工具Frontpage2003或Deamweaver的使

用；

2、学会IIS的配置；

3、学会Html、CSS、Javascript的简单开发和应用；

4、学会B/S模式下，asp或与数据库的连接。

二、实验环境及相关情况（包含使用软件、实验设备、

主要仪器等）

操作系统为Windows XP，应用软件为Macromedia Dreamweaver 8、IIS 服务器和2005软件编辑器。

三、实验内容及步骤

（一）、网站总体设计

工资管理系统是一个ASP与数据库技术结合的典型应用程序由登录模块、前台员工浏览模块、后台管理员管理模块构成。普通员工正确登录后进入前台员工浏览界面，管理员正确登录后进入后台管理员管理界面。系统结构总图如图

1、前台用户操作

前台功能主要有员工查看个人信息、查看工资明细、查看考勤信息、申请假期、修改登录密码等。

前台页面设计如图：

2、后台管理操作

后台功能主要有员工信息管理（包括增加、删除、修改、查看员工信息）、员工工资管理（包括查看员工工资、设置岗位工资结构、工资结算等）、考勤记录管理（考勤内容有出差、加班、请假、迟到早退、旷工等）、部门信息管理（包括增加、删除、修改、查看员工信息）、岗位信息管理（包括增加、删除、修改、查看岗位信息）。

后台页面设计如图：

（二） 、数据库设计1、数据库E-R图分析系统数据流图：

数据流图表达了数据和处理之间的关系，数据字典则是系统中各类数据描述的集合，是进行详细的数据收集和数据分析所获得的主要成果。

员工实体及属性：

部门实体及属性：

工资实体及属性：

工资管理系统数据库ER图：

2、数据表概要说明

建立数据库employeemanage，包含的表如图:

3、主要数据表的结构

部门表如图所示：

岗位表如图所示：

员工表如图所示：

岗位工资结构表如图所示：

用户表如图所示：

工资记录表如图所示：

考勤记录表如图所示：

考勤表如图所示：

（四）、前台页面设计（普通用户模块）

1、前台各个主要页面概述

2、前台主页面的布局

上为标题

内容

3、前台主页面的实现

Dim WithEvents adoPrimaryRS As Recordset

Private Sub Command1_Click() If Text1.Text = "" Then

MsgBox "员工编号不能为空！", vbOKOnly + vbExclamation, "警告" Text1.SetFocus Exit Sub End If

If Text2.Text = "" Then

MsgBox "姓名不能为空！", vbOKOnly + vbExclamation, "警告

" Text2.SetFocus Exit Sub End If

If Combo1.Text = "" Then

MsgBox "性别不能为空！", vbOKOnly + vbExclamation, "警告" Combo1.SetFocus Exit Sub

Text11.SetFocus Exit Sub End If

Dim db As Connection Set db = New Connection

db.CursorLocation = adUseClient

db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=rsgz.mdb;"

Set adoPrimaryRS = New Recordset a = Text1.Text

adoPrimaryRS.Open "select * from ygInfo where 员工编号='" & a & "'", db, adOpenStatic, adLockOptimistic If Not adoPrimaryRS.EOF Then

MsgBox "该编号重复！", vbOKOnly + vbExclamation, "警告" Exit Sub Else

adoPrimaryRS.AddNew

adoPrimaryRS.Fields("员工编号") = Text1.Text adoPrimaryRS.Fields("姓名") = Text2.Text adoPrimaryRS.Fields("性别") = Combo1.Text adoPrimaryRS.Fields("部门") = Combo2.Text adoPrimaryRS.Fields("民族") = Text3.Text adoPrimaryRS.Fields("出生年月") = Text4.Text adoPrimaryRS.Fields("政治面貌") = Combo3.Text adoPrimaryRS.Fields("家庭住址") = Text5.Text adoPrimaryRS.Fields("联系电话") = Text6.Text

adoPrimaryRS.Fields("毕业学校") = Text7.Text adoPrimaryRS.Fields("最高学历") = Combo4.Text adoPrimaryRS.Fields("所学专业") = Text8.Text If Text9.Text = "" Then

adoPrimaryRS.Fields("职务") = "无" Else