大家好,今天给大家介绍基于asp+sqlserver的WEB车辆管理系统设计与实现,文章末尾附有本毕业设计的论文和源码下载地址哦。
文章目录:
项目难度:中等难度
适用场景:相关题目的毕业设计
配套论文字数:8651个字56页
包含内容:整套源码+完整毕业论文
资源文件目录简图如下:

提示:以下为毕业论文的简略介绍,项目源码及完整毕业论文下载地址见文末。
绪论
1.1课题背景
省略
1.2课题来源和意义
随着计算机技术的不断发展,计算机作为知识经济时代的产物,已被广泛应用于社会各个行业和领域。目前,我国的科技水平高速发展,计算机作为今天使用最广的现代化工具已深入到各个领域,并且正在成为未来社会——信息社会的重要支柱。在这样的大背景下,现代车辆的管理方式,资源建设等方面都发生了重大变化,这种变化表现在车辆工作,管理和服务平台发生的变化,车辆不再是传统的手工操作,人工管理,而是全面实行计算机管理。
车辆的正常运营中总是面对大量的驾驶员信息,车辆信息以及两者相互作用产生的入库信息,因此要对驾驶员资源,车辆资源,入库信息进行管理。本系统的开发就是在于提高车辆管理的工作效率,加强车辆的管理,全面实行计算机管理。
1.3国内外发展概况
省略
2 开发语言介绍
ASP是一种未经编译的开放式应用软件,是微软公司推出的一种用以取代CGI(公共网关接口即Common Gateway Interface)的技术,它实质是一种服务器端脚本环境。通过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. 功能需求:我们设计的系统要完成的功能模块如下:
一: 车辆管理(车辆维修管理,车辆报废管理等)
二: 车辆管理(车辆建立,车辆查询,车辆删除,车辆变更查询等.)
三: 车辆运营管理(车辆运营表,车辆运营查询,清空车辆运营表)
四:驾驶员管理(驾驶员管理,驾驶员查询等)
五:耗材管理(对于油,车的耗材类管理)
六:计划管理(训练,保养,维修等预定的计划)
七:系统维护(系统备份,系统还原,系统检查)
3.2 可行性分析
省略
3.3 系统结构
该系统的整个结构图如下所示:

各功能模块是相互独立的,一个模块的内部与另一个模块的内部是不相关的,每个模块留出一个接口供其他模块调用。或者使用POST方式进行表单提交,用?后面带函数和参数的方式,进行模块与模块间的信息传递。有部分模块是通用的,比如连接数据库模块,它需要经常用到,所以独立出来是最好的选择。
4 系统设计
这里的设计依赖于前面的系统分析。这里重点介绍登陆模块。结构不清楚,代码便无从谈起,只要结构清楚,代码编写便可一一实现。所以设计中要先设计框架结构,再进行程序编码。
4.1 登陆模块
本模块所要实现在功能是重要的,对于用户来说,登陆前后的区别在于:登陆之前不是本的成员,无权操作,无权浏览;之后有权查询也有权操作。
用户提交信息用HTML表单完成,需文件Index.asp。系统自动登陆用ASP操作数据库完成,需要连接文件User_Login.asp。
用户在Index.asp文件中输入个人信息,提交到user_login.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='<%=filename%>?action=edit&mode=browse&id='+id;}
function del(id){if(confirm("删除车辆信息,将会删除与其相关的所有信息\n确实要删除吗?")){location.href='<%=filename%>?action=del&id='+id;}}
function edit(id){location.href='<%=filename%>?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()
%>
<%jumbotpage.showpage()%>
<%Call OrderBy("车号","车号")%>
<%Call OrderBy("厂牌型号","厂牌型号")%>
<%Call OrderBy("车辆类型","车辆类型")%>
<%Call OrderBy("车辆颜色","车辆颜色")%>
<%Call OrderBy("所属单位","所属单位")%>
操作
<%
If rs.recordcount > 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="<%=filename%>?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=25 value='<% =Request("keyword")%>'></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 ""
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=" & id
readonly=""
ElseIf mode="insert" Then
readonly=""
Else
sql = sql & " where id=" & id
readonly="readonly"
End If
rs.open sql,conn,3,3
%>
<form action='<%=filename%>?action=save&mode=<%=mode%>&id=<%=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=12 value="<%=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=12 value="<%=FormatValue1(mode,rs("编配日期"))%>" <%=readonly%> dataType="Date" msg="日期格式为“<%=Date()%>”">
<%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=0 marginHeight=0 src="Select_Option.asp?tablename=车辆基本特征&itemname=厂牌型号&idname=cpxh" frameBorder=0 width=180 scrolling=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=0 marginHeight=0 src="Select_Option.asp?tablename=车辆基本特征&itemname=车辆类型&idname=cllx" frameBorder=0 width=120 scrolling=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=10 value="<%=FormatValue1(mode,rs("总金额"))%>" <%=readonly%>>
(万元)</td>
<td align=right>车架号:</td>
<td><input type=text name=cjh size=25 value="<%=FormatValue1(mode,rs("车架号"))%>" <%=readonly%>></td>
</tr>
<tr class="bg_tablebody">
<td align=right>发动机号:</td>
<td><input type=text name=fdjh size=25 value="<%=FormatValue1(mode,rs("发动机号"))%>" <%=readonly%>></td>
<td align=right>总质量:</td>
<td><input type=text name=zzl size=8 value="<%=FormatValue1(mode,rs("总质量"))%>" <%=readonly%>>
(吨)</td>
</tr>
<tr class="bg_tablebody">
<td align=right>核定载质量:</td>
<td><input type=text name=hdzzl size=6 value="<%=FormatValue1(mode,rs("核定吨位"))%>" <%=readonly%>>
(吨)</td>
<td align=right>核定座位:</td>
<td><input type=text name=hdzw size=6 value="<%=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=0 marginHeight=0 src="Select_Option.asp?tablename=车辆基本特征&itemname=车辆颜色&idname=csys" frameBorder=0 width=60 scrolling=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=0 marginHeight=0 src="Select_Option.asp?tablename=车辆基本特征&itemname=所属单位&idname=ssdw" frameBorder=0 width=100 scrolling=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=40 value="<%=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=0 marginHeight=0 src="Pic_upload.asp?path1=Vehicle&path2=crzp&fileid=<%=rs("id")%>" frameBorder=0 width=400 scrolling=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"-->
<%If mode="update" Then%>
<input id=advcheck name="showit" type=checkbox value=1 onclick=showpic() checked>
<span id=advance1>相关图片上传</span>
<%End If%>
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
- 127
- 128
- 129
- 130
- 131
- 132
- 133
- 134
- 135
- 136
- 137
- 138
- 139
- 140
- 141
- 142
- 143
- 144
- 145
- 146
- 147
- 148
- 149
- 150
- 151
- 152
- 153
- 154
- 155
- 156
- 157
- 158
- 159
- 160
- 161
- 162
- 163
- 164
- 165
- 166
- 167
- 168
- 169
- 170
- 171
- 172
- 173
- 174
- 175
- 176
- 177
- 178
- 179
- 180
- 181
- 182
- 183
- 184
- 185
- 186
- 187
- 188
- 189
- 190
- 191
- 192
- 193
- 194
- 195
- 196
- 197
- 198
- 199
- 200
- 201
- 202
- 203
- 204
- 205
- 206
- 207
- 208
- 209
- 210
- 211
- 212
- 213
- 214
- 215
- 216
- 217
- 218
- 219
- 220
- 221
- 222
- 223
- 224
- 225
- 226
- 227
- 228
- 229
- 230
- 231
- 232
- 233
- 234
- 235
- 236
- 237
- 238
- 239
- 240
- 241
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
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
5.5 数据库设计
本设计的精髓就是在数据库的操作上。我们用的后端是SQL Server数据库系统,共有48个项目,由于篇幅过多,只列举几个重要项目。

车材_资源库

用户信息

驾驶员基本信息

6 结束语
省略
致 谢
省略
参考文献
1陈明 . 软件工程学教程 .科技出版社,2002
2 萨师煊,王珊 . 数据库系统概论 . 第三版 . 高等教育出版社,2000
3 飞思科技产品研发中心 . FrontPage 6.0数据库应用开发 .电子工业出版社,2003
4 飞思科技产品研发中心 . FrontPage 6.0开发者手册 . 电子工业出版社, 2002
5 申旻 . FrontPage 6.0高手突破 . 清华大学出版社,2002,302
6 Steve Teixeira,Xaviver Pacheco著,龙劲松,王瑜,谢尚书译 . FrontPage 6.0开发人员指南 . 机械工业出版社 .2003
7 乔林 .参透Delphi/Kylix . 中国铁道出版社 .2003
8 李维 .Inside 深入核心 VCL 架构剖析 . 电子工业出版社 .2004
9 张立科编写组 .Windows API 函数参考手册 .人民邮电出版社 .2002
严蔚敏,吴伟民 .数据结构 .第二版 .清华大学出版社 .2001
10 王珍玲 。实用软件工程教程 高等教育出版社 2004
5、资源下载
本项目源码及完整论文如下,有需要的朋友可以点击进行下载
序号 毕业设计全套资源(点击下载) 本项目源码 基于asp+sqlserver的WEB车辆管理系统设计与实现(源码+文档)_asp_BS架构_车辆管理系统.zip
-
相关阅读:
Nacos 系统参数介绍
性格急躁怎么办?如何改变急躁的性格?
灵活运用Vue指令:探究v-if和v-for的使用技巧和注意事项
关于良率:交期延误、报废补料、不做退款都是什么情况?
iOS全埋点解决方案-数据存储
在群晖上安装Nextcloud-AIO详解
Android修改分区格式为F2FS
ke8学校陈老师H5
Unity-镜头移动的相关逻辑
常识性概念知识图谱
-
原文地址:https://blog.csdn.net/m0_66238867/article/details/125908985