物流管理信息系统课程设计

《物流管理信息系统课程设计》由会员分享，可在线阅读，更多相关《物流管理信息系统课程设计（27页珍藏版）》请在装配图网上搜索。

1、 CHANGSHA UNIVERSITY OF SCIENCE & TECHNOLOGY物流管理信息系统 课程设计题目： 工厂库存管理信息系统设计 学生姓名： 邹东林 学 号： 22班 级: 物流1102专 业： 物流工程指导教师： 向慧 盛玉奎 2014 年 06 月 工厂库存管理信息系统设计学生姓名： 邹东林 学 号： 2 班 级： 物流1102 所在院(系): 交通运输工程学院 指导教师： 向慧 盛玉奎 完成日期: 2014年06月长沙理工大学课程设计任务书 交通运输工程 系 物流工程 专业 2011级 班课程名称 物流管理信息系统课程设计 题 目 工厂库存管理信息系统设计 学生姓名 邹

2、东林 学号 2 同组设计者： 邹东林，陈敏，王璟昀，熊晶晶一、已知技术参数和设计要求1、已知技术参数物流管理信息系统及其实例.西安交通大学出版社，2004.10.物流信息系统，物资出版社，2006.1.；物流管理信息系统,清华大学出版社、北京交通大学出版社,2006.10.数据库项目案例导航.，中国铁道出版社，北京：清华大学出版社,2004.8.2、设计要求本课程设计是物流工程专业物流管理信息系统专业课程学习的必修内容之一。课程设计要求学生掌握信息系统开发设计的一般步骤与应用程序开发能力。本课程设计的目的在于增强学生的感性认识，沟通学生从课堂的理论知识与具体实际工作的衔接，提高学生的动手能力，

3、实现理论和实践的统一。通过课程设计，使学生深刻地认识到信息技术的应用对物流行业发展的重要性；掌握信息系统开发的主要流程；能结合所学相关物流专业知识并运用数据库开发软件完成对物流管理信息系统设计。二、课程设计选题设计选题说明：下面所列出的是本次课程设计的选题方向，另外指导老师根据各选题提供了部分相关案例或给出了相关系统开发提示。同学通过分析可以对各选题示例进行分析，但是每一个选题只能由一个小组选择。（注：选择同一题目的人数为4人，并且每个小组成员完成单独一个子系统的开发及文档的撰写）。1、 服装物流管理信息系统设计2、 仓库管理信息系统设计3、 销售管理信息系统设计4、 连锁餐饮行业的物流管理信

4、息系统设计5、 企业物料管理信息系统的设计6、 企业进销存管理信息系统设计7、 物流配送管理信息系统设计8、 生产企业物资采购管理信息系统设计三、本次课程设计应完成的主要任务1、系统设计及开发的可行性分析 经济可行性系统的初步调查。（企业概况、组织机构、现行系统运行情况及其业务流程中存在的问题、新系统开发条件）系统开发的必要性（物流行业竞争、在生产、采购及销售流程中信息系统的必要性）技术可行性分析（系统的体系结构、选择的开发方式，分析技术中的潜在的风险）经济可行性分析（成本/效益分析）2、系统分析 需求分析 物流信息系统使用者进行相关调查（包括现有系统亟待解决的问题）组织结构分析设计的物流信息

5、系统中所涉及的相关部门及人员，要求分析出这些部门及人员在实际工作中与物流活动相互关系的重要程度。业务流程分析要求对每个系统开发小组成员须对本人负责设计及开发的系统子功能模块的业务流程分析，同时结合文字用业务流程图表述出来。数据流程分析要求对每个系统开发小组成员须对本人负责设计及开发的系统子功能模块的数据流程进行分析，同时结合文字用数据流程图详细表述出来。3、系统设计 系统总体结构设计（子系统/模块划分）要求画出所在小组设计的物流信息系统总体结构图，小组成员着重阐述各自负责完成功能模块的功能。 代码设计要求说明系统功能模块的编码形式和结构比如仓储管理中，对货物存储位置的确定（仓号-库位-货架号-

6、货位号）是用哪些字符表示，分别代表的含义。如：表2.代码设计人事代码设计表代码对象人事代码代码类型部门码+顺序码位数7校验位1代码数量200使用期限无限使用范围本公司 数据结构设计（E-R图，建立关系数据库表）要求用E-R图来反映系统中功能模块所涉及的数据对象之间的关系，同时依E-R图进行数据库设计，建立关系数据库表。 输入输出界面设计要求结合文字和图片提交应用程序运行的结果。4、课程设计的总结和体会四、工作计划本次课程设计总体时间为两周，2014年6月9日至2014年6月22日，具体计划安排如下：2014.6.9-2014.6.10：需求分析2014.6.11 -2014.6.12：系统规划

7、2014.6.13-2014.6.16：系统分析及设计2014.6.17 -2014.6.21：应用程序开发2014.6.22：综合评价，结论；以及文档整理提交五、课程设计完成提交文档要求按以下顺序装订成册： （1）封面； （2）扉页； （3）任务书； （4）指导书； （5）目录； （6）正文； （7）附录； （8）成绩评定表。指导老师：向慧 魏隽君 何其超2014年3月1日教研室意见：同意按任务书要求开展设计教研室主任：周爱莲 2014年3月1日目录第一章 系统开发论述1 1.1 系统开发的背景1 1.2 系统开发的目的和意义1第二章 系统规划2 2.1 系统目标2 2.2系统开发的可行性分

8、析2第三章 系统分析3 3.1需求分析3 3.2组织结构分析3 3.3业务流程图4 3.4数据流程图4 第四章 系统设计6 4.1系统总体结构设计6 4.2代码设计6 4.3E-R图7 4.4输入输出界面设计9第五章 总结12参考文献12附录13第一章 系统开发论述1.1 系统开发的背景在现代物流系统中，仓储是构成物流系统的重要环节，仓储是构成物流系统的重要环节，仓储功能包括对进入物流系统的的货物进行堆存、管理、保管、维护等一系列的活动。随着经济的发展，物流由少量品种进入到多品种、小批量或多批次的、小批量物流时代，仓储功能从重视保管效率逐渐变为重视发货和配送作业。仓储管理，是指对仓库及其库存物

9、的管理。现代的仓库已成为物流的中心。物资的储存和运输是整个物流过程中两个关键环节，被人们称之为“物流的支柱”。仓储在物流系统中的重要作用作用主要表现在：降低运输成本，提高运输效率，产品整合，支持企业的销售服务，调节供应和需求。仓储管理信息系统是用于管理仓库中货物、空间资源、人力资源、设备资源等在仓库中的活动，对货物的进货、检验、上架、出货、转仓、盘点及其他库内作业的进行管理的系统。1.2 系统开发的目的和意义随着科学技术的发展，社会进步，计算机技术的快速发展，仓库管理的方法也日新月异，以前全是由人管理的方法现存在很多缺点：管理效率低下，劳动强度大，信息处理速度低而且准确性也不够令人满意。为了提

10、高仓库管理效率，减轻劳动强度，提高信息处理速度和准确性，为仓库管理员提供更方便、科学的服务项目。为仓库管理员提供一种更先进、科学的服务系统。我们可以针对物料的出入库管理设计一个仓库管理系统。让计算机对仓库进行自动管理，并能在一定程度上实现自动化。仓库管理是企业生产过程中的重要组成部分。其主要功能是在供、需之间建立缓冲区，达到缓和用户需求与企业生产能力之间、最终装配需求与零件加工工序之间、生产厂家需求与原材料供应商的矛盾。第二章 系统规划2.1 系统目标企业的库存管理工作主要由仓库部门完成，其主要业务就是企业物料的收发以及管理工作，根据物料的不同物理和化学属性做好物料存储与防护工作，降低各种库存

11、管理费用，分析并提供库存管理所需的各种数据报表等。2.2系统开发的可行性分析（1）管理上的可行性由于企业库存品种多，数量大，因此，要实现收发作业的快速、准确、高效，仓储管理自动化势在必行。而实现管理自动化的“瓶颈”则是产品信息的采集、输入。传统手工作业方式，在信息采集量加大的情形下，因信息不能及时的反馈，给收发作业造成一定的困难。使用仓库管理信息系统，便于产品收、发、保管等全过程控制管理，不仅可改变信息采集的传统手工作业方式，降低作业强度，还可避免由此造成的各种差错，提高作业效率和科学管库水平。（2）技术上的可行性我们在大学时期学过VF操作语言，所以我们可以用它来为我们所开发的系统服务。因此我

12、们在技术上也就有了支持。通过老师的指导以及小组成员的一起讨论，并在查阅了大量的资料以后，我们的系统才慢慢的形成和开发出来，但是其中还有许多不完善的地方，我们会在以后的开发中努力学习，使这个系统更完善，合理，规范。（3）经济上的可行性在经济上，因为我们开发的这个系统相对较小也较简单，不需要投入太大的人力，物力和财力，但又不缺乏实用性和可靠性，维护费用相对较低，所以用户在使用了新系统后只需要花一定资金购买一部分硬件设备与软件就能实现自动化，提高了工作效率并且也减少了工作人员的工作量，带来了很大的经济效益。第三章 系统分析3.1需求分析采购管理系统是根据工业企业采购业务管理和采购成本核算的实际需要，

13、对采购计划制定、采购订单制定、原材料入库状况、原材料的检验、采购结算以及采购付款计划的编制进行全程管理，为采购部门和财务部门提供准确及时的信息。本系统实施后，能够输入、修改商品和供应商基本资料，能对采购业务和交货信息进行维护，能对商品采购信息进行查询、交货追踪和统计。 厂长3.2组织结构分析办公室主任主任厂长助理日常事务销售订货组织生产图3.1 库存管理组织结构图该厂机构精简，办事效率高。厂办公室共4人，一名厂长管订货和销售，一名主任在厂里组织生产，一名厂长助理协助厂长主任工作，办公室一人负责日常事务。厂办下设两个车间，一个是童装车间，另一个是绣品车间。财务核算以车间为单位，实行产供销一条龙。

14、厂长：管理订货和销售厂长助理：协助厂长主任工作办公室主任：管理日常事务3.3业务流程图 采购订单 库存查询供货商厂长 发货信息统计验收求购信息 领料单 入库客户仓库原料2个生产车间 出库 出库 提货单 订单厂长厂长助理产品入库 入库 入库 库存分析图3.2 库存管理业务流程图厂长助理 销售3.4数据流程图 发货单 缺货单 生产车间 1库存管理 领料通知单 查询 入库 库存 领料单 入库单 缺货通知厂长 采购图3.3 库存管理顶级数据流程图 库存记录 3采购 1库存系统 2生产 领料生产车间销售计划 缺货登记 领料通知单 用料计划图3.4 库存管理一级数据流程图 1库存管理厂长助理销售销售计划

15、销售单 发货单生产车间 销售计划图3.5 库存管理二级数据流程图第四章 系统设计登录主界面4.1系统总体结构设计货品入库退出系统信息统计库存查询货品出库图4.1 系统总计结构设计图4.1.1 货品入库：点击货品入库时，可以选择添加货品入库4.1.2 货品出库：点击货品出库时，可以添加货品出库4.1.3 库存查询：点击库存查询时，可以查看库存情况4.1.4 信息统计：点击信息统计时，可以查看库存信息4.1.5 退出系统：点击退出系统时，可以退出系统4.2代码设计表4-1 订单代码设计代码对象订单号代码类型XXX位数3校验位无代码数量无限使用期限无限使用范围本公司表4-2 入库物品代码设计代码对象

16、物品名代码类型XXX位数3校验位无代码数量无限使用期限无限使用范围本公司表4-3 供应商名称代码设计代码对象供应商名称代码类型G+N位数2校验位无代码数量无限使用期限无限使用范围本公司表4-4 入库单号代码设计代码对象入库单号代码类型J+0000+XX位数7校验位无代码数量无限使用期限无限使用范围本公司表4-5 客户信息代码设计代码对象产地代码类型XY位数2校验位无代码数量无限使用期限无限使用范围本公司供应商编号供应商名称4.3 ER图密码用户名客户名称客户编号客户添加删除厂长添加删除供应商 n 1 1 n联系电话业务联系人联系电话业务联系人货品规格货品名称 1单价库存物品查询 n计量单位数量

17、图4.2 库存管理查询E-R图货品规格货品名称提货单位供应商名称供应商编号提货人出库入库 提货单位物品供应商 M N M N单价计量单位货品名称入库编号出库编号货品名称数量图4.3 物资库存管理E-R图关系模式转换货品信息（货品规格，货品名称，计量单位，数量，单价，供应商，客户）外码：货品编号，供应商，提货人厂长信息（姓名，用户名，密码，职位，权限）客户信息（客户编号，客户名称，联系人，联系方式，客户所在城市）供应商信息（供应商号，供应商名称，业务联系人，联系电话，）货品库存信息（出入库编号，出入库日期，货品规格，货品名称，计量单位，数量，单价） 外码：供应商编号，供应商名称，入库编号，出库编

18、号4.4输入输出界面设计1.登录界面设计，如图图4.4 登录界面2.用户名和密码正确时登录成功，出现以下界面：图4.5 主界面3.货品入库界面如图所示图4.6 物品入库界面4.货品出库界面如图所示图4.7 物品出库界面5.库存查询界面如图所示图4.8 库存查询界面6.出入库信息统计系统如图所示图4.9出入库信息统计界面第五章 总结 经过几个星期的不断实践与探索，我所设计的库存管理系统已经初步完成，本报告提供了系统规划、系统分析、系统设计、系统实施和编写程序等的具体操作过程，较为熟练地掌握了这些课本上所学的内容。经过这次的课程设计，我对管理信息系统有了更深的了解，同时进一步温习巩固了VB计算机编

19、程知识；通过实践，提高了系统分析的能力，对数据流程图、数据字典、系统流程图等的含义和制作方法有了更深刻的认识，为以后的学习、工作的进一步提高打下了坚实的基础，基本实现了课程设计的预期目标。另外很值得一提的是小组所有成员在这次课程设计过程中养成了严谨的科学研究态度，互学互助，在良好的配合中实现了目标，在良好的互动中进一步体味团队精神的可贵。最后，非常感谢所有指导我们完成本课程设计的老师和所有帮助我们的同学，老师在课程设计整个过程中给予我们很大的支持和指导，提出了许多有益的建议和意见，对我们的难题提出了切实的解决方法以使我们能继续完成整个系统的设计，同学们也给我们提供了很多的帮助，使这次的课程设计

20、顺利完成。本次课程设计使我们受益匪浅，让我们将书本上所学的知识运用到实践当中去，更能体会到系统设计的重要性。参考文献1 金敏力.管理信息系统.科学出版社，20092 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，20033 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002 4 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，3025 萨师煊，王 珊.数据库系统概论M.北京：高等教育出版社.1997附录登录界面程序设计代码如下Dim itmX As ListItem

21、 定义一个ListItem对象Dim aDim key As String 定义字符串变量* 用户登录按钮的事件代码 *Private Sub Command1_Click() rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现取消窗体置前的功能On Error Resume NextDim MPassword As StringIf Text2.Text = mr And Text1.Text = mingrisoft Then 判断是否使用的是超级口令登录 frm_main.StatusBar1.Pa

22、nels.Item(2).Text = 当前操作员： mr Name1 = Text2.Text Unload Me frm_main.ShowElse Adodc1.RecordSource = select * from tb_enter where M_Name = & Text2.Text & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MPassword = Adodc1.Recordset.Fields(M_Password) If Text1.Text = MPassword Then 判断数据的密码是否正确 frm

23、_main.StatusBar1.Panels.Item(2).Text = 当前操作员： + Adodc1.Recordset.Fields(M_Name) Name1 = Text2.Text frm_main.Show 添加登录日志 Open (App.Path & 系统日志.ini) For Input As #1 Do While Not EOF(1) Line Input #1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Close #1 TStr = TStr + + Name1 + + Format(Now, yy

24、yy-mm-dd hh:mm:ss) + + 系统登录 + Chr(13) + Chr(10) Open (App.Path & 系统日志.ini) For Output As #1 Print #1, TStr Close #1 Unload Me Else MsgBox 密码不正确,请您确认后重新输入, , 库存管理系统 Text1.Text = Text1.SetFocus End If Else MsgBox 对不起 没有此用户的信息, , 库存管理系统 Text2.Text = Text1.Text = End If End IfEnd SubPrivate Sub Command2

25、_Click() EndEnd SubPrivate Sub Form_Load()Call WHScreen rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现使窗体置前的功能使用代码连接数据库与数据表Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db_kcgl.mdb;Persist Security Info=FalseAdodc1.RecordSource = select

26、* from tb_enterAdodc1.RefreshAdodc1.RecordSource = select * from tb_enterAdodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Then ListView1.Enabled = True ListView1.ListItems.Clear Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False 将操作员信息添加到ListView控件当中 key = Adodc1.Recordset.Fields(M_Name

27、) Set itmX = ListView1.ListItems.Add(, , key, 1) Adodc1.Recordset.MoveNext LoopElseListView1.Enabled = FalseEnd IfScreenCenter If TWidth = 800 Or THeigth 0 Then Label3.Caption = 所选操作员的职务： & Adodc1.Recordset.Fields(2) Text1.SetFocus End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As

28、Integer)If KeyCode = 13 Then Call Command1_ClickEnd IfEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text1.SetFocusEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub ScreenCenter() Me.Left = (Screen.Width - Me

29、.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2End SubPrivate Sub ChangeScreen() 改变屏幕分辨率函数 MsgBox 您桌面的分辨率并不是800*600,建议您将桌面的分辨率调整成800*600之后，再运行此程序!, 64, 提示信息 End Sub主界面代码设计如下Dim itmX As ListItem 定义一个ListItem对象Dim Intext As String 定义一个添加系统登录日志功能的变量Dim TStr As String声明API函数及常量Private Declare Funct

30、ion GetSystemMenu Lib user32 (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib user32 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Const MF_REMOVE = &H1000&Private Const SC_MAXIMIZE = &HF030 temp1 = 操作员姓名 日期时间 操作类型 Print

31、 #1, temp1 Print #1, Close #1 MsgBox 日志清理成功完成!, , 提示信息 Else End IfEnd SubPrivate Sub SJBF_Click() frm_backup.Caption = 数据备份 frm_backup.Frame1.Visible = True frm_backup.Frame2.Visible = False frm_backup.Show 显示数据备份窗体End SubPrivate Sub SJHF_Click() frm_backup.Caption = 数据恢复 frm_backup.Frame1.Visible =

32、 False frm_backup.Frame2.Visible = True frm_backup.Show 显示数据备份窗体End SubPrivate Sub SJQL_Click() 进行数据清理操作 frm_sfyz.Show Me.Enabled = FalseEnd SubPrivate Sub TCXT_Click() 退出系统操作 添加退出系统日志 Dim c c = MsgBox(您确认要退出库存管理系统吗?, 33, 提示信息) If c = vbOK Then Open (App.Path & 系统日志.ini) For Input As #1 Do While Not

33、 EOF(1) Line Input #1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Close #1 TStr = TStr + + Name1 + + Format(Now, yyyy-mm-dd hh:mm:ss) + + 退出系统 + Chr(13) + Chr(10) Open (App.Path & 系统日志.ini) For Output As #1 Print #1, TStr Close #1 End Else rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) 运用A

34、PI函数SetWindowPos，来实现取消窗体置前的功能 End IfEnd Sub在窗体的状态栏中显示当前系统的日期时间Private Sub Timer1_Timer() StatusBar1.Panels(4).Text = Format(Now, hh点mm分ss秒)End SubPrivate Sub Timer2_Timer() Me.WindowState = 2 Me.WindowState = 0 Timer2.Enabled = FalseEnd Sub* 单击工具栏中的按钮，调用相应的窗体，完成相应的操作 *Private Sub Toolbar1_ButtonClic

35、k(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 frm_in.Show Case 3 frm_out.Show Case 6 frm_KCQuery.Show Case 8 frm_Stat.Show Case 10 frm_backup.Caption = 数据备份 frm_backup.Frame1.Visible = True frm_backup.Frame2.Visible = False frm_backup.Show 显示数据备份窗体 Case 12 frm_backup.Caption

36、= 数据恢复 frm_backup.Frame1.Visible = False frm_backup.Frame2.Visible = True frm_backup.Show 显示数据备份窗体 Case 15 Dim c c = MsgBox(您确认要退出库存管理系统吗?, 33, 提示信息) If c = vbOK Then Open (App.Path & 系统日志.ini) For Input As #1 Do While Not EOF(1) Line Input #1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Cl

37、ose #1 TStr = TStr + + Name1 + + Format(Now, yyyy-mm-dd hh:mm:ss) + + 退出系统 + Chr(13) + Chr(10) Open (App.Path & 系统日志.ini) For Output As #1 Print #1, TStr Close #1 End Else End If If TreeView1.SelectedItem.key = 设置权限 And CZYQXSZ.Enabled = True Then frm_setoperator.Show ElseIf TreeView1.SelectedItem.k

38、ey = 设置权限 And CZYQXSZ.Enabled = False Then MsgBox 对不起,您没有操作此项功能的权限,请您与系统管理员联系!, 48, 提示信息 Exit Sub End If If TreeView1.SelectedItem.key = 日志清理 And RZQL.Enabled = True Then Dim del Dim temp1 As String On Error Resume Next 错误处理语句 del = MsgBox(确认要清除库存管理系统的日志信息吗?, 17, 提示信息) If del = vbOK Then Kill (App.P

39、ath & 系统日志.ini) Open (App.Path & 系统日志.ini) For Output As #1 temp1 = 操作员姓名 日期时间 操作类型 Print #1, temp1 Print #1, Close #1 MsgBox 日志清理成功完成!, , 提示信息 Else End If ElseIf TreeView1.SelectedItem.key = 日志清理 And RZQL.Enabled = False Then MsgBox 对不起,您没有操作此项功能的权限,请您与系统管理员联系!, 48, 提示信息 Exit Sub End If If TreeView

40、1.SelectedItem.key = 查看日志 Then frm_look.Show End If If TreeView1.SelectedItem.key = 密码修改 And MMXG.Enabled = True Then frm_Edit_Password.Show ElseIf TreeView1.SelectedItem.key = 密码修改 And MMXG.Enabled = False Then MsgBox 对不起,您没有操作此项功能的权限,请您与系统管理员联系!, 48, 提示信息 Exit Sub End If If TreeView1.SelectedItem.

41、key = 数据清理 And SJQL.Enabled = True Then frm_sfyz.Show ElseIf TreeView1.SelectedItem.key = 数据清理 And SJQL.Enabled = False Then MsgBox 对不起,您没有操作此项功能的权限,请您与系统管理员联系!, 48, 提示信息 Exit Sub End If If TreeView1.SelectedItem.key = 操作员管理 And CZYXXWH.Enabled = True Then frm_systemer.Show ElseIf TreeView1.Selected

42、Item.key = 操作员管理 And CZYXXWH.Enabled = False Then MsgBox 对不起,您没有操作此项功能的权限,请您与系统管理员联系!, 48, 提示信息 Exit Sub End If If TreeView1.SelectedItem.key = 供应商信息 And GYSXXWH.Enabled = True Then frm_gys.Show ElseIf TreeView1.SelectedItem.key = 供应商信息 And GYSXXWH.Enabled = False Then MsgBox 对不起,您没有操作此项功能的权限,请您与系统管

43、理员联系!, 48, 提示信息 Exit Sub End If Me.Enabled = False 在单击TreeView控件的节点之后，使得窗体不可用End SubPrivate Sub Form_Resize() LeftSide_Resize RightSide_ResizeEnd SubPrivate Sub LeftSide_Resize() 向左拖拽函数 Dim y32& On Error Resume Next y32 = 60 + Toolbar1.Height With TreeView1 .Left = 100 End With With Picture1 .Width

44、= 30 End With With ListView1 .Width = TreeView1.Width + 10 .Left = 25 End WithEnd SubPrivate Sub RightSide_Resize() 向右拖拽函数On Error Resume NextWith ListView1 .Left = TreeView1.Width + 100 .Width = Me.ScaleWidth - .Left - 10End WithWith Picture1 .Height = Me.ScaleHeight - StatusBar1.Height - .Top - 43

45、0 .Left = TreeView1.Left + TreeView1.WidthEnd WithEnd Sub物流管理信息系统课程设计成绩评定表项目分值优秀(100x90)良好(90x80)中等(80x70)及格(70x60)不及格(x60)评分参考标准参考标准参考标准参考标准参考标准设计操作及纪律10学习态度认真，科学作风严谨，严格保证设计时间并按任务书中规定的进度开展各项工作。学习态度比较认真，科学作风良好，能按期圆满完成任务书规定的任务。学习态度尚好，遵守组织纪律，基本保证设计时间，按期完成各项工作。学习态度尚可，能遵守组织纪律，能按期完成任务。学习马虎，纪律涣散，工作作风不严谨,不

46、能保证设计时间和进度。设计成果质量40程序界面友好模块间的衔接非常紧密，并能够建立数据库或表实现各功能模块相互调用和数据的共享，有很强的实际动手能力、分析能力和计算机应用能力，调查调研非常合理、可信。程序界面较友好模块间的衔接较紧密，并能够建立简单的数据库或表实现各功能模块简单调用和数据的共享，有较强强的实际动手能力、分析能力和计算机应用能力，调查调研较合理、可信。程序界面基本友好模块间的衔接较紧密，并能够建立简单的数据库或表，并能对其进行简单的调用，有一定的实际动手能力、分析能力和计算机应用能力，调查调研基本合理、可信。设计基本合理，单一模块可进行简单操作。设计不合理，程序无法正常运行实际动手能力差，调查调研信息有较大的问题。论文(程序)撰写质量50结构严谨，逻辑性强，层次清晰，语言准确，文字流畅，完全符合规范化要求，书写工整，图表清晰，分析透彻。结构合理，符合逻辑，文章层次分明，语言准确，文字流畅，符合规范化要求，书写工整，图表较清晰，分析较透彻。结构合理，层次较为分明，文理通顺，基本达到规范化要求，书写比较工整；图表比较清晰。分析基本透彻。结构基本合理，逻辑基本清楚，文字尚通顺，勉强达到规范化要求；图表比较工整。内容空泛，结构混乱，文字表达不清，错别字较多，达不到规范化要求；图纸不工整或不清晰。指导教师评语评定成绩指导教师签名： 年 月 日