物流管理系统1—计算机毕业设计(论文

物流管理系统1—计算机毕业设计(论文内容摘要：

站管理 品名管理 查询运单 删除运单 修改运单 新增运单 新增客户 修改客户 删除客户 汇总结算 结算管理 运单业务，如新增加、查询运单、修改运单和删除运单。 客户管 理模块：对物流管理系统的客户信息进行管理，通过这个模块可以新增加客户、查询客户信息、修改客户信息和删除客户信息。 结算管理模块：通过结算管理模块，对物流管理系统的业务单据做结算管理，在这个模块中，可以查询结算单据、逐条浏览结算单据、全部浏览结算单据、打印结算单据、汇总结算单据、打印汇总结算单据。 系统管理模块：在系统管理模块中，可以对物流管理系统中的车站信息和品名信息进行设置，包括新增加信息、修改信息和删除信息，已经对用户密码修改的设置功能。 退出系统模块：退出物流信息管理系统。 各功能模块设计 用户 登陆表单 新建立 FRMLOGIN 表单 是用来确定进入系统的身份验证 用户输入密码后，经过系统确认后，方可以进入系统，否则进入不了系统。 防止无关的人员进入系统中，违规操作业务。 新建立 MAINFORM 这个表单是主界面表单，是物流系统操作管理的主要界面。 在这个界面中，用户可以进行系统的所有操作，通过主界面上端的菜单选择进入各个模块。 包括运单增加、客户管理、结算管理、系统管理和退出系统。 新建 FRMTRAFFICADD 表单 用来增加物流系统的新接待业务 在新增运单管理模块中，用户输入车号、车类型、品名、 发货日期、发站、到站、发货人、收货人、货物类型、重量、运输费用等各个信息，自动在表单下面出现合计信息。 新建 FRMTRAFFIC 表单，查看运单表单，用来查询、浏览、修改和删除所接受的物流业务。 选择表单可以浏览、修改和删除运单单据。 新建立 FRMQUERY 表单，用来查询物流系统的运单，在该表单中可以通过输入车站号、品名、发站、到站、发货人、收货人、发货日期等信息来查询运单业务。 新建立 FRMTRAFFICUPDATE 表单，用来更改物流系统的业务表单，通过该表单可以修改业务单据中的各个项目信息。 新建 FRMCLIENTADD 表单，用来新增加物流系统的客户管理，在该表单中，可以输入客户的各种信息，包括姓名、性别、工作单位、联系电话、手机号码、传真、联系地址和备注等信息。 新建 FRMCLIENT 表单，用来查看、修改和删除客户信息，在该表单中，通过各个功能按钮，完成对客户信息的查询、修改和删除等操作。 在下面的列表中可以方便的查看客户的各种信息。 新建 FRMCHANGEPASSWORD 表单，来修改客户信息，通过这个表单，可以对已经存在的客户信息进行修改。 修改后点击修改按钮，就可以保存客户的修改信 息了。 新建 FRMBILLMANGE 结算管理表单，用来管理物流系统业务的结算信息。 在这个表单中，通过查询按钮可以弹出查询信息表单，查询结算信息。 点击单条预览按钮可以对信息单条预览。 单条打印按钮则弹出 word 文档的单条管理记录，可以供用户打印单条信息。 全部预览和全部打印则是对信息的全部浏览和全部信息的打印处理。 新建 FRMSTATION 表单，用来管理物流系统，所有经过的车站信息，在这个表单中，输入物货信息管理系统中所有经过的车站，即可以接受物品货运到达的地方。 新建 FRMPRODUCT 表单，用来管理系统的品名设置，通过这个表单，可以对物流管理系统中，所有接待的物品品名进行提前设置，可以方便用户在添加运单管理时对货运信息的输入。 新建 FRMCHANGEPASSWORD 表单，用来修改用户密码。 在这个表单中，对系统登陆用户的密码进行修改和设置。 新建 FRMREPORT 表单，用来汇总结算信息，在该表单中，通过上部的各个功能按钮对运单进行结算功能、预览功能和打印功能的管理。 界面设置如下图： 总 结 在对物流管理系统设计开始这前， 本人对此了解不是很多，在老师和同学的帮助下，慢慢对物流管理系统有了一定了解。 物流是专门的一门课程，在现代的物流概念中已经延伸为一门特殊的学问。 想要对他进行深入的学习还是需要花费很多精力的。 在对物流认识后，我们按照软件工程的生命周期方法学来完成设计，并根据软件工程的设计思想逐步完成了物流管理系统。 短短三个月的设计和开发过程中遇到很多的问题，自己经过不断学习的过程中我体会到： 1．，从设计初的不懂到最后能够顺利完成，我体会到在实践中学习的重要性。 经过这次的实习使我能够完整地做出了一个系统。 让我更深入理解开发一个 系统的重要性。 2．在设计过程中，遇到不懂的问题我会利用上网跟大家交流。 这样使我很快地解决问题。 总之，在这次的毕业设计中，使我深刻体会到要做好一个完整的事情，需要有系统的思维方式和方法，对待一个新的问题，要耐心、要善于运用已有的资源来充实自己。 同时我也深刻的认识到，在对待一个新事物时，一定要从整体考虑，完成一步之后再作下一步，这样对于系统而言才能更加有效。 通过此次毕业设计，我不但对 vb 和数据库设计开发有了深刻的认识，积累了使用软件工程的思想来开发软件的经验，同时最重要的是摸索出了一套考虑问题和解决问题的方 法 . 这对于我将来走上工作岗位受益匪浅。 参考文献 [1] 《 Visual Basic 数据库开发》 周珂伟 编著 [2] 《 Visual Basic 程序设计教程》 刘端新 汪远征 编著 [3] 《 Visual Basic 企业办公系统开发实例导航》 刘 萌 周学明 编著 [4] Visual Basic 使用指南 作者： Bob Reselman , Richard Peasley , Wayne ：电子工业出版社 [5] 中文版 Microsoft Office 自学通作者： Ned Snell 出版社：机械工业出版社 [6] Visual Basic 中文版控件大全作者： Microsoft 出版社；电子工业出版社 [7] 中文 Access 2020 9 时教程 作者： Craig Eddy ， Timothy Buchanan出版社：机械工业出版社 致谢 在这次毕业设计中，我们从指导老师身上学到了很多东西。 老师认真负责的工 作态度，严谨的治学精神和深厚的理论水平都使我们受益匪浅。 无论在学习中还是在实践中，都给予了我很大的帮助，对于我们以后的工作和学习都是一种巨大的帮助和财富，感谢老师细心而又耐心的辅导。 特别感谢老师，为我们的系统设计和论文提出的宝贵意见，通过老师的指导，使我们看到了设计的不足，我们只有通过不断的努力改进系统的不足，争取用更优秀的设计来回报老师的辛勤工作。 最后，再次感谢各位老师和同学对我们设计提供的帮助和支持。 附录代码清单 各个功能模块具体代码： FRMLOGIN Private Sub cmdCancel_Click() LoginSucceeded = False Unload Me End Sub Private Sub cmdOK_Click() If trycount = 5 Then If (Trim(txtUserName) = ) Or (Trim(txtPassword) = ) Then trycount = trycount + 1 MsgBox 用户名密码不能为空 !, , 信息提示 Else Dim strsql As String Dim rs As New strsql = SELECT PASSWORD FROM MYUSERS WHERE USERNAME = 39。 amp。 Trim(txtUserName) amp。 39。 Set rs = (strsql) If Not ( Or ) Then If Trim(txtPassword) = (PASSWORD) Then trycount = 0 LoginSucceeded = True Else trycount = trycount + 1 MsgBox 无效的密码，请重试 !, , 信息提示 SendKeys {Home}+{End} End If Else trycount = trycount + 1 MsgBox 无效的 密码，请重试 !, , 信息提示 SendKeys {Home}+{End} End If End If Else MsgBox 非法用户 !, , 信息提示 Unload Me End If End Sub MAINFORM Private Sub MDIForm_Load() = 欢迎使用物流管理系统 = * = * = * = * End Sub Private Sub MDIForm_Unload(Cancel As Integer) 39。 关 闭所有窗体 Unload frmBillManage Unload frmChangePassword Unload frmClient Unload frmClientAdd Unload frmClientUpdate Unload frmLogin Unload frmProduct Unload frmQuery Unload frmReport Unload frmStation Unload frmTraffic Unload frmTrafficAdd Unload frmTrafficUpdate End Sub Private Sub ParticularPrint_Click() End Sub Private Sub ProductManage_Click() End Sub Private Sub ReportPrint_Click() End Sub Private Sub StationManage_Click() End Sub Private Sub TrafficAdd_Click() End Sub Private Sub TrafficView_Click() End Sub FRMTRAFFICADD Private Sub Form_Load() = 0 = 0 = * = * 39。 取得最大 ID Dim inum As Integer Dim strsql As String Dim DB As New clsDataBase Dim rs As New strsql = SELECT MAX(ID) AS MAXID FROM TRAFFIC Set。