Web动态网页设计报告

Web程序设计课程设计报

告

学 生： 学 号： 班 级： 专 业：

2014年5月

目 录

工资管理系统的设计与实现 ........................................................................................................... 3 课程设计总结 ................................................................................................................................. 15 参考文献......................................................................................................................................... 15

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

一、实验目的及要求

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

2、学会IIS的配置；

3、学会Html、CSS、Javascript的简单开发和应用； 4、学会B/S模式下，asp或asp.net与数据库的连接。

二、实验环境及相关情况（包含使用软件、实验设备、主要仪器等）

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

三、实验内容及步骤

（一）、网站总体设计

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

重庆邮电大学移通学院

1、前台用户操作

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

前台页面设计如图：

2、后台管理操作

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

后台页面设计如图：

4

重庆邮电大学移通学院

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

5

重庆邮电大学移通学院

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

部门实体及属性 ：

6

重庆邮电大学移通学院

工资实体及属性：

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

2、数据表概要说明

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

7

重庆邮电大学移通学院

3、主要数据表的结构

部门表如图所示：

岗位表如图所示：

8

重庆邮电大学移通学院

员工表如图所示：

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

用户表如图所示：

工资记录表如图所示：

9

重庆邮电大学移通学院

考勤记录表如图所示：

考勤表如图所示：

（四）、前台页面设计（普通用户模块） 1、前台各个主要页面概述

2、前台主页面的布局 上为标题 内容

3、前台主页面的实现

Dim WithEvents adoPrimaryRS As Recordset

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

MsgBox \"员工编号不能为空！\警告\" Text1.SetFocus Exit Sub End If If Text2.Text = \"\" Then

MsgBox \"姓名不能为空！\警告

10

重庆邮电大学移通学院

\" Text2.SetFocus Exit Sub End If If Combo1.Text = \"\" Then

MsgBox \"性别不能为空！\警告\" 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 & \"'\Then

MsgBox \"该编号重复！\警告\" 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

11

重庆邮电大学移通学院

adoPrimaryRS.Fields(\"职务\") = Text9.Text End If adoPrimaryRS.Fields(\"

专

业

技职基

术称本

职时工

称间资

\") = Combo5.Text adoPrimaryRS.Fields(\"\") = Text10.Text adoPrimaryRS.Fields(\"\") = Text11.Text If Text12.Text = \"\" Then

adoPrimaryRS.Fields(\"奖惩情况\") = \"无\" Else adoPrimaryRS.Fields(\"奖惩情况\") = Text12.Text End If If Text13.Text = \"\" Then

adoPrimaryRS.Fields(\"个人简历\") = \"无\" Else adoPrimaryRS.Fields(\"个人简历\") = Text13.Text End If adoPrimaryRS.Update

MsgBox \"记载成功！\提示\" End If Text1.Text = \"\"

Text2.Text = \"\" Text3.Text = \"\" Text4.Text = \"\" Text5.Text = \"\" Text6.Text = \"\" Text7.Text = \"\" Text8.Text = \"\" Text9.Text = \"\" Text10.Text = \"\" Text11.Text = \"\" Text12.Text = \"\" Text13.Text = \"\" Combo1.Text = \"\" Combo2.Text = \"\" Combo3.Text = \"\" Combo4.Text = \"\" Combo5.Text = \"\" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load()

Left = (Screen.Width - Width) \\ 2 Top = (Screen.Height - Height) \\ 2 End Sub

（五）、后台模块的设计与实现（管理员模块） 1、后台各个主要页面概述

12

重庆邮电大学移通学院

2、后台主页面的布局 标题 内容 事项 3、后台主页面的实现 a = Text14.Text

adoPrimaryRS.MoveFirst

Do While (adoPrimaryRS.EOF = False)

数字 更改

If adoPrimaryRS.Fields(\"员工编号\") <> a Then adoPrimaryRS.MoveNext Else Text1.Text = adoPrimaryRS.Fields(\"

员

工

编

号

\") Text2.Text = adoPrimaryRS.Fields(\"姓名\") „„ Exit Sub End If Loop If adoPrimaryRS.EOF Then

MsgBox \"员工基本信息表中没有该记录！\提示！\" End If

Dim WithEvents adoPrimaryRS As Recordset

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

MsgBox \"员工编号不能为空！\警告\" Text1.SetFocus Exit Sub End If If Combo1.Text = \"\" Then

MsgBox \"岗位编号不能为空！\警告\" Text2.SetFocus Exit Sub End If

13

重庆邮电大学移通学院

If Text2.Text = \"\" Then

MsgBox \"业务档案不能为空！\警告\" Text2.SetFocus Exit Sub End If Set adoPrimaryRS = New Recordset a = Text1.Text

adoPrimaryRS.Open \"select * from TBInfo where ='\" & a & \"'\ If Not adoPrimaryRS.EOF Then

MsgBox \"该编号重复！\警告\" Exit Sub Else

adoPrimaryRS.AddNew adoPrimaryRS.Fields(\"

员

工岗

位

编

编

号号

员

工

编

号

\") = Text1.Text adoPrimaryRS.Fields(\"\") = Combo1.Text If Text2.Text = \"\" Then

adoPrimaryRS.Fields(\"业务档案\") = \"无\" Else adoPrimaryRS.Fields(\"

业

务

档

案

\") = Text2.Text End If adoPrimaryRS.Update

MsgBox \"记载成功！\提示\" End If

Text1.Text = \"\" Text2.Text = \"\" Combo1.Text = \"\" End Sub

Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load()

Left = (Screen.Width - Width) \\ 2 Top = (Screen.Height - Height) \\ 2 Set adoPrimaryRS = New Recordset

adoPrimaryRS.Open \"select * from gwxsinfo \c

14

重庆邮电大学移通学院

With Combo1

For i = 1 To adoPrimaryRS.RecordCount .AddItem adoPrimaryRS.Fields(\"岗位编号\") adoPrimaryRS.MoveNext Next i End With

adoPrimaryRS.Cancel End Sub

课程设计总结

通过这次集中上街，我掌握了Accesss数据库的编程方法，掌握了Visual FoxPro 数据库是一个关系型数据库，Visual FoxPro 需要很少编程就可以建立一个面向对象的数据库应用程序。对目前流行的软件开发方法和手段，有了一定的认识，丰富了软件开发的经验，提高了编制程序的水平，加深理解了许多课程中、书本上学到的知识和理论

参考文献

[1 ] 丁爱萍.《Visual FoxPro 6.0程序设计教程》[M].西安：电子科技大学出版社，2002.6

[2 ] 李淑华.《Visual FoxPro 6.0程序设计》[M].高等教育出版社,2004.8 [3 ] Craig Eddy.《中文Access 2000 24学时教程》[M].机械工业出版社 [4 ] 李绍原.《OFFICE 2000》[M].科学出版社

[5 ] 汪孝宜,胡海璐,米海生.《信息系统开发-实例精粹》[M].电子工业出版社

15