。
2.物料控制半自动化,加强了各个部门之间的联系。
3.高库存管理的服务水平,最大限度地降低库存量,包括中间库存和在制品的库存,以减少在库存上的资金积压。
4.最大限度的保证订货任务的按期完成。
5.提高计划的可能性,实现均衡生产:
6.集成管理职能,提高管理效率。
第五章系统总体设计
5.1部分数据流图:
顶层数据流图
0层数据流图
1层数据流图
5.2数据字典的代表:
数据流图描述了系统的分解,但没有对图中各成分进行说明,数据字典就是为了数据流图的每个数据流、文件、加工,以及组成数据流或文件的数据项作出说明。
因篇幅限制,每样仅举例说明
数据流条目:
出库单=出库单号+日期+客户名称+物资类别+制单人员+记帐人员+发货人+状态+
{销售订单号+品名+单位+数量+规格+备注+单价}
各类财务统计报表=仓库材料消耗汇总(成本项目)+仓库材料消耗汇总(按车间)+材料收发存明细A+材料收发存明细B+材料收发存明细C+材料收发存分类汇总表+木材消耗汇总表
文件条目
文件名称:原材料库存文件
简述:保存原材料的基本资料
组成:材料编号+品名型号+规格尺寸+单位+采购计量单位+参数+数量+最低数量+最高数量+单价+备注+大大分类+大分类+分类+小分类
文件名称:销售文件
简述:保存所有销售订单的文件
组成:内部定单号+订货日期+客户编号+总金额+预收率--NEWCASTLE号+PO单号包装办法+品质要求+内装箱+外装箱+MADEINCHINA+特别指示+箱正侧内+状态+{型号+色号+木材尺寸+光泽度+内绒+表面处理+数量+出货日期+单价}
数据项条目
名称:材料编号
简述:材料编号分四个字段(大大分类+大分类+分类+小分类),可以将材料分门别
类,因为许多地方用到编号,因此将四项和为一项保存一个冗余字段。为了便于查找。
5.3ER图:
说明:
1、用户:这里把每个部门使用群体当成一个整体。(如销售部门的使用者是一个群体,只当成是一个销售用户)
2、因为图较复杂,没有画出各个实体及联系的属性。
5.4功能模块
5.4.1程序层次图
5.4.2模块功能说明
因为模块很多,选取财务模块说明功能。
1.仓库材料消耗汇总(成本项目):
功能:按领料单中的成本项目进行每月金额消耗汇总统计,并按照材料大分类类型进行小计,最后总计。
2.仓库材料消耗汇总(车间)
功能:按领料单中的领用车间进行每月金额消耗汇总统计,并按照材料大分类类型进行小计,最后总计。
3.材料收发存明细-A:
功能:追踪某中材料某月的进出库情况,并按照每一天汇总出数量金额。
4.材料收发存明细-B:
功能:追踪与某中材料某月的进出库有关的所有实际单据。
5.材料收发存明细-C:
功能:追踪某中材料某月的进出库情况,并显示出是那一帐单据进行操作,如果是领料则在摘要中写明成本项目。计算出每次操作之后的结存数量及金额。
6.材料收发存分类汇总表:
功能:按材料小分类类型统计每类材料的当月出入库数量、金额,并算出期初数量、金额,期末数量、金额。并按照材料大类型进行小计,最后总计。
7.材料收发存数量金额报表:
功能:统计每一种材料的当月出入库数量、金额,并算出期初数量、金额,期末数量、金额。并按照材料类型进行小计,最后总计。
8.木材消耗表:
功能:查询每一张工作单的每一种型号的产品消耗木材的金额
5.4.3分工情况:
因为各个功能模块之间的联系非常紧密,因此在分工的时候不仅根据实际的部门分配任务,更多考虑了实际数据的流转,因此在分工中我负责的是原材料的流转有关的功能。
包括:材料预约、材料请购、订购材料、订购收货查询、及财务部要求的所有关于材料的使用情况的各种报表。
第六章详细设计
根据内部订单预定材料的流程图
说明:KDYsl:可调用数量
XQsl:需求数量
KCsl:库存数量
可调用数量=库存数量- 最低库存量 - 已预约数量
设计时 需求数量与库存数量、可调用数量分别比较可得出4种情况
需求数量>可调用数量and需求数量>库存数量
(因为库存数量>=可调用数量所以可写成XQsl>KDYsl)
2、需求数量>=可调用数量and需求数量<=库存数量
(因为库存数量>=可调用数量所以可写成KDYsl<=XQsl<=KCsl)
3、需求数量<可调用数量and需求数量>库存数量
(因为库存数量>=可调用数量 所以 不存在这种情况)
4、需求数量<可调用数量and需求数量<库存数量
(因为库存数量>=可调用数量所以可写成XQsl
KDYsl 和 KDYsl<=XQsl<=KCs 和 XQsl=B.YFYF);
SELECTA.DHDH,A.KDRQ,B.CLBH,B.SLSL,B.SLSL*B.DJDJASJEJE
FROMK_clrk_MASAINNERJOINK_clrk_DASBONA.DHDH=B.DHDH
WHERESTATUS=1;
SELECTA.CLBH,B.YFYF,IIf(A.RKSL=0,IIf(ISNULL([QCSL]),0,[QCJE]/[QCSL]),(B.QCJE+A.RKJE)/(B.QCSL+A.RKSL))ASDJDJ
FROMAVER_MTH_RK2ASALEFTJOINT_SFC_QCASBONA.CLBH=B.BHBH;
功能函数
PublicSubDo_Aver_DJ()
Dimda_RecAsADODB.Recordset
Dimda_SQLAsString
Setda_Rec=AppCN.Execute("select*fromAVER_DJ")
AppCN.BeginTrans
DoWhileNotda_Rec.EOF
da_SQL="updateJ_clclsetDJDJ="&da_Rec.Fields("DJDJ")&"whereBHBH='"&da_Rec.Fields("CLBH")&"'"
AppCN.Execute(da_SQL)
da_SQL="updateK_LLLL_DsetJEJE="&da_Rec.Fields("DJDJ")&"*k_LLLL_D.SLSLwhereK_LLLL_D.CLBH='"&_
da_Rec.Fields("CLBH")&"'andK_LLLL_D.DHDHIN(SELECTDHDHFROMAVER_mth_LL2)"
AppCN.Execute(da_SQL)
da_Rec.MoveNext
Loop
AppCN.CommitTrans
EndSub
收发存明细C
追踪某中材料某月的进出库情况,并显示出是那一帐单据进行操作,如果是领料则在摘要中写明成本项目。计算出每次操作之后的结存数量及金额。
PrivateSubCmdMe_Click(IndexAsInteger)
IfIndex=0Then
CallPrintLstv(Me.LstView,LoadResString(804),"材料["&m_CLBH&"]收发存明细A",1,1)
Else
UnloadMe
EndIf
EndSub
PrivateSubDoGroupCube(SlColAsString,JeColAsString)
DimarrSlCol()AsString
DimarrJeCol()AsString
DimkAsInteger
DimtotalAsDouble
CallON_GetArray(SlCol,arrSlCol)
CallON_GetArray(JeCol,arrJeCol)
LstView.ListItems.Add,,""
LstView.ListItems(LstView.ListItems.Count).SubItems(1)="总计"
Fork=0ToUBound(arrSlCol)
total=0
ForJ=1ToLstView.ListItems.Count
total=total+Val(LstView.ListItems(J).SubItems(Val(arrSlCol(k))))
Next
LstView.ListItems(LstView.ListItems.Count).SubItems(Val(arrSlCol(k)))=total
Next
Fork=0ToUBound(arrJeCol)
total=0
ForJ=1ToLstView.ListItems.Count
total=total+Val(LstView.ListItems(J).SubItems(Val(arrJeCol(k))))
Next
LstView.ListItems(LstView.ListItems.Count).SubItems(Val(arrJeCol(k)))=Format(total,"###0.00")
Next
EndSub
PrivateSubForm_Load()
Dimfl_NumAsSingle
Dimfl_CashAsDouble
Me.Icon=LoadResPicture(101,vbResIcon)
Me.Move(Screen.Width-Me.Width)/2,(Screen.Height-Me.Height)/4
Me.Caption="查看["&m_CLBH&"]的明细情况"
CallDoStyle
IfGetInitData(fl_Num,fl_Cash)=TrueThen
CallDoShow(fl_Num,fl_Cash)
'CallDoRemain(fl_Num,fl_Cash)
EndIf
EndSub
PrivateSubDoShow(m_drNumAsSingle,m_drCashAsDouble)
DimdsRecAsADODB.Recordset
DimdsSQLAsString
DimIAsInteger
DimitmX
Dimrd_theSLAsSingle
Dimrd_theJEAsDouble
Dimrd_RKJEAsDouble,rd
上一篇:超市管理系统vb(论文和程序)
下一篇:网上购物系统毕业设计论文