课 程 设 计 说 明 书
设计题目： 物流管理信息系统之订单管理子系统设计
专 业：
设 计 人： _____ ______
山 东 科 技 大 学
2014 年 月 日
课 程 设 计 任 务 书
学院 机械电子工程学院 专业 班级 2011-2 姓名
一、课程设计题目：物流管理信息系统之订单管理子系统设计
二、课程设计内容与要求：
（1）设计一套订单管理系统，要求能完成基本的订单录入、修改、删除
（2）系统分为管理员登录与用户登录两大方向_______________________
（3）可注册新用户，用户信息，管理员信息可修改___________________
________________________________________________________________
三、课程设计应解决主要问题：
（1）主窗体与各个分窗体结构设计________ _______________________
（2）程序与数据库的连接_________________________________________
（3）各窗体具体代码编写_____________________________________ ___
________________________________________________________________
四、课程设计相关附件（如：图纸、软件等）
（1）课程设计说明书一份
（2）存有设计内容的光盘一张______________________________________
________________________________________________________________
________________________________________________________________
五、任务发出日期： 2013-12-23 _ 课程设计完成日期： 2014-1-4
指导教师签字：_______________ 系主任签字：_____________
指导教师对课程设计的评语
指导教师签字：
_____年____月____日
目 录
1．课题简介………………………………………………………3
课题研究目的和意义………………………………………3
课题主要研究内容…………………………………………3
2．系统分析………………………………………………………4
业务流程图…………………………………………………4
用户需求分析………………………………………………4
系统功能设计………………………………………………6
3．系统设计………………………………………………………6
总体设计……………………………………………………6
详细设计……………………………………………………7
数据结构设计………………………………………………7
4 ． 系 统 实 施 … … … … … … … … … … … … … … … … … … … … 9
系统首界面…………………………………………………………9
登录界面 …………………………………………………………11
新用户注册界面……………………………………………………13
提示完善个人信息界面……………………………………………15
用户完善个人信息界面……………………………………………17
用户登录界面………………………………………………………19
用户查看个人信息界面……………………………………………24
用户完善个人信息界面……………………………………………26
管理员登录界面……………………………………………………28
管理员信息修改界面 …………………………………………33
管理员查看用户信息界面 ……………………………………35
6．使用说明……………………………………………………37
7．参考资料……………………………………………………37
1.课题简介
课题研究目的和意义
在科学技术日新月异的今天，计算机已逐步渗入各个领域，随着互联网的
普及，我们进入了信息化的时代，人们只要在家中轻点几下鼠标就能轻松获得各
种信息，并且能够购买到自己需要的商品，既摆脱了时间和空间的限制又节约了
大量的时间。商品销售订单管理系统正是在这种情况下诞生并逐渐发展起来的，
它已成为我们进行商品交易中不可缺少的部分。
本系统是在分析了现行商品管理中存在的问题的基础上，结合信息管理系统
开发的概念、结构及系统开发的基本原理和方法，开发的一套企业商品订单管理
系统。该系统目的在于同时满足销售方与用户进行订单管理，进而满足经营管理
运作流程。并且操作方便、功能强大，即便操作者对计算机知识一窍不通也可以
熟练使用该系统，一用就会。
课题研究的主要内容
企业订单管理系统主要完成的内容包括：
系统登录控制。必须使用用户名和密码登录后才能使用系统。
产品信息浏览。浏览系统中所有的产品信息，可以使用指定的关键词查询相
应的产品，并通过报表的形式将查询结果输出。
产品信息管理。管理订单中所使用的产品信息，可以浏览、增加、修改和删
除产品信息。
订单信息管理。管理订单信息，可以浏览、增加、修改和删除订单信息，在
增加订单时需要使用的产品信息和客户信息必须首先通过产品信息管理和客户
信息管理功能添加。
客户信息浏览。浏览系统中所有的客户信息，可以使用指定的关键字查询相
应的客户，并且可以使用报表的形式将查询结果输出。
客户信息管理。管理下订单时客户信息，可以浏览、增加、修改和删除客户
信息。
用户权限管理。本系统中实现了简单的用户权限管理，普通用户仅能修改密
码，而管理员用户则可以添加、修改、删除用户。
利用系统分析和设计原理，采用面向对象的编程方法，通过用 Visual Basic
编写企业订单管理系统，用 SQL Server 2000 进行数据库建设与管理，实现了
企业订单管理的自动化和信息化
2.系统分析
业务流程图
.
用户需求分析
设计任何定制化产品都是一个“翻译”的过程。我们需要把浮现在客户脑海中
的模糊想法、愿望挖掘出来，并“翻译”成满足他们需求的现实产品。这个“翻译”
过程的第一步就是理解用户的需求。设计最好的订单处理系统对于需要一个电路
设计工具的客户来说毫无意义。我们首先制定了一个计划，其中包含挖掘客户需
求的一系列步骤。遵循这些步骤能更好地理解客户需求，但在一些项目中我们不
需要遵循所有的步骤。举例来说，如果客户是单个人且需求很明确时，我们就不
需要进行“搞清谁是谁”与“头脑风暴”了。当客户的数据需要保密时，我们就不能
“尝试客户的工作”了。在另一些项目中，调整这些步骤的顺序会更为合适。例如
我们可能在去拜访客户和观察他们工作之前先进行“头脑风暴”。
我们需要思考，向客户问些什么问题可以帮助我们了解项目的目标和要求。
以下几个方面的问题可以作为起始点。
1）功能与目标。
(1).系统应该做些什么
(2）.为什么你想建这个系统
(3).系统看上去应该是怎样的
(4).需要些什么报表
(5).用户需要自己定义新报表吗
(6).系统的操作者会是谁
2）数据需求：
这些问题是为了弄清项目的数据需求。。
(1).系统界面上需要展现哪些数据
(2).这些数据应该由谁来提供
(3).这些数据是如何关联的
(4).这些工作现在是如何处理的?数据来自哪里?
(5).数据完整性：
3）数据库完整性约束。
(1).哪些数据是必须填写的(一条客户记录必须有电话信息吗)
(2).数据的有效域是什么?(电话号码是否有格式规定?地址数据应有多长)
(3).系统中是否必须在定义了客户之后才能下订单
(4).系统要求多高的可用性等级(系统需要 7×24 的可用性吗?数据的备份频
率要多高)
4）安全性：
这些问题能帮助我们了解客户对权限控制与审计方面的需求。
(1).是否每个用户都需要一个不同的密码
(2).是否需要控制不同的用户所能访问的数据( 销售代表有权限看到客户的
信用卡账号，但订单录入专员却不能)
(3).存储在数据库中的数据是否需要加密
(4).谁做了什么操作是否需要记录以便于审计( 记录销售代表提高客户级别
的操作，在需要时可以追溯操作的原因)
系统功能设计
主要功能就是给用户带来信息的沟通，交流的便捷。订单管理系统的主要功
能是通过统一订单提供用户整合的一站式员工供应链服务。订单管理系统物流管
理链条中的不可或缺的部分，通过对订单的管理和分配，使仓储管理和运输管理
有机的结合，稳定有效地实现物流管理中各个环节充分发挥作用，使仓储、运输、
订单成为一个有机整体，满足物流系统信息化的需求。
订单管理是对商户下达的各种指令进行管理、查询、修改、打印等功能，同
时将业务部门处理信息反馈至商户。订单管理系统一般包括：订单处理，订单确
认等。
3.系统设计
总体设计
该系统为了两大部分：用户登录后的界面，管理员登录后的界面。
详细设计
class 类：实现数据库的连接字符串
Register 类：实现用户注册
Login 类：登录窗口类，用户登录时选择用户角色，进入员工操作界面。管
理员登录时则进入相应的界面进行订单信息操作。
main 类：实现系统功能的类，实现各模块的功能。如订单基本信息录入，订
单提交，订单退订。删除订单信息，修改订单信息，查看订单信息。
Main 类：用户操作界面，在此用户可以查看订单的信息，且可以订单的提
交和退订。
Adm 类：管理员操作页面，在此管理员可以查看和处理所有客户订单信息，
可以查看客户基本信息以及个人信息。
UserInfo 类：显示用户信息、用于管理员对客户的信息查询和处理。
数据结构设计
用户表属性：
用户表：
商品表属性：
商品表：
管理员信息表属性：
管理员信息表：
订单信息表属性：
订单信息表：
4.程序实施
主体窗口
Private Sub MDIForm_Load()
Dim X0 As Long
Dim Y0 As Long '让窗体居中
X0 =
Y0 =
X0 = (X0 - ) / 2
Y0 = (Y0 - ) / 2
X0, Y0
End Sub
Private Sub mfdljm_Click()
Unload Me
End Sub
Private Sub mfexit_Click()
End
End Sub
登录界面
Private Sub Command1_Click()
Static micount As Integer '用于记录输入密码次数
Dim sqlstr As String
sqlstr = "select * from 用户信息表 where 用户名='" & Text1 & " '"
= sqlstr
If Then '若没有找到符合 where 条件的记录
MsgBox "姓名错误，重新输入", vbExclamation, "警告"
= ""
'text1 获得焦点
Else
If ("密码") = Text2 Then
Unload Me
Else
MsgBox "密码错误，重新输入", vbExclamation, "警告"
= ""
End If
End If
micount = micount + 1
If micount = 3 Then Unload Me
End Sub
Private Sub cmdcancel_click()
Unload Me
End Sub
Private Sub Command2_Click()
Static micount As Integer '用于记录输入密码次数
Dim sqlstr As String
sqlstr = "select * from 管理员信息表 where 管理员姓名='" & Text1 & " '"
= sqlstr
If Then '若没有找到符合 where 条件的记录
MsgBox "用户名错误，重新输入", vbExclamation, "警告"
= ""
'text1 获得焦点
Else
If ("密码") = Text2 Then
Unload Me
Else
MsgBox "密码错误，重新输入", vbExclamation, "警告"
= ""
End If
End If
micount = micount + 1
If micount = 3 Then Unload Me
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Command4_Click()
Dim x As Integer
x = MsgBox("确认退出？", vbOKCancel, "提示")
If x = vbOK Then
Unload Me
ElseIf x = vbCancel Then
End If
End Sub
.新用户注册界面
Private Sub Command1_Click()
Dim sqlstr As String
If Text1 = " " Then
MsgBox "请输入用户名！", vbExclamation, "确认密码"
Exit Sub
Else
sqlstr = "select * from 用户信息表 where 用户名='" & Text1 & "'"
= sqlstr
'判断用户名是否已存在
If = False Then
MsgBox "用户已存在，请重新输入", vbExclamation, "检验用户名"
Text1 = ""
Exit Sub
End If
End If
'判断两次密码是否一致
If Text2 <> Text3 Then
MsgBox "两次输入密码不一致，请重新输入", vbExclamation, "检验密码"
Text2 = "": Text3 = ""
Exit Sub
ElseIf Text2 = "" Then
MsgBox "密码不能为空", vbExclamation, "检验密码"
Else
("用户名") = Trim(Text1)
("密码") = Trim(Text2)
MsgBox "注册已成功，请尽快完善个人信息"
End If
End Sub
Private Sub Command2_Click()
End Sub
.提示完善个人信息界面
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Dim x As Integer
x = MsgBox("确认退出？", vbOKCancel, "提示")
If x = vbOK Then
Unload Me
ElseIf x = vbCancel Then
Unload Me
End If
End Sub
.用户完善个人信息界面
Private Sub Command1_Click()
Dim str As String
str = "Select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text5 & "'"
x = MsgBox("确定要修改当前记录吗？", vbYesNo + vbQuestion, "确定")
If x = vbYes Then
("性别") = Text1
("年龄") = Text2
("工作") = Text3
("联系电话") = Text4
("密码") = Text5
("用户名") = Text7
End If
MsgBox "修改成功"
End Sub
Private Sub Command2_Click()
x = MsgBox("未完善信息，现在退出？", vbOKCancel + vbDefaultButton2, "提示")
If x = vbOK Then
Unload wsyhxx
ElseIf x = Cancel Then
End If
Exit Sub
End Sub
Private Sub Command3_Click()
Dim str As String
str = "select 用户信息表.* From 用户信息表"
str = str & " where 用户信息表.用户名 = '" & Text6 & "'"
= str
End Sub
.用户登录界面
Private Sub Command1_Click()
("用户名") =
("商品号") =
("数量") =
("价格") =
("ID") =
("订单号") =
("联系电话") =
MsgBox ("订单已经成功添加")
End Sub
Private Sub Command2_Click()
Dim str As String
str = "select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text9 & "'"
= str
End Sub
Private Sub Command3_Click()
= ""
= ""
= ""
= ""
= ""
= ""
= ""
End Sub
Private Sub Command4_Click()
If = True Or = True Then
MsgBox "请选择要修改的行"
Exit Sub
End If
Dim str As String
str = "Select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text9 & "'"
x = MsgBox("确定要修改当前记录吗？", vbYesNo + vbQuestion, "确定")
If x = vbYes Then
("用户名") =
("商品号") =
("数量") =
("价格") =
("ID") =
("订单号") =
("联系电话") =
MsgBox "成功修改数据!!"
End If
End Sub
Private Sub Command5_Click()
Dim str As String
str = "Select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text9 & "'"
x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确定")
If x = vbYes Then
ElseIf Then
Else
MsgBox ("订单已经成功删除")
End If
End Sub
Private Sub Command6_Click()
End Sub
Private Sub Command7_Click()
Dim x As Integer
x = MsgBox("确认退出？", vbOKCancel, "提示")
If x = vbOK Then
Unload yhjm
ElseIf x = vbCancel Then
End If
End Sub
.用户查看个人信息界面
Private Sub Command1_Click()
Dim str As String
str = "Select 用户信息表.* From 用户信息表"
str = str & " where 用户信息表.用户名 = '" & Text1 & "'"
= str
End Sub
Private Sub Command2_Click()
Dim x As Integer
x = MsgBox("确认退出？", vbOKCancel, "提示")
If x = vbOK Then
Unload Me
ElseIf x = vbCancel Then
End If
End Sub
Private Sub Command3_Click()
End Sub
.用户完善个人信息界面
Private Sub Command1_Click()
Dim str As String
str = "Select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text5 & "'"
x = MsgBox("确定要修改当前记录吗？", vbYesNo + vbQuestion, "确定")
If x = vbYes Then
("性别") = Text1
("年龄") = Text2
("工作") = Text3
("联系电话") = Text4
("密码") = Text5
End If
MsgBox "修改成功"
End Sub
Private Sub Command2_Click()
x = MsgBox("修改未成功", 0, "提示")
Unload xgyhxx
Exit Sub
End Sub
Private Sub Command3_Click()
Dim str As String
str = "select 用户信息表.* From 用户信息表"
str = str & " where 用户信息表.用户名 = '" & Text6 & "'"
= str
End Sub
.管理员登录界面
Private Sub Command1_Click()
Dim str As String
str = "select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text1 & "'"
= str
End Sub
Private Sub Command2_Click()
Dim str As String
str = "Select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text1 & "'"
x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确定")
If x = vbYes Then
If Then
End If
Else
MsgBox ("订单已经成功删除")
End If
End Sub
Private Sub Command3_Click()
Dim x As Integer
x = MsgBox("确认退出？", vbOKCancel, "提示")
If x = vbOK Then
Unload glyjm
ElseIf x = vbCancel Then
End If
End Sub
Private Sub Command4_Click()
End Sub
Private Sub Command5_Click()
If = True Or = True Then
MsgBox "请选择要修改的行"
Exit Sub
End If
Dim str As String
str = "Select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text5 & "'"
x = MsgBox("确定要修改当前记录吗？", vbYesNo + vbQuestion, "确定")
If x = vbYes Then
("用户名") =
("商品号") =
("数量") =
("价格") =
("ID") =
("订单号") =
("联系电话") =
MsgBox "成功修改数据!!"
End If
End Sub
Private Sub Command6_Click()
("用户名") =
("商品号") =
("数量") =
("价格") =
("ID") =
("订单号") =
("联系电话") =
MsgBox ("订单已经成功添加")
End Sub
Private Sub Command7_Click()
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
End Sub
Private Sub Command8_Click()
End Sub
.管理员信息修改界面
Private Sub Command1_Click()
Dim str As String
str = "Select 订单信息表.* From 订单信息表"
str = str & " where 订单信息表.ID = '" & Text5 & "'"
x = MsgBox("确定要修改当前记录吗？", vbYesNo + vbQuestion, "确定")
If x = vbYes Then
("性别") = Text1
("年龄") = Text2
("工作") = Text3
("联系电话") = Text4
("密码") = Text5
End If
End Sub
Private Sub Command2_Click()
Dim x As Integer
x = MsgBox("确认退出？", vbOKCancel, "提示")
If x = vbOK Then
Unload Me
ElseIf x = vbCancel Then
End If
End Sub
Private Sub Command3_Click()
Dim str As String
str = "select 管理员信息表.* From 管理员信息表"
str = str & " where 管理员信息表.ID = '" & Text6 & "'"
= str
End Sub
Private Sub Command4_Click()
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text1 = ""
End Sub
.管理员查看用户信息界面
Private Sub Command1_Click()
Dim str As String
str = "Select 用户信息表.* From 用户信息表"
str = str & " where 用户信息表.用户名 = '" & Text1 & "'"
= str
End Sub
Private Sub Command2_Click()
Dim x As Integer
x = MsgBox("确认退出？", vbOKCancel, "提示")
If x = vbOK Then
Unload Me
ElseIf x = vbCancel Then
End If
End Sub
Private Sub Form_Load()
Dim X0 As Long
Dim Y0 As Long '让窗体居中
X0 =
Y0 =
X0 = (X0 - ) / 2
Y0 = (Y0 - ) / 2
X0, Y0
End Sub
5.使用说明
该系统在安全性方面的控制管理员登陆窗口，必须使用合法密码才能进入系
统，使非管理人员不能进入，从而保证了系统的安全性。用户名，用户密码，管
理员姓名，管理员密码均在数据库中存放。
系统实现对企业订单信息的经营管理的维护，主要实现了数据的输入、查询、
修改、删除和打印等一系列功能，再功能方面，包括添加或删除用户，保存信息，
更新信息、打印信息等
系统数据具备了很强的稳定性、移植性、扩充性和安全性。使得底层对数据
库的操作也因此而显得更为合理和快捷。系统的运行效率大为提高。因此系统的
运行可靠性的。
系统完全采用图形户用户操作界面，能让用户很容易了解和掌握系统的使用
方法。这使得系统具备了很好的交互性和可操作性。在功能的界面实现方面，系
统采用菜单式操作和命令按钮操作相结合的方式，使操作非常的简单、方便。
6.参考资料
<1>《现代物流信息系统》 牛东来 编著 清华大学出版社
<2>《物流管理信息系统理论与案例》 李苏剑 游战清 郑利强编著 电子工业出
版社
<3>《管理信息系统实用教程》王恩波 孙玉珊 岳桦 编著 电子工业出版社
<4>《软件工程》高诚 车进辉 曹哲 编著 中国水利水电出版社
<5>《基于 VB 和 SQL 的数据库编程技术》刘志妩 张焕君 马秀丽等 编著 清华
大学出版社
<5>《Visual FoxPro 数据库应用实例完全解析》贾凤波 杨树青 杨玉顺 编著
人民邮电出版社 2006 年 8 月第 1 版
<6>《数据库应用基础 Visual 应用与开发技术》秦卫平 耿植林 方娇
莉 郑陵潇 编著 重庆大学出版社
