管理信息系统课程设计

《管理信息系统课程设计》由会员分享，可在线阅读，更多相关《管理信息系统课程设计（19页珍藏版）》请在装配图网上搜索。

1、 班级学号姓名指导教师成绩1、系统分析（配合图形作简要说明）1.1顶层数据流图领料人向仓库发出领料单，仓库发出物资后对库存进行管理。采购员发出入库申请单，仓库接收物资后对商品进行管理。员工还可以对入库和出库商品进行浏览，修改，删除，更新等操作。在系统中还可以对库存的物资编码进行浏览操作。1.2 第0层数据流图这部分对入库和出库分别细化。1.可以通过输入或选择商品货号对各类型的存货进行快速查询、浏览2通过键入删除、新增按钮对库存进行添加、修改3通过输入或选择客户代码快速查询客户基本情况4.通过新增、修改、删除按钮对客户资料进行管理5.通过录入进货单的基本内容进行销售管理，计算无折扣和折扣销售额，

2、录入进销表，如有应收帐，则同时录入应收帐款资料表6.应收帐款资料表记录企业应收帐款基本情况7. 提供更完善更人性化的系统。8.提供各种新的处理功能和决策信息。2、系统设计2.1 系统功能结构图示例图2.2代码设计代码是人和机器的共同的语言，是系统进行信息分类、校对、统计和检索的依据。代码设计是要设计出一套能为系统各部门公用的、优化的代码系统，在设计代码时，要预留足够的位置，以适应不断变化的需要。唯一性标识（6）：前两位表示类别，后四位表示当年单子形成序列，按顺序排列。仓库编号（2）：使用序列码。客户编号（6）：前2位使用助记码表示市级以上地名，第3、4用分组码位表示主要购买产品类型，最后两位表

3、示序列。部门编号（4）：第1、2位数采用助记码，表示部门的大的分类，第3、4位数用分组码表示小的分类。料单编号（9）：第一位表示料单类别，2、3位表示仓库号，后4位表示时间，最后两两位表示形成序列物资编号（10）：前3位为分组码表示物资用途，3细分类，4位表示规格， 工程编号（9）：前3位用分组码表示工程类别，第4、5位为开始年份的后两位数，6、7位为月份，8、9位为序列号人员编号（8）：前4位表示部门编号，第5、6位为入社年份的后两位数，7、8位用分组码表示职能，最后两位使用序列码，按当年入职顺序排列。2.3 数据库概念设计（ERD）及关系模式本系统主要针对库存处理系统数据库支奴干相关的表都

4、与库存有关，分别为入库单文件，入库单物资领料单文件，领料单物资物资代码，工程编号客户代码，部门代码用户信息，物资余额2.4数据库设计整个数据库表结构如下所示：以数据设计和表设计，以及视图和查询设计，全部表现在下图中。（1）2.5输入输出界面设计我们此次设计的IRP系统共有主要界面14个，下面将一一演示并加以说明。第一个界面“登录界面”： 在这个界面中，由于我们开始定义的数据库是本地数据库所以我们只提供了两个编辑窗口分别用于输入用户名和密码。两个按钮分别是登录和退出功能。当用户名或密码输入不对时，系统会给予相应提示。 当用户输入的信息与数据库中的数据完全一致时，即可进入第二个界面。第二个界面“主

5、界面”：第三个界面“企业规划企业系统目标”：在主界面中，我共设计了5个部分。分别为商品信息浏览，编辑，库存操作，查询，系统，我只做了库存的相关操作， “帮助”按钮由于设计时间问题也是无效的。“退出”用于退出整个系统。用户通过主界面进入功能界面。商品浏览功能：点击编辑选项入库操作：出库操作：查询功能点击其中一个选项，就可以进行明细查询，查询结果如下：材料明细账和汇总查询：选择一个编号，查询结果如下：双击打开工程代码和客户编号菜单设计部分：建立了一些自定义类：报表设计：3 技术关键登陆表单“确定”按钮click事件主要程序username=alltrim(thisform.Combo1.displ

6、ayvalue)userpass=alltrim(thisform.Text2.value)if empty(username)messagebox(请输入用户名,48,用户登录窗口)thisform.Combo1.setfocusreturnendifselect * from yhxx where yhm=username.and.mm=userpass into cursor temp1if reccount(temp1)1messagebox(密码不正确,48,用户登录窗口)thisform.Text2.value=thisform.text2.setfocuselsedo form

7、mainformthisform.releaseEndif材料入库单的相关代码：新建SET PROCEDURE TO autono.prgselect rkdwjset filter to go bottappend blankdno=autono(rkdwj,ld_id,5,)replace rkdwj.ld_id with dnoselect rkdwzappend blankreplace rkdwz.ld_id with dnothisform.formmode=newthisform.setmodethisform.refreshthisform.text1.setfocus保存if

8、 empty(alltrim(thisform.txtLdbh.value) messagebox(料单编号不能为空,48,材料入库单) thisform.txtldbh.setfocus return endif if empty(alltrim(thisform.txtHth.value) messagebox(合同号不能为空,48,材料入库单) thisform.txthth.setfocus return endif if empty(alltrim(thisform.Text2Combo1.value) messagebox(工程编号不能为空,48,材料入库单) thisform.T

9、ext2.setfocus return endif if empty(alltrim(thisform.txtKhbh.value) messagebox(客户编号不能为空,48,材料入库单) thisform.txtkhbh.setfocus return endif select rkdwjsdate=thisform.ole1.object.valuereplace rkrq with sdateif(tableupdate(.f.)=.f.)messagebox(保存失败,48,系统提示)returnENDIFWAIT 保存成功 WINDOW AT 40,30 NOWAIT TIME

10、OUT 1thisform.formmode=browsethisform.setmodethisform.refresh查询do form 入库单查询thisform.release修改thisform.formmode=modifythisform.setmodethisform.refresh删除select rkdwjnid=ld_idyn=MESSAGEBOX(确定删除此记录吗?,4+32,系统提示)IF yn=6select rkdwzdelete for rkdwz.ld_id=nidthisform.setgridselect rkdwjdelete for rkdwj.ld_

11、id=nidENDIF thisform.checkemptythisform.refresh取消select rkdwjtablerevert(.f.)select rkdwztablerevert(.f.)thisform.formmode=browsethisform.setmodethisform.setgrid汇总查询代码：select clhuizonga=thisform.Pageframe1.Page1.Combo1.displayvalueselect * from clhuizong where ckbh=a into cursor tempthisform.Pagefra

12、me1.Page1.grdClhuizong.recordsource=temp工程代码工程编号按钮do form 456.scx to txtxmthisform.Text2.value=txtxmthisform.refresh点击右方按钮打开456表单，表单的click事件代码：thisform.zxm=thisform.List1.valuethisform.release取消按钮：thisform.xzm=thisform.release表单的unload事件：return thisform.zxm表单中列表框的rowsourceselect distinct gcbh from r

13、kdwj into cursor temp商品浏览首记录select wzdmgo topthis.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.thisform.refresh上一条select wzdmif bof().or.recno()=1this.enabled=.f.mand1.enabled=.f. else skip -1mand3.enabled=.t.mand4.enabled=.t. endif thisform.refresh下一条select wzdmif eof().or.recno()=

14、reccount()this.enabled=.f.mand4.enabled=.f. else skip mand1.enabled=.t.mand2.enabled=.t. endif thisform.refresh退出thisform.release末记录select wzdmgo bottommand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.f.this.enabled=.f.thisform.refresh报表代码Report form clhuizong preview主程序main代码SET excl OFF SET SAFETY

15、 OFF SET TALK OFF HIDE WINDOW screenON ERROR DO FORM 用户登陆窗口READ EVENTS管信息系统课程设计个人总结我所做的库存管理系统包括商品管理，库存管理，查询功能三内容，可以实现对商品信息浏览，库存商品基本信息的快速查询，对库存表的新增、修改、删除等功能，对定单进行录入，同步录入应收帐款信息。该系统的功能相对比较全面，操作比较简单，节约了相关成本费用，此外系统界面比较简洁美观，更富人性化。当然该系统仍有一些不足之处，比如在系统登录密码的修改和注册都有不足，对商品只有浏览不能进行更新等，还没有涉及退货上的处理等等，尚待在今后的实践中逐步改进完善。编程是一门需要细心的学科，在学习的过程中会遇到很多困难，我编程上占用了大量的时间，有时候一个程序占用了一下午的时间去调试，可结果只需要改动一处小部分，这就是基本功不扎实，在编程的过程中有很多想法因为技术上无法实现而改变了初中，就像是双击打开一个选择表单就没有实现成功，在今后的学习中要继续努力认真，在学习上认真，在生活上淡定，这就是我现阶段要做的。第 19 页 共 19 页