声场订单管理信息系统

1、沈阳理工大学课程实践（论文）1 前言1.1 作业背景课程作业的具体要求如下：本文主要是根据所学内容，小组各成员积极收集相关资料，在小组所有成员完成系统规划、系统分析、系统设计等工作的前提下，将系统设计阶段的内容在计算机上进行实施，设计一个小型的企业生产管理系统。该项目为生产制造企业生产订单管理系统，开发这个系统的主要目的是改进企业的生产订单管理方式，提高企业订单管理的效率，使企业尽可能少的减少订单在各个部门传递构成中造成的丢失、错误等问题。开发软件的功能与要求是实现生产订单数据的管理与操作，基本功能包括输入订单信息，对订单内容的修改，查询近期要交货的订单，系统自动按时间为优先级给订单排序等。1

2、.2 选题说明项目背景研究课题题目：生产管理系统开发与设计1.2.1 基本思路首先对B公司的背景进行研究而从经济、管理和技术三方面对开发项目的可行性进行分析，充分掌握此次设计要了解的内容。得出结论之后，开始对该企业的组织结构和业务流程进行分析，然后得出逻辑模型即数据流程图。根据系统分析阶段的数据流程图得到物理模型即模块结构图。最后实现系统的运行。1.2.2 作业目标通过对订单管理信息系统的设计与开发，熟练使用所学的结构化分析、设计方法分析系统以及VF的相关知识，描述系统，软件的熟练应用，设计系统并最终运行系统。掌握业务流程图，数据流程图，数据字典等工具。熟练使用模块设计方法，数据库设计方法，代

3、码设计方法，输入输出设计方法等设计物理系统。可以根据上述的工作成果使用相应的软件会做简单的系统，并将系统进行运行实施。此外，本系统的开发目的是为了方便用户对订单信息的查询和修改，这不仅提高了企业的工作效率，也提高了生产订单的保密性。通过信息系统对生产订单实施电子化的管理方式，真正实现了生产订单的传递速度快、可靠性高、保密性好、方便系统用户快速查询和修改订单信息等功能，提高了企业在生产方面的管理能力和效率。1.3 工作业绩1.3.1 个人主要工作在小组成员其他两位同学进行的系统规划、系统分析、系统设计的研究基础上上完成最后的系统实施部分的工作。我主要负责登录设计、修改密码设计、修改与删除订单信息

4、设计、添加订单设计等，即将前两位同学的理论实施成具体的系统界面。1.3.2 主要收获通过前面两个小组成员的努力工作完成了系统规划，系统的分析，系统的设计，最后是系统的实施。这部分由我负责完成，我利用前面两位同学分析的数据，并通过到图书馆查阅相关书籍对系统实施工作有了更深刻的了解。熟悉并掌握了信息系统从开发到实施的具体程序。在对整个生产订单系统了解之后，成功进行了数据库的设计。这个技术支持是管理信息系统实验课上的知识，在当时不太深刻了解的情况下设计数据库的难度很大，在我与班级其他小组负责此部分的同学的共同研究下，客服种种困难终于设计成功。在程序的测试过程中，我收获很大，因为这个过程就是对自己劳动

5、成果的检验过程，查漏补缺，在一次次错误的情况下，让我了解了很多课上没有学到的知识。这次的系统开发工作不仅使我学到了更多的知识，还增强了我们小组成员之间的默契配合程度。1.3.3 自我评定 优 良 中 及格 不及格1.3.4 小组成员任务分工情况本组为本次课程设计第16组，组长为：杨永佳，小组所有成员分工如下：学号姓名任务备注1004090117汪贵欣系统规划、分析1009090220刘翰林系统设计1004090212杨永佳系统实施与维护组长2 系统规划2.1 项目名称B公司生产订单管理信息系统2.2 开发目标自1968年B公司成立以来，B公司着力从事家电生产工作，1980年，正式进入家电业。随

6、着社会发展，由于B公司传统的订单管理模式存在着很多的缺陷，订单在各部门间的传递过程中经常出现丢失、损坏等问题，给公司带来了很大的经济损失，所以B公司的管理层想要开发生产订单管理信息系统来提高订单管理效率，降低经营成本，实现生产管理的自动化，促进公司获得更高的收益。本次我小组所有小组成员的工作的目标就是开发出一个操作简单、界面友好、灵活实用、安全可靠的生产订单管理信息系统。通过开发该生产订单管理信息系统，建立比较完整的订单体系，使公司对生产订单的管理更加系统化、合理化、规范化、从而使公司的运营更加顺利，得到较高的效益。所以本组希望完成以下的目标：1、使该订单管理信息系统可以对企业的经营管理活动进

7、行有效的管理和控制，进而达到对企业的经营活动过程的全程监控和控制的目的；2、努力彻底的改变企业生产订单信息重复、混乱、无法共享的现状；3、在生成订单的过程中要能够直接调用客户和商品的信息。2.3 项目背景当今的信息系统不仅广泛地应用了信息技术，还融入了现代管理思想、数学分析方法。很多现代企业都采用订单式的生产方式，它实现了企业零库存的管理思想，是将企业生产与市场动态紧密联系起来的生产方式，以快速适应市场变化为根本目标的新型生产制造企业系统。通过B公司的管理信息系统的分析，借助现代计算机技术和管理理论，建立公司的订单管理信息系统，对B公司而言，全面开发和应用生产订单管理信息系统就是刻不容缓的问题

8、，也是提高企业生产管理反应的关键因素。2.4 系统的初步调查与分析2.4.1 需求分析5 系统的实施5.1 欢迎界面设计新建一个表单，命名为“欢迎界面”。在“欢迎界面”表单上放置1个标签Label，更改其中控件的Caption属性为“欢迎进入生产管理系统”，更改字体的大小，添加控件的picture属性，添加一张图片作为欢迎界面的背景，执行后的表单界面如图5.1所示。图 5.1 “欢迎界面”表单5.2 系统登录设计新建一个表单，命名为“系统登录”。在“登录表单”表单上放置2个标签Label，并分别更改Label1和Label2的Caption属性为“账号” “密码”，放置2个文本框Text,分别

9、修改Text1和Text2的Caption属性，放置3个命令按钮Command，分别更改其中控件的Caption属性为“确定” “取消” “退出”，表单执行后的界面如图5.2所示。图 5.2 “系统登录”表单具体代码编写如下：（1）“确定”按钮的Click事件代码:SET EXACT ONTHISFORM.i=THISFORM.i+1IF EMPTY(ALLTRIM(账号)MESSAGEBOX("请输入账号名称" ,48, "生产订单管理系统")THISFORM.txt账号.SetFocusELSESELECT UserInfoLOCATE FOR AL

10、LTRIM(账号)=ALLTRIM(THISFORM.txt账号.VALUE)IF FOUND() .AND. ALLTRIM（密码）=ALLTRIM(THISFORM.txt密码.VALUE) CUser=账号 IsAdmin=管理 THISFORM.RELEASE() DO FORM LOGOELSE IF THISRORM.i<3 MESSAGEBOX("账号或密码错误，请重新输入" ,48, "订单管理系统")THISFORM.txt账号.VALUE= "" THISFORM.txt密码.VALUE="&quo

11、t; THISFORM.txt账号.SetFocus ELSE MESSAGEBOX("密码错误3次，系统无法启动" ,48, "订单管理系统") THISFORM.RELEASE CLEAR EVENTS QUIT ENDIFENDIFENDIFSET EXACT OFF（2）“取消”按钮的Click事件代码LOCAL YNYN= MESSAGEBOX("确定退出" ,4+32, "订单管理系统")IF YN=6 THISFORM.RELEASE CLEAR EVENTS QUITENDIF5.2 修改密码设计新

12、建一个表单，命名为“修改密码”。把表单Caption属性设置为“修改密码”；在“修改密码”表单上放置相应的控件，3个标签Label，更改Label1、Label2和Label3的Caption属性分别为“用户名” “原密码” “新密码”，添加3个文本框Text1，Text2，Tex3，添加2个命令按钮Command，将Command1，Command2的Caption属性分别改为“确定” “取消”，表单如图5.3所示。图 5.3 “修改密码”表单具体代码编写如下：(1)“修改密码”表单的Init事件代码：THISFORM.txt用户名.VALUE=cuser(2) “确定”按钮的Click事件

13、代码:LOCAL OKOK=.T.SET EXACT ONDO CASE CASE EMPTY(ALLTRIM(THISFORM.txt新密码.VALUE).AND.EMPTY(ALLTRIM(THISFORM.txt确认密码.VALUE) MESSAGEBOX("新密码不能为空" ,48, "生产订单管理系统")THISFORM.txt新密码.SETFOCUSOK=.F.CASE ALLTRIM(THISFORM.txt密码.Value) <> ALLTRIM(THISFORM.txt确认密码.VALUE) MESSAGEBOX("

14、;新密码与确认密码不一致" ,48, "订单管理系统")THISFORM.txt密码.SETFOCUSOK=.F.ENDCASEIF OK=.T.SELECT USERINFOLOCATE FOR ALLTRIM(账号)=ALLTRIM(cuser) .AND. ALLTRIM(密码)=ALLTRIM(THISFORM.txt原密码.VALUE)IF FOUND()LOCAL NewPassNewPass=ALLTRIM(THISFORM.txt新密码.VALUE)UPDATE USERINFO SET 密码=NewPassMESSAGEBOX("修改成

15、功",64,"生产订单管理系统")THISFORM.RELEASEELSEMESSAGEBOX("原密码错误",48,"生产订单管理系统")THISFORM.txt原密码.SETFOCUSENDIFENDIFSET EXACT OFF(3)“退出”按钮的Click事件代码如下：LOCAL OKYN=MESSAGEBOX("确定退出",4+32,"订单管理系统")IF YN=6THISFORM.ReleaseENDIF5.3 修改与添加用户设计1.修改用户设计新建一个表单，命名为“修改用

16、户”。把表单Caption属性设置为“修改用户”；在“修改用户”表单上放置相应的控件，4个标签Label，更改Caption属性分别为“用户名” “姓名” “部门” “新密码”，4个文本框Text，2个命令按钮Command，将Caption属性分别改为“确定” “取消”，执行表单后，界面如图5.3所示。图 5.4 “修改用户”表单具体代码编写如下：（1）“确定”按钮的Click事件代码:IF THIS.CAPTION="修改"THISFORM.bModify=.T.THISFORM.ModeControlTHISFORM.txt密码.Width=95THIS.CAPTIO

17、N="确定"THISFORM.CmdCCL.CAPTION="取消"THISFORM.txt密码.Value=""THISFORM.txt确认密码.Value=""THISFORM.RefreshELSEIF THIS.CAPTION="确定"LOCAL OKOK=.T.DO CASECASE EMPTY(ALLTRIM(THISFORM.txt密码.VALUE) .AND. EMPTY(ALLTRIM(THISFORM.txt确认密码.VALUE)MESSAGEBOX("新密码不能为

18、空",48,"订单管理系统")OK=.F.THISFORM.txt密码.SETFOCUSCASE ALLTRIM(THISFORM.txt密码.VALUE)<>ALLTRIM(THISFORM.txt确认密码.VALUE)MESSAGEBOX("密码与确认密码不一致",48,"订单管理系统")OK=.F.THISFORM.txt密码.SETFOCUSCASE ALLTRIM(THISFORM.Cmb用户名.DisplayValue)=Cuser .AND. THISFORM.CHK账号管理.Value=.F.ME

19、SSAGEBOX("你不能取消当前用户的账号管理功能",48,"订单管理系统")THISFORM.CHK账号管理.Value=.T.THISFORM.CHK账号管理.SETFOCUSOK=.F.ENDCASEIF OK=.T.TABLEUPDATE(.F.)MESSAGEBOX("用户信息修改成功",64,"订单管理系统")THISFORM.bModify=.F.THISFORM.ModeControlTHISFORM.txt密码.Width=200THISFORM.CmdOK.Caption="修改&q

20、uot;THISFORM.CmdCCL.Caption="退出"THISFORM.RefreshENDIFELSEIF THIS.CAPTION="删除"YN=MESSAGEBOX("确认删除",4+32,"订单管理系统")IF YN=6IF ALLTRIM(THISFORM.Cmb用户名.Value)="sysadmin" MESSAGEBOX("不能删除默认的用户管理员",48,"订单管理系统")ReturnENDIFIF ALLTRIM(THISFO

21、RM.cmb用户名.Value)=ALLTRIM(cuser)MESSAGEBOX("不能删除当前登录用户",48,"订单管理系统")ReturnENDIFSELECT USERINFODELETEPACKIF BOF()SKIPELSESKIP-1ENDIFTHISFORM.RefreshENDIFENDIFENDIFENDIF（2） “退出”按钮的Click事件代码:IF THIS.CAPTION="退出"YN=MESSAGEBOX("确定退出",4+32,"订单管理系统")IF YN=6T

22、HISFORM.ReleaseENDIFELSEIF THIS.CAPTION="取消"YN=MESSAGEBOX("确认取消",4+32,"订单管理系统")IF YN=6TABLEREVERT(.F.)THISFORM.bModify=.F.THISFORM.ModeControlTHISFORM.txt密码.Width=200THISFORM.CmdOK.Caption="修改"THISFORM.CmdCCL.CAPTION="退出"THISFORM.RefreshENDIFENDIFEND

23、IF2.添加用户设计新建一个表单，命名为“添加用户”。把表单Caption属性设置为“添加用户”；在“添加用户”表单上放置相应的控件，4个标签Label，更改Caption属性分别为“用户名” “姓名” “部门” “密码”，5个文本框Text，2个命令按钮Command，将Caption属性分别改为“确定” “取消”，执行表单后，界面如图5.4所示。图5.5“添加用户”表单具体代码编写如下：（1）“确定”按钮的Click事件代码:LOCAL OKOK=.T.SET EXACT ONDO CASECASE EMPTY(THISFORM.txt账号.VALUE)MESSAGEBOX("用

24、户名不能为空",48,"订单管理系统")THISFORM.txt账号.SetFocusOK=.F.CASE EMPTY(THISFORM.txt姓名.Value)MESSAGEBOX("姓名不能为空",48,"订单管理系统")THISFORM.txt姓名.SetFocusOK=.F.CASE EMPTY(ALLTRIM(THISFORM.txt密码.Value).AND. EMPTY(ALLTRIM(THISFORM.txt确认密码.VALUE)MESSAGEBOX("密码不能为空",48,"订

25、单管理系统")THISFORM.txt密码.SetFocusOK=.F.CASE ALLTRIM(THISFORM.txt密码.Value) <> ALLTRIM(THISFORM.txt确认密码.VALUE)MESSAGEBOX("密码与确认密码不一致",48,"订单管理系统")THISFORM.txt密码.SetFocusOK=.F.ENDCASEIF OK=.T.LOCAL sUser,cName,cPart,cPass,nNumsUser=ALLTRIM(THISFORM.txt账号.Value)SELECT Userinf

26、oCount FOR 账号=sUser TO nNumIF nNum>0MESSAGEBOX("要添加的账号已经存在",48,"订单管理系统")THISFORM.txt账号.Value=""THISFORM.txt账号.SetfocusELSEcName=ALLTRIM(THISFORM.txt姓名.Value)cPart=ALLTRIM(THISFORM.txt部门.Value)cPass=ALLTRIM(THISFORM.txt密码.Value)IF THISFORM.CHK账号管理.Value=1bAdmin=.T.ELS

27、EbAdmin=.F.ENDIFYN=MESSAGEBOX("确定保存",4+32,"订单管理系统")IF YN=6INSERT INTO USERINFO VALUES (sUser,cPass,cName,cPart,bAdmin)MESSAGEBOX("添加成功",64,"订单管理系统")THISFORM.ReleaseENDIFENDIFENDIFSET EXACT OFF（2） “退出”按钮的Click事件代码:YN=MESSAGEBOX("确定退出",4+32,"订单管理系统")IF YN=6THISFORM.ReleaseENDIF5.5 订单信息设计新建一个表单，命名为“订单信息”。把表单Caption属性设置为“产品信息