数据库课程设计：物流信息管理系统

数据库课程设计2010 ~ 2011学年二学期

物流信息管理系统

——数据库（Javascript ASP）课程设计

一、需求分析

物流管理系统是物流公司货物管理重要的一个环节，物流管理软件有助于减轻物流管理人员的负担，提高工作效率。该物流管理系统是对货物管理，运单管理，客户信息管理，货物状态管理、货物信息管理进行管理和维护，实现物流管理的基本功能。本系统要求运行稳定，图形界面符合用户的日常使用习惯，数据处理正确无误。

●系统概述

物流管理系统主要完成企事业单位物流管理方面相关的功能，包括：北京中铁快运https://www.360docs.net/doc/6f4546395.html,

1.货物信息管理。主要完成货物信息的添加、修改、删除和查询。

2.管理员管理。主要完成管理员的添加、修改、删除以及管理员

权限设置及密码修改。

3.企业自定义管理是企业对自定义的信息的添加和修改。

4.快速查询管理，实现对系统信息的快速查询与定位，以及货物

信息的即时显示。

●系统运行环境

1.硬件环境

处理器：iv 或更高

内存：256M以上

硬盘空间：120G以上

2.软件环境

操作系统：Windows XP2003

●功能需求描述

该系统的功能需求有如下方面

1.货物信息管理。主要用于货物信息进行维护。功能包括货物信息的添

加、修改和删除已有的货物信息，使用各种方式对货物信息进行查询。

2.管理员管理。主要完成管理员的添加、修改、删除以及管理员权限设

置及密码修改。

3.企业自定义管理是企业对自定义的信息的添加和修改。

4.快速查询管理，实现对系统信息的快速查询与定位，以及货物信息的即

时显示。

二、总体设计（E——R）

总体设计主要是根据系统需求划分功能模块，根据各个模块的功能设计图形用户界面，以及完成数据库的逻辑设计与物理设计。

●开发与设计的总体思想

作为物流企事业单位使用的物流管理系统，功能实用、界面简单、操作简便是设计方面的重要考虑。

●系统模块的结构图

依据需求分析结果，物流管理系统的主要模块包括：货物信息管理、系统管理员管理、企业自定义管理和快速查询管理等功能，系统结构图如下图

模块设计

1.货物信息管理模块

2.管理员管理模块

3.收件人管理模块

4.快速查询管理模块

界面设计

1.主窗体菜单设计

2.客户信息管理界面设计

（1）客户信息添加界面设计

（2）客户信息修改界面设计

（3）客户信息删除界面设计

（4）客户信息查询界面设计

3.管理员界面设计

（1）用户添加界面设计

（2）用户权限界面设计

（3）管理员密码修改界面设计

4.用户自定义界面设计

数据库设计

1.货物状态基本信息表

名称：货物状态基本信息表

2.管理员表

名称：管理员表

3.发货表

名称：发货表

4.企业自定义表

名称：企业自定义表

三、详细设计

基于系统需求分析于系统总体设计的结论，本系统采用实现各模块的功能，下面按照功能的划分来分别阐述系统的详细设计和实现过程。

货物信息管理模块

1.功能描述

该模块主要提供了货物信息的添加、修改、删除和查询界面，

完成货物信息的添加、修改、删除和查询功能。

2.窗体和源文件定义

●管理员管理模块

1.功能描述

该模块主要提供管理员的添加、修改，以及管理员密码修改功能。

2.窗体和源文件定义

●企业自定义管理模块

1.功能描述

该模块主要提供企业自定义的添加、修改功能。

2.窗体和源文件定义

●快速查询管理模块

1.功能描述

该模块主要提供实现对系统信息的快速查询与定位，以及货物信息的即时显示。

2.窗体和源文件定义

该功能模块涉及到的窗体名称和文件名见下表

四、程序代码

1查询函数代码

selected<%end if%>>运单号

selected<%end if%>>取货时间

selected<%end if%>>收货人

selected<%end if%>>客户性质

selected<%end if%>>货物发送时间

<%=createSel("货物状态","")%>

<%end if%>

2．数据库连接代码

<%

db_crm="data/admin.mdb"'

db_password="admin"'

Dim MM_EmpMain_STRING

MM_EmpMain_STRING = "Driver={Microsoft Access Driver (*.mdb)};uid=;pwd="&db_password&";DBQ="&server.MapPath(db_crm)

session.Timeout=1000

%>

3．运单添加函数及相关代码

<%

If (CStr(Request("MM_insert")) = "form1") Then

MM_editTable = "EmpGeneralInfo"

MM_editRedirectUrl = "EmpMain_AddNew_Sucess.asp"

Set rs= Server.CreateObject ("ADODB.RecordSet")

rs.open "select * from kufu where id="&request("id1")&" order by id desc

",MM_EmpMain_STRING,3,3

if rs.eof then

rs.addnew

rs("id1")=request("id1")

rs("取货人")=request("quhuoren")

rs("发货人")=request("fahuoren")

rs("货运站")=request("huoyunzhan")

rs("货运公司")=request("huoyuncompany")

rs("货运公司电话")=request("huoyuncompanytel")

rs("货物发送时间")=request("huowusendtime")

'rs("id")=request("id")

rs("货物到站")=request("huowudaozhan")

rs("寄件人")=request("jijianren")

rs("寄件人电话")=request("jijianrentel")

rs("寄件人地址")=request("jijianrenadd")

rs("收件人")=request("shoujianren")

rs("收件人电话")=request("shoujianrentel")

rs("收件人地址")=request("shoujianrenadd")

rs("货物状态")=request("huowuzhuangtai")

rs("货物到站时间")=request("huoyundaozhantime")

rs("预计到达时间")=request("yujitime")

rs("送货人")=request("sender")

rs("送货人电话")=request("sendertel")

rs("签收人")=request("qianshouren")

rs("签收日期")=request("qianshouriqi")

rs("录入人")=session("name")

rs("客户端货物状态")=request("kehuzhuangtai")

rs("客户性质")=request("kehuxingzhi")

rs("取货时间")=request("quhuotime")

rs("件数")=request("shijijianshu")

rs("合成件数")=request("hecheng")

rs("重量")=request("weight")

rs("客户意向发货方式")=request("kehuyixiang")

rs("实际发货方式")=request("shijifahuo")

rs("date")=date()

rs("redate")=date()

rs("备注")=request("qt")

rs.update

msg="已添加"

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "")

Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If

End If

response.redirect( MM_editRedirectUrl)

else

msg="数据库中已存在该运单！不能重复！"

end if

End If

%>

<%

%>

4．管理员密码修改

<%

UserID = request.QueryString("UserID")

%>

<%

Set MM_editCmd = Server.CreateObject("https://www.360docs.net/doc/6f4546395.html,mand")

MM_editCmd.ActiveConnection = MM_EmpMain_STRING

MM_editQuery = "delete from User where id = " & UserID & ""

MM_https://www.360docs.net/doc/6f4546395.html,mandText = MM_editQuery

MM_editCmd.Execute

%>

5.管理员登陆验证

<%if session("name")="" then

response.write("你登陆已过期，请重登！")

else

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formV al

Dim MM_delim

Dim MM_altV al

Dim MM_emptyV al

Dim MM_i

dim msg

MM_editAction = CStr(Request.ServerV ariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

' boolean to abort record edit

MM_abortEdit = false

' query string to execute

MM_editQuery = ""

%>

五、课设总结

1、个个组员主要完成工作

陈召新：主界面的设计及部分程序编写

吴凤龙：数据库表格设计，登陆界面设计

史亭洲：数据库连接及相关函数编写

甘慧娟：程序调试及优化，修改页面函数的编写

齐岩：报告的书写

2 、设计过程中的难点与重点描述；

在设计过程中，遇到的最大困难就是数据库表格间的优化查询问题和功能设计阶段，最终经过五个人的共同努力，经过查询资料和互相商讨，解决了问题。我们的物流信息管理系统重点对各种货物信息的

管理上进行优化，使数据能及时更新，查询更加便捷。

3 、课程设计收获

本课程设计主要完成了ISS5.1asp访问数据库

我们完成了物流管理系统的需求分析、设计、编码的完整过程，实现了货物管理，运单管理，客户信息管理，货物状态管理、货物信息管理等基本功能。

在设计的过程中，我们各尽职责，都从自己负责的环节中了解了许多新知识，比如：对数据库的优化、框架的设计、代码的优化等，同时也是一次系统的、全面的检验以前知识的检验过程，让我们了解到了数学算法的重要性。ISS5.1asp