采购管理系统.docx
- 文档编号:12073152
- 上传时间:2023-04-16
- 格式:DOCX
- 页数:27
- 大小:1.45MB
采购管理系统.docx
《采购管理系统.docx》由会员分享,可在线阅读,更多相关《采购管理系统.docx(27页珍藏版)》请在冰豆网上搜索。
采购管理系统
1前言
1.1作业背景
本文根据《管理信息系统开发实践》课程要求而做。
课程作业要求如下:
管理信息系统开发作为独立的教学环节,是学习完《管理信息系统》课程并进行完专业实习后进行的一次全面的综合练习。
其目的在于加深对管理信息系统基础理论和基本知识的理解,掌握使用信息系统分析、设计的基本方法,提高解决实际管理问题、开发信息系统的实践能力。
具体内容是:
用信息系统开发工具(例如PowerBuilder、Delphi、Vb、Vfp等)开发一个实用的中小型采购管理信息系统。
具体要求如下:
1、根据课程实践时间选择适当规模大小的设计课题。
针对信息系统课程实践的具体特点,体现项目管理的思想。
2、根据合理的进度安排,按照系统开发的流程及方法,踏实地开展课程实践活动。
3、课程实践过程中,根据选题的具体需求,在开发各环节中撰写相关的技术文档,最后要求提交详细的课程实践报告。
4、开发出可以运行的管理信息系统,通过上机检查。
1.2选题说明
进入21世纪,随着技术进步和客户需求多样化,企业经营的市场环境发生了很大的变化,从过去的供应商主导的、静态的、简单的市场环境变成客户为主导的、动态的、复杂的市场环境。
企业之间由单纯产品质量、性能方面的竞争转向企业所在的供应链之间的竞争。
在企业经营管理中,采购是最重要的一个环节。
它对于企业降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。
采购管理为降低采购成本,提高采购效益提供了广阔的空间,但也同时为采购管理带来了新的机遇和挑战。
目前,我国大多数企业仍然没有建立健全的供应链管理体系,物资的采购还存在机构设置分散,资源浪费严重,信息传递滞后等问题。
1.2.1基本思路
通过对课程设计的要求而进行初步调查,从提高采购管理的需求入手,给出了适合中小企业的采购管理系统整体设计方案。
在系统业务流程改造和功能模块的设计中体现出先进的采购管理思想,并对采购业务管理的具体内容进行了分析与设计。
1.2.2作业目标
该系统将有效的整合企业内外部的资源,加强企业与供应商之间的紧密合作,增强企业采购业务的透明度,规范标准业务流程,提高采购的效率和质量,提升企业的核心竞争力。
通过对采购管理系统设计与开发,使采购部门的工作效率大大提升,实现采购管理工作的信息化,网络化等,从而降低采购的总体成本,增加企业的利润,并能更好的完成企业最终目标。
1.3工作业绩
1.3.1个人主要工作
我的课程设计主要是有4项主要界面,主要内容包括采购信息系统的权限管理、采购信息系统的采购订单,采购信息系统的采购付款,采购信息系统的订单收货。
同时还进行了程序的调试、数据准备与录入、系统转换与评价等。
系统实施阶段既是成功地实现新系统,又是取得用户对系统信任的关键。
1.3.2主要收获
通过对全通公司的采购管理系统进行设计,使我不仅了解到系统实施部分的内容,也使我更深的掌握了管理信息系统的开发方法以及重要性。
开发一个管理信息系统好像建一栋大楼,系统分析、系统设计是根据用户的要求画出各种蓝图,系统实施是调集各类人员、设备、材料,在现场根据图纸按实施方案的要求把“大楼”建起来。
更重要是我终于明白了VB原来这么有用。
通过对这个系统的开发设计,使我这学期所学的管理信息系统得到了运用,实现了从理论到实践的升华,一个完善的管理信息系统可以促使公司向信息化方向发展,将管理工作统一化、规范化、现代化,使公司处于一个信息灵敏、管理科学、决策准确的良性循环中,为公司带来跟高的效益。
2系统规划
2.1可行性分析
2.1.1可行性研究方法
通过调查分析采购供应管理信息系统所具备的能力及实现的方法。
确定总体结构,利用数据库所具有的能力,以最简洁最容易的方法,使其成为一个初级的系统软件。
2.1.2可行性综合分析
(1)可行性:
系统现阶段的发展过程中,利用现有人力和物力是完全具备的能力开发出来的,作为阶段性产品,日后的发展空间大,实现方法逐步简单容易。
对于该系统的技术要求,现行的软件开发条件,环境,完全可以实现。
SQLServer2000完全可以提供该系统的操作要求和数据库需求。
但由于SQLServer较Access复杂,本设计又是注重研究系统的实现,所以采购管理信息系统在Access技术上是完全可行的。
(2)技术可行性:
该系统的开发要求是界面简单,易于操作。
(3)经济可行性:
该系统做为课程设计开发,经济可行性必然不能完全考察出来,但本人认为此次设计的采购管理信息系统完全可行。
(4)管理可行性:
此次采购管理系统的设计由于操作简单,内容较少,且炒作简单,同时又能适应大部分的采购系统,故能使采购流程效率提高。
又经过权限的设置,帮助他们能够快速准确和职能化的工作,减少作业量并提高效率。
3系统分析
系统分析在整个开发过程中,是要解决“做什么”的问题。
从逻辑上,或者说从信息处理的功能需求上提出系统的方案,即逻辑模型,为下一阶段进行物理方案设计、解决“怎么做”提供依据。
本企业采购管理业务的系统功能:
1.采购订单:
如果企业向供应商订货物时,开据入库订单,以便了解收货情况并预先安排存放货物的仓库。
2.订单收货:
是“采购订单”上的货到后入库完成交易。
3.采购开单:
就是货物购买后直接进入仓库,此时仓库商品增加。
4.采购付款:
付款给供应商,支付金额自动登帐进入明细账中。
5.采购退货:
是把商品退回给供应商,退货时有几种方式,如选择退款冲应付款,则系统数据库会自动更改用户与供应商的交易情况,自动修改明细账;如选择退货收回现款,表示退货以现金的形式收回,现金形式也分为二种,一种是以银行账户的,另一种是以现金的,用户可自行选择。
6.系统操作人员口令及权限管理。
3.1详细调查分析
3.1.1业务流程图
业务流程图(transactionflowdiagram,简称TFD),就是用一些规定的符号及连线来表示某个具体业务处理过程。
是一种用尽可能少、尽可能简单的方法来描述业务处理过程的方法。
3.2系统的逻辑模型
3.2.1数据流程图
3.2.2数据字典
数据字典是对描述数据流程图中的数据项、数据流、数据存储、加工处理逻辑等组成部分的严格定义,下面是本系统的部分数据字典。
(1)数据流的描述
数据流编号
G-01
数据流名称
采购订单
简述
企业购置商品时内部流动的单据
数据流来源
采购部门
数据流去向
采购员
数据项组成
订单号+经手人+日期+货物名称+货物代码+数量+货物单价+金额
单价+摘要+供应商+商品编号+联系电话+预入仓库
数据流量
25张/天
高峰流量
50张/天
(2)处理逻辑描述
处理逻辑编号
P1
处理逻辑名称
采购处理
简述
对采购订单进行统计,开出采购单
输入的数据流
采购订单
处理描述
对采购订单进行处理,将所订的货物进行分类,编制合理有效的采购单
输出的数据流
采购单
处理频率
1张/小时
(3)数据存储的描述
数据存储编号
F1
数据存储名称
收货表
简述
采购的货物的记录
数据存储组成
货物名称+货物代码+货物数量+货物单价+货物单位+金额+日期
关键字
货物
相关联的处理
P1
(4)外部实体的描述
外部实体编号
S1
外部实体名称
采购员
简述
采购商品人员
输入的数据流
采购订单
输出的数据流
采购订单
3.3.1组织结构分析
组织结构图如下:
4系统设计
4.2总体设计
4.2.1功能结构图设计
4.3详细设计
4.3.1输入输出设计
输出设备:
屏幕
输出方式:
显示输出与打印输出
输出形式:
报表输出形式
输入设计:
对输入信息进行校验
1.在登陆界面:
用户名及密码不能为空,如不填写两者或两者之一,则会弹出对话框提醒"请输入用户名与密码!
"
如果用户输入的密码不是密码管理表中的用户名及密码,则会弹出对话框提醒"无该用户!
"
2.在采购订单:
订单号不能为空,否则会弹出对话框提醒"请输入完整信息,输入订单号编号为数字!
"
在单价和数量中输入数字,金额项目会自动显示为两者乘积结果。
5系统实施
一、登录界面
当输入的账号和密码符合Access数据库中的cgdl表中的数据时时,焦点落在确定上面,此时点击确定就可以登入系统。
若错误,则会弹出对话框提醒“用户名密码错误,请重新输入!
”并且它的输入密码为“*”,是在属性栏中的passwordchar设置“*”。
用户名及密码不能为空,如不填写两者或两者之一,则会弹出对话框提醒"请输入用户名与密码!
"
如果用户输入的密码不是密码管理表中的用户名及密码,则会弹出对话框提醒"无该用户!
"
设置了访问权限,根据不同人的管理职能提供相应的管理权限
图5-1登陆窗口
它的具体代码为:
PrivateSubCommand1_Click()
DimsqlAsString
DimcgdlAsNewADODB.Recordset
DimdlqxAsString
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空,请重新输入!
"
Text1.SetFocus
Else
sql="select*fromcgdlwhere登录名='"&Trim(Text1.Text)&"'"
cgdl.Opensql,cnn,adOpenKeyset,adLockPessimistic
Ifcgdl.EOF=TrueThen
MsgBox"用户名不存在,请重新输入!
",vbOKOnly+vbExclamation,""
Text1.Text=""
Text2.Text=""
Text1.SetFocus
Else
IfTrim(cgdl.Fields("密码"))=Trim(Text2.Text)Then
Form2.Show
dlqx="select*from权限管理where用户名='"&Trim(Text1.Text)&"'"
Adodc2.RecordSource=dlqx
Adodc2.Refresh
IfAdodc2.Recordset.Fields("权限管理")="Yes"Then
Form2.权限管理(10).Enabled=True
EndIf
IfAdodc2.Recordset.Fields("采购付款")="Yes"Then
Form2.采购付款(5).Enabled=True
EndIf
IfAdodc2.Recordset.Fields("采购订单")="Yes"Then
Form2.采购订单
(2).Enabled=True
EndIf
IfAdodc2.Recordset.Fields("订单收货")="Yes"Then
Form2.订单收货(3).Enabled=True
EndIf
UnloadMe
Else
MsgBox"密码不正确,请重输入!
",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
EndIf
EndIf
EndIf
cgdl.Close
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Command1.SetFocus
EndIf
EndSub
二、主界面
图5-2主界面
主界面是登陆后最基础的一个界面,内容包括采购订单,采购付款,订单收货,采购查询,采购开单,密码修改,权限管理,采购开单,帮助,新增产品等。
它的具体代码为:
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Key
Case"采购订单"
LoadForm3
Form3.Show
Case"新增产品"
LoadForm5
Form5.Show
Case"产品帮助"
MsgBox"该产品正在试运行,不能显示帮助!
",vbOKOnly,""
Form2.Show
Case"退出系统"
Case"产品相关"
MsgBox"本采购系统由倪斯文制作!
"
Case"退出产品"
End
EndSelect
EndSub
PrivateSub采购查询_Click(IndexAsInteger)
Form5.Show
EndSub
PrivateSub采购订单_Click(IndexAsInteger)
Form3.Show
EndSub
PrivateSub采购付款_Click(IndexAsInteger)
Form8.Show
EndSub
PrivateSub订单收货_Click(IndexAsInteger)
Form4.Show
EndSub
PrivateSub权限管理_Click(IndexAsInteger)
Form7.Show
EndSub
PrivateSub新增产品_Click(IndexAsInteger)
Form5.Show
EndSub
3、商品采购订单
企业向供应商订货物时,开据入库订单,以便了解收货情况并预先安排存放货物的仓库。
在界面内填入相应的商品信息,点击保存则会将所输入的采购信息保存到采购信息管理表中。
如果输入有误,且已保存,可以应用删除功能,将错误信息删除,同时可以计算出应付金额。
订单号不能为空,否则会弹出对话框提醒"请输入完整信息,输入订单号编号为数字!
"
在单价和数量中输入数字,金额项目会自动显示为两者乘积结果。
图5-3商品信息的录入
它的具体代码为:
DimcgAsNewADODB.Recordset
PrivateSubCommand1_Click()
Dimcgdd1AsString
cgdd1="select*from采购订单管理"
IfTrim(Text12.Text)=""Then
MsgBox"电话号码不能为空",vbOKOnly+vbExclamation,""
Text12.SetFocus
ExitSub
EndIf
IfTrim(Text7.Text)=""Then
MsgBox"单价不能为空",vbOKOnly+vbExclamation,""
Text7.SetFocus
ExitSub
EndIf
IfTrim(Text1.Text)=""Then
MsgBox"数量不能为空",vbOKOnly+vbExclamation,""
Text14.SetFocus
ExitSub
EndIf
cg.Opencgdd1,cnn,adOpenKeyset,adLockOptimistic
cg.AddNew
cg.Fields("交货时间")=Date
cg.Fields("经手人")=DataCombo1.Text
cg.Fields("摘要")=Text10.Text
cg.Fields("联系电话")=Text12.Text
cg.Fields("商品名称")=Combo3.Text
cg.Fields("商品编号")=Combo4.Text
cg.Fields("单价")=Text7.Text
cg.Fields("数量")=Text1.Text
cg.Fields("预入仓库")=Combo1.Text
cg.Fields("供应商")=Combo2.Text
cg.Fields("录入时间")=DTPicker1.Value
cg.Fields("交货时间")=DTPicker2.Value
cg.Fields("订单号")=Label20.Caption
cg.Fields("合计金额")=Label19.Caption
cg.Update
cg.AddNew
cg.Fields("预入仓库")=Combo1.Text
cg.Fields("供应商")=Combo2.Text
cg.Fields("录入时间")=DTPicker1.Value
cg.Fields("交货时间")=DTPicker2.Value
cg.Fields("订单号")=Label20.Caption
cg.Fields("交货时间")=Date
cg.Fields("经手人")=DataCombo1.Text
cg.Fields("摘要")=Text10.Text
cg.Fields("联系电话")=Text12.Text
cg.Fields("商品名称")=DataCombo3.Text
cg.Fields("商品编号")=DataCombo2.Text
cg.Fields("单价")=Text3.Text
cg.Fields("数量")=Text2.Text
cg.Fields("合计金额")=Label21.Caption
cg.Update
cg.Close
MsgBox"保存成功",vbOKOnly+vbExclamation,""
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
DimMagAsInteger
Mag=MsgBox("是否删除!
",vbYesNo,"警告")
IfMag=vbYesThen
Adodc1.Recordset.Delete'删除记录
EndIf
Label19.Caption=Val(Text7.Text)*Val(Text1.Text)
EndSub
PrivateSubCommand3_Click()
UnloadMe
EndSub
PrivateSubCommand4_Click()
Text9.Text=""
Text10.Text=""
Text12.Text=""
Text7.Text=""
Text1.Text=""
Adodc1.Recordset.AddNew
EndSub
PrivateSubForm_Load()
Label20.Caption=Trim(Format(Val(Year(Date)&Month(Date)&Day(Date)&Hour(Time)&Minute(Time)&Second(Time)),"00000000000000"))
EndSub
PrivateSubText1_Change()
Label19.Caption=Val(Text7.Text)*Val(Text1.Text)
EndSub
PrivateSubText2_Change()
Label21.Caption=Val(Text3.Text)*Val(Text2.Text)
EndSub
4、订单收货
订单收货:
是“采购订单”上的货到后入库完成交易。
对采购订单表中商品的订单号进行查询,会在表中显示出来,说明其没有入库,可点击“详单查询”,把相应信息保存到收货管理表中。
同时删除采购订单中相应的内容。
并计算出支付的金额。
图5-4订单收货
它的具体代码为:
PrivateSubCommand1_Click()
DimdhAsString
dh="select*from采购订单管理where订单号='"&Combo1.Text&"'"
Adodc1.RecordSource=dh
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DimsumAsDouble'sum就是所有的和
sum=0'先给赋值为0
Adodc1.Recordset.MoveFirst
DoWhileNotAdodc1.Recordset.EOF'从开始一直到结尾,累加
sum=sum+Val(Adodc1.Recordset.Fields(12))
Adodc1.Recordset.MoveNext
Loop
Text1.Text=str(sum)'保存到text1中去
Adodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand2_Click()
DimdhAsString
dh="select*from采购订单管理where订单号='"&Combo1.Text&"'"
Adodc1.RecordSource=dh
Adodc1.Refresh
DimshAsString
sh="select*from收货表"
Adodc2.RecordSource=sh
Adodc2.Refresh
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("订单号")=Combo1.Text
Adodc2.Recordset.Fields("总金额")=Text1.Text
Adodc2.Recordset.Update
Adodc1.Recordset.Delete
MsgBox"成功收货",vbExclamation,"提示"'付款成功后删除该采购单
Adodc1.Recordset.Update
Adodc1.Refresh
Combo1.Text=""
SetDataGrad=Adodc1
EndSub
PrivateSubCommand3_Click()
DimMagAsInteger
Mag=MsgBox("是否删除!
",vbYesNo,"警告")
IfMag=vbYesThen
Adodc1.Recordset.Delete'删除记录
EndIf
EndSub
PrivateSubCommand4_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
EndSub
5、采购付款
采购付款是对采购订单中的商品进行金额统计并付款,并且应知道付款时间,并将付款的单据存入公司的数据库中,以备调查。
图5-5
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 采购 管理 系统
![提示](https://static.bdocx.com/images/bang_tan.gif)