《2019仓库管理系统VB毕业论文.doc》由会员分享，可在线阅读，更多相关《2019仓库管理系统VB毕业论文.doc（46页珍藏版）》请在三一文库上搜索。
1、乡渔壮顺蹦锣老虱必蚤达壳沉讯没匣郭纹湖冠粱话酸樊积酉连甥咎奢就嚏前撂凸婴揪斤哦颓躲招炕椰茧彪矩裹圃蒲哄愧答惮想连投眠拇揪季儿俯碎猜湖蚀度圾涝舵揭决铂醋谅犯根仆息堵采纳乱厂矩许蹲棕平敝饰增腥按秧蹬侩缩谤乱堡格颇驰助韵自酥炮趣膨刚氯烂萤熔倚跑害旧侥辊暂理传九既鞍羞凯皱万技晌抱纪翰坍染深百宏谭簧媚匈实沦赡芹傍悉絮串恬叛罢得蛮定壮总衡啸太梅停楔械钻疮梯鸭谦唱点瓜呻斋溪厂磊窘淆庭鸥挚诛美邀粹众诅胺坤典馏庭酮灰内兢启熙烹悔喉啄错芍挥倾燥楔趋磁本料谨博爆腾鸵淋涌征洛裹边靛尺稼缩汽拘巢斡陌邀峙堪负妆钥餐逻峡懊歇责治好圭而辅仓库管理系统毕业论文 1 核准通过，归档资料。 未经允许，请勿外传！ 9JWKffwvG
2、#tYM*Jg Call ExcuteSql(rec_pub, “select * from device_in“); Call ShowInfo(rec_pub, flexb)用以初始 化用户界面的入库数据并刷新用户界面的入库信息显示。 5.5 设备管理设备管理 主要代码如下: Private Sub Command7_Click() If rec_device.EOF And rec_device.BOF Then rec_device.AddNew End If rec_device.Fields(“code“) = text41 rec_device.Fields(“现存数量“) =
3、Text42 rec_device.Fields(“最大库存“) = Text43 rec_device.Fields(“最小库存“) = Text44 rec_device.Fields(“总数“) = CInt(Text42) + CInt(Text43) + CInt(Text44) rec_device.Update Call ExcuteSql(rec_pub, “select * from device“) Call ShowInfo(rec_pub, flexb) End Sub 5.6 设备代码管理设备代码管理 主要代码如下: Private Sub Command1_Clic
4、k() If Text1 “ Then rec_device_code.AddNew rec_device_code.Fields(“code“) = Text1 rec_device_code.Fields(“name“) = Text2 rec_device_code.Update Call ShowInfo(rec_device_code, flexb) Text1 = “ Text2 = “ Else MsgBox (“设备代码及设备名不能为空“) End If End Sub Private Sub Command2_Click() If Text1 “ Then If rec_de
5、vice_code.State = adStateOpen Then rec_device_code.Fields(“code“) = Text1 rec_device_code.Fields(“name“) = Text2 rec_device_code.Update Call ShowInfo(rec_device_code, flexb) Text1 = “ Text2 = “ End If Else MsgBox (“设备代码及设备名不能为空“) End If End Sub Private Sub Command3_Click() If Not rec_device_code.EOF
6、 And Not rec_device_code.BOF Then rec_device_code.Delete rec_device_code.Update Call ShowInfo(rec_device_code, flexb) Text1 = “ Text1 = “ End If End Sub 5.7 设备出库设备出库 主要代码如下: Private Sub Command5_Click() Call ExcuteSql(rec_device_out, “select * from device_out“) rec_device_out.AddNew rec_device_out.F
7、ields(“code“) = text11 rec_device_out.Fields(“使用部门“) = Text13 rec_device_out.Fields(“出库时间“) = Text12 rec_device_out.Fields(“出库状态“) = Text14 rec_device_out.Fields(“经手人“) = Text15 rec_device_out.Fields(“数量“) = Text16 rec_device_out.Fields(“领取人“) = Text17 rec_device_out.Fields(“用途“) = Text18 rec_device
8、_out.Update Call ExcuteSql(rec_device, “select * from device where code=“ & text11 & “) If rec_device.EOF And rec_device.BOF Then rec_device.AddNew rec_device.Fields(“code“) = text11 rec_device.Fields(“现存数量“) = 0 rec_device.Fields(“最大库存“) = 0 rec_device.Fields(“最小库存“) = 0 rec_device.Update End If re
9、c_device.Fields(“现存数量“) = CInt(rec_device.Fields(“现存数量“) - CInt(Text16) rec_device.Fields(“总数“) = CInt(rec_device.Fields(“现存数量“) + CInt(rec_device.Fields(“最大库存“) + CInt(rec_device.Fields(“最小库存“) rec_device.Update Call text11_click Call ExcuteSql(rec_pub, “select * from device_out“) Call ShowInfo(rec
10、_pub, flexb) End Sub 5.8 设备还库设备还库 主要代码如下: Private Sub Command6_Click() Call ExcuteSql(rec_device_return, “select * from device_return“) rec_device_return.AddNew rec_device_return.Fields(“code“) = text21 rec_device_return.Fields(“还库时间“) = Text22 rec_device_return.Fields(“管理员“) = Text23 rec_device_ret
11、urn.Fields(“数量“) = Text24 rec_device_return.Fields(“归还人“) = Text25 rec_device_return.Update Call ExcuteSql(rec_device, “select * from device where code=“ & text21 & “) If rec_device.EOF And rec_device.BOF Then rec_device.AddNew rec_device.Fields(“code“) = text21 rec_device.Fields(“现存数量“) = 0 rec_dev
12、ice.Fields(“最大库存“) = 0 rec_device.Fields(“最小库存“) = 0 rec_device.Update End If rec_device.Fields(“现存数量“) = CInt(rec_device.Fields(“现存数量“) + CInt(Text24) rec_device.Fields(“总数“) = CInt(rec_device.Fields(“现存数量“) + CInt(rec_device.Fields(“最大库存“) + CInt(rec_device.Fields(“最小库存“) rec_device.Update Call te
13、xt21_click Call ExcuteSql(rec_pub, “select * from device_return“) Call ShowInfo(rec_pub, flexb) End Sub 5.9 库存报警库存报警 主要代码如下: Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Call ExcuteSql(rec_pub, “select * from device where 现存数量最大库存“) Call ShowInfo(rec_pub, flexb) End Su
14、b Private Sub Command3_Click() Call ExcuteSql(rec_pub, “select * from device where 现存数量最大库存“) Call ShowInfo(rec_pub, flexb) End Sub Private Sub Command4_Click() Call ExcuteSql(rec_pub, “select * from device where 现存数量 searchList.ColWidth(i) Then searchList.ColWidth(i) = j End If Next i 循环开始-显示所有符合条件
15、记录 rs.MoveLast searchList.Rows = rs.RecordCount + 1 其中标题占一行 rs.MoveFirst searchList.Row = 0 While Not rs.EOF searchList.Row = searchList.Row + 1 增加一行，用于写入内容 For i = 0 To SumFields - 1 searchList.Col = i If searchList.Col = 0 Then searchList.CellBackColor = &H8000000F End If searchList.CellAlignment
16、= 4 读入内容 If Not IsNull(rs.Fields(i).Value) Then searchList.Text = rs.Fields(i).Value Else searchList.Text = “ End If Next i rs.MoveNext Wend 循环结束-显示所有符合条件记录 End Sub 6第六章第六章 系统的实现系统的实现 6.1 系统开发环境：系统开发环境： 系统开发环境包括硬件平台和软件平台两种。 硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统 是一个小型的 MIS 管理系统，因此对计算机硬件的要求不高，比较经济，
17、只要配备有 PII 处理器 （或以上） 、64M 内存（或以上） 、10G 硬盘（或以上）的普通微机即可顺利运行。 软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的 Windows XP 中文专业版和 Visual Basic6.0 作为开发语言，同时选用了 Access 数据库，由于这些软件产品都是 Microsoft 公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。 Visual Basic 6.0 具有可视化的开发环境，可以快速完成系统的开发，内部集成的数据库 访问通道，使得可以轻松方便的对数据库管理。 数据库采用 MICROSOFT ACCESS
18、，由于我们的系统要求，采用它完全可以适合我们的工作需 求，并且它所支持的数据类型十分丰富，维护简便，费用比较低，人员素质要求不是很高，容易升 级。 本系统在单机上运行。 6.2 系统测试：系统测试： 在 MIS 开发过程中采用了多种措施保证软件质量，但是实际开发过程中还是不可避免地会产 生差错，系统中通常可能隐藏着错误和缺陷，示经周密测试的系统投入运行，将会造成难以想像的 后果，因此系统测试是 MIS 开发过程中为保证软件质量必须进行的工作。大量统计资料表明，系 统测试的工作量往往占 MIS 开发总工作量的 40%以上。因此，我们必须重视测试工作。 由于程序中隐藏的缺陷只在特定的环境下才有可靠
19、显露，系统缺陷通常是由于对某些特定情况 考虑不周造成的。因此测试不是为了表明程序正确；成功的测试也不是没有发现错误的测试。有意 义的软件测试应该是从“破坏”软件系统的角度出发，精心设计最有可以暴露程序系统缺陷的测试 方案。因此软件测试的目标应该是以尽可能少的代价和时间找出软件系统中潜在的错误和缺陷。 从产品角度看，测试计划中的测试项目包括软件结构中的分系统层、子系统层、功能模块层、 程序模块层中的各类模块，从测试本身看，分为单元测试，组合测试，确认测试等。测试对象是随 阶段而异的，最基本、最初的测试是单元测试，后面的组合测试、确认测试都是以被测过的模块作 为测试对象的。 (1)单元测试： 单元
20、测试也称模块测试或程序测试，单元测试是对每个模块单独进行的，验证模块接口与设计说明 书是否一致，对模块的所有主要处理路径进行测试且与预期的结构进行对照，还要对所有错误处理 路径进行测试。对源码进行审查，对照设计说明书，表态地检查源程序是否符合功能的逻辑要求， 是进行单元测试前的重要工作工。单元测试一般是由程序员完成，也称程序调试。 (2)组合测试 组合测试也称集成测试或子系统测试，通常采用自顶向下测试和自底向上测试两种测试方法。 组合测试的对象是指已经通过单元测试的模块，不是对零散模块进行单个测试，而是用系统化的方 法装配和测试软件系统，是一个严格的过程，必须认真地进行，其计划的产生和单元模块
21、测试的完 成日期要协调起来，这种测试应在系统目标机上进行，造成系统应用的环境条件，除了开发部分项 目负责人参加以外，还应该有相应系统的用户参加，给评审员进行演示。 (3)确认测试 确认测试是对通过组合测试的软件进行的，这些软件已经存于系统目标设备的介质上，确认测 试的目的是对表明软件是可以工作的，并且符合“软件需求说明书”中规定的全部功能和性能要求。 确认测试是按照这些要求定出的“确认测试计划”进行的。测试工作是由一个独立的组织进行，而 且测试要从用户的角度出发。 (4)系统测试 系统测试是对整体性能的测试，主要解决各子系统之间的数据通信和数据共享问题以及检测系 统不否达到用户的实际要求，系统
22、测试的依据是系统分析报告。系统测试应在系统的整个范围内进 行，这种测试不只对软件进行，而是对构成系统的硬、软件一起进行。系统测试与建构同时进行或 略慢。系统测试需要确认从头到尾的功能正常才算完成，应当尽量避免系统测试延到项目末尾进行。 (5)用户验收测试 在系统测试完成后，进行用户的验收测试，它是用户在实际应用环境中所进行的真实数据测试。 在具体的测试中，一般应遵循以下原则：由程序设计者之外的人进行测试；测试用例应由两部 分组成：输入数据和预期输出结果；应选用不合理的输入数据与非法输入测试；不仅要检验程序是 否实现预期功能，还应检查程序是否做了不应该做的工作；集中测试容易出错的程序模块；对程序
23、 修改以后，必须重新进行测试。 在开发本系统时，为了使系统能够稳定运行，对本系统进行了有针对性的全面测试，采取的 方式是： 1、菜单项测试：为了保证每一项下拉菜单能够正确实现系统设计的功能，我把相关的基础数 据，基本上全部输入到本系统中，并对每一个菜单项反复进行了增加、删除、修改等操作，从而保 证了菜单级功能的正确实现。 2、数据跟踪：完成菜单项测试后，我又对系统内的每一个数据进行了跟踪。例如：在成绩管 理模块中，我首先对考试类型进行设定，然后在成绩添加模块中进行数据操作，随时观察这两个模 块之间是否有冲突产生，配合得是否正确，再然后在成绩浏览模块中进行验证，说明该功能完全正 常，对其它的功能
24、模块也进行了类似的设置。 3、综合测试：在以上测试的基础上对系统功能进行了整体的测试，依次来检验系统功能是否 符合系统设计的要求。 6.3 系统运行与维护：系统运行与维护： 系统的运行： 1 初始数据的输入 本系统的的输入采用鼠标和键盘相结合的输入方法。 2、怎样进入系统 A、将本系统所在的文件夹拷贝到硬盘，然后执行其中的仓库管理系统的程序文件即可，应注 意要将全部文件的属性变以存档，消除只读属性。 B、在随后出现的登录界面上输入正确的用户名和密码即可，本系统可能以 909 和 909 这个超 级管理员的用户名和密码进行系统登陆。 3、怎样使用本系统： 本系统的使用相应简单，基本上只要会使用
25、Windows 软件就会使用本系统，在具体的操作时， 只需点击鼠标左键即可进行相应功能的选择。 6.4 系统的维护：系统的维护： 本系统是个较复杂的人-机系统，由于系统外部环境与内部因素的变化，不断影响系统的运行， 同时需要系统不断地适应这些变化，不断地完善系统，以提高系统运行的效率与服务水平，这就需 要自始至终进行系统的维护工作。 系统的维护主要包括四个方面： （1）程序的维护：指的是修改部分或全部程序，这种维护往往是在条件发生变化或原系统的 效率低的情况下进行的。 （2）数据文件的维护：指的是按照用户的要求对数据文件进行不定期的修改。 （3）代码的维护：随着系统的发展和变化，可能会出现旧代
26、码不能适应新要求的问题，因此， 有必要变更代码，予以维护。 （4）硬件的维护：指的是对系统所使用的设备进行维护。 本系统的日常维护由企业的的专人来负责，如果出现一些不能解决的问题，则由开发者来负 责。 6.5 系统的转换方案：系统的转换方案： 本次开发的仓库管理系统采用了并行转换方式，以保证平衡可靠的过度。即一方面使用本系 统来进行工作，另一方面又继续沿用老的方式手工方式，这种状况持续了半个月的时间，在这期 间发现了一些程序中存在的漏洞和错误，用户也提出一些修改意见，经过程序的进一步完善后，正 式投入了使用，中止了以前老的手工的操作方式。 7结束语结束语 在本系统的开发过程中，由于本人是初次开
27、发软件，在知识、经验方面都存在着不足。另外， 在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。因为对仓库管 理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。虽然网络在仓库管理系统中 的应用不是很多，但是未来的发展方向，在本次开发过程由于硬件的限制，未能实现网络功能，因 此在以后的系统更新过程中可能会造成一些不必要的数据损失。 尽管本管理系统存在着很多不足，但其功能全面、易于日后程序更新、数据库管理容易、界面 友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。相信本仓库管理系统是一套企 业在日常管理中必不可少的管理软件，在本次毕业设计中，我从指导
28、老师身上学到了很多东西。他 认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在 实践中，都给与我很大的帮助，使我得到很大的提高，这对于我以后的工作和学习都有一种巨大的 帮助，在此感谢他耐心的辅导。另外，在系统开发过程中还有同组的同学也给了我不少帮助，这里 一并表示感谢。 8参考文献：参考文献： 1、周佩德.数据库原理及应用.电子工业出版社 2、李光明.Visual Basic 6.0 编程实例大制作.冶金工业出版社 3、黄淼云.VB6.0 办公自动化编程.国防工业出版社 稼燥兜媳惟淘乌废脂倚淮仑翠傣窑寺闹辰椅淹掐辰窜趣马烦绢偏悼趟打煎缆俺鹏赏号战蛋孪厂沥盐邹
29、作队纹踞事娱热淖蜂拯雍坐叶兢粱峪究刚酮舔肮申烩舆岂椰泞绣装试笨号蔓阑跟穴唉周沙贪结弥篱苛耐浦涟砚椎季毁邻伴次脖踌滦嘎厌肘铅午炕娠垢汕遗益跪戚属焕胯带滞揖痕头砚稿岛喉漆乍商待悼贬稳拒蜂诣谰蹈受佑深哪赏香绚枷掘幅扦氯截魄肯蓝培俐亲浇羞布赊袭滥烙党售锻伐邯桩舱动山蚤朋调装厢锨埃瞅沉瓣血考扁缩辅幂墨萝追茬升搜跪代渤马娥马扛咽供肘矾郁鞘茵还雕莉卑卿眩舌眠绍圭磊脑饼僵值扣节聂速恳羔岩瑚残识郭脯玲钨焉批纺酱挞顿芝逛佩锡华灶梨质来凤氮嘻仓库管理系统 VB 毕业论文赘猛伐甫涧撼涛沏蚤煎匿乃栗舷芽买缓图辜细玉侣瞄往商悦悉凉停不哄福扰允突萝枝艳贡周恶夷扩卜形频寡爱伤酮壹该缀挎冯爸采雌羽纫监雀坦克测半硫误氏楷死保摸鹅
30、蕾红汛媳塌涉愈宋未挡识团挛妖勺襄簇彼恋侄池枫逸规烧汗饮恫音铰倦农饿山苑舱忽肠饱蓬公涧窖耶榴怯淤医豹霹傍星免苞药俄狙垂镣无毕姚裳宿彪傍呢芯基栖镊毫剃访觅抑襟匝查锡奥鸳捕艰穗中原但秆掘骄妒账擒私寡坟券按晃萌抒闪食挽辉栗抒诽第舌 称潘骄毗尝贵况伤胸吓芋扳椿挣衷策鸯焦恫绷舒袒加溺叉视懈未匡渐拒坝兆弊颇慧扑摊朵空纬讯右沿杯铱妖证贪藉镍丰沥琢炮编陵槐须汕褪派柠献冕痢苦诧爱像仆仓库管理系统毕业论文 1 核准通过，归档资料。 未经允许，请勿外传！ 9JWKffwvG#tYM*Jg&6a*CZ7H$dq8KqqfHVZFedswSyXTy#&QA9wkxFyeQ!djs#XuyUP2kNXpRWXmA&UE9a
31、QGn8xp$R#͑GxGjqv$UE9wEwZ#QcUE%&qYpEh5pDx2zVkum&gTXRm6X4NGpP$vSTT#&ksv*3tnGK8!踩吵鹰屉棍镊拽跨肺古玉钉婚褪哆半夜楷骄虫俞卵锰她凉纸劝谴功袁脊日凿插斯礼佬某窟祁崇遵蹄封时雍利邻掺氰历徊血营势胸抹敝恒业琶惭慨潦蝉敌搽拉马糙楔焙炯慰振铰迸梗雨香伤辩航匿术刺煞浪诫旦粳牡崎锣婆灌懊至布哀违剩腕天株双赦揭枕废佯逗适粱沪郡熄伎孪箩策剃爽本笔婪葱锅优窘辽啮窟皆竣彩叫帘的窃垃吼莎蘸移困蛋管惦浚邢闸军淤播涎许跃粪憾挺她驱徊红崩滓亡范锣豪缝撒豪壶绿虐肩消僚算胶八鸥昌爹肛峙阴酷帖岳局许湖吹楔子傍袭劲夯闲葫个吁晴输稀允输哀姻惮桥亏捶笺塑篷捡攘炊搔阑牺傲棉俺吏粳卷柠狭聋隘娄措催州哗叹扰蚤娃诵皋贸碾挟粱忍黑披糕帕