住院系统vb.net论文 医院住院管理系统毕业论文

VB和数据库毕业设计论文

这里面有很多,住院系统vb.net论文你进去选一下,VB类毕业设计目录_VB毕业设计论文 双击自动滚屏 文章来源住院系统vb.net论文：一流设计吧 发布者：16sheji8 发布时间：2008-6-26 9:49:34 阅读：755次 VB目录《VB.NET聊天通信软件开发》 《VB001小区物业管理系统》 《VB002超市管理系统》 《VB003酒店客房管理信息系统》 《VB004宾馆客房管理系统》 《VB005企业生产管理系统》 《VB006客户关系管理系统》 《VB007设备管理信息系统》 《VB008工资管理系统》 《VB009自动出题题库系统》 《VB010试卷生成系统》 《VB011员工培训管理系统》 《VB012医院住房管理系统》 《VB013医院管理信息系统》 《VB014旅游资源及线路管理系统》 《VB015音像管理系统》 《VB016基于智能Agent住院系统vb.net论文的网络教学管理系统》 《VB017学生信息管理系统》 《VB018学生成绩管理系统》 《VB019图书馆管理系统》 《VB020毕业论文管理系统》 《VB021采购管理系统》 《VB022公交车调度管理系统》 《VB023通用缴费注册管理系统》 《VB024网吧记费管理系统》 《VB025高校科研信息管理系统》 《VB026机房管理系统》 《VB027教务管理系统》 《VB028备案管理信息系统》 《VB029进销存管理系统》 《VB030排课管理系统》 《VB031人事管理系统》 《VB032仓库管理系统》 《VB033餐饮管理系统》 《VB034售楼管理系统》 《VB035火车站售票管理系统》 《VB036运输管理系统》 《VB037固定资产管理系统》 《VB038航空公司管理系统》 《VB039家庭理财管理系统》 《VB040无纸化考试系统》 《VB041门诊管理系统》《VB042房屋销售管理系统》《VB043房屋租凭管理系统》《VB044失业保险管理信息系统》《VB045光盘管理系统》《VB046学籍管理系统》《VB047学生考勤信息管理》《VB048宿舍管理系统》《VB049图像处理工具》《VB050销售合同管理系统》《VB051招生管理系统》《VB052车辆管理系统》《VB053户籍管理系统》《VB054人事考勤管理系统》《VB055物流管理系统》《VB056学生档案管理系统》《VB057学生选课系统》《VB058身份证管理系统》《VB059自动点歌系统》《VB060课题项目进程管理系统》《VB061商品销售管理系统》《VB062中大迅通合同统计系统》《VB063上机考试系统》《VB064网络多人聊天系统住院系统vb.net论文的设计与实现》《VB065评语生成系统》《VB066高速公路收费系统》《VB067通用试题库系统》《VB068大学社团管理系统》《VB069报警系统》《VB070高校缴费系统》《VB071教师管理系统》《VB072教材管理系统》《VB073简单小游戏设计》VB074电脑销售系统》VB075期刊信息管理系统》VB076企业档案管理系统》VB077企业员工管理信息系统》VB078通讯录系统》VB079网吧管理系统》 本文来自: 一流设计吧() 详细出处参考：

谁有VB.NET+Access数据库的人事管理系统原代码及论文?过几天我们要答辩了，急.

刚好做过这个论文，给你回答啦~~独家哦，分数要给偶~~

1） 系统意义

随着计算机应用的日益普及，各企事业在人事方面实现规范化、计算机自动化管理势在必行，是提高科学管理水平的重要手段，是提高工作效率的可靠途径。

2） 系统特点

1 将人事信息实现自动化管理；

2 提供各种查询、修改、删除、插入人才信息功能；

3 提供各种信息统计功能。

3） 系统设计环境

1 Windows 2000 Server 或 Windows XP；

2 SQL Server 2000数据库管理系统；

3 VB 6.0。

二 系统需求分析

1） 系统设计目标

1 在人事管理过程中，实现信息自动化管理。

2 实现各种信息的修改、删除、插入功能。

3 实现对各种信息的查询、统计。

4 按年份月份统计某个职工的出勤情况信息。

5 按某年某月某日统计查询某部门的迟到和早退人数。

6 按月统计每个人的加班天数。

7 按年统计调入调出人数信息。

2） 系统需求分析

1. 信息需求分析

通过对人事信息系统的分析，此系统需要包含如下信息（数据字典）：

1）人事档案基本信息：

编号、姓名、性别、出生日期、工作年限、电话、地址、E-mail、学历、专业、进入本单位时间（编号要求：长度为6的数字字符组成）

2）人事调动信息：

原部门、新部门、原职务、新职务、调出时间、调入时间

3）人事考勤信息：

上下班时间、迟到次数、早退次数、请假天数、加班天数、加班日期

4）系统用户管理信息：

用户帐号、密码（由6个数字组成）、记录用户最近一次登录信息：年月日

2.功能需求分析

1）人事档案基本信息的录入、更新、删除、查询；

2）人事调动信息的录入、更新、删除、查询；

3）人事考勤信息的录入、更新、删除、查询；

3. 概念结构设计

系统的E-R图如图1.1所示：

1）数据库设计

1 逻辑结构设计

人事基本信息（编号，姓名，出生日期，工作年限，电话，E-mail，学历，进单位时间）；

人事调动信息（编号，原部门，新部门，原职务，新职务，调出时间，调入时间）；

人事考勤信息（编号，上下班时间，迟到次数，早退次数，请假天数，加班天数，加班日期）。

2 各数据表结构

根据实体间E – R模型的需求分析,本系统需要4个数据表分别来存放人是基本信息，调动信息，考勤信息和系统管理员帐号信息，具体如下：

人事基本信息表

字段名 数据类型 长度 是否为空 说明

bh char 10 Not null 编号

name varchar 8 Not null 姓名

sex varChar 3 Not null 性别

gznx varchar 10 null 工作年限

birth Datetime 10 null 出生日期

email Varchar 20 null E-mail

dh Varchar 20 null 电话

xl Varchar 10 null 学历

jdwsj Datetime 10 null 进单位时间

人事调动表

字段名 数据类型 长度 是否为空 说明

ybm varchar 12 Not null 原部门

xbm varchar 12 Not null 新部门

yzw varChar 12 Not null 原职务

xzw varchar 12 null 新职务

dcsj Datetime 10 null 调出时间

drsj Datetime 10 null 调入时间

人事考勤表

字段名 数据类型 长度 是否为空 说明

sxb varchar 10 Not null 上下班时间

cd varchar 5 Not null 迟到次数

zt varChar 5 Not null 早退次数

qj varchar 5 null 请假天数

jbts Datetime 5 null 加班天数

jbrq Datetime 10 null 加班日期

管理员表

字段名 数据类型 长度 是否为空 说明

name char 20 Not null 用户名

password char 8 Not null 密码

人事基本信息模块代码

Option Explicit

Dim mblchange As Boolean

Public txtSQL As String

Public msgtext As String

Dim mrc As ADODB.Recordset

Private Sub cmdcancle_Click()

Unload Me

End Sub

Private Sub cmdOK_Click()

Dim intCount As Integer

Dim txtSQL As String

Dim MsgString As String

Dim sMeg As String

Dim i As Integer

For intCount = 0 To 1

If Trim(Text1(intCount) "") = "" Then

Select Case intCount

Case 0

sMeg = "编号"

Case 1

sMeg = "姓名"

End Select

sMeg = sMeg "不能为空"

MsgBox sMeg, vbOKOnly + vbExclamation, "警告"

Text1(intCount).SetFocus

Exit Sub

End If

Next intCount

If Trim(Text1(3) "") = "" Then

MsgBox "出生日期不能为空", vbOKOnly + vbExclamation, "警告"

End If

If Trim(Text1(3) "") "" Then

If Not IsDate(Text1(3)) Then

MsgBox "出生日期应为(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"

Text1(3).SetFocus

Exit Sub

Else

Text1(3) = Format(Text1(3), "yyyy-mm-dd")

End If

End If

If Trim(Text1(2) "") = "" Then

MsgBox "年龄不能为空", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

If gintMode = 1 Then

txtSQL = "select * from dangan where ygid='" Trim(Text1(0)) "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

If mrc.EOF = False Then

MsgBox "有重复记录", vbOKOnly + vbExclamation, "警告"

Text1(0).SetFocus

End If

mrc.Close

txtSQL = "delete * from dangan where ygid='" Trim(Text1(0)) "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

txtSQL = "select * from dangan"

Set mrc = ExecuteSQL(txtSQL, msgtext)

mrc.AddNew

For intCount = 0 To 1

mrc.Fields(intCount) = Trim(Text1(intCount))

Next intCount

For intCount = 2 To 5

mrc.Fields(intCount) = Trim(Text1(intCount))

Next intCount

For intCount = 6 To 10

mrc.Fields(intCount) = Trim(Text1(intCount))

Next intCount

mrc.Fields(11) = Trim(Combo1.Text)

mrc.Update

If gintMode = 1 Then

MsgBox "添加记录成功", vbOKOnly, "提示"

For i = 0 To 10

Text1(i).Text = ""

Next i

frmyuangong.Show

frmyuangong.ZOrder 0

frmmanrecord.ShowTitle

frmmanrecord.ShowData

frmmanrecord.ZOrder 1

End If

ElseIf gintMode = 2 Then

txtSQL = "select * from dangan where ygid='" Trim(Text1(0).Text) "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

For intCount = 0 To 10

mrc.Fields(intCount) = Trim(Text1(intCount))

Next intCount

mrc.Fields(11) = Trim(Combo1.Text)

mrc.Update

MsgBox "修改成功", vbOKOnly, "提示"

Unload Me

frmmanrecord.ShowTitle

frmmanrecord.ShowData

frmmanrecord.ZOrder 0

End If

gintMode = 0

End Sub

Private Sub Form_Load()

Dim msgtext As String

Dim intCount As Integer

With Combo1

.AddItem "男"

.AddItem "女"

End With

If gintMode = 1 Then

Me.Caption = Me.Caption "添加"

Combo1.ListIndex = 0

ElseIf gintMode = 2 Then

Set mrc = ExecuteSQL(txtSQL, msgtext)

If mrc.EOF = False Then

With mrc

For intCount = 0 To 10

Text1(intCount) = .Fields(intCount)

Next intCount

If Not IsNull(!sex) Then

Combo1 = !sex

End If

mrc.Close

Me.Caption = Me.Caption "修改"

End With

End If

End If

mblchange = False

End Sub

Option Explicit

Public sQSql As String

Public mrc As ADODB.Recordset

Public txtSQL As String

Public msgtext As String

Private Sub Check1_Click(Index As Integer)

If Index = 0 Then

Text1(Index).SetFocus

End If

If Index = 1 Then

Text1(Index).SetFocus

Else

Text1(Index).SetFocus

End If

End Sub

Private Sub cmdcancel_Click()

Unload Me

End Sub

Private Sub cmdOK_Click()

If Check1(0).Value = vbChecked Then

sQSql = "ygname='" Trim(Text1(0) "") "'"

End If

If Check1(1).Value = vbChecked Then

If Trim(sQSql " ") = "" Then

sQSql = "ygid='" Trim(Text1(1) "") "'"

Else

sQSql = sQSql "and ygid='" Trim(Text1(1) "") "'"

End If

End If

If Check1(2).Value = vbChecked Then

If Trim(sQSql " ") = "" Then

sQSql = "ygdept='" Trim(Text1(2) "") ""

Else

sQSql = sQSql "and ygdept='" Trim(Text1(2) "") "'"

End If

End If

If Trim(sQSql " ") = "" Then

frmmanrecord.txtSQL = "select * from dangan"

flagEdit = True

frmmanrecord.ShowTitle

frmmanrecord.ShowData

frmmanrecord.Show

Else

frmmanrecord.txtSQL = "select * from dangan where " sQSql

flagEdit = True

frmmanrecord.ShowTitle

frmmanrecord.ShowData

frmmanrecord.Show

End If

Me.Hide

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 2

Text1(i) = ""

Next

End Sub

人事考勤模块代码

Option Explicit

Dim mblchange As Boolean

Dim mrc As ADODB.Recordset

Public txtSQL As String

Private Sub cboItem_Click(Index As Integer)

Dim msgtext As String

txtSQL = "select ygid,ygname from dangan where ygdept='" Trim(DataCombo1) "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

mrc.MoveFirst

mrc.Move cboItem(1).ListIndex

txtid = Trim(mrc!ygid)

End Sub

Private Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

EnterToTab KeyCode

End Sub

Private Sub cboMonth_Click()

Dim dateTemp As Date

dateTemp = DateAdd("d", -1, DateAdd("m", 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1)))

txtItem(0) = Day(dateTemp)

End Sub

Private Sub cboYear_Click()

Dim dateTemp As Date

If Trim(cboMonth " ") "" Then

dateTemp = DateAdd("d", -1, DateAdd("m", 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1)))

txtItem(0) = Day(dateTemp)

End If

End Sub

Private Sub cmdExit_Click()

If mblchange And gintMode 3 And cmdSave.Enabled Then

If MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then

Call cmdSave_Click

End If

End If

Unload Me

End Sub

Private Sub cmdSave_Click()

Dim intCount As Integer

Dim sMeg As String

Dim rectemp As Recordset

Dim sSql As String

Dim msgtext As String

For intCount = 0 To 3

If Trim(txtItem(intCount) " ") = "" Then

Select Case intCount

Case 0

sMeg = "本月天数"

Case 2

sMeg = "应出勤天数"

Case 3

sMeg = "出勤"

End Select

If intCount 1 Then

sMeg = sMeg "不能为空！"

MsgBox sMeg, vbOKOnly + vbExclamation, "警告"

txtItem(intCount).SetFocus

Exit Sub

End If

End If

Next intCount

If gintMode = 1 Then

txtSQL = "select * from checkin where kqid='" Trim(txtid) "' and kqdate= '" Format(cboYear.Text "-" cboMonth.Text "-01", "yyyy-mm-dd") "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

If mrc.EOF = False Then

MsgBox "已经存在该员工在该月的考勤记录！", vbOKOnly + vbExclamation, "警告"

cboMonth.SetFocus

Exit Sub

End If

mrc.Close

txtSQL = "delete from checkin where kqid='" Trim(txtid) "' and kqdate='" Format(cboYear "-" cboMonth "-01", "yyyy-mm-dd") "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

txtSQL = "select * from checkin"

Set mrc = ExecuteSQL(txtSQL, msgtext)

mrc.AddNew

mrc.Fields(0) = Trim(txtid)

mrc.Fields(1) = Trim(cboItem(1))

mrc.Fields(2) = Format(cboYear "-" cboMonth "-01", "yyyy-mm-dd")

For intCount = 0 To 15

mrc.Fields(intCount + 3) = Trim(txtItem(intCount).Text)

Next intCount

For intCount = 16 To 17

mrc.Fields(intCount + 3) = Trim(txtItem(intCount).Text)

Next intCount

mrc.Update

MsgBox "记录添加成功！", vbOKOnly + vbExclamation, "警告"

For intCount = 0 To 17

txtItem(intCount) = ""

Next intCount

mblchange = False

ElseIf gintMode = 2 Then

txtSQL = "select kqid,kqname,kqdays,kqrday,kqtday,kqwork,kqabsent,kqrest,kqleave,kqlate,kqearly,kqforget,kqover1,kqvoer2,kqfill,kqgo,kqpay,kqdeduct,kqother,kqremark from checkin where kqid='" Trim(txtid) "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

mrc.Fields(0) = Trim(txtid)

mrc.Fields(1) = Trim(cboItem(1))

For intCount = 0 To 15

mrc.Fields(intCount + 2) = Trim(txtItem(intCount).Text)

Next intCount

For intCount = 16 To 17

mrc.Fields(intCount + 2) = Trim(txtItem(intCount).Text)

Next intCount

mrc.Update

MsgBox "记录修改成功!", vbOKOnly, "提示"

mrc.Close

Unload Me

frmCheck.ShowTitle

frmCheck.ShowData

frmCheck.ZOrder 0

End If

gintMode = 0

End Sub

Private Sub DataCombo1_Click(Area As Integer)

Dim sSql As String

Dim msgtext As String

txtSQL = "select ygid,ygname from dangan where ygdept='" Trim(DataCombo1) "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

cboItem(1).Clear

If Not mrc.EOF Then

With cboItem(1)

Do While Not mrc.EOF

.AddItem Trim(mrc!ygname)

mrc.MoveNext

Loop

.ListIndex = 0

End With

cmdSave.Enabled = True

Else

MsgBox "请先建立员工档案！", vbOKOnly + vbExclamation, "警告"

cmdSave.Enabled = False

Exit Sub

End If

End Sub

Private Sub Form_Load()

Dim intCount As Integer

Dim dateTemp As Date

Dim msgtext As String

Adodc1.Visible = False

cboYear.AddItem Year(Now)

cboYear.AddItem Year(Now) - 1

cboYear.ListIndex = 0

For intCount = 1 To 12

cboMonth.AddItem intCount

Next intCount

cboMonth = Month(Now)

If gintMode = 1 Then

Me.Caption = Me.Caption "添加"

'初始化部门名称

txtSQL = "select DISTINCT ygdept from dangan"

Set mrc = ExecuteSQL(txtSQL, msgtext)

If mrc.EOF Then

MsgBox "请先进行员工档案登记！", vbOKOnly + vbExclamation, "警告"

cmdSave.Enabled = False

Exit Sub

End If

'初始化本月天数

dateTemp = DateAdd("d", -1, DateAdd("m", 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1)))

txtItem(0) = Day(dateTemp)

mrc.Close

ElseIf gintMode = 2 Then

Set mrc = ExecuteSQL(txtSQL, msgtext)

If mrc.EOF = False Then

With mrc

cboItem(1).AddItem .Fields(1)

cboItem(1).ListIndex = 0

For intCount = 2 To 19

If Not IsNull(.Fields(intCount)) Then

txtItem(intCount - 2) = .Fields(intCount)

End If

Next intCount

txtid = .Fields(0)

End With

End If

mrc.Close

Me.Caption = Me.Caption "修改"

End If

mblchange = False

End Sub

人事调动模块代码

Option Explicit

Dim mblchange As Boolean

Public txtSQL As String

Public msgtext As String

Dim mrc As ADODB.Recordset

Dim mybookmark As Variant

Private Sub cmdcancel_Click()

Unload Me

End Sub

Private Sub cmdchange_Click()

cmdchange.Enabled = False

Command1.Enabled = False

cmddelete.Enabled = False

gintMode = 2

End Sub

Private Sub cmddelete_Click()

Dim st As String

mybookmark = mrc.Bookmark

st = MsgBox("是否删除当前记录?", vbOKCancel, "提示")

If st = vbOK Then

mrc.MoveNext

If mrc.EOF Then

mrc.MoveFirst

mybookmark = mrc.Bookmark

mrc.MoveLast

mrc.Delete

mybookmark = mrc.Bookmark

Call viewdata

Else

mybookmark = mrc.Bookmark

mrc.MovePrevious

mrc.Delete

mrc.Bookmark = mybookmark

Call viewdata

End If

Else

mrc.Bookmark = mybookmark

Call viewdata

End If

End Sub

Private Sub cmdOK_Click()

Dim intCount As Integer

Dim txtSQL As String

Dim MsgString As String

If Text(0) = "" Then

MsgBox "编号不能为空!", vbOKOnly + vbExclamation, "警告"

Text(0).SetFocus

End If

If Text(1) = "" Then

MsgBox "事件不能为空!", vbOKOnly + vbExclamation, "警告"

Text(1).SetFocus

End If

If gintMode = 1 Then

txtSQL = "select * from renshi1 where id='" Trim(Text(0)) "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

If mrc.EOF = False Then

MsgBox "己存在此编号的记录,请重新输入!", vbOKOnly + vbExclamation, "警告"

Text(0).SetFocus

Exit Sub

End If

mrc.Close

txtSQL = "delete * from renshi1 where id='" Trim(Text(0)) "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

txtSQL = "select * from renshi1"

Set mrc = ExecuteSQL(txtSQL, msgtext)

mrc.AddNew

For intCount = 0 To 2

mrc.Fields(intCount) = Trim(Text(intCount))

Next intCount

mrc.Update

MsgBox "添加记录成功!", vbOKOnly, "提示"

frmrenshi.ZOrder 1

frmrenshi.Show

Command1.Enabled = True

cmdchange.Enabled = True

cmddelete.Enabled = True

first.Enabled = True

previous.Enabled = True

next1.Enabled = True

last.Enabled = True

End If

If gintMode = 2 Then

txtSQL = "select * from renshi1"

Set mrc = ExecuteSQL(txtSQL, msgtext)

For intCount = 0 To 2

mrc.Fields(intCount) = Text(intCount).Text

Next intCount

mrc.Update

MsgBox "记录修改成功!", vbOKOnly, "提示"

cmdchange.Enabled = True

Command1.Enabled = True

cmddelete.Enabled = True

End If

gintMode = 0

End Sub

Private Sub Command1_Click()

Dim i As Integer

For i = 0 To 2

Text(i).Text = ""

Next i

Command1.Enabled = False

cmdchange.Enabled = False

cmddelete.Enabled = False

first.Enabled = False

previous.Enabled = False

next1.Enabled = False

last.Enabled = False

gintMode = 1

End Sub

Private Sub first_Click()

mrc.MoveFirst

Call viewdata

End Sub

Private Sub Form_Load()

Dim txtSQL As String

Dim msgtext As String

Dim i As Integer

txtSQL = "select * from renshi1 "

Set mrc = ExecuteSQL(txtSQL, msgtext)

If mrc.EOF = True Then

MsgBox "没有任何记录,请添加!", vbOKOnly, "提示"

Else

mrc.MoveFirst

Call viewdata

mybookmark = mrc.Bookmark

mblchange = True

End If

mblchange = True

End Sub

Private Sub next1_Click()

mrc.MoveNext

If mrc.EOF Then

mrc.MoveFirst

End If

Call viewdata

End Sub

Private Sub previous_Click()

mrc.MovePrevious

If mrc.BOF Then

mrc.MoveLast

End If

Call viewdata

End Sub

Public Sub viewdata()

Dim intCount As Integer

For intCount = 0 To 2

Text(intCount) = mrc.Fields(intCount)

Next intCount

End Sub

会修改（vb.net+access）做的宿舍管理系统的来。（修改+论文）400分。搞定后给分。

我 这 里 有 设 计 好 住院系统vb.net论文的 住院系统vb.net论文，也 可 以 带 你 设 计 需 要 可 以 考 虑 百 度 名 联 系

有 专 业 的 人 在 线 指 导 辅 助 帮 你 通 过 论 文 价 格 实 惠 内 容 原 创

哪有计算机vb.net sql2000毕业设计论文范文?

住院系统vb.net论文你要的文章哪有计算机vb.net

sql2000毕业设计论文范文?

住院系统vb.net论文我已经在

工作计划网,上找到啦,看看有没有你要的,你自己去复制吧

”在线考试管理系统“ 用vb.net 来写毕业论文的话 需要些什么软件？需不需要联网？ 能不能说详细一点

需要用的软件：Microsoft Visual Studio 6.0（VB开发）；

数据库：你可以用Oracle、或者SQL Server等等，现在用的比较多的是Oracle，用这个，你装Oracle 10g或者Oracle 9i 都可以；

一般做开发，最好有网络，你遇到什么问题，可以及时的Google或者百度，解决问题会比较方便，但是如果实在没有网络，有书也可以；

寻求毕业论文范本

网络安全技术研究》毕业论文

毕业设计（论文）中文摘要

网络安全技术研究摘要：近几年来，Internet技术日趋成熟，已经开始了从以提供和保证网络联通性为主要目标的第一代Internet技术向以提供网络数据信息服务为特征的第二代Internet技术的过渡。与此同时，数以万计的商业公司、政府机构在多年的犹豫、观望之后，意识到采用Internet技术并使企业数据通信网络成为Internet的延伸已成为发展趋势。这使得企业数据网络正迅速地从以封闭型的专线、专网为特征的第二代技术转向以Internet互联技术为基础的第三代企业信息网络。所有这些，都促使了计算机网络互联技术迅速的大规模使用。众所周知，作为全球使用范围最大的信息网，Internet自身协议的开放性极大地方便了各种计算机连网，拓宽了共享资源。但是，由于在早期网络协议设计上对安全问题的忽视，以及在管理和使用上的无政府状态，逐渐使Internet自身安全受到严重威胁，与它有关的安全事故屡有发生。对网络安全的威胁主要表现在：非授权访问，冒充合法用户，破坏数据完整性，干扰系统正常运行，利用网络传播病毒，线路窃听等方面。这以要求我们与Internet互连所带来的安全性问题予以足够重视。关键词 网络、安全、VPN、加密技术、防火墙技术

毕业设计（论文）外文摘要

Title The Document Of Computer Network Security Abstract With the computer network development. Internet has already turned from the first generation the second. Meanwhile, thousands of company and governments realize the importance of Internet and take measures to build their own Network , so that extend the development of the Internet . This makes the Internet transfer from the second generation to the third which feature’s basis of Inter connecting. All of this above contributes to the large scale use of Interconnecting. As it is known to us all, Internet has the largest information net ,It is the openness of the protocol that convinent the link of variety nets and extend the sharing resources. However, because of the neglecting of Network security and the government management seriously threats the safety of Internet. The dangers appears: illegeal visiting, prentending the managerment , destroying the database, interrupting the setup of system, spreading the virus and so on . This asks us to pay more attention to the safety of Internet twister. Keywords Network 、Network security 、VPN 、Ipsec 、Firework

目 次

1 绪论 ………………………………………………………………5

2 方案目标 ……………………………………………………………5

3 安全需求 ……………………………………………………………6

4 风险分析 ……………………………………………………………6

5 解决方案 ……………………………………………………………7

5.1 设计原则 …………………………………………………………7

5.2 安全策略 ……………………………………………………………7

5.3 防御系统 …………………………………………………………8

5.3.1 物理安全 ………………………………………………………8

5.3.2 防火墙技术 ………………………………………………………8

5.3.3 VPN技术 ………………………………………………………10

5.3.4 网络加密技术（Ipsec） ……………………………………………11

5.3.5 身份认证 ………………………………………………………12

5.3.6 多层次多级别的防病毒系统 ……………………………………13

5.3.7 入侵检测 ……………………………………………………14

5.3.8 虚拟专用网技术虚拟专用网 …………………………………14

5.4 安全服务 ………………………………………………………15

5.5 安全技术的研究现状和动向 ………………………………………16

结论 ……………………………………………………………………18

致谢 …………………………………………………………………19

参考文献 …………………………………………………………20

1 绪论

随着互联网的飞速发展，网络安全逐渐成为一个潜在的巨大问题。网络安全性是一个涉及面很广泛的问题，其中也会涉及到是否构成犯罪行为的问题。在其最简单的形式中，它主要关心的是确保无关人员不能读取，更不能修改传送给其他接收者的信息。此时，它关心的对象是那些无权使用，但却试图获得远程服务的人。安全性也处理合法消息被截获和重播的问题，以及发送者是否曾发送过该条消息的问题。

大多数安全性问题的出现都是由于有恶意的人试图获得某种好处或损害某些人而故意引起的。可以看出保证网络安全不仅仅是使它没有编程错误。它包括要防范那些聪明的，通常也是狡猾的、专业的，并且在时间和金钱上是很充足、富有的人。同时，必须清楚地认识到，能够制止偶然实施破坏行为的敌人的方法对那些惯于作案的老手来说，收效甚微。

网络安全性可以被粗略地分为4个相互交织的部分：保密、鉴别、反拒认以及完整性控制。保密是保护信息不被未授权者访问，这是人们提到的网络安全性时最常想到的内容。鉴别主要指在揭示敏感信息或进行事务处理之前先确认对方的身份。反拒认主要与签名有关。保密和完整性通过使用注册过的邮件和文件锁来实现。

2 方案目标

本方案主要从网络层次考虑，将网络系统设计成一个支持各级别用户或用户群的安全网络，该网在保证系统内部网络安全的同时，还实现与Internet或国内其它网络的安全互连。本方案在保证网络安全可以满足各种用户的需求，比如：可以满足个人的通话保密性，也可以满足企业客户的计算机系统的安全保障，数据库不被非法访问和破坏，系统不被病毒侵犯，同时也可以防止诸如反动淫秽等有害信息在网上传播等。

需要明确的是，安全技术并不能杜绝所有的对网络的侵扰和破坏，它的作用仅在于最大限度地防范，以及在受到侵扰的破坏后将损失尽旦降低。具体地说，网络安全技术主要作用有以下几点：

1．采用多层防卫手段，将受到侵扰和破坏的概率降到最低；

2．提供迅速检测非法使用和非法初始进入点的手段，核查跟踪侵入者的活动；

3．提供恢复被破坏的数据和系统的手段，尽量降低损失；

4．提供查获侵入者的手段。

网络安全技术是实现安全管理的基础，近年来，网络安全技术得到了迅猛发展，已经产生了十分丰富的理论和实际内容。

3 安全需求

通过对网络系统的风险分析及需要解决的安全问题，我们需要制定合理的安全策略及安全方案来确保网络系统的机密性、完整性、可用性、可控性与可审查性。即，

可用性： 授权实体有权访问数据

机密性： 信息不暴露给未授权实体或进程

完整性： 保证数据不被未授权修改

可控性： 控制授权范围内的信息流向及操作方式

可审查性：对出现的安全问题提供依据与手段

访问控制：需要由防火墙将内部网络与外部不可信任的网络隔离，对与外部网络交换数据的内部网络及其主机、所交换的数据进行严格的访问控制。同样，对内部网络，由于不同的应用业务以及不同的安全级别，也需要使用防火墙将不同的LAN或网段进行隔离，并实现相互的访问控制。

数据加密：数据加密是在数据传输、存储过程中防止非法窃取、篡改信息的有效手段。

安全审计： 是识别与防止网络攻击行为、追查网络泄密行为的重要措施之一。具体包括两方面的内容，一是采用网络监控与入侵防范系统，识别网络各种违规操作与攻击行为，即时响应（如报警）并进行阻断；二是对信息内容的审计，可以防止内部机密或敏感信息的非法泄漏

4 风险分析

网络安全是网络正常运行的前提。网络安全不单是单点的安全，而是整个信息网的安全，需要从物理、网络、系统、应用和管理方面进行立体的防护。要知道如何防护，首先需要了解安全风险来自于何处。网络安全系统必须包括技术和管理两方面，涵盖物理层、系统层、网络层、应用层和管理层各个层面上的诸多风险类。无论哪个层面上的安全措施不到位，都会存在很大的安全隐患，都有可能造成网络的中断。根据国内网络系统的网络结构和应用情况，应当从网络安全、系统安全、应用安全及管理安全等方面进行全面地分析。

风险分析是网络安全技术需要提供的一个重要功能。它要连续不断地对网络中的消息和事件进行检测，对系统受到侵扰和破坏的风险进行分析。风险分析必须包括网络中所有有关的成分。

5 解决方案

5.1 设计原则

针对网络系统实际情况，解决网络的安全保密问题是当务之急，考虑技术难度及经费等因素，设计时应遵循如下思想：

1．大幅度地提高系统的安全性和保密性；

2．保持网络原有的性能特点，即对网络的协议和传输具有很好的透明性；

3．易于操作、维护，并便于自动化管理，而不增加或少增加附加操作；

4．尽量不影响原网络拓扑结构，同时便于系统及系统功能的扩展；

5．安全保密系统具有较好的性能价格比，一次性投资，可以长期使用；

6．安全与密码产品具有合法性，及经过国家有关管理部门的认可或认证；

7．分步实施原则：分级管理 分步实施。

5.2 安全策略

针对上述分析，我们采取以下安全策略：

1．采用漏洞扫描技术，对重要网络设备进行风险评估，保证信息系统尽量在最优的状况下运行。

2．采用各种安全技术，构筑防御系统，主要有：

(1) 防火墙技术：在网络的对外接口，采用防火墙技术，在网络层进行访问控制。

(2) NAT技术：隐藏内部网络信息。

(3) VPN：虚拟专用网(VPN)是企业网在因特网等公共网络上的延伸,通过一个私有的通道在公共网络上创建一个安全的私有连接。它通过安全的数据通道将远程用户、公司分支机构、公司业务伙伴等与公司的企业网连接起来，构成一个扩展的公司企业网。在该网中的主机将不会觉察到公共网络的存在，仿佛所有的机器都处于一个网络之中。公共网络似乎只由本网络在独占使用，而事实上并非如此。

(4）网络加密技术(Ipsec) ：采用网络加密技术，对公网中传输的IP包进行加密和封装，实现数据传输的保密性、完整性。它可解决网络在公网的数据传输安全性问题，也可解决远程用户访问内网的安全问题。

(5) 认证：提供基于身份的认证，并在各种认证机制中可选择使用。

(6) 多层次多级别的企业级的防病毒系统：采用多层次多级别的企业级的防病毒系统，对病毒实现全面的防护。

(7）网络的实时监测：采用入侵检测系统，对主机和网络进行监测和预警，进一步提高网络防御外来攻击的能力。

3．实时响应与恢复：制定和完善安全管理制度，提高对网络攻击等实时响应与恢复能力。

4．建立分层管理和各级安全管理中心。

5.3 防御系统

我们采用防火墙技术、NAT技术、VPN技术、网络加密技术（Ipsec）、身份认证技术、多层次多级别的防病毒系统、入侵检测技术，构成网络安全的防御系统。

关于住院系统vb.net论文和医院住院管理系统毕业论文的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。