采购管理信息系统设计.docx

上传人:b****6 文档编号:16095261 上传时间:2023-07-10 格式:DOCX 页数:29 大小:294KB
下载 相关 举报
采购管理信息系统设计.docx_第1页
第1页 / 共29页
采购管理信息系统设计.docx_第2页
第2页 / 共29页
采购管理信息系统设计.docx_第3页
第3页 / 共29页
采购管理信息系统设计.docx_第4页
第4页 / 共29页
采购管理信息系统设计.docx_第5页
第5页 / 共29页
采购管理信息系统设计.docx_第6页
第6页 / 共29页
采购管理信息系统设计.docx_第7页
第7页 / 共29页
采购管理信息系统设计.docx_第8页
第8页 / 共29页
采购管理信息系统设计.docx_第9页
第9页 / 共29页
采购管理信息系统设计.docx_第10页
第10页 / 共29页
采购管理信息系统设计.docx_第11页
第11页 / 共29页
采购管理信息系统设计.docx_第12页
第12页 / 共29页
采购管理信息系统设计.docx_第13页
第13页 / 共29页
采购管理信息系统设计.docx_第14页
第14页 / 共29页
采购管理信息系统设计.docx_第15页
第15页 / 共29页
采购管理信息系统设计.docx_第16页
第16页 / 共29页
采购管理信息系统设计.docx_第17页
第17页 / 共29页
采购管理信息系统设计.docx_第18页
第18页 / 共29页
采购管理信息系统设计.docx_第19页
第19页 / 共29页
采购管理信息系统设计.docx_第20页
第20页 / 共29页
亲,该文档总共29页,到这儿已超出免费预览范围,如果喜欢就下载吧!
下载资源
资源描述

采购管理信息系统设计.docx

《采购管理信息系统设计.docx》由会员分享,可在线阅读,更多相关《采购管理信息系统设计.docx(29页珍藏版)》请在冰点文库上搜索。

采购管理信息系统设计.docx

采购管理信息系统设计

 

1前言

1。

1作业背景

本文根据《管理信息系统开发实践》课程要求而做.

课程作业要求如下:

管理信息系统开发作为独立的教学环节,是学习完《管理信息系统》课程并进行完专业实习后进行的一次全面的综合练习。

其目的在于加深对管理信息系统基础理论和基本知识的理解,掌握使用信息系统分析、设计的基本方法,提高解决实际管理问题、开发信息系统的实践能力。

具体内容是:

用信息系统开发工具(例如PowerBuilder、Delphi、Vb、Vfp等)开发一个实用的中小型采购管理信息系统。

具体要求如下:

1、根据课程实践时间选择适当规模大小的设计课题。

针对信息系统课程实践的具体特点,体现项目管理的思想,由指导教师对学生进行分组(每组4—6人),一组一题,分工合作,共同完成。

2、根据合理的进度安排,按照系统开发的流程及方法,踏实地开展课程实践活动。

3、课程实践过程中,根据选题的具体需求,在开发各环节中撰写相关的技术文档,最后要求提交详细的课程实践报告。

4、开发出可以运行的管理信息系统,通过上机检查.

1。

2选题说明

进入21世纪,随着技术进步和客户需求多样化,企业经营的市场环境发生了很大的变化,从过去的供应商主导的、静态的、简单的市场环境变成客户为主导的、动态的、复杂的市场环境。

企业之间由单纯产品质量、性能方面的竞争转向企业所在的供应链之间的竞争.在企业经营管理中,采购是最重要的一个环节.它对于企业降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。

采购管理为降低采购成本,提高采购效益提供了广阔的空间,但也同时为采购管理带来了新的机遇和挑战。

目前,我国大多数企业仍然没有建立健全的供应链管理体系,物资的采购还存在机构设置分散,资源浪费严重,信息传递滞后等问题。

1。

2。

1基本思路

本文从全通公司提高采购管理的需求入手,给出了适合本企业的采购供应管理系统整体设计方案。

在系统业务流程改造和功能模块的设计中体现出先进的采购管理思想,并对采购业务管理的具体内容进行了分析与设计。

1.2.2作业目标

该系统将有效的整合企业内外部的资源,加强企业与供应商之间的紧密合作,增强企业采购业务的透明度,规范标准业务流程,提高采购的效率和质量,提升企业的核心竞争力.

通过对采购管理系统设计与开发,使采购部门的工作效率大大提升,实现采购管理工作的信息化,网络化等,从而降低采购的总体成本,增加企业的利润,并能更好的完成企业最终目标。

1.3工作业绩

1。

3.1个人主要工作

我在团队中的主要工作是进行系统实施,系统实施的主要内容包括物理系统的实施、程序设计与调试、人员培训、数据准备与录入、系统转换与评价等。

系统实施阶段既是成功地实现新系统,又是取得用户对系统信任的关键。

1.3.2主要收获

通过对全通公司的采购管理系统进行设计,使我不仅了解到系统实施部分的内容,也使我更深的掌握了管理信息系统的开发方法以及重要性。

开发一个管理信息系统好像建一栋大楼,系统分析、系统设计是根据用户的要求画出各种蓝图,系统实施是调集各类人员、设备、材料,在现场根据图纸按实施方案的要求把“大楼”建起来。

通过对这个系统的开发设计,使我这学期所学的管理信息系统得到了运用,实现了从理论到实践的升华,一个完善的管理信息系统可以促使公司向信息化方向发展,将管理工作统一化、规范化、现代化,使公司处于一个信息灵敏、管理科学、决策准确的良性循环中,为公司带来跟高的效益.

最后,我还明白了集体协作的重要性。

我们组的各个成员通过合理分工、互帮互助才完成了这个系统的开发设计,所以。

通过这次团队合作,不仅学到先进的专业知识,更加深了团队合作的意识。

1.3。

3自我评定

□优□良□中□及格□不及格

1。

3.4小组成员任务分工情况

本组为本次课程设计第四组,组长为:

小组所有成员分工如下:

 

2系统规划

2.1可行性分析

2.1。

1可行性研究方法

通过调查分析采购供应管理信息系统所具备的能力及实现的方法。

确定总体结构,利用数据库所具有的能力,以最简洁最容易的方法,使其成为一个初级的系统软件。

2.1。

2可行性综合分析

(1)可行性:

系统现阶段的发展过程中,利用现有人力和物力是完全具备的能力开发出来的,作为阶段性产品,日后的发展空间大,实现方法逐步简单容易.对于该系统的技术要求,现行的软件开发条件,环境,完全可以实现。

SQLServer2000完全可以提供该系统的操作要求和数据库需求。

所以采购供应管理信息系统在技术上是完全可行的。

(2)技术可行性:

该系统的开发要求是界面简单,易于操作.

(3)经济可行性:

该系统做为课程设计开发,经济可行性在此不做讨论。

(4)管理可行性:

此次采购系统的开发得到了大商集团采购部门经理的大力支持,期待着设计出的采购系统能够使大商百货公司采购流程效率提高。

采购部门的其他人员也期待着采购系统能够成功的开发,帮助他们能够快速准确的工作,减少作业量提高效率.

3系统分析

系统分析在整个开发过程中,是要解决“做什么”的问题.从逻辑上,或者说从信息处理的功能需求上提出系统的方案,即逻辑模型,为下一阶段进行物理方案设计、解决“怎么做”提供依据。

3.1详细调查分析

3。

1.1业务流程图

业务流程图(transactionflowdiagram,简称TFD),就是用一些规定的符号及连线来表示某个具体业务处理过程。

是一种用尽可能少、尽可能简单的方法来描述业务处理过程的方法。

3.2系统的逻辑模型

3.2。

1数据流程图

 

3.2。

2数据字典

数据字典是对描述数据流程图中的数据项、数据流、数据存储、加工处理逻辑等组成部分的严格定义,下面是本系统的部分数据字典。

(1)数据流的描述

数据流编号

G—01

数据流名称

采购订单

简述

全通公司实时购买的货物单

数据流来源

采购部门

数据流去向

采购员

数据项组成

订单号+经手人+日期+货物名称+货物代码+数量+货物单价+金额

数据流量

24张/天

高峰流量

30张/天

(2)处理逻辑描述

处理逻辑编号

P1

处理逻辑名称

采购处理

简述

对采购订单进行统计,开出采购单

输入的数据流

采购订单

处理描述

对采购订单进行处理,将所订的货物进行分类,编制合理有效的采购单

输出的数据流

采购单

处理频率

1张/小时

(3)数据存储的描述

数据存储编号

F1

数据存储名称

采购台账

简述

采购的货物的记录

数据存储组成

货物名称+货物代码+货物数量+货物单价+货物单位+金额+日期

关键字

货物

相关联的处理

P1

(4)外部实体的描述

外部实体编号

S1

外部实体名称

采购员

简述

采购货物人员

输入的数据流

采购订单

输出的数据流

采购订单

 

4系统设计

4.2总体设计

4.2。

1功能结构图设计

 

 

4.2.2E-R

4.3详细设计

4。

3.1输入输出设计

输出设备:

屏幕

输出方式:

显示输出与打印输出

输出形式:

报表输出形式

输入设计:

对输入信息进行校验

1.在登陆界面:

用户名及密码不能为空,如不填写两者或两者之一,则会弹出对话框提醒"请输入用户名与密码!

"

如果用户输入的密码不是密码管理表中的用户名及密码,则会弹出对话框提醒"无该用户!

"

2。

在采购订单:

订单号不能为空,否则会弹出对话框提醒"请输入完整信息,输入订单号编号为数字!

"

在单价和数量中输入数字,金额项目会自动显示为两者乘积结果。

4.3.2代码设计

代码设计部分主要是采购订单号的设计。

全通公司的主要合作伙伴为其设计固定的编码。

采购订单号是由厂家名和产品类别构成的.

厂家代码

厂家名称

产品类别代码

产品类别

01

百事可乐公司

01

果汁类饮品

02

可口可乐公司

02

茶系列饮品

03

娃哈哈公司

03

酸奶类饮品

04

农夫山泉公司

04

碳酸饮料类

05

统一公司

05

矿泉水

06

其他公司

06

其他类别

4。

3.3数据库设计

1、数据库的建立

该系统的数据库主要是应用Access编辑软件进行编辑的。

表5-1:

采购信息表

字段名称

数据类型

订单号

文本

时间

文本

经手人

文本

入库

文本

供应商

文本

是否交货

文本

数量

数字

单价

数字

金额

数字

商品名称

文本

商品编号

数字

2、数据库的连接

在VisualBasic中,使程序与数据库的连接有两种方式,一种使通过设置ADO控件的属性将程序与数据库进行连接,另一种是通过代码形式将ADO控件连接数据库,通过代码的形式虽然加大了开发难度,但是有很多的优点,所以,在程序开发是选择了以代码的形式来连接数据库。

 

5系统实施

一、登录界面

当输入的账号为:

1密码为:

1时,焦点会自动落在确定上面,此时点击确定就可以登入系统。

若错误,则会弹出对话框提醒“用户名密码错误,请重新输入!

”并且它的输入密码为“*”,是在属性栏中的passwordchar设置“*”。

用户名及密码不能为空,如不填写两者或两者之一,则会弹出对话框提醒"请输入用户名与密码!

"

如果用户输入的密码不是密码管理表中的用户名及密码,则会弹出对话框提醒"无该用户!

图5-1登陆窗口

它的具体代码为:

PrivateSubCommand1_Click()

IfText1=””OrText2=”"Then

MsgBox"请输入用户名与密码!

"

Else

Adodc1.Recordset。

Filter="用户名=’"+Text1.Text+"'"

Adodc1。

Recordset。

Find"用户名='"+Text1。

Text+"’"

IfAdodc1。

Recordset。

EOFThen

MsgBox"无该用户!

"

Else

Adodc1。

Recordset。

Filter="用户名”+"=”+"'"+Text1.Text+”'"

IfText2〈〉Adodc1.Recordset.Fields(”密码”)Then

MsgBox"用户名密码错误,请重新输入!

"

Else

Form2.Show

Form1.Hide

EndIf

EndIf

EndIf

Text2="”

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubText2_Change()

IfText2.Text="1”Then

Command1。

SetFocus

EndIf

EndSub

 

二、主界面

 

图5-2主界面

主界面是登陆后最基础的一个界面,内容包括采购订单,采购付款,订单收货,采购查询,采购开单,密码修改。

它的具体代码为:

PrivateSubCommand1_Click()

Form3。

Show

EndSub

PrivateSubCommand2_Click()

Form3。

Hide

Form4。

Show

EndSub

PrivateSubCommand3_Click()

Form5。

Show

EndSub

PrivateSubCommand4_Click()

Form6.Show

EndSub

PrivateSubCommand5_Click()

form7.Show

EndSub

PrivateSubCommand7_Click()

End

EndSub

PrivateSubCommand8_Click()

Form8。

Show

EndSub

3、采购订单

企业向供应商订货物时,开据入库订单,以便了解收货情况并预先安排存放货物的仓库.在界面内填入相应的商品信息,点击保存则会将所输入的采购信息保存到采购信息管理表中。

如果输入有误,且已保存,可以应用删除功能,将错误信息删除。

订单号不能为空,否则会弹出对话框提醒"请输入完整信息,输入订单号编号为数字!

"

在单价和数量中输入数字,金额项目会自动显示为两者乘积结果。

图5-3商品信息的录入

它的具体代码为:

PrivateSubCommand1_Click()

IfText1。

Text=”"Then

MsgBox"请输入完整信息,输入订单号编号为数字!

”,vbOKOnly+vbExclamation,”警告!

Text1.SetFocus

Else

Adodc1。

Recordset。

AddNew

Adodc1.Recordset.Fields("时间")=Text2.Text

Adodc1。

Recordset。

Fields(”订单号")=Text1。

Text

Adodc1。

Recordset.Fields(”供应商”)=Text4.Text

Adodc1.Recordset。

Fields("经手人”)=Text3。

Text

Adodc1。

Recordset.Fields("入库")=Text10。

Text

Adodc1.Recordset。

Fields(”是否交货”)=Text11.Text

Adodc1.Recordset.Update

Adodc1.Recordset.AddNew

Adodc1.Recordset。

Fields(”名称”)=Text5.Text

Adodc1。

Recordset。

Fields(”数量")=Val(Text7。

Text)

Adodc1。

Recordset.Fields(”单价”)=Val(Text6.Text)

Adodc1。

Recordset.Fields(”金额”)=Val(Text8.Text)

Adodc1。

Recordset。

Fields(”商品编号”)=Val(Text9.Text)

Adodc1.Recordset。

Update

MsgBox”已保存订单!

",vbOKOnly+vbExclamation,"提示”

Text1。

Text=””

Text2。

Text=”"

Text3。

Text=""

Text4。

Text=””

Text5。

Text=””

Text6.Text=""

Text7.Text=”"

Text8。

Text="”

Text9.Text="”

Text10。

Text=”"

EndIf

EndSub

PrivateSubCommand2_Click()

Form3.Hide

EndSub

PrivateSubCommand5_Click()

Adodc1。

Recordset.Delete

EndSub

PrivateSubText8_Change()

IfNotIsNumeric(Text6。

Text)OrNotIsNumeric(Text7.Text)Then

MsgBox”请在单价和数量中输入数字"

Else

Text8=Val(Text6)*Val(Text7)

EndIf

EndSub

4、订单收货

订单收货:

是“采购订单”上的货到后入库完成交易。

对采购订单表中商品的订单号进行查询,订单号不存在,则会弹出对话框提醒”无该订单"。

如存在,则会在表中显示出来,如果其“入库”属性为“否",即说明其没有入库,可点击“收货交易”,把相应信息保存到仓库信息管理表中。

如果其“入库”属性为“是"

则“收货交易”按钮不可用。

图5-4订单收货

它的具体代码为:

PrivateSubCommand1_Click()

Adodc1。

Recordset。

Fields("是否交货")="是”

Adodc1.Recordset。

Update

MsgBox”完成交易,已入仓库”,vbOKOnly

Adodc2.Recordset。

Find"订单号="&Adodc1.Recordset.Fields("订单号")

IfAdodc2。

Recordset。

EOF=TrueThen

Adodc2。

Recordset。

AddNew

Adodc2。

Recordset.Fields("名称”)=Adodc1。

Recordset.Fields(”名称")

Adodc2。

Recordset.Fields("数量")=Adodc1.Recordset.Fields(”数量")

Adodc2.Recordset。

Fields(”订单号")=Adodc1.Recordset.Fields("订单号")

Adodc2.Recordset.Fields("单价")=Adodc1.Recordset。

Fields("单价")

Adodc2.Recordset.Fields("金额")=Adodc1.Recordset。

Fields(”金额”)

Adodc2.Recordset.Update

Else

Adodc2.Recordset。

Fields(”数量”)=(Adodc2.Recordset。

Fields(”数量”)+Adodc1。

Recordset。

Fields("数量”))

Adodc2。

Recordset。

Update

EndIf

Command2。

Enabled=False

Text1。

Text=””

EndSub

 

PrivateSubCommand2_Click()

IfText1.Text="”OrNotIsNumeric(Text1)Then

MsgBox"订单号,并输入具体数值!

",vbOKOnly

Else

Adodc1.Recordset.Filter="订单号="+”'"+Text1。

Text+"'”

Adodc1。

Recordset。

Find”订单号=”&Text1.Text

IfAdodc1。

Recordset.EOFThen

MsgBox"无该订单"

Else

Adodc1.Recordset.Filter=”订单号=”+”'”+Text1.Text+”'"

IfAdodc1.Recordset。

Fields("是否交货")=”是”Then

Command1.Enabled=False

Else

Command1。

Enabled=True

EndIf

EndIf

EndIf

EndSub

PrivateSubCommand3_Click()

Form4。

Hide

Form2。

Show

EndSub

PrivateSubForm_Load()

Command1.Enabled=False

Command2。

Enabled=True

Text1.Text="”

EndSub

5、采购单

采购单是对库存的商品查询,了解哪些要进行采购。

填入相关商品信息,会将相关商品信息。

保存到库存管理表中,对于仓库中已有的商品,数量上会在原有的基础上增加。

图5-5仓库二的查询

具体代码为:

PrivateSubText6_Change()

IfNotIsNumeric(Text4.Text)OrNotIsNumeric(Text5.Text)Then

MsgBox”请在单价和数量中输入数字"

Else

Text6=Val(Text4)*Val(Text5)

EndIf

EndSub

PrivateSubCommand1_Click()

IfText1.Text=""OrText2。

Text="”Then

MsgBox”请输入完整信息,供应商与商品名称!

”,vbOKOnly+vbExclamation,”警告!

Else

Adodc1。

Recordset.Find”订单号="&"'”&Text3.Text&”'”

IfAdodc1。

Recordset.EOFThen

Adodc1.Recordset。

AddNew

Adodc1。

Recordset.Fields(”名称”)=Text1。

Text

Adodc1.Recordset。

Fields("数量")=Val(Text5。

Text)

Adodc1。

Recordset。

Fields(”订单号”)=Text3。

Text

Adodc1.Recordset.Fields(”单价")=Val(Text4。

Text)

Adodc1。

Recordset。

Fields(”金额”)=Val(Text6。

Text)

Adodc1。

Recordset.Fields("是否付款”)="否"

Adodc1.Recordset。

Fields("仓库名")="仓库一"

Adodc1.Recordset。

Update

Else

Adodc1。

Recordset。

Fields(”数量”)=(Val(Text5。

Text)+Adodc1。

Recordset.Fields("数量”))

Adodc1。

Recordset.Update

EndIf

EndIf

Text1.Text="”

Text2。

Text=""

Text3。

Text=""

Text4.Text=”"

Text5。

Text=””

Text6。

Text="”

EndSub

PrivateSubCommand2_Click()

Form2。

Show

Form5。

Hide

EndSub

6、付款单

付款给供应商,支付金额自动登账入库,完成入库交易。

输入订单号对要付款的订单进行查询,如果订单号存在且其“是否付款”属性为否,则确认付款,并将信息保存到仓库管理表中完成付款交易。

图5—6仓库调拨

具体代码如下:

PrivateSubCommand1_Click()

Adodc1。

Recordset.Fields(”是否付款")=”是"

Adodc1。

Recordset。

Update

MsgBox"完成付款交易!

”,vbOKOnly

Text1。

Text="”

EndSub

PrivateSubCommand2_Click()

Form2。

Show

Form6。

Hide

EndSub

PrivateSubCommand3_Click()

IfText1.Text="”OrNotIsNumeric(Text1)Then

MsgBox”输入订单号!

",vbOKOnly

Else

Adodc1。

Recordset.Filter=”订单号=”+"'”+Text1。

Text+"'”

Adodc1。

Recordset.Find"订

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 工程科技

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2