企业管理信息系统Word文档下载推荐.docx
- 文档编号:22425186
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:18
- 大小:59.63KB
企业管理信息系统Word文档下载推荐.docx
《企业管理信息系统Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《企业管理信息系统Word文档下载推荐.docx(18页珍藏版)》请在冰豆网上搜索。
这样,产生了资金和商品的流动,同时也反映在信息流中。
在购、销、存、运四个基本的业务环节中,购销是中心,是企业其他经济活动的起点。
商品流通企业的各项经济活动都是直接或间接地从购销业务中派生出来的。
在大中型企业中,一般设立采购、销售、财务、储运、人事等职能部门。
本文对中国邮电器材总公司西北分公司和陕西医药物资总站两家不同行业以批发为主的单位进行过实地调研。
它们的年销售额都在六千万元以上,属于大中型企业,都有较为稳定的购进和销售渠道。
尽管在部门设置上有所差异,但它们的基本业务及工作流程大致相同。
以下是对它们现行主要业务的调查。
·
采购 其主要业务:
制订采购计划,在业务经理审批后,选择供应商并签定购进合同(一式多联)。
一份存档,一份送仓库作验收依据。
采购计划的制订主要依据:
a.现有库存商品的信息。
B.由销售部门提供的市场需求(包括新商品)及预测信息。
C.由财务部门提供的企业流动资金状况。
销售 其主要任务是对现有库存商品在销售政策的指导下,以各种方式,完成指定的销售目标;
预测市场需求信息,开发新市场、新客户。
主要业务:
a对销售合同,客户定单经审核后开发货单(一式多联)。
一份存档,一份送仓库发货,一份送财务记帐、开发票。
b收集市场、客户信息,对市场需求进行预测。
c修建客户档案及对客户进行评价。
仓库 主要业务:
a根据发货单办理商品出库,并安排货物的运输。
b根据购进合同、随货同行单据,对货物进行验收、填制入库单(一式多联)。
一份存档,一份送财务记帐。
c根据入、出库单据记库存商品明细帐。
d定期作盘存和统计报表。
财务 主要职能:
对经营过程起保证、监督和制约的作用。
a根据发货单记销售明细帐、商品明细帐。
b根据入库单记购进明细帐。
c对销售、购进统计、汇总。
d对各种收入、支出作凭证处理,填制各种财务报表(其中帐务处理已实现电算化)。
人事 主要职能:
职员的建档及维护;
对人事信息进行统计、汇总;
职员工资核定等。
通过对现行业务流程的分析,发现在管理上存在一些薄弱点。
如在销售方面:
从销售部门处理定单(销售合同)到发货这个过程中,财务部门没有起到应有的监督作用。
这样在销售过程中,可能出现客户欠款过多,造成企业资金短缺不能正常周转。
另一方面:
在商业经营中,商品周转的快慢,直接影响到企业的效益。
经营品种繁多使传统的管理方式很难完成对单种商品周转时间及时、准确的监测,而造成某些商品长期的积压。
对于以上存在的问题,在原系统业务流程中作必要的修改和增设,形成新系统数据流程图。
二、系统设计
企业MIS是一项复杂的系统工程,开发周期长,而且用户的需求是千差万别的,同时又是不断变化的,往往是在开发工作还没有完成,企业的经营规模、业务要求已发生变化,致使开发工作无法正常进行。
因此,有必要对同一类企业进行分析,找出它们基本的共同点,建立内核模型。
用模块化设计来实现核心。
使其具有良好的可扩充性。
这样,对于同一企业的变化要求或同类企业差异作适当的调整和扩充即可快速地实现企业MIS。
对以后的MIS建设可以做到事半功倍的效果。
对于批发商业由于业务处理的多样性和复杂性,在系统设计时还应考虑。
多商品定单 在实际业务处理中,客户的定单通常有不止一种商品。
因此,多商品的定单处理是对系统的基本要求。
销售方式的多样性 在销售业务中,对不同的客户、不同的批量,其付款方式、价格也不同。
如现款、预付款销售,赊销(不同的期限),代销等。
多库存 商品通常是按类别分别存放在不同仓库中,但也不排除同一商品存放在不同仓库中,因此,要求系统具有多库存处理的能力。
退货 要求能对客户退货进行核准,并能对多种退货方法进行处理。
1 系统功能模块设计
在对系统总体功能进行全面分析的基础上,形成6个子系统
系统功能模块图
数据库设计数据库是MIS的核心,大中型批发商业业务处理所用的数据可分为两类:
一类是基本数据。
它与业务处理中使用的原始单据相对应。
如定单、客户文档、供方文档、发货单、职员档案、产品文档,购进合同、验收单、入库单、收付款单据等。
另一类是辅助数据:
它是由基本数据所构成或与基本数据联合表示同类多项目数据。
对应于企业的销售明细帐、购进明细帐、库存明细帐等。
人员管理模块如图1.1所示:
图1.1人员管理模块
材料管理模块如图1.2所示:
图1.2材料管理模块
功能模块:
登陆验证功能:
主要功能为身份验证,防止非法用户进入系统。
实现方法如图1.3所示:
图1.3材料收发存分类汇总的程序流程图
编码摘要:
SELECT[K_llll_D].[CLBH]ASCLBH,[K_llll_M].[KDRQ]ASKDRQ,[K_llll_M].[CBXM]ASCBXM,[K_llll_M].[DHDH],[K_llll_D].[SLSL]ASSLSL,[k_LLLL_D].[JEJE]ASJEJE
FROMK_llll_MINNERJOINK_llll_DON[K_llll_M].[DHDH]=[K_llll_D].[DHDH]
WHERE[K_llll_M].[status]=1;
SELECT[K_clrk_D].[CLBH]ASCLBH,[K_clrk_M].[KDRQ]ASKDRQ,[K_clrk_M].[DHDH]ASDHDH,[K_clrk_D].[SLSL]ASSLSL,[SLSL]*[K_clrk_D].[DJDJ]ASJEJE
FROMK_clrk_MINNERJOINK_clrk_DON[K_clrk_M].[DHDH]=[K_clrk_D].[DHDH]
WHERE[K_clrk_m].[STATUS]=1;
SELECTA.CLBH,Sum(A.SLSL)ASZSL,Sum(A.JEJE)ASZJE,year([KDRQ])&
"
-"
&
Month([KDRQ])&
1"
ASMON
FROMSFC_rkASA
GROUPBYA.CLBH,year([KDRQ])&
;
SELECTA.CLBH,Sum(IIf(ISNULL(A.SLSL),0,A.SLSL))ASZSL,Sum(IIf(ISNULL(A.JEJE),0,A.JEJE))ASZJE,year([KDRQ])&
FROMSFC_ckASA
SELECTA.BHBHASBHBH,A.YFYFASYFYF,IIf(ISNULL(A.QCSL),0,A.QCSL)ASQCSL,IIf(ISNULL(B.ZSL),0,B.ZSL)ASSRSL,[QCSL]+SRSLASMISL,IIf(ISNULL(A.QCJE),0,A.QCJE)ASQCJE,IIf(ISNULL(B.ZJE),0,B.ZJE)ASSRJE,[QCJE]+SRJEASMIJE
FROMT_SFC_QCASALEFTJOINSFC_RK_GPASBON(A.YFYF=CDATE(B.MON))AND(A.BHBH=B.CLBH)
ORDERBY[bhbh];
SELECTA.BHBH,A.YFYF,A.QCSL,A.SRSL,A.MISL-IIF(ISNULL(B.ZSL),0,B.ZSL)ASQMSL,A.QCJE,A.SRJE,A.MIJE-IIF(ISNULL(B.ZJE),0,B.ZJE)ASQMJE,IIF(ISNULL(B.ZSL),0,B.ZSL)ASFCSL,IIF(ISNULL(B.ZJE),0,B.ZJE)ASFCJE
FROMSFC_AAAASALEFTJOINSFC_CK_GPASBON(A.YFYF=CDATE(B.MON))AND(A.BHBH=B.CLBH)
ORDERBY[bhbh]
SELECTA.BHBH,B.PMPMASPMPM,B.GGGGASGGGG,A.YFYF,A.QCSL,A.SRSL,A.FCSL,A.QMSL,A.QCJE,A.SRJE,A.FCJE,A.QMJE,B.FLAA,B.FLBB,B.FLCC
FROMSFC_BBBASALEFTJOINJ_clclASBONA.BHBH=B.BHBH
ORDERBYA.BHBH;
SELECTSFC_CCC.*,IIf(ISNULL([O_Dzfy].[ZWZW]),"
空"
[O_Dzfy].[ZWZW])ASZWBB
FROMSFC_CCCLEFTJOINO_DzfyON[O_Dzfy].[FHFH]=[SFC_CCC].[FLBB];
SELECTSFC_ZW_B.*,IIf(isnull([O_Dzfy].[ZWZW]),"
[O_Dzfy].[ZWZW])ASZWCC
FROMSFC_ZW_BLEFTJOINO_DzfyON[SFC_ZW_B].[FLCC]=[O_Dzfy].[FHFH];
SELECTA.FLBBASFLBB,A.ZWBBASZWBB,A.ZWCCASZWCC,A.YFYFASYFYF,Sum(A.QCSL)ASQCZSL,Sum(A.SRSL)ASSRZSL,Sum(A.FCSL)ASFCZSL,Sum(A.QMSL)ASQMZSL,Sum(A.QCJE)ASQCZJE,Sum(A.SRJE)ASSRZJE,Sum(A.FCJE)ASFCZJE,Sum(A.QMJE)ASQMZJE
FROMSFC_ZW_CASA
GROUPBYA.FLBB,A.ZWBB,A.YFYF,A.ZWCC;
SELECTA.CLBH,SUM(A.SLSL)ASRKSL,SUM(A.JEJE)ASRKJE
FROMAVER_MTH_RK1ASA
WHERENOT(ISNULL(A.YFYF))
GROUPBY[CLBH];
SELECTA.CLBH,[SLSL],[JEJE],[YFYF]
FROMAVER_MTH_RKASALEFTJOINT_SFC_QCASBON(A.CLBH=B.BHBH)AND(A.KDRQ>
=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='
"
CLBH"
'
AppCN.Execute(da_SQL)
updateK_LLLL_DsetJEJE="
*k_LLLL_D.SLSLwhereK_LLLL_D.CLBH='
_
andK_LLLL_D.DHDHIN(SELECTDHDHFROMAVER_mth_LL2)"
da_Rec.MoveNext
Loop
AppCN.CommitTrans
EndSub
PrivateSubCmdMe_Click(IndexAsInteger)
IfIndex=0Then
CallPrintLstv(Me.LstView,LoadResString(804),"
材料["
m_CLBH&
]收发存明细A"
1,1)
Else
UnloadMe
EndIf
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=total+Val(LstView.ListItems(J).SubItems(Val(arrJeCol(k))))
LstView.ListItems(LstView.ListItems.Count).SubItems(Val(arrJeCol(k)))=Format(total,"
###0.00"
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="
查看["
]的明细情况"
CallDoStyle
IfGetInitData(fl_Num,fl_Cash)=TrueThen
CallDoShow(fl_Num,fl_Cash)
CallDoRemain(fl_Num,fl_Cash)
PrivateSubDoShow(m_drNumAsSingle,m_drCashAsDouble)
DimdsRecAsADODB.Recordset
DimdsSQLAsString
DimIAsInteger
DimitmX
Dimrd_theSLAsSingle
Dimrd_theJEAsDouble
Dimrd_RKJEAsDouble,rd_CKJEAsDouble
rd_theSL=m_drNum
rd_theJE=m_drCash
dsSQL="
select*fromSFC_MXA3whereCLBH='
SetdsRec=AppCN.Execute(dsSQL&
ANDMonth(KDRQ)="
m_Month&
ANDYear(KDRQ)="
m_Year)
IfdsRec.EOFThen
MsgBox"
无效的材料编号!
ExitSub
I=1
SetitmX=LstView.ListItems.Add(,,A&
I)
itmX.SubItems
(1)=dsRec.Fields("
KDRQ"
).Value
itmX.SubItems(3)="
期初数量"
itmX.SubItems(10)=rd_theSL
itmX.SubItems(11)=Format(m_drCash,"
##,##0.00"
DoWhileNotdsRec.EOF
I=I+1
SetitmX=LstView.ListItems.Add(,,A&
rd_RKJE=IIf(dsRec.Fields("
RKJE"
).Value="
0,dsRec.Fields("
).Value)
rd_CKJE=IIf(dsRec.Fields("
CKJE"
).Value)
rd_theSL=rd_theSL+Val(dsRec.Fields("
RKSL"
))-Val(dsRec.Fields("
CKSL"
))
m_drCash=m_drCash+rd_RKJE-rd_CKJE
itmX.SubItems
(2)=dsRec.Fields("
DHDH"
itmX.SubItems(3)=dsRec.Fields("
CBXM"
itmX.SubItems(4)=dsRec.Fields("
itmX.SubItems(5)=IIf(dsRec.Fields("
RKDJ"
"
Format(dsRec.Fields("
).Value,"
it
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 企业 管理信息系统