- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
高职实践教学环节中物资管理系统的探索
精品论文 参考文献
高职实践教学环节中物资管理系统的探索
高思娟(潍坊市经济学校 山东 潍坊 262200)
摘 要:高职实践教学环节中的物资管理信息系统是一个复杂的人机系统。由于在仓库中存放的物资多种多样,出入库频繁,因而,建立新系统在管理上、技术上和经济上都是可行的。本文以刀具的管理为例,说明了刀具管理信息系统的建立。
关键词:系统设计 数据库设计 代码设计
高等职业院校实践教学环节在整个教学平台中占据着越来越重要的作用,而实践教学过程中的物资管理则是一般的实验、实训基地教学、生产或管理过程中的重要一环,需要对物资基本信息管理、物资调配信息等进行完整的监控。物资入库首先需要登记物资的基本信息,包括物资的种类、名称、型号、单位、单价等;然后登记物资入库信息,包括物资基本信息、入库地点、入库人、经办人、数量等;出库物资需要登记出库信息,包括物资基本信息、出库地点、出库人、经办人、数量等。根据物资的入库、出库过程的综合,可得到各种物资的余额信息,方便进行后续工作。因此,物资管理信息系统需要记录物资流通的全过程。
一、建立新系统的必要性
在库存物资管理中,物资的出、入库管理是实践教学过程中日常性的工作,各级教学及管理人员需要及时了解掌握各种物资的入库量、出库量和库存量,以便心中有数,合理安排各环节的实践教学工作。因此,实践物资的库存管理是实践教学过程中一项非常重要的工作。
由于在仓库中存放的实践物资品种多样,出入库频繁,仅依靠手工处理来记录和统计各种产品的出入库数据,既繁琐又难以保证数据的准确性,因而有必要建立一个物资管理系统。这一点在众多高职院校的实践指导教师和校企合作企业相关管理人员中的认识是一致的,因而,建立新系统在管理上、技术上和经济上都是可行的。
二、系统设计
现以机械加工实践教学过程中刀具的管理为例加以说明。物资管理信息系统需要完成的对刀具管理的功能主要有:
1.刀具信息管理:包括刀具基本信息的查询、刀具基本信息的修改、刀具库存信息查询,其中有关刀具基本信息的输入,包括刀具编号、刀具名称、规格型号、种类和计量单位等。
2.刀具入库管理:包括入库刀具信息的输入、入库刀具记录的查询、入库刀具信息的修改。
3.刀具出库管理:包括出库刀具信息的输入、出库刀具记录的查询、出库刀具信息的修改。系统的功能如图1所示。
三、数据库设计
数据库设计的关键问题是如何建立一个数据模型,使其能够正确反映用户的现实环境,包括向用户及时、准确、全面地提供所需要的信息和支持用户对所有需要处理的数据进行处理,并且还要使其具有易于维护、易于理解和较高的运行效率。
四、代码设计
管理信息系统的主要任务是对管理活动中产生的大量数据进行加工整理,以满足各种管理职能和各个管理层次对信息的需求。本系统部分代码设计如下:
Private Sub Form_Load( )
Dim i As Integer
Dim j As Integer
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset
txtSQL=”Select distinct dateparty(yy,rkdate) from msave”
Set mrc=ExecuteSQL(txtSQL,MsgText)
If mrc.EOF=False Then
With mrc
Do While Not.EOF
cbo Year(0).AddItem.Fields(0)
cbo Year(1).AddItem.Fields(0)
.MoveNext
Loop
End With
For i=0 To 1
cbo Year(i).ListIndex=0
Next i
For i=0 To 1
For j=1 To 12
cob Month(i).AddItem j
Next j
Next i
For i=0 To 1
cob Month(i).Text=Month(Now( ))
文档评论(0)