人员管理系统asp源码-asp毕业设计——基于asp+sqlserver的WEB车辆管理系统设计与实现（

115资源网 18分钟前 网站源码 浏览：1 0

基于asp+sqlserver的WEB车辆管理系统的设计与实现（毕业论文+程序源码）

大家好，今天给大家介绍一个基于asp+sqlserver的WEB车辆管理系统的设计与实现。 文末附上本次毕业设计的论文及源码下载地址。需要下载提案报告PPT模板和论文答辩PPT模板等的朋友，可以到我的博客主页查看自- 服务下载方法在左底栏。

文章目录：

1.项目简介本文介绍了在WEB和ASP环境下开发管理信息系统的过程。 通过分析传统人工车辆管理的缺点，创建了一种有效的基于计算机的车辆管理解决方案。 文章详细介绍了汽车管理信息系统的系统分析部分，包括可行性分析、数据流分析、处理描述等； 系统设计部分主要介绍系统功能设计和数据库设计； 系统实现部分列出了几个主要的程序框图，并附有一些主要的窗口和程序。 2. 资源详情

项目难度：中等难度

适用场景: 相关主题的毕业设计

支撑论文字数：8651字，56页

包含内容：全套源码+完整毕业论文

3.关键词：数据库、汽车、贷款、系统 4.毕业设计简介

提示：以下是毕业论文的简要介绍。 完整毕业论文的项目源码和下载地址可在文末找到。

介绍

1.1 课题背景

省略

1.2 选题来源及意义

随着计算机技术的不断发展，计算机作为知识经济时代的产物，已广泛应用于社会各个行业和领域。 当前，我国科技水平正在快速发展。 计算机作为当今使用最广泛的现代工具，已经渗透到各个领域，正在成为未来社会——信息社会的重要支柱。 在这样的大背景下，现代车辆的管理方式和资源建设都发生了重大变化。 这种变化体现在车辆工作、管理和服务平台的变化上。 车辆不再是传统的人工操作和人工管理。 ，但全面实行电脑管理。

在车辆正常运行过程中，始终存在大量的驾驶员信息、车辆信息以及二者交互产生的存储信息。 因此，需要对驾驶员资源、车辆资源、存储信息进行管理。 本系统的开发是为了提高车辆管理效率，加强车辆管理，全面实行计算机管理。

1.3 国内外发展概况

省略

2 开发语言简介

ASP是一种未编译的开放式应用软件。 它是微软推出的一项技术人员管理系统asp源码，用于取代CGI（通用网关接口）。 它本质上是一个服务器端脚本环境。 通过 ASP，用户可以结合 HTML 网页、ASP 指令和 Active 组件来构建动态交互且商业高效的 Web 服务器应用程序。 ASP 不是一种纯粹的编程语言。 它使用的语言是VBScript和JavaScript，这两种我们经常使用的脚本语言。

SQL是英文Structured Query Language的缩写，意为结构化查询语言。 SQL语言的主要功能是与各种数据库建立联系和通信。 根据 ANSI（美国国家标准协会）的规定，SQL 被用作关系数据库管理系统的标准语言。 SQL语句可以用来执行多种操作，如更新数据库中的数据、从数据库中提取数据等。目前最流行的关系数据库管理系统，如Oracle、Sybase、Microsoft SQL Server、SQL Server等都采用了SQL语言标准。 尽管许多数据库都重新开发和扩展了SQL语句，但包括Select、Insert、Update、Delete、Create和Drop在内的标准SQL命令仍然可以用来完成几乎所有的数据库操作。

省略

3、系统架构

车辆管理工作非常复杂，包括车辆查询、入库、报废等，我们力求用计算机代人完成这些工作，让操作变得更简单、快捷。 这样可以大大减轻工作人员的负担。

3.1 系统需求分析

这个过程是一个不断认识、不断完善的过程。 这里要做的工作是深入描述软件的功能和性能，确定软件的设计约束以及软件与其他系统元素之间的接口细节，从而为软件开发奠定基础。

1、性能要求：本系统中管理员模块只能由管理员进行操作，一般登录用户无权操作，系统管理员必须进行身份验证才能进入界面进行操作。 登录司机还必须经过身份验证后才能进行操作。

2、功能需求：我们设计的系统要完成的功能模块如下：

1：车辆管理（车辆维修管理、车辆报废管理等）

2：车辆管理（车辆创建、车辆查询、车辆删除、车辆变更查询等）

三：车辆运行管理（车辆运行表、车辆运行查询、清除车辆运行表）

四：驱动管理（驱动管理、驱动查询等）

五：消耗品管理（针对油品和汽车消耗品管理）

六：计划管理（培训、维护、维修等预定计划）

七：系统维护（系统备份、系统恢复、系统检查）

3.2 可行性分析

省略

3.3 系统结构

系统整体结构图如下所示：

各功能模块相互独立，一个模块内部与另一个模块内部互不相关，每个模块都预留接口供其他模块调用。 或者使用POST方法提交表单，使用？ 使用函数和参数在模块之间传输信息。 有些模块是通用的，比如数据库连接模块，需要经常使用，所以单独使用是最好的选择。

4 系统设计

这里的设计依赖于之前的系统分析。 这里我们重点关注登录模块。 如果结构不清楚，代码就无从谈起。 只要结构清晰，代码编写就可以一一实现。 因此，在设计时，应先设计框架结构，然后再进行程序编码。

4.1 登录模块

该模块要实现的功能很重要。 对于用户来说，登录前后的区别是：登录前，不是本模块的成员，无权操作，无权浏览； 之后人员管理系统asp源码，他们就有查询权，也有操作权。

用户提交信息以HTML格式完成，需要文件Index.asp。 系统自动用ASP登录来操作数据库，需要连接User_Login.asp文件。

用户在Index.asp 文件中输入个人信息并将其提交给user_login.asp 文件。 数据库操作是由该 ASP 文件执行的。 根据不同的动作结果，系统会向用户做出不同的信息反馈。

源代码管理软件_源代码管理平台_人员管理系统asp源码

这是登录处理模块的中心。 user_login.asp文件非常简单：直接调用登录函数action来执行操作。 结构如图所示。

调用登录程序后，首先检查用户是否已经登录，根据用户是否登录进行分支选择：显示已登录用户的对应信息，或者向数据库添加新用户，即是，用户已登录。

判断条件通过action函数实现，利用提取的表单字段值来查询数据库。 如果得到查询结果。 表明该用户已经在数据库中，即该用户已登录。如果记录集为空，则表明该用户非法登录。

管理员的编辑和修改是通过user_login.asp实现的。 该方法是该模块的中心，相对复杂。 其结构如图所示。

5 系统实施

该系统面向大众，界面友好，操作简单。 有互联网经验的人可以根据界面提示顺利完成登录、查询、单位、返回等一系列动作。

2车辆查询及登记：

代码分析：

<%  
If request("action") = "save" Then
Call save()
ElseIf request("action") = "edit" Then
Call edit()
ElseIf request("action") = "del" Then
Call del()
ElseIf request("action") = "outlist" Then
Call outlist()
ElseIf request("action") = "saveoutlist" Then
Call saveoutlist()
Else
Call list()
End If  
End Sub
Sub list()%>
<script language="javascript">
function browse(id){location.href='?action=edit&mode=browse&id='+id;}
function del(id){if(confirm("删除车辆信息，将会删除与其相关的所有信息n确实要删除吗?")){location.href='?action=del&id='+id;}}
function edit(id){location.href='?action=edit&mode=update&id='+id;}
</script>
<%
sql="select * from [车辆基本特征] where Id >0"
If Request("zd")"" then
sql = sql & " and " & Request("zd") & " = '" & Request("keyword") & "'"
End if
If Request("order") = "" Then
sql = sql & " order by id desc"
Else
If split(Request("order"),"|")(1) = "1" Then
sql = sql & " order by "&split(Request("order"),"|")(0)&" asc"
Else
sql = sql & " order by "&split(Request("order"),"|")(0)&" desc"
End If
End If
'================================
'新建一个类
'================================
Set jumbotpage=new ShowMorePage 
jumbotpage.getconn=conn
jumbotpage.getsql = sql
jumbotpage.pagesize=pagesize
set rs=jumbotpage.getrs()
%>










0 Then
for i=1 to jumbotpage.GetCurPageNum '当前页的记录数目
%><tr class="bg_tablebody"align=center><td><a href=Menu_Vehicle_Circumstance_Introduction.asp?action=edit&mode=browse&id=<%=rs("Id")%>><% =rs("车号")%></a></td><td><% =rs("厂牌型号")%></td><td><% =rs("车辆类型")%></td><td align="center"><% =rs("车辆颜色")%></td><td><% =rs("所属单位")%></td><!--#include file="Inc/Menu_Operate.asp"--></tr><%
rs.movenext
Next
End If
%></table><table width=100% cellspacing="1"cellpadding="5"align=center class="bg_tablemain"><tr><td><%jumbotpage.showpage()%></td></tr></table><form action="?action=list"method=get name="thisform"onSubmit="return Validator.Validate(this,2)"><table width=100% cellspacing="1"cellpadding="5"align=center class="bg_tablemain"id='searchpage'><tr class="bg_tabletop"align=center><td colspan="2"><b>查询记录</b></td></tr><tr class="bg_tablebody"><td width="150"align=right>字段：<select size="1"name="zd"><option value="" selected>==全部==</option><option value="车号"<%If Request("zd")="车号" Then%>selected<%End If%>>车号</option><option value="车辆类型"<%If Request("zd")="车辆类型" Then%>selected<%End If%>>车辆类型</option><option value="所属单位"<%If Request("zd")="所属单位" Then%>selected<%End If%>>所属单位</option></select></td><td>=<input type=text name="keyword"size=25value=''></td></tr></table><table width=100% cellspacing="1"cellpadding="5"align=center class="bg_tablemain"><tr class="bg_tablebottom"><td align=center><input title='搜索'type="image"src="Images/btn/Search1.gif"class='picbutton'></td></tr></table></form><%End Sub%><%
Sub del()
Set rs = conn.execute("select * from [车辆基本特征] where id="& Request("id"))
ch = rs("车号")
Set rs = Nothing
'conn.execute("delete from [技术检查状态记录] where [车号]='" & ch &"'")'conn.execute("delete from [车辆保险] where [车号]='" & ch &"'")'conn.execute("delete from [事故记录] where [车号]='" & ch &"'")'conn.execute("delete from [车辆变更登记] where [车号]='" & ch &"'")'conn.execute("delete from [油料登记] where [车号]='" & ch &"'")'conn.execute("delete from [车辆保险] where [车号]='" & ch &"'")'conn.execute("delete from [派车登记] where [车号]='" & ch &"'")'conn.execute("delete from [车辆使用成本] where [车号]='" & ch &"'")'conn.execute("delete from [车辆使用杂费] where [车号]='" & ch &"'")'conn.execute("delete from [车辆年审情况] where [车号]='" & ch &"'")
conn.execute("delete from [车辆基本特征] where id="& Request("id"))
Response.write "history.go(-1);"
End Sub
%><%Sub edit()
Dim readonly,mode,id
mode=Request("mode")id=Request("id")
Set rs = server.CreateObject ("Adodb.recordset")sql="select * from [车辆基本特征]"
If mode="update" Then
sql = sql &" where id="&idreadonly=""
ElseIf mode="insert" Then
readonly=""
Else
sql = sql &" where id="&idreadonly="readonly"
End If 
rs.open sql,conn,3,3
%><form action='?action=save&mode=&id='method=post name='thisform'onSubmit='return Validator.Validate(this,2)'><div id='printpage'><table width='100%'cellspacing='1'cellpadding='5'align=center class='bg_tablemain'><tr class="bg_tablebody"><td width="19%"align=right>车号：</td><td width="31%"><input type=text name=ch size=12value="<%=FormatValue1(mode,rs("车号"))%>"<%=readonly%>dataType="CarNumber"msg="车号不正确"><%If mode "browse" Then%><font color="#FF0000">*</font>(格式：军A-00000)<%End If%></td><td width="19%"align=right>编配日期：</td><td width="31%"><input type=text name="bprq"size=12value="<%=FormatValue1(mode,rs("编配日期"))%>"<%=readonly%>dataType="Date"msg="日期格式为“”"><%If mode"browse" Then%><input type="button"onClick="SelectDate('bprq')"value="选择"><input type="button"onClick="CancelDate('bprq')"value="取消"><%End If%></td></tr><tr class="bg_tablebody"><td align=right>厂牌型号：</td><td><div style="position:absolute;width:0px;height:0px;overflow:visible;"><div style="position:absolute;top:21px;left:0px;visibility:hidden;text-align:left;overflow:visible;"id=cpxhdiv><iframe marginWidth=0marginHeight=0src="Select_Option.asp?tablename=车辆基本特征&itemname=厂牌型号&idname=cpxh"frameBorder=0width=180scrolling=yes height=60></iframe></div></div><div style="visibility:visible;"><input name="cpxh"type="text"id="cpxh"value="<%=FormatValue1(mode,rs("厂牌型号"))%>"size=25<%=readonly%>onClick="ShowOrHidden('cpxhdiv')"></div></td><td align=right>车辆类型：</td><td><div style="position:absolute;width:0px;height:0px;overflow:visible;"><div style="position:absolute;top:21px;left:0px;visibility:hidden;text-align:left;overflow:visible;"id=cllxdiv><iframe marginWidth=0marginHeight=0src="Select_Option.asp?tablename=车辆基本特征&itemname=车辆类型&idname=cllx"frameBorder=0width=120scrolling=yes height=60></iframe></div></div><div style="visibility:visible;"><input name="cllx"type="text"id="cllx"value="<%=FormatValue1(mode,rs("车辆类型"))%>"size=12<%=readonly%>onClick="ShowOrHidden('cllxdiv')"></div></td></tr><tr class="bg_tablebody"><td align=right>总金额：</td><td><input type=text name=zje size=10value="<%=FormatValue1(mode,rs("总金额"))%>"<%=readonly%>>
（万元）</td><td align=right>车架号：</td><td><input type=text name=cjh size=25value="<%=FormatValue1(mode,rs("车架号"))%>"<%=readonly%>></td></tr><tr class="bg_tablebody"><td align=right>发动机号：</td><td><input type=text name=fdjh size=25value="<%=FormatValue1(mode,rs("发动机号"))%>"<%=readonly%>></td><td align=right>总质量：</td><td><input type=text name=zzl size=8value="<%=FormatValue1(mode,rs("总质量"))%>"<%=readonly%>>
（吨）</td></tr><tr class="bg_tablebody"><td align=right>核定载质量：</td><td><input type=text name=hdzzl size=6value="<%=FormatValue1(mode,rs("核定吨位"))%>"<%=readonly%>>
（吨）</td><td align=right>核定座位：</td><td><input type=text name=hdzw size=6value="<%=FormatValue1(mode,rs("核定座位"))%>"<%=readonly%>>
（人）</td></tr><tr class="bg_tablebody"><td align=right>车辆颜色：</td><td colspan="3"><div style="position:absolute;width:0px;height:0px;overflow:visible;"><div style="position:absolute;top:21px;left:0px;visibility:hidden;text-align:left;overflow:visible;"id=csysdiv><iframe marginWidth=0marginHeight=0src="Select_Option.asp?tablename=车辆基本特征&itemname=车辆颜色&idname=csys"frameBorder=0width=60scrolling=yes height=60></iframe></div></div><div style="visibility:visible;"><input name="csys"type="text"id="csys"value="<%=FormatValue1(mode,rs("车辆颜色"))%>"size=8<%=readonly%>onClick="ShowOrHidden('csysdiv')"></div></td></tr><tr class="bg_tablebody"><td align=right>所属单位：</td><td colspan="3"><div style="position:absolute;width:0px;height:0px;overflow:visible;"><div style="position:absolute;top:21px;left:0px;visibility:hidden;text-align:left;overflow:visible;"id=ssdwdiv><iframe marginWidth=0marginHeight=0src="Select_Option.asp?tablename=车辆基本特征&itemname=所属单位&idname=ssdw"frameBorder=0width=100scrolling=yes height=60></iframe></div></div><div style="visibility:visible;"><input name="ssdw"type="text"id="ssdw"value="<%=FormatValue1(mode,rs("所属单位"))%>"size=12<%=readonly%>onClick="ShowOrHidden('ssdwdiv')"><%If mode "browse" Then%><font color="#FF0000">*</font>(如：业务科...)<%End If%></div></td></tr><tr class="bg_tablebody"><td align=right>备注：</td><td colspan="3"><input type=text name=bz size=40value="<%=FormatValue1(mode,rs("备注"))%>"<%=readonly%>></td></tr><%If mode "insert" Then%><tr class="bg_tablebody"><td align=right>车辆照片：</td><td colspan=5><%If mode"insert" Then%><img id='crzp'src="<%=rs("车辆照片")%>"border="1"width="320"height="240"><%Else%><img src="picture/blank.gif"border="1"width="300"height="180"><%End If%></td></tr><%End If%><%If mode="update" Then%><tr class="bg_tablebody"id=adv1 style="display:"><td align=right>车辆照片：</td><td colspan=5><iframe marginWidth=0marginHeight=0src="Pic_upload.asp?path1=Vehicle&path2=crzp&fileid=<%=rs("id")%>"frameBorder=0width=400scrolling=no height=20></iframe></td></tr><%End If%></table></div><table width=100% cellspacing="1"cellpadding="5"align=center class="bg_tablemain"><tr class="bg_tablebottom"><td align=center><!--#include file="Inc/Btn_Bttm.asp"-->&nbsp;&nbsp;<%If mode="update" Then%><input id=advcheck name="showit"type=checkbox value=1onclick=showpic() checked><span id=advance1>相关图片上传</span><%End If%>
3、车辆统计查询：
代码分析：
<%
dim total(100,2)
Set rs = server.CreateObject ("Adodb.recordset")
sql="select [所属单位] from [车辆基本特征] group by [所属单位]"
rs.open sql,conn,3,3
j = 0
hj = 0
If rs.eof Then
Response.write "单位无车辆"
Else
do while not rs.eof
j = j + 1
sybm = rs("所属单位")
total(j,2) = sybm
number = 0
sql ="select * from [车辆基本特征] where [所属单位]='"&sybm&"'"
Set rss = server.CreateObject ("Adodb.recordset")
rss.open sql,conn,3,3
If not rss.eof Then
number = rss.recordcount
End If
total(j,1)=number
hj = hj + number
Rs.movenext
Loop
CountMy = hj
total_no=j
all_width = total_no * 100 + 30
total_width = total_no * 100
Call table1(total,20,34,all_width,300,total_width)
Set rs = nothing
Set rs = server.CreateObject ("Adodb.recordset")
sql="select [车辆类型],count(车辆类型) from [车辆基本特征] group by [车辆类型]"
rs.open sql,conn,3,3
str = ""
n = 0
do while not rs.eof
If n > 0 Then str = str & "，"
str = str & rs(0) & "：" & rs(1) & "辆"
n = n + 1
Rs.movenext
Loop
Set rs = nothing

5.5 数据库设计
这个设计的本质是在数据库的操作上。 我们使用的后端是SQL Server数据库系统，总共有48个项目。 由于篇幅过多，只列出了几个重要的项目。
车辆材料_资源库
用户信息
司机基本信息
六，结论
省略
致谢
省略
参考
1 陈明. 软件工程课程。 科学技术出版社，2002年
2 萨世轩，王山. 数据库系统简介。 第三版。 高等教育出版社，2000年
3 飞思科技产品研发中心。  FrontPage 6.0 数据库应用程序开发。 电子工业出版社，2003年
4 一期技术产品研发中心。  FrontPage 6.0 开发人员手册。 电子工业出版社，2002年
5 沉敏.  FrontPage 6.0 主要突破。 清华大学出版社，2002年，302
6 Steve Teixeira，Xavir Pacheco着，龙劲松、王宇、谢尚书译。  FrontPage 6.0 开发人员指南。 机械工业出版社.  2003年
7 乔林. 通过Delphi／Kylix。 中国铁道出版社.  2003年
8 李伟.  Deep Core VCL 架构内部分析。 电子工业出版社.  2004年
9张喜欢写作组。  Windows API 函数参考手册。 人民邮电出版社.  2002年
严为民、吴为民​​. 数据结构。 第二版。 清华大学出版社。  2001年
10 王振岭. 软件工程实用教程高等教育出版社2004年
5.资源下载
本项目的源代码和完整论文如下，有需要的朋友可以点击下载。 如果链接失效，您可以点击下方卡片扫码自行下载。
编号 毕业设计全套资源（点击下载）
本项目的源代码
基于asp+sqlserver的WEB车辆管理系统的设计与实现（源码+文档）_asp_BS架构_车辆管理系统.zip









返回顶部








操作