辅料物资管理信息系统论文正文

辅料物资管理信息系统论文正文内容摘要：

能是对物资进行分类管理，通过该 模块，用户可以对系统的数据信息进行维护，可以添加、删除和修改有关的数据信息，并且在添加数据信息时，为方便用户的操作与管理，用户只需要输入相应的数据名称，而数据的编号是系统根据现有编号直接按顺序生成的，简化了操作过程，有效的减少了输入中可能产生的错误。 首先，材料科目类别字典。 材料科目类别字典界面的主要功能是对材料的一级目录（材料类别）进行管理和维护，它的界面如图 所示，用户通过该界面可以浏览数 图 材料科目类别字典界面 据库中所有的材料类别信息，并可以添加 、删除和修改材料类别的相关信息。 用户在点击添加和修改按钮后，界面上的按钮如图 所示，除保存和取消按钮外，其它按钮 图 添加材料类别界面 都变成不可选，这样可以保护数据库的安全，防止重复操作发生。 另外，如上图所示，在添加材料类别时，类别编号由系统自动生成，用户只需输入材料类别名称即可，这不仅可以简化用户操作，还可以防止非法信息的产生。 用户在添加和修改材料信息后，如点击保存按钮可以保存操作结果，若点击取消按钮则取消此次操作。 另外，用户在进行删除操作时，系统会弹出如图 所示的确认对话框，让 用户确认是否对数据进行删 图 确认删除对话框 除操作，如果用户确定要删除当前数据，则可以点击确认按钮，删除操作完成。 这主要是为了确保数据库不会被无意的破坏。 其次，材料科目种类字典。 材料科目种类字典的主要功能是对物资的二级目录（材料种类）进行管理和维护，其界面和功能与材料科目类别字典基本相同，如图 所 图 材料科目种类字典界面 示，不同之处在于其增加了一个选择材料类别的下拉列表框，用户可以通过该下拉列表框选择要 操作的类别，在此类别下，用户通过对各个浏览按钮的操作，可以对此类别内的材料种类进行浏览，并可以对其进行添加、删除和修改操作。 再次，材料科目名称字典。 材料科目名称字典的主要功能是对物资的三级目录（材料名称）进行管理和维护，其界面和功能与材料科目种类字典基本相同，用户在用下拉列表框选定相应的材料类别和种类后，便可以通过浏览按钮浏览此范围内的相应材料信息，包括材料的名称、编号、规格和单位信息，并且用户还可以通过添加、删除和修改按钮进行相应的操作，完成对具体物资信息的管理和维护。 最后，领料单位字典处理。 领料单位 字典处理的主要功能是对领料单位的信息进行管理和维护，其界面和功能与材料科目类别字典大致相同，用户可以利用首记录、上一记录、下一记录和尾记录等浏览按钮对领料单位进行浏览，并可以利用添加、删除和修改按钮来完成对领料单位名称的相关操作，点击保存按钮保存操作结果，点击取消按钮取消操作。 在进行删除时，系统同样会弹出确认对话框，让用户确认是否删除，避免数据库因操作的疏忽和失误而被破坏。 如何实现与数据库之间的链接 对于辅料物资系统的实现来讲 ,如何建立与数据库之间的链接 ,以及如何访问数据库 是最为关键的环节 ,本系统在处理这一问题时 ,主要是采用编程和利用 Visual Basic 提供的 数据库控件两种方式实现的。 具体来讲，首先，在实现与数据库的链接这一环节上，一种方式就是使用编程语句来实现与数据库之间的链接，主要关键语句如下： Public db As New Public rep As New Public ConnectString As String ConnectString = Provider=。 Data Source= + + \ +。 Persist Security Info=False With db .ConnectionString = ConnectString .CursorLocation = adUseClient .Open End With = db = adUseClient = adOpenStatic = adLockBatchOptimistic 通过这一方式建立与数据库的链接的好处在于：使用灵活，一旦建立了与数据库的链接，随时可以对数据进行调用；面向全局，只要进行一次链接，便可以在工程中的任一个窗体中实现对数据的调用。 本系统中的大部分数据调用都是通过此种链接进行的，例如出库单、入库单以及报表中显示的数据等等。 另一种与数据库之间的链接方式是通过数据库控件实现的，主要是应用 Adodc 控件来完成的。 具体操作是将 Adodc 控件的ConnectionString 属性设置为使用链接字符串： Provider=。 Data Source=.\。 Persist Security Info=False 来实现这一功能。 事实上，即便是使用Adodc 控件来建立于数据库的链接，也可以用编程的方式实现，例如在系统中所用通过下拉列表框显示数据的地方，其调用数据全部都是采用例如下面这样的语句来实现的。 =Provider=。 Data Source=.\。 Persist Security Info=False = adCmdText = select * from clkm where clkmsl 0 and clkmbh not like 39。 ____0039。 and clkmbh like 39。 amp。 ch_clkmbh amp。 39。 其次，对数据的调用也主要是通 过编程和 Adodc 控件两种方式实现的。 其中，通过编程对数据库的调用主要是通过先前定义的 rep 变量和 SQL 语句实现的。 例如如下的这段出库单的材料类别下拉列表框中的数据调用语句： If adStateClosed Then End If = select clkmbh,clkmmc from clkm where clkmbh like 39。 __000039。 Do While Not (clkmmc) Level1(I) = (clkmbh) I = I + 1 If Not Then End If Loop 而使用 Adodc 控件调用数据则主要是通过将 SQL 语句写入其 RecordSource 属性框中，并采用对相应的数据显示控件的 DataSource 和 DataField 属性进行设置的方式来实现数据的调用与显示。 如何利用 Visual Basic 实现报表的创建 以 Visual Basic 为工具将 Microsoft Access 2020 中的数据调用出并显示在Microsoft Excel 2020 中，是本系统的另一关键技术所在。 其具体实现过程如下：首先，建立报表。 建立一张报表主要是通过以下语句实现的： Public VBExcel As Public xlbook As （定义 Excel 工作簿对象） Public xlsheet As （定义 Excel 工作表对象） Dim CellsMaxLen(1 To 9) As Integer（字段共有 9 项） Dim Row As Integer Set VBExcel = CreateObject() Set xlbook = Nothing Set xlsheet = Nothing Set xlbook = Set xlsheet = (sheet1) 其 次，调出数据。 从数据库中调出数据主要是通过如下语句来实现的。 If adStateClosed Then = select distinct lldwbh,lldwmc,rkdclmc,rkdclmcbh,rkdclmcgg,rkdclmcdw,sum(rkdclsl),sum(rkdclzje),left(rkrq,10) from rkd where flag=39。 出库 39。 and left(rkrq,7)=39。 amp。 Left(Month, 7) amp。 39。 group by rkdclmcbh,lldwbh,lldwmc,rkdclmc,rkdclmcbh,rkdclmcgg,rkdclmcdw,left(rkrq,10) order by lldwbh,rkdclmcbh,left(rkrq,10) 再次，绘制工作表。 其步骤如下（以绘制部门消耗月报表为例）：先通过语句 来将工作表激活，再用语句 (1, 1).Value = 部门消耗月报表 + Left(Month, 10)和 (1, 1). = 20 来建立表头，再用以下这段语句 来实现表格的绘制。 Total_REC = (Row, I + 1).Borders(xlTop).Weight = xlThin (Row, I + 1).Borders(xlBottom).Weight = xlThin (Row, I + 1).Borders(xlRight).Weight = xlThin (Row, I + 1).Borders(xlLeft).Weight = xlThin If Strlen(Trim((Row, FieldsCount + 1).Value)) = CellsMaxLen (FieldsCount + 1) Then (Row, FieldsCount + 1).ColumnWidth = Strlen(Trim((Row, FieldsCount + 1).Value)) CellsMaxLen(FieldsCount + 1) = Strlen(Trim((Row, FieldsCount + 1).Value)) Else (Row, FieldsCount + 1).ColumnWidth = CellsMaxLen(FieldsCount + 1) End If 最后，预览和保存报表。 在表格 绘 制 好 之 后 ， 就 可 以 通 过 语 句 来预览报表，之后通过以下语句来保存并退出报表。 If Dir( + \报表 \ + Left(Month, 7) + 部门消耗 .xls) Then Kill + \报表 \ + Left(Month, 7) + 部门消耗 .xls End If + \报表 \ + Left(Month, 7) + 部门消耗 .xls (关闭工作簿 ) 参考文献 《 Visual Basic 程序调试参考手册》 作者： Clay Shannon 译者：王晓慧 赵兰阳 出版社： 中国清华大学出版社 《 Access 2020 数据库开发自学教程》 【出 版 社】人民邮电出版社 作者：李明 结 语 总之，针对物资管理部门采用手工管理时所出现的工作效率低、层次多、重复劳动多、管理复杂、数据统计缓慢，而且非常容易出差错的问题，辅料物资管理系统所具有的各种功能不仅可以有 效的提高工作效率、避免重复劳动、简化操作，而且可以有效的防止操作中的差错出现，大大降低工作人员的工作难度，减轻工作人员的负担，因此是一种很好的辅助管理工具。 另外，其友好的系统工作界面、简单快捷操作方式、完善的数据查询功能、合理的数据库结构、以及简单方便的报表打印功能不仅满足了用户的主要需求，而且还有着手工操作所不能比拟的准确、方便、快捷的特点。 因此，对其的开发与研究不仅具有理论意义，而且还具有一定的现实意义。 另外，通过这一段时间地学习与实践，才真正地认识到毕业设计是对本科四年学习的一个很好地巩固。 边学习边 设计，理论结合实践，不仅提高了自学能力，而且锻炼了自己实际动手的能力。 这期间，遇到过很多困难，但通过学习与请教老师和同学都一一加以解决，并从中得到了很多启示。 原文已完。 下文为附加文档，如不需要，下载后可以编辑删除，谢谢。 信用社营业部经理季度个人总结 一季度，在联社领导的正确领导下，我按照山西省农村信用社营业经理的相关办法，认真学习政治业务知识和金融法律法规，严格履行岗位职责和行使管理与监督职能，以贯彻落实上级的各项工作为目标，抓落实，规范财务核算，努力实现全社财务状况的根本好转，同时并积极做 好了各项报表与任务完成情况的上报等工作，较好地完成了各项工作任务。 现就本季度主要工作述职如下： 一、主要工作完成指标 （一）业务指标完成情况 截至 20XX 年月 31 日，我社各项存款余额 **万元， （二） 管理指标完成情况 本季度我社严格按照上级联社和我社制定的全年工作要点展开工作，确保了各项业务稳健运行，员工素质进一步提高，营造了良好的内外部环境，为各项目标的顺利实现奠定了良好的基础。 二、重点工作报告 （一）假币的防范和处理。 针对一季度发现假币较多的情况，强调柜员要提高警惕，假 币一旦进入柜台就不可再次流通，应及时盖假币章，尤其是对 M3W9 开头的假币要重点防范 407。 （二）做好开展 “ 自助有好礼，月月送不停 ” 自助终端业务宣传及营销的活动。 （三）让员工学习并贯彻执行 “ 山西省农村信用社企业文化大纲 ”。 即坚定服务三农的方向、牢记 “ 诚信、合规、责任、团队 ” 的企业核心价值观以及 “ 开拓、进取、务实、创新 ” 的企业精神。 （四）积极配合检查人员的工作，准备好相关资料。 包括： 2020 年四。