物流管理信息系统之订单管理子系统设计课程设计说明书模板

物流管理信息系统之订单管理子系统设计课程设计说明书资料内容仅供参考，如有不当或者侵权，请联系本人改正或者删除。课程设计说明书

设计题目:物流管理信息系统之订单管理子系统设计专业:设计人:___________

山东科技大学月日

课程设计任务书

学院机械电子工程学院专业班级-2姓名一、课程设计题目:物流管理信息系统之订单管理子系统设计二、课程设计内容与要求:(1)设计一套订单管理系统,要求能完成基本的订单录入、修改、删除(2)系统分为管理员登录与用户登录两大方向_______________________(3)可注册新用户,用户信息,管理员信息可修改___________________________________________________________________________________三、课程设计应解决主要问题:(1)主窗体与各个分窗体结构设计_______________________________(2)程序与数据库的连接_________________________________________(3)各窗体具体代码编写________________________________________________________________________________________________________四、课程设计相关附件(如:图纸、软件等)(1)课程设计说明书一份(2)存有设计内容的光盘一张______________________________________________________________________________________________________________________________________________________________________五、任务发出日期:-12-23_课程设计完成日期:-1-4指导教师签字:_______________系主任签字:_____________

指导教师对课程设计的评语

指导教师签字:_____年____月____日目

录1．课题简介………31.1课题研究目的和意义………31.2课题主要研究内容…………32．系统分析………42.1业务流程图…………………42.2用户需求分析………………42.3系统功能设计………………63．系统设计………63.1总体设计……………………63.2详细设计……………………73.3数据结构设计………………74．系统实施……………………94.1系统首界面…………94.2登录界面…………114.3新用户注册界面……………………134.4提示完善个人信息界面……………154.5用户完善个人信息界面……………174.6用户登录界面………194.7用户查看个人信息界面……………244.8用户完善个人信息界面……………264.9管理员登录界面……………………284.10管理员信息修改界面…………334.11管理员查看用户信息界面……356．使用说明……………………377．参考资料……………………371.课题简介1.1课题研究目的和意义

在科学技术日新月异的今天,计算机已逐步渗入各个领域,随着互联网的普及,我们进入了信息化的时代,人们只要在家中轻点几下鼠标就能轻松获得各种信息,而且能够购买到自己需要的商品,既摆脱了时间和空间的限制又节约了大量的时间。商品销售订单管理系统正是在这种情况下诞生并逐渐发展起来的,它已成为我们进行商品交易中不可缺少的部分。本系统是在分析了现行商品管理中存在的问题的基础上,结合信息管理系统开发的概念、结构及系统开发的基本原理和方法,开发的一套企业商品订单管理系统。该系统目的在于同时满足销售方与用户进行订单管理,进而满足经营管理运作流程。而且操作方便、功能强大,即便操作者对计算机知识一窍不通也能够熟练使用该系统,一用就会。1.2课题研究的主要内容企业订单管理系统主要完成的内容包括:系统登录控制。必须使用用户名和密码登录后才能使用系统。产品信息浏览。浏览系统中所有的产品信息,能够使用指定的关键词查询相应的产品,并经过报表的形式将查询结果输出。产品信息管理。管理订单中所使用的产品信息,能够浏览、增加、修改和删除产品信息。订单信息管理。管理订单信息,能够浏览、增加、修改和删除订单信息,在增加订单时需要使用的产品信息和客户信息必须首先经过产品信息管理和客户信息管理功能添加。客户信息浏览。浏览系统中所有的客户信息,能够使用指定的关键字查询相应的客户,而且能够使用报表的形式将查询结果输出。客户信息管理。管理下订单时客户信息,能够浏览、增加、修改和删除客户信息。用户权限管理。本系统中实现了简单的用户权限管理,普通用户仅能修改密码,而管理员用户则能够添加、修改、删除用户。利用系统分析和设计原理,采用面向对象的编程方法,经过用VisualBasic6.0编写企业订单管理系统,用SQLServer进行数据库建设与管理,实现了企业订单管理的自动化和信息化2.系统分析2.1业务流程图.2.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).谁做了什么操作是否需要记录以便于审计(记录销售代表提高客户级别的操作,在需要时能够追溯操作的原因)2.3系统功能设计主要功能就是给用户带来信息的沟通,交流的便捷。订单管理系统的主要功能是经过统一订单提供用户整合的一站式员工供应链服务。订单管理系统物流管理链条中的不可或缺的部分,经过对订单的管理和分配,使仓储管理和运输管理有机的结合,稳定有效地实现物流管理中各个环节充分发挥作用,使仓储、运输、订单成为一个有机整体,满足物流系统信息化的需求。订单管理是对商户下达的各种指令进行管理、查询、修改、打印等功能,同时将业务部门处理信息反馈至商户。订单管理系统一般包括:订单处理,订单确认等。3.系统设计3.1总体设计该系统为了两大部分:用户登录后的界面,管理员登录后的界面。3.2详细设计class类:实现数据库的连接字符串Register类:实现用户注册Login类:登录窗口类,用户登录时选择用户角色,进入员工操作界面。管理员登录时则进入相应的界面进行订单信息操作。main类:实现系统功能的类,实现各模块的功能。如订单基本信息录入,订单提交,订单退订。删除订单信息,修改订单信息,查看订单信息。Main类:用户操作界面,在此用户能够查看订单的信息,且能够订单的提交和退订。Adm类:管理员操作页面,在此管理员能够查看和处理所有客户订单信息,能够查看客户基本信息以及个人信息。UserInfo类:显示用户信息、用于管理员对客户的信息查询和处理。3.3数据结构设计用户表属性:用户表:商品表属性:商品表:管理员信息表属性:管理员信息表:订单信息表属性:订单信息表:4.程序实施4.1主体窗口PrivateSubMDIForm_Load()DimX0AsLongDimY0AsLong'让窗体居中X0=Screen.WidthY0=Screen.HeightX0=(X0-Me.Width)/2Y0=(Y0-Me.Height)/2Me.MoveX0,Y0EndSubPrivateSubmfdljm_Click()dljm.ShowUnloadMeEndSubPrivateSubmfexit_Click()EndEndSub4.2登录界面PrivateSubCommand1_Click()StaticmicountAsInteger'用于记录输入密码次数DimsqlstrAsStringsqlstr="select*from用户信息表where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThen'若没有找到符合where条件的记录MsgBox"姓名错误,重新输入",vbExclamation,"警告"Text1.Text=""Text1.SetFocus'text1获得焦点ElseIfAdodc1.Recordset.Fields("密码")=Text2Thenyhjm.ShowUnloadMeElseMsgBox"密码错误,重新输入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmicount=micount+1Ifmicount=3ThenUnloadMeEndSubPrivateSubcmdcancel_click()UnloadMeEndSubPrivateSubCommand2_Click()StaticmicountAsInteger'用于记录输入密码次数DimsqlstrAsStringsqlstr="select*from管理员信息表where管理员姓名='"&Text1&"'"Adodc2.RecordSource=sqlstrAdodc2.RefreshIfAdodc2.Recordset.BOFThen'若没有找到符合where条件的记录MsgBox"用户名错误,重新输入",vbExclamation,"警告"Text1.Text=""Text1.SetFocus'text1获得焦点ElseIfAdodc2.Recordset.Fields("密码")=Text2Thenglyjm.ShowUnloadMeElseMsgBox"密码错误,重新输入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmicount=micount+1Ifmicount=3ThenUnloadMeEndSubPrivateSubCommand3_Click()zcxyh.ShowEndSubPrivateSubCommand4_Click()DimxAsIntegerx=MsgBox("确认退出?",vbOKCancel,"提示")Ifx=vbOKThenUnloadMeMDIForm1.ShowElseIfx=vbCancelThendljm.ShowEndIfEndSub4.3.新用户注册界面PrivateSubCommand1_Click()DimsqlstrAsStringIfText1=""ThenMsgBox"请输入用户名!",vbExclamation,"确认密码"Text1.SetFocusExitSubElsesqlstr="select*from用户信息表where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.Refresh'判断用户名是否已存在IfAdodc1.Recordset.EOF=FalseThenMsgBox"用户已存在,请重新输入",vbExclamation,"检验用户名"Text1=""Text1.SetFocusExitSubEndIfEndIf'判断两次密码是否一致IfText2<>Text3ThenMsgBox"两次输入密码不一致,请重新输入",vbExclamation,"检验密码"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密码不能为空",vbExclamation,"检验密码"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名")=Trim(Text1)Adodc1.Recordset.Fields("密码")=Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox"注册已成功,请尽快完善个人信息"tswsyhxx.ShowEndIfEndSubPrivateSubCommand2_Click()zcxyh.Hidedljm.ShowEndSub4.4.提示完善个人信息界面PrivateSubCommand1_Click()wsyhxx.ShowUnloadMeEndSubPrivateSubCommand2_Click()DimxAsIntegerx=MsgBox("确认退出?",vbOKCancel,"提示")Ifx=vbOKThenUnloadMedljm.ShowElseIfx=vbCancelThenUnloadMetswsyhxx.ShowEndIfEndSub4.5.用户完善个人信息界面PrivateSubCommand1_Click()DimstrAsStringstr="Select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text5&"'"x=MsgBox("确定要修改当前记录吗?",vbYesNo+vbQuestion,"确定")Ifx=vbYesThenwsyhxx.Adodc1.Recordset.Fields("性别")=Text1wsyhxx.Adodc1.Recordset.Fields("年龄")=Text2wsyhxx.Adodc1.Recordset.Fields("工作")=Text3wsyhxx.Adodc1.Recordset.Fields("联系电话")=Text4wsyhxx.Adodc1.Recordset.Fields("密码")=Text5wsyhxx.Adodc1.Recordset.Fields("用户名")=Text7wsyhxx.Adodc1.Recordset.Updatewsyhxx.Adodc1.RefreshEndIfMsgBox"修改成功"EndSubPrivateSubCommand2_Click()x=MsgBox("未完善信息,现在退出?",vbOKCancel+vbDefaultButton2,"提示")Ifx=vbOKThenUnloadwsyhxxElseIfx=CancelThenwsyhxx.ShowEndIfExitSubEndSubPrivateSubCommand3_Click()DimstrAsStringstr="select用户信息表.*From用户信息表"str=str&"where用户信息表.用户名='"&Text6&"'"Adodc1.RecordSource=strAdodc1.RefreshEndSub4.6.用户登录界面PrivateSubCommand1_Click()Adodc2.Recordset.AddNewAdodc2.Recordset.Fields("用户名")=Text11.TextAdodc2.Recordset.Fields("商品号")=Text1.TextAdodc2.Recordset.Fields("数量")=Text2.TextAdodc2.Recordset.Fields("价格")=Text3.TextAdodc2.Recordset.Fields("ID")=Text10.TextAdodc2.Recordset.Fields("订单号")=Text12.TextAdodc2.Recordset.Fields("联系电话")=Text4.TextAdodc2.RefreshMsgBox("订单已经成功添加")EndSubPrivateSubCommand2_Click()DimstrAsStringstr="select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text9&"'"Adodc2.RecordSource=strAdodc2.RefreshEndSubPrivateSubCommand3_Click()Text11.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text10.Text=""Text12.Text=""Text4.Text=""EndSubPrivateSubCommand4_Click()IfAdodc2.Recordset.EOF=TrueOrAdodc2.Recordset.BOF=TrueThenMsgBox"请选择要修改的行"ExitSubEndIfDimstrAsStringstr="Select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text9&"'"x=MsgBox("确定要修改当前记录吗?",vbYesNo+vbQuestion,"确定")Ifx=vbYesThenyhjm.Adodc2.Recordset.Fields("用户名")=Text11.Textyhjm.Adodc2.Recordset.Fields("商品号")=Text1.Textyhjm.Adodc2.Recordset.Fields("数量")=Text2.Textyhjm.Adodc2.Recordset.Fields("价格")=Text3.Textyhjm.Adodc2.Recordset.Fields("ID")=Text10.Textyhjm.Adodc2.Recordset.Fields("订单号")=Text12.Textyhjm.Adodc2.Recordset.Fields("联系电话")=Text4.Textyhjm.Adodc2.Recordset.Updateyhjm.Adodc2.RefreshMsgBox"成功修改数据!!"EndIfEndSubPrivateSubCommand5_Click()DimstrAsStringstr="Select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text9&"'"x=MsgBox("确实要删除当前记录吗?",vbYesNo+vbQuestion,"确定")Ifx=vbYesThenAdodc2.Recordset.DeleteAdodc2.Recordset.MoveNextElseIfAdodc2.Recordset.EOFThenAdodc2.Recordset.MoveLastElseAdodc2.RefreshMsgBox("订单已经成功删除")EndIfEndSubPrivateSubCommand6_Click()cxyhxx.ShowEndSubPrivateSubCommand7_Click()DimxAsIntegerx=MsgBox("确认退出?",vbOKCancel,"提示")Ifx=vbOKThendljm.ShowUnloadyhjmElseIfx=vbCancelThenyhjm.ShowEndIfEndSub4.7.用户查看个人信息界面PrivateSubCommand1_Click()DimstrAsStringstr="Select用户信息表.*From用户信息表"str=str&"where用户信息表.用户名='"&Text1&"'"Adodc1.RecordSource=strAdodc1.RefreshEndSubPrivateSubCommand2_Click()DimxAsIntegerx=MsgBox("确认退出?",vbOKCancel,"提示")Ifx=vbOKThenyhjm.ShowUnloadMeElseIfx=vbCancelThencxyhxx.ShowEndIfEndSubPrivateSubCommand3_Click()xgyhxx.ShowEndSub4.8.用户完善个人信息界面PrivateSubCommand1_Click()DimstrAsStringstr="Select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text5&"'"x=MsgBox("确定要修改当前记录吗?",vbYesNo+vbQuestion,"确定")Ifx=vbYesThenwsyhxx.Adodc1.Recordset.Fields("性别")=Text1wsyhxx.Adodc1.Recordset.Fields("年龄")=Text2wsyhxx.Adodc1.Recordset.Fields("工作")=Text3wsyhxx.Adodc1.Recordset.Fields("联系电话")=Text4wsyhxx.Adodc1.Recordset.Fields("密码")=Text5wsyhxx.Adodc1.Recordset.Updatewsyhxx.Adodc1.RefreshEndIfMsgBox"修改成功"EndSubPrivateSubCommand2_Click()x=MsgBox("修改未成功",0,"提示")UnloadxgyhxxExitSubEndSubPrivateSubCommand3_Click()DimstrAsStringstr="select用户信息表.*From用户信息表"str=str&"where用户信息表.用户名='"&Text6&"'"Adodc1.RecordSource=strAdodc1.RefreshEndSub4.9.管理员登录界面PrivateSubCommand1_Click()DimstrAsStringstr="select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text1&"'"Adodc1.RecordSource=strAdodc1.RefreshEndSubPrivateSubCommand2_Click()DimstrAsStringstr="Select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text1&"'"x=MsgBox("确实要删除当前记录吗?",vbYesNo+vbQuestion,"确定")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshMsgBox("订单已经成功删除")EndIfEndSubPrivateSubCommand3_Click()DimxAsIntegerx=MsgBox("确认退出?",vbOKCancel,"提示")Ifx=vbOKThendljm.ShowUnloadglyjmElseIfx=vbCancelThenglyjm.ShowEndIfEndSubPrivateSubCommand4_Click()yhxxcx.ShowEndSubPrivateSubCommand5_Click()IfAdodc1.Recordset.EOF=TrueOrAdodc1.Recordset.BOF=TrueThenMsgBox"请选择要修改的行"ExitSubEndIfDimstrAsStringstr="Select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text5&"'"x=MsgBox("确定要修改当前记录吗?",vbYesNo+vbQuestion,"确定")Ifx=vbYesThenglyjm.Adodc1.Recordset.Fields("用户名")=Text2.Textglyjm.Adodc1.Recordset.Fields("商品号")=Text3.Textglyjm.Adodc1.Recordset.Fields("数量")=Text4.Textglyjm.Adodc1.Recordset.Fields("价格")=Text5.Textglyjm.Adodc1.Recordset.Fields("ID")=Text6.Textglyjm.Adodc1.Recordset.Fields("订单号")=Text7.Textglyjm.Adodc1.Recordset.Fields("联系电话")=Text8.Textglyjm.Adodc1.Recordset.Updateglyjm.Adodc1.RefreshMsgBox"成功修改数据!!"EndIfEndSubPrivateSubCommand6_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名")=Text2.TextAdodc1.Recordset.Fields("商品号")=Text3.TextAdodc1.Recordset.Fields("数量")=Text4.TextAdodc1.Recordset.Fields("价格")=Text5.TextAdodc1.Recordset.Fields("ID")=Text6.TextAdodc1.Recordset.Fields("订单号")=Text7.TextAdodc1.Recordset.Fields("联系电话")=Text8.TextAdodc1.Recordset.UpdateAdodc1.RefreshMsgBox("订单已经成功添加")EndSubPrivateSubCommand7_Click()Text2=""Text3=""Text4=""Text5=""Text6=""Text7=""Text8=""EndSubPrivateSubCommand8_Click()xgglyxx.ShowEndSub4.10.管理员信息修改界面PrivateSubCommand1_Click()DimstrAsStringstr="Select订单信息表.*From订单信息表"str=str&"where订单信息表.ID='"&Text5&"'"x=MsgBox("确定要修改当前记录吗?",vbYesNo+vbQuestion,"确定")Ifx=vbYesThenAdodc1.Recordset.Fields("性别")=Text1Adodc1.Recordset.Fields("年龄")=Text2Adodc1.Recordset.Fields("工作")=Text3Adodc1.Recordset.Fields("联系电话")=Text4Adodc1.Recordset.Fields("密码")=Text5Adodc1.Recordset.UpdateAdodc1.RefreshEndIfEndSubPrivateSubCommand2_Click()DimxAsIntegerx=MsgBox("确认退出?",vbOKCancel,"提示")Ifx