|
3.1 系统需求分析 该过程是个不断认识不断细化的过程。这里所要完成的工作是深入描述软件的功能和性能，确定软件的设计限制和软件同其他系统元素的接口细节，从而奠定软件的开发基础。 内容来自论文无忧网 www.paper51.com 1．性能需求：该系统中，管理员模块只有管理人员才能对其进行操作，一般的登陆用户无权操作，系统管理人员要进行身分验证才能进入界面操作。登陆驾驶员也要进行身份验证方可进行操作操作。 paper51.com 2．功能需求：我们设计的系统要完成的功能模块如下： 内容来自www.paper51.com 一: 车辆管理(车辆维修管理,车辆报废管理等) paper51.com 二: 车辆管理(车辆建立,车辆查询,车辆删除,车辆变更查询等.) http://www.paper51.com 三: 车辆运营管理(车辆运营表,车辆运营查询,清空车辆运营表) paper51.com
四:驾驶员管理(驾驶员管理,驾驶员查询等) 内容来自论文无忧网 www.paper51.com 五:耗材管理（对于油，车的耗材类管理） copyright paper51.com
六：计划管理（训练，保养，维修等预定的计划） paper51.com 七：系统维护(系统备份,系统还原,系统检查) 内容来自www.paper51.com 3．环境需求：客户端应有IE或其它浏览器，服务器端应有Windows2000,WindowsNT,或Windows98 ，服务器软件应有pws或IIS,硬件要求386以上的计算机。 paper51.com 4．界面需求：本软件是面向大众，界面友好，操作简单灵活，根据界面上的提示便可完成一系列动作。 内容来自论文无忧网 www.paper51.com
3．2 可行性分析 paper51.com 在软件的开发过程中，这一步是十分必要的。如果在定义阶段及早发现将来可能在开发过程中的问题，及早做出决断，可以避免大量的人力，财力和时间上的浪费。 内容来自论文无忧网 www.paper51.com
1．技术可行性：本组开发成员都具有一定的电脑知识，学习过多种程序开发语言。特别是在项目确定后对ASP和网的强化学习，使本系统成功开发成为可能。 copyright paper51.com 2．经济可行性：本系统有其生存空间，成功后有其市场。并且本开发人员基于一种爱好去研究他的，我们有自己的电脑，可以说成本开支极其有限。 paper51.com 3．现阶段各种各样的车辆越来越多，车辆的书也越来越多，车辆的管理工作也越来越复杂。本系统就是为了减轻车辆管理人员的工作而设计的。 内容来自www.paper51.com 4．法律可行性：本系统为独立完成，不关他人，开发成功后其所有权归本人所有 paper51.com 基于水平和时间有限，我们的系统还不是十分完善。 http://www.paper51.com 以现有的人力和时间来衡量，我们只有放弃。 内容来自论文无忧网 www.paper51.com 经过以上可行性论证，本系统可以按任务书要求开发。 paper51.com 3．3 系统结构 paper51.com
该系统的整个结构图如下所示： 内容来自www.paper51.com
内容来自www.paper51.com 各功能模块是相互独立的，一个模块的内部与另一个模块的内部是不相关的，每个模块留出一个接口供其他模块调用。或者使用POST方式进行表单提交，用？后面带函数和参数的方式，进行模块与模块间的信息传递。有部分模块是通用的，比如连接数据库模块，它需要经常用到，所以独立出来是最好的选择。 内容来自论文无忧网 www.paper51.com 4.系统设计 内容来自论文无忧网 www.paper51.com 这里的设计依赖于前面的系统分析。这里重点介绍登陆模块。结构不清楚，代码便无从谈起，只要结构清楚，代码编写便可一一实现。所以设计中要先设计框架结构，再进行程序编码。 copyright paper51.com 4．1 登陆模块 paper51.com 本模块所要实现在功能是重要的，对于用户来说，登陆前后的区别在于：登陆之前不是本的成员，无权操作，无权浏览；之后有权查询也有权操作。 paper51.com 用户提交信息用HTML表单完成，需文件Index.asp。系统自动登陆用ASP操作数据库完成，需要连接文件User_Login.asp。 paper51.com 用户在Index.asp文件中输入个人信息，提交到user_login.asp文件。并由这个ASP文件进行数据库动作，根据不同的动作结果，系统将作出不同的信息反馈给用户。 http://www.paper51.com
paper51.com 这是登陆处理模块的中心，user_login.asp文件很简单：直接调用其中的登陆函数action进行动作，结构如图所示。 copyright paper51.com
copyright paper51.com 显示提示成功信息 copyright paper51.com
是 否 copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 登陆程序被调用后，先检查该用户是否已经登陆过，按是否登陆进行分枝选择：对已经是登陆的用户显示相应信息，或将新用户加入的数据库中，即为该用户登陆。 copyright paper51.com 判断条件是通过action函数实现的，该函数利用提取的表单字段值对数据库进行查询。如果查询到结果。则表明该用户经在数据库中，即该用户是登陆了。如果记录集为空则表明该用户是非法登陆。 内容来自www.paper51.com 编辑修改管理员是通过user_login.asp来实现的，这个方法是模块的中心，也比较复杂，其结构如图所示。 paper51.com
paper51.com
copyright paper51.com 显示成功后返回 paper51.com 显示失败后返回 内容来自论文无忧网 www.paper51.com 是 否 内容来自www.paper51.com 5.系统实现 http://www.paper51.com
本系统是面向大众的，界面友好，操作简单，具有上网经历的人都可根据界面的提示顺利完成登陆，查询，单位，归还等一系列动作功能。 内容来自www.paper51.com
该应用程序经过多次调试，性能隐定，效率高。输入，输出及处理的精确度达到了工作要求标准。响应时间，处理时间均比较短暂。 内容来自www.paper51.com 该系统对运行硬件的要求：386以上处理器，640k以上内存，1兆以上的可用硬盘空间，具有3。5英寸软区。 内容来自www.paper51.com 该系统可运行在windows95/windows98/windowsme/windows2000等操作系统之上，需安装有IE等浏览工具。 copyright paper51.com 安装及初始化：本应用系统的安装可以从软盘直接拷贝。 http://www.paper51.com
2车辆查询登记: http://www.paper51.com http://www.paper51.com 代码分析: 内容来自论文无忧网 www.paper51.com <% http://www.paper51.com Ifrequest("action") = "save" Then 内容来自论文无忧网 www.paper51.com Callsave() http://www.paper51.com ElseIfrequest("action") = "edit" Then http://www.paper51.com Calledit() 内容来自论文无忧网 www.paper51.com ElseIfrequest("action") = "del"Then copyright paper51.com
Calldel() http://www.paper51.com ElseIfrequest("action") = "outlist" Then 内容来自论文无忧网 www.paper51.com Calloutlist() 内容来自论文无忧网 www.paper51.com
ElseIfrequest("action") = "saveoutlist" Then copyright paper51.com Callsaveoutlist() 内容来自www.paper51.com
Else 内容来自论文无忧网 www.paper51.com
Calllist() 内容来自论文无忧网 www.paper51.com EndIf 内容来自论文无忧网 www.paper51.com End Sub 内容来自www.paper51.com Sub list()%> 内容来自论文无忧网 www.paper51.com <scriptlanguage="javascript"> copyright paper51.com functionbrowse(id){location.href='<%=filename%>?action=edit&mode=browse&id='+id;} paper51.com function del(id){if(confirm("删除车辆信息，将会删除与其相关的所有信息\n确实要删除吗?")){location.href='<%=filename%>?action=del&id='+id;}} 内容来自www.paper51.com
functionedit(id){location.href='<%=filename%>?action=edit&mode=update&id='+id;} http://www.paper51.com
</script> http://www.paper51.com <% paper51.com sql="select * from [车辆基本特征] where Id >0" copyright paper51.com IfRequest("zd")<>"" then copyright paper51.com sql= sql & " and " & Request("zd") & " ='" & Request("keyword") & "'" paper51.com End if 内容来自www.paper51.com If Request("order") = ""Then paper51.com sql= sql & " order by id desc" copyright paper51.com Else 内容来自论文无忧网 www.paper51.com
Ifsplit(Request("order"),"|")(1) = "1" Then 内容来自论文无忧网 www.paper51.com
sql= sql & " order by"&split(Request("order"),"|")(0)&"asc" 内容来自www.paper51.com
Else copyright paper51.com sql= sql & " order by"&split(Request("order"),"|")(0)&"desc" copyright paper51.com
EndIf 内容来自www.paper51.com
End If paper51.com '================================ 内容来自论文无忧网 www.paper51.com '新建一个类 paper51.com '================================ 内容来自www.paper51.com Set jumbotpage=new ShowMorePage copyright paper51.com jumbotpage.getconn=conn http://www.paper51.com jumbotpage.getsql = sql copyright paper51.com jumbotpage.pagesize=pagesize paper51.com set rs=jumbotpage.getrs() http://www.paper51.com %> http://www.paper51.com <table width=100%cellspacing="1" cellpadding="5" align=centerclass="bg_tablemain"> 内容来自www.paper51.com <tr> copyright paper51.com
<td><%jumbotpage.showpage()%></td> paper51.com
</tr> 内容来自www.paper51.com </table> 内容来自www.paper51.com
<table width=100%cellspacing="1" cellpadding="5" align=centerclass="bg_tablemain"> 内容来自论文无忧网 www.paper51.com <trclass="bg_tabletop" align=center> http://www.paper51.com <tdwidth=* align="center"><b><%Call OrderBy("车号","车号")%></b></td> 内容来自www.paper51.com
<tdwidth=* align="center"><b><%Call OrderBy("厂牌型号","厂牌型号")%></b></td> 内容来自论文无忧网 www.paper51.com
<tdwidth=* align="center"><b><%Call OrderBy("车辆类型","车辆类型")%></b></td> 内容来自www.paper51.com <tdwidth=* align="center"><b><%Call OrderBy("车辆颜色","车辆颜色")%></b></td> 内容来自www.paper51.com <tdwidth=* align="center"><b><%Call OrderBy("所属单位","所属单位")%></b></td> http://www.paper51.com <tdwidth=* align="center"><b>操作</b></td> paper51.com </tr> paper51.com <% 内容来自论文无忧网 www.paper51.com If rs.recordcount > 0 Then 内容来自论文无忧网 www.paper51.com fori=1 to jumbotpage.GetCurPageNum '当前页的记录数目 copyright paper51.com %> paper51.com <trclass="bg_tablebody" align=center> 内容来自www.paper51.com <td><ahref=Menu_Vehicle_Circumstance_Introduction.asp?action=edit&mode=browse&id=<%=rs("Id")%>><%=rs("车号")%></a></td> 内容来自www.paper51.com <td><%=rs("厂牌型号")%></td> paper51.com <td><%=rs("车辆类型")%></td> copyright paper51.com <tdalign="center"><% =rs("车辆颜色")%></td> copyright paper51.com
<td><%=rs("所属单位")%></td> 内容来自www.paper51.com <!--#includefile="Inc/Menu_Operate.asp"--> copyright paper51.com </tr> 内容来自www.paper51.com
<% http://www.paper51.com
rs.movenext http://www.paper51.com
Next 内容来自论文无忧网 www.paper51.com End If http://www.paper51.com
%> 内容来自论文无忧网 www.paper51.com </table> paper51.com
<table width=100%cellspacing="1" cellpadding="5" align=centerclass="bg_tablemain"> copyright paper51.com <tr> http://www.paper51.com <td><%jumbotpage.showpage()%></td> http://www.paper51.com </tr> 内容来自论文无忧网 www.paper51.com </table> 内容来自www.paper51.com <formaction="<%=filename%>?action=list" method=getname="thisform" onSubmit="returnValidator.Validate(this,2)"> copyright paper51.com
<table width=100%cellspacing="1" cellpadding="5" align=centerclass="bg_tablemain" id='searchpage'> copyright paper51.com <tr class="bg_tabletop"align=center> paper51.com <td colspan="2"><b>查询记录</b></td> http://www.paper51.com
</tr> 内容来自论文无忧网 www.paper51.com <tr class="bg_tablebody"> 内容来自www.paper51.com <td width="150" align=right>字段：<select size="1"name="zd"> 内容来自论文无忧网 www.paper51.com <option value="" selected>==全部==</option> 内容来自论文无忧网 www.paper51.com <option value="车号" <%IfRequest("zd") = "车号" Then%>selected<%End If%>>车号</option> 内容来自www.paper51.com
<option value="车辆类型" <%If Request("zd")= "车辆类型" Then%>selected<%End If%>>车辆类型</option> 内容来自www.paper51.com
<option value="所属单位" <%IfRequest("zd") = "所属单位" Then%>selected<%End If%>>所属单位</option> 内容来自www.paper51.com </select></td> 内容来自论文无忧网 www.paper51.com <td>= <input type=textname="keyword" size=25 value='<%=Request("keyword")%>'></td> 内容来自www.paper51.com </tr> 内容来自论文无忧网 www.paper51.com </table> 内容来自论文无忧网 www.paper51.com
<table width=100%cellspacing="1" cellpadding="5" align=centerclass="bg_tablemain"> copyright paper51.com <tr class="bg_tablebottom"> 内容来自www.paper51.com <td align=center><input title='搜索' type="image"src="Images/btn/Search1.gif" class='picbutton'></td> paper51.com </tr> copyright paper51.com </table> paper51.com </form> 内容来自论文无忧网 www.paper51.com <%End Sub%> 内容来自www.paper51.com
<% copyright paper51.com Sub del() 内容来自www.paper51.com Setrs = conn.execute("select * from [车辆基本特征] where id=" & Request("id")) http://www.paper51.com ch= rs("车号") copyright paper51.com Setrs = Nothing 内容来自论文无忧网 www.paper51.com 'conn.execute("deletefrom [技术检查状态记录] where [车号]='" & ch & "'") 内容来自www.paper51.com 'conn.execute("deletefrom [车辆保险] where [车号]='" & ch & "'") http://www.paper51.com 'conn.execute("deletefrom [事故记录] where [车号]='" & ch & "'") 内容来自论文无忧网 www.paper51.com 'conn.execute("deletefrom [车辆变更登记] where [车号]='" & ch & "'") http://www.paper51.com 'conn.execute("deletefrom [油料登记] where [车号]='" & ch & "'") 内容来自www.paper51.com 'conn.execute("deletefrom [车辆保险] where [车号]='" & ch & "'") copyright paper51.com 'conn.execute("deletefrom [派车登记] where [车号]='" & ch & "'") http://www.paper51.com 'conn.execute("deletefrom [车辆使用成本] where [车号]='" & ch & "'") 内容来自www.paper51.com
'conn.execute("deletefrom [车辆使用杂费] where [车号]='" & ch & "'") http://www.paper51.com 'conn.execute("deletefrom [车辆年审情况] where [车号]='" & ch & "'") paper51.com conn.execute("deletefrom [车辆基本特征] where id=" & Request("id")) 内容来自www.paper51.com Response.write"<script>history.go(-1);</script>" 内容来自www.paper51.com End Sub 内容来自www.paper51.com %> copyright paper51.com
paper51.com |