物流管理信息系统之订单管理子系统设计课程设计说明书.docx
《物流管理信息系统之订单管理子系统设计课程设计说明书.docx》由会员分享，可在线阅读，更多相关《物流管理信息系统之订单管理子系统设计课程设计说明书.docx（23页珍藏版）》请在冰豆网上搜索。
物流管理信息系统之订单管理子系统设计课程设计说明书
NewlycompiledonNovember23,2020
物流管理信息系统之订单管理子系统设计课程设计说明书
课程设计说明书
设计题目：
物流管理信息系统之订单管理子系统设计
专业：
设计人：
___________
山东科技大学
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.课题简介
课题研究目的和意义
在科学技术日新月异的今天，计算机已逐步渗入各个领域，随着互联网的普及，我们进入了信息化的时代，人们只要在家中轻点几下鼠标就能轻松获得各种信息，并且能够购买到自己需要的商品，既摆脱了时间和空间的限制又节约了大量的时间。
商品销售订单管理系统正是在这种情况下诞生并逐渐发展起来的，它已成为我们进行商品交易中不可缺少的部分。
本系统是在分析了现行商品管理中存在的问题的基础上，结合信息管理系统开发的概念、结构及系统开发的基本原理和方法，开发的一套企业商品订单管理系统。
该系统目的在于同时满足销售方与用户进行订单管理，进而满足经营管理运作流程。
并且操作方便、功能强大，即便操作者对计算机知识一窍不通也可以熟练使用该系统，一用就会。
课题研究的主要内容
企业订单管理系统主要完成的内容包括：
系统登录控制。
必须使用用户名和密码登录后才能使用系统。
产品信息浏览。
浏览系统中所有的产品信息，可以使用指定的关键词查询相应的产品，并通过报表的形式将查询结果输出。
产品信息管理。
管理订单中所使用的产品信息，可以浏览、增加、修改和删除产品信息。
订单信息管理。
管理订单信息，可以浏览、增加、修改和删除订单信息，在增加订单时需要使用的产品信息和客户信息必须首先通过产品信息管理和客户信息管理功能添加。
客户信息浏览。
浏览系统中所有的客户信息，可以使用指定的关键字查询相应的客户，并且可以使用报表的形式将查询结果输出。
客户信息管理。
管理下订单时客户信息，可以浏览、增加、修改和删除客户信息。
用户权限管理。
本系统中实现了简单的用户权限管理，普通用户仅能修改密码，而管理员用户则可以添加、修改、删除用户。
利用系统分析和设计原理，采用面向对象的编程方法，通过用VisualBasic编写企业订单管理系统，用SQLServer2000进行数据库建设与管理，实现了企业订单管理的自动化和信息化
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.程序实施
主体窗口
PrivateSubMDIForm_Load（）
DimX0AsLong
DimY0AsLong'让窗体居中
X0=
Y0=
X0=（X0-/2
Y0=（Y0-/2
X0,Y0
EndSub
PrivateSubmfdljm_Click（）
UnloadMe
EndSub
PrivateSubmfexit_Click（）
End
EndSub
登录界面
PrivateSubCommand1_Click（）
StaticmicountAsInteger'用于记录输入密码次数
DimsqlstrAsString
sqlstr="select*from用户信息表where用户名='"&Text1&"'"
=sqlstr
MsgBox"姓名错误，重新输入",vbExclamation,"警告"
=""
'text1获得焦点
Else
UnloadMe
Else
MsgBox"密码错误，重新输入",vbExclamation,"警告"
=""
EndIf
EndIf
micount=micount+1
Ifmicount=3ThenUnloadMe
EndSub
PrivateSubcmdcancel_click（）
UnloadMe
EndSub
PrivateSubCommand2_Click（）
StaticmicountAsInteger'用于记录输入密码次数
DimsqlstrAsString
sqlstr="select*from管理员信息表where管理员姓名='"&Text1&"'"
=sqlstr
MsgBox"用户名错误，重新输入",vbExclamation,"警告"
=""
'text1获得焦点
Else
UnloadMe
Else
MsgBox"密码错误，重新输入",vbExclamation,"警告"
=""
EndIf
EndIf
micount=micount+1
Ifmicount=3ThenUnloadMe
EndSub
PrivateSubCommand3_Click（）
EndSub
PrivateSubCommand4_Click（）
DimxAsInteger
x=MsgBox（"确认退出",vbOKCancel,"提示"）
Ifx=vbOKThen
UnloadMe
ElseIfx=vbCancelThen
EndIf
EndSub
.新用户注册界面
PrivateSubCommand1_Click（）
DimsqlstrAsString
IfText1=""Then
MsgBox"请输入用户名！
",vbExclamation,"确认密码"
ExitSub
Else
sqlstr="select*from用户信息表where用户名='"&Text1&"'"
=sqlstr
'判断用户名是否已存在
MsgBox"用户已存在，请重新输入",vbExclamation,"检验用户名"
Text1=""
ExitSub
EndIf
EndIf
'判断两次密码是否一致
IfText2<>Text3Then
MsgBox"两次输入密码不一致，请重新输入",vbExclamation,"检验密码"
Text2="":
Text3=""
ExitSub
ElseIfText2=""Then
MsgBox"密码不能为空",vbExclamation,"检验密码"
Else
MsgBox"注册已成功，请尽快完善个人信息"
EndIf
EndSub
PrivateSubCommand2_Click（）
EndSub
.提示完善个人信息界面
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubCommand2_Click（）
DimxAsInteger
x=MsgBox（"确认退出",vbOKCancel,"提示"）
Ifx=vbOKThen
UnloadMe
ElseIfx=vbCancelThen
UnloadMe
EndIf
EndSub
.用户完善个人信息界面
PrivateSubCommand1_Click（）
DimstrAsString
str="Select订单信息表.*From订单信息表"
str=str&"where订单信息表.ID='"&Text5&"'"
x=MsgBox（"确定要修改当前记录吗",vbYesNo+vbQuestion,"确定"）
Ifx=vbYesThen
EndIf
MsgBox"修改成功"
EndSub
PrivateSubCommand2_Click（）
x=MsgBox（"未完善信息，现在退出",vbOKCancel+vbDefaultButton2,"提示"）
Ifx=vbOKThen
Unloadwsyhxx
ElseIfx=CancelThen
EndIf
ExitSub
EndSub
PrivateSubCommand3_Click（）
DimstrAsString
str="select用户信息表.*From用户信息表"
str=str&"where用户信息表.用户名='"&Text6&"'"
=str
EndSub
.用户登录界面
PrivateSubCommand1_Click（）
MsgBox（"订单已经成功添加"）
EndSub
PrivateSubCommand2_Click（）
DimstrAsString
str="select订单信息表.*From订单信息表"
str=str&"where订单信息表.ID='"&Text9&"'"
=str
EndSub
PrivateSubCommand3_Click（）
=""
=""
=""
=""
=""
=""
=""
EndSub
PrivateSubCommand4_Click（）
MsgBox"请选择要修改的行"
ExitSub
EndIf
DimstrAsString
str="Select订单信息表.*From订单信息表"
str=str&"where订单信息表.ID='"&Text9&"'"
x=MsgBox（"确定要修改当前记录吗",vbYesNo+vbQuestion,"确定"）
Ifx=vbYesThen
MsgBox"成功修改数据!
!
"
EndIf
EndSub
PrivateSubCommand5_Click（）
DimstrAsString
str="Select订单信息表.*From订单信息表"
str=str&"where订单信息表.ID='"&Text9&"'"
x=MsgBox（"确实要删除当前记录吗",vbYesNo+vbQuestion,"确定"）
Ifx=vbYesThen
Else
MsgBox（"订单已经成功删除"）
EndIf
EndSub
PrivateSubCommand6_Click（）
EndSub
PrivateSubCommand7_Click（）
DimxAsInteger
x=MsgBox（"确认退出",vbOKCancel,"提示"）
Ifx=vbOKThen
Unloadyhjm
ElseIfx=vbCancelThen
EndIf
EndSub
.用户查看个人信息界面
PrivateSubCommand1_Click（）
DimstrAsString
str="Select用户信息表.*From用户信息表"
str=str&"where用户信息表.用户名='"&Text1&"'"
=str
EndSub
PrivateSubCommand2_Click（）
DimxAsInteger
x=MsgBox（"确认退出",vbOKCancel,"提示"）
Ifx=vbOKThen
UnloadMe
ElseIfx=vbCancelThen
EndIf
EndSub
PrivateSubCommand3_Click（）
EndSub
.用户完善个人信息界面
PrivateSubCommand1_Click（）
DimstrAsString
str="Select订单信息表.*From订单信息表"
str=str&"where订单信息表.ID='"&Text5&"'"
x=MsgBox（"确定要修改当前记录吗",vbYesNo+vbQuestion,"确定"）
Ifx=vbYesThen
EndIf
MsgBox"修改成功"
EndSub
PrivateSubCommand2_Click（）
x=MsgBox（"修改未成功",0,"提示"）
Unloadxgyhxx
ExitSub
EndSub
PrivateSubCommand3_Click（）
DimstrAsString
str="select用户信息表.*From用户信息表"
str=str&"where用户信息表.用户名='"&Text6&"'"
=str
EndSub
.管理员登录界面
PrivateSubCommand1_Click（）
DimstrAsString
str="select订单信息表.*From订单信息表"
str=str&"where订单信息表.ID='"&Text1&"'"
=str
EndSub
PrivateSubCommand2_Click（）
DimstrAsString
str="Select订单信息表.*From订单信息表"
str=str&"where订单信息表.ID='"&Text1&"'"
x=MsgBox（"确实要删除当前记录吗",vbYesNo+vbQuestion,"确定"）
Ifx=vbYesThen
EndIf
Else
MsgBox（"订单已经成功删除"）
EndIf
EndSub
PrivateSubCommand3_Click（）
DimxAsInteger
x=MsgBox（"确认退出",vbOKCancel,"提示"）
Ifx=vbOKThen
Unloadglyjm
ElseIfx=vbCancelThen
EndIf
EndSub
PrivateSubCommand4_Click（）
EndSub
PrivateSubCommand5_Click（）
MsgBox"请选择要修改的行"
ExitSub
EndIf
DimstrAsString
str="Select订单信息表.*From订单信息表"
str=str&"where订单信息表.ID='"&Text5&"'"
x=MsgBox（"确定要修改当前记录吗",vbYesNo+vbQuestion,"确定"）
Ifx=vbYesThen
MsgBox"成功修改数据!
!
"
EndIf
EndSub
PrivateSubCommand6_Click（）
MsgBox（"订单已经成功添加"）
EndSub
PrivateSubCommand7_Click（）
Text2=""
Text3=""
Text4=""
Text5=""
Text6=""
Text7=""
Text8=""
EndSub
Privat
升级会员 