毕业论文-进销存管理系统

专科生毕业设计（论文）ADO对象访问技术ADO定义编程模型，即访问和更新数据源所必需的活动顺序。编程模型意味着对象模型，即响应并执行编程模型的“对象组”。对象拥有“方法”，以执行对数据进行操作；对象拥有“属性”，以指示数据的某些特性或控制某些对象方法行为。系统功能模块设计系统功能设计系统的功能模块如图7.2所示。小艾服装进销存系统小艾服装进销存系统基础资料管理营业计算管理实用工具模块系统设置关于系统模基础资料管理营业计算管理实用工具模块系统设置关于系统模块登录用户子模块新用户注册子模块进货单子模块货品资料子模块销售计算子模块销售记录子模块库存记录子模块进货记录子模块生成订单子模块计算器管理子模块系统版本关于作者记事本管理子模块登录用户子模块新用户注册子模块进货单子模块货品资料子模块销售计算子模块销售记录子模块库存记录子模块进货记录子模块生成订单子模块计算器管理子模块系统版本关于作者记事本管理子模块图7.2系统功能模块图模块设计系统设置：用户管理包括用户名,密码和权限注册用户包括注册信息,用户和输入密码数据管理包括数据备份和数据恢复基础资料管理：进货单货品资料查询货品资料修改管理货品类别营业计算：销售计算销售记录查看库存进货记录实用工具：计数器记事本关于系统：关于作者系统版本系统的详细设计根据前期的各项准备工作，现将系统的各模块的功能详细设计，本系统共设计了十个界面，例如主窗体界面，用户登陆界面，进货单界面等。下面详细叙述个界面的功能、详细设计以及具体操作。主窗体界面设计本窗体是连接所有窗体的桥梁，所有窗体通过本窗体启动，在管理员未登录的情况下，功能模块是禁止使用的。如图7.3主窗体界面所示。图7.3主窗体界面用户登陆界面设计当操作员在打开本应用程序后，登陆界面将显示出来，输入相应的用户名和密码，并点击“登陆”以进入系统，这个时候，触发按钮的Click事件，在这个事件里，首先要对用户输入信息的合法值进行判断（如密码是否为空，密码长度是否超出限定等），一但用户信息合法性通过，便设定发送字符串协议，并将字符串发送到数据库，然后数据库中对应表进行查找用户所输入的信息是否存在，若存在，则返回成功信息，否则返回出错信息。如图7.4用户登陆界面所示。图7.4用户登陆界面修改用户密码界面设计此界面是针对用户密码进行修改，其主要包括用户名，旧密码，新密码，确认密码；当用户修改完毕按确定即可修改密码成功。如图7.5修改用户密码界面所示。图7.5修改用户密码界面添加用户界面设计此界面为添加用户模块，在进行操作时可先输入用户名，密码及其确认密码完毕后可按确定即可添加用户成功。如图7.6添加用户界面所示。图7.6添加用户界面 注册用户界面设计该模块是用户进行注销，先登陆用户名再次请输入密码，成功后按确定即可，若不想继续注销用户则按取消。如图7.7注销用户界面所示。图7.7注销用户界面数据管理界面设计该界面针对次系统的数据进行管理，包括数据备份和数据恢复等。如图7.8数据管理界面所示。图7.8数据管理界面进货单界面设计本界面为进货单其中有货品编码、类别、名称、价格、单位、品牌；进货数量、时间；入库价和进货人等。如图7.9进货单界面所示。图7.9进货单界面货品查询界面设计当操作员进行货品查询时可运用次界面，按照搜索条件有货品编号或者选择排序等条件进行搜索查找后方可显示货品的搜索结果。如图7.10货品查询界面所示。图7.10货品查询界面管理货品类别界面设计本窗体是所有货品类别的管理，将其按照货品品牌、类别、单位等进行添加、删除、关闭等功能。如图7.11管理货品类别界面所示。图7.11管理货品类别界面销售计算界面设计该窗体是针对营业销售进行计算，货品编号、名称、类别，成本单价，销售单价、销售量，现有库存量进行计算并显示结果。如图7.12销售计算界面所示。图7.12销售计算界面销售记录界面设计本窗体时间，货品编号、名称等和所得利润进行该货品的销售记录。如图7.13销售记录界面所示。图7.13销售记录界面库存记录界面设计该窗体在操作员进行操作时可查看库存，在此输入编号电击查询记录或者查看全部都显示结果，若不想显示则点击清空显示或者按关闭按钮。如图7.14库存记录界面所示。图7.14库存记录界面调试连接测试在MIS开发过程中采用了多种措施保证软件质量，但是实际开发过程中还是不可避免地会产生差错，系统中通常可能隐藏着错误和缺陷，不经周密测试的系统投入运行，将会造成难以想象的后果，因此系统测试是MIS开发过程中为保证软件质量必须进行的工作。大量统计资料表明，系统测试的工作量往往占MIS开发总工作量的40%以上。因此，我们必须重视测试工作。由于程序中隐藏的缺陷只在特定的环境下才有可靠显露，系统缺陷通常是由于对某些特定情况考虑不周造成的。因此测试不是为了表明程序正确；成功的测试也不是没有发现错误的测试。有意义的软件测试应该是从“破坏”软件系统的角度出发，精心设计最有可以暴露程序系统缺陷的测试方案。因此软件测试的目标应该是以尽可能少的代价和时间找出软件系统中潜在的错误和缺陷。从产品角度看，测试计划中的测试项目包括软件结构中的分系统层、子系统层、功能模块层、程序模块层中的各类模块，从测试本身看，分为单元测试，组合测试，确认测试等。测试对象是随不同阶段而异的，最基本、最初的测试是单元测试，后面的组合测试、确认测试都是以被测过的模块作为测试对象的。1．单元测试单元测试是在软件开发过程中要进行的最低级别的测试活动，在单元测试活动中，软件的独立单元将在与程序的其他部分相隔离的情况下进行测试。单元测试也称模块测试或程序测试，单元测试是对每个模块单独进行的，验证模块接口与设计说明书是否一致，对模块的所有主要处理路径进行测试且与预期的结构进行对照，还要对所有错误处理路径进行测试。对源码进行审查，对照设计说明书，表态地检查源程序是否符合功能的逻辑要求，是进行单元测试前的重要工作工。单元测试一般是由程序员完成，也称程序调试。单元测试是一种无价的文档，它是展示函数或类如何使用的最佳文档。这份文档是可编译、可运行的，并且它保持最新，永远与代码同步。2．组合测试组合测试也称集成测试或子系统测试，通常采用自顶向下测试和自底向上测试两种测试方法。组合测试的对象是指已经通过单元测试的模块，不是对零散模块进行单个测试，而是用系统化的方法装配和测试软件系统，是一个严格的过程，必须认真地进行，其计划的产生和单元模块测试的完成日期要协调起来，这种测试应在系统目标机上进行，造成系统应用的环境条件，除了开发部分项目负责人参加以外，还应该有相应系统的用户参加，给评审员进行演示。3．确认测试确认测试是对通过组合测试的软件进行的，这些软件已经存于系统目标设备的介质上，确认测试的目的是表明软件是可以工作的，并且符合“软件需求说明书”中规定的全部功能和性能要求。确认测试是按照这些要求定出的“确认测试计划”进行的。测试工作是由一个独立的组织进行，而且测试要从用户的角度出发。4．系统测试系统测试是对整体性能的测试，主要解决各子系统之间的数据通信和数据共享问题以及检测系统是否达到用户的实际要求，系统测试的依据是系统分析报告。系统测试应在系统的整个范围内进行，这种测试不只对软件进行，而是对构成系统的硬、软件一起进行。系统测试与建构同时进行或略慢。系统测试需要确认从头到尾的功能正常才算完成，应当尽量避免系统测试延到项目末尾进行。5．用户验收测试在系统测试完成后，进行用户的验收测试，它是用户在实际应用环境中所进行的真实数据测试。在具体的测试中，一般应遵循以下原则：由程序设计者之外的人进行测试；测试用例应由两部分组成：输入数据和预期输出结果；应选用不合理的输入数据与非法输入测试；不仅要检验程序是否实现预期功能，还应检查程序是否做了不应该做的工软件产品投入实际应用以前进行的最后一次质量检验活动。验收测试是一项严格的正式测试活动。需要根据事先制订的计划，进行软件配置评审、功能测试、性能测试等多方面检测。用户验收测试可以分为两个大的部分：软件配置审核和可执行程序测试，其大致顺序可分为：文档审核、源代码审核、配置脚本审核、测试程序或脚本审核、可执行程序测试。数据库调试数据库经过试运行的检验和测试基本合格后，就可逐步增加数据量，逐步完成运行评价，通过评价认为已达到设计的目的，就可正式投入使用。这就标志着开发任务基本完成，设计工作告一段落，开始转入数据库的维护阶段，但这并不意味着整个设计过程的结束。任务数据库只要它存在一天，就得不断的对它的设计进行评价、调整、修改甚至完全改变。因此数据库的维护不仅是保证数据库安全工作的正常活动，而且是设计工作的继续和提高。安全性调试数据库的安全性是指保护数据库以防止不合法的使用，避免数据的泄露、更改和破坏。它往往和保密性连在一起。在数据库系统中，大量的数据集中存放，而且为许多用户直接共享，是宝贵的信息资源，系统的安全保护措施就显得更为重要，它保护数据库防止恶意的破坏和非法的存取。为了保证数据库中数据的安全可靠和正确有效，DBMS必须提供统一的数据保护功能，如数据安全性、数据完整性约束和并发控制等功能。然而做到绝对安全是不现实的，安全是相对的。为实现系统安全性所采取的措施有用户标识和鉴定、授权规则、数据分级和数据加密等措施。在本系统中使用最为基本的用户标识和鉴定，即在登录数据库时，要求用户输入口令，系统核实用户口令以鉴别用户身份，没有采用更加复杂的系统安全管理措施是因为本库存管理系统是应用在企业内部的局域网中，采用安全管理措施主要是为了防止其他无关人员修改破坏了数据，因此采用用户标识和鉴定的安全管理措施就能够保障数据库的安全性。此系统主要采用模块化的开发形式完成。采用模块化开发原理不仅使软件结构清晰，设计容易，同时方便阅读和理解。模块化其实就是把程序划分成若干个模块，每个模块完成一个子功能，每个模块中包括自己模块的数据说明、可执行语句等程序对象的集合，它是单独命名而且可通过名字来访问。把这些模块集合起来组成一个系统的整体，可以完成指定的功能满足开发的要求。在后期的测试阶段模块化更有助于测试和调试，因为变动往往只涉及少数几个模块，所以模块化能够提高软件的可修改性更有助于提高软件的可靠性。一般来说，对程序测试有两种测试方法：如果已经知道了软件系统应具有的功能，可通过测试来对每个功能是否都能正常使用；如果知道程序的内部工作过程，可以通过测试来检测程序内部是否按照规格说明书的规定正常进行。前一种方法称为黑盒测试，后一种方法称为白盒子测试。黑盒测试又称为功能测试，白盒子测试又称为结构测试。数据库使用中偶尔出现数据溢出：在系统使用阶段经常遇到数据库不稳定的情况，在数据进行查询、修改等操作时应用程序提示没有正确的数据，使得操作无法继续进行。经过充分考虑和请教老师，最终得以解决问题所在，引起问题的是建立数据表的时候对字段的定义不是太明白而导致的数据溢出，目前此问题已经解决。应用程序的逻辑错误：在系统测试时候发现了在数据选择判断时的异常，仔细跟踪调试后发现问题所在，此问题已经解决。应用程序某些功能的实现不是很合理：测试过程中感觉到某些功能的实现不符合情理，此问题在设计时候也想到了，但是由于各人的能力和时间问题未能将问题很好地解决，如果有时间，相信能将此问题解决得很好。经过简单的运行及调试不仅发现了一些问题，增加了一些常识，更积累了一些数据库开发及测试方面的经验。调试的最终完成，使得本系统能够运行正常，操作更为方便。结论经过三个月的时间，毕业设计这一环节基本接近了尾声，通过我的毕业设计服装进销存管理系统的设计，使我受益非浅。是对三年学习生活的总结和升华。经过实际的考察和分析，使我更深刻的了解服装进销存管理信息系统，也使我了解作为服装进销存管理系统应该具备哪些功能，为用户提供什么样的服务。通过这次毕业设计，对进销存管理系统的开发，我付出了大量的时间，但是，我得到的收获远远不是这些时间可以衡量的，它将是我终生的财富，必将给我今后的学习和工作带来更多的收益。通过对此系统的开发，使我对软件开发有了一个比较清楚的认识，体会到理论和实践的重要性。由于自己的分析设计和程序经验不足，该系统设计和实现过程中，还有许多没有完善的地方，比如数据冗余、文档组织不合理、帮助文档没有编写，用户界面设计不够美观，异常出错处理比较差等多方面问题，这些都有待进一步完善和提高。。给我感受最深的就任何时候都不能懒散怠慢，把希望寄托在他人身上。只有自己亲身经历、亲自去解决的问题才会有最深刻的理解。此外，对问题的认识和解决要有理论根据，要抓住实质性的东西，透过现象看本质。在整个开发的过程中，我对VB，ACCESS和SQL数据库有了更深的了解和认识。提高了我的编程兴趣，为以后进一步的学习和工作打下了基础。参考文献[1]吴瑞林,张义.VISUALBASIC6.0使用教程.第一版.北京:科学出版社,2003:14-78[2]何玉洁.数据库基础及应用技术.第一版.北京:清华大学出版社,2002:12-89[3]贾长云.可视化编程应用VISUALBASIC.第二版.河北:高等教育出版社,2003:75-105[4]网冠科技.VISUALBASIC6.0时尚编程百例.第一版.上海:机械工业出版社,2001:94-214[5]曾琦.VISUALBASIC6.0编程实例与技巧.第一版.北京:中国水利水电出版社,2002.84-99[6]韦源.VISUALBASIC6.0程序设计基础.第一版.北京:清华大学出版社,2001:61-112[7]欧阳为民.数据库中的时态数据发掘研究.第二版.北京:计算机科学出版社,2001:5-96[8]刘瑞新.VISUALBASIC程序设计教程.第二版.成都:机械工业出版社,2003:47-56[9]温贤发.数据库程序设计高手.第六版.北京:科学出版社,2002:14-64[10]高非.跟我学VISUALBASIC程序设计.第四版.上海:电子工业出版社,1998:61-87[11]范周平,陈小平.ACCESS2000数据库开发实力导航.第四版.北京:人民邮电出版社,1998:32-63[12]王诚君.中文ACCESS2000新编程.第四版.北京:清华大学出版社,2004:7-52[14]（美）FreelBarwell,Ric.VB.NET高级编程.第二版.北京:清华大学出版社,2003:11-87[15]（美）KrisJamsa.VisualBasic技术与技巧.第二版.北京:机械工业出版社,2002:14-65[16]ZhangJingxiang,ect.phFuzzyControlofAutomatedElectroplatingGold[J].Chem.Eng.Technology,1997,20:567-580致谢本课题在选题及研究过程中得到老师的悉心指导。老师多次询问研究进程，并为我指点迷津，帮助我开拓研究思路，精心点拨、热忱鼓励，，帮助我能够很快的融入我们这个新的实验室。

在进行毕业设计的这段时间里，我亲自动手从头到尾的开发了一个系统，基本实现了对进销存系统界面的几个基本功能模块，容易理解和操作，基本达到了预期的目的。使我对编程有了很深刻的理解，增长了很多知识，收获颇丰。同时由于本人的技术水平有限和时间的紧迫，使得本系统仍然有很多不完善的地方，希望大家谅解并给予宝贵意见，再次向大家表示真挚的谢意。在论文即将完成之际，我的心情无法平静，从开始进入课题到论文的顺利完成，有多少可敬的师长、同学、朋友给了我无言的帮助，在这里请接受我诚挚的谢意!最后我还要感谢培养我长大含辛茹苦的父母，谢谢你们!

附录系统部分代码进货单信息设置窗体(frmDH)的数据显示与删除的代码如下：OptionExplicitPublictxtSQLAsStringDimmrcAsADODB.RecordsetPrivateSubcmdAdd_Click()gintDHmode=1frmDH1.Show1EndSubPrivateSubcmdDelete_Click()DimtxtSQLAsStringDimintCountAsIntegerDimmrcAsADODB.RecordsetDimMsgTextAsStringIfmsgList.Rows>1ThenIfMsgBox("真的要删除编号为"&Trim(msgList.TextMatrix(msgList.Row,1))&"的进货单记录吗？",vbOKCancel+vbExclamation,"警告")=vbOKThenintCount=msgList.RowtxtSQL="deletefromdhwheredh_no='"&Trim(msgList.TextMatrix(intCount,Setmrc=ExecuteSQL(txtSQL,MsgText)Unloadfrmdhfrmdh.txtSQL="selectdh_no,in_date,ywman,gfdm,wzdm,cxend,sl,in_danj,i_zk,i_zke,bzfromdh"frmdh.ShowEndIfEndIfEndSubPrivateSubcmdModify_Click()DimintCountAsIntegerIffrmdh.msgList.Rows>1ThengintDHmode=2intCount=msgList.RowIfintCount>0ThenfrmDH1.txtSQL="select*fromdhwheredh_no='"&Trim(msgList.TextMatrix(intCount,1))&"'"frmDH1.Show1ElseMsgBox"警告",vbOKOnly+vbExclamation,"请首先选择需要修改的纪录！"EndIfEndIfEndSubPrivateSubForm_Load()ShowTitleShowDataEndSubPrivateSubForm_Resize()IfMe.WindowState<>vbMinimizedAndfMainForm.WindowState<>vbMinimizedThen'边界处理IfMe.ScaleHeight<10*lblTitle.HeightThenExitSubEndIfIfMe.ScaleWidth<lblTitle.Width+lblTitle.Width/2ThenExitSubEndIf'控制控件的位置lblTitle.Top=lblTitle.HeightlblTitle.Left=(Me.Width-lblTitle.Width)/2msgList.Top=lblTitle.Top+lblTitle.Height+lblTitle.Height/2msgList.Width=Me.ScaleWidth-200msgList.Left=Me.ScaleLeft+100msgList.Height=Me.ScaleHeight-msgList.Top-1500Frame2.Top=msgList.Top+msgList.Height+50Frame2.Left=Me.ScaleWidth/2-3000EndIfEndSubPublicSubFormClose()UnloadMeEndSubPrivateSubShowData()DimjAsIntegerDimiAsIntegerDimMsgTextAsStringSetmrc=ExecuteSQL(txtSQL,MsgText)WithmsgListRows=1DoWhileNotmrc.EOFRows=.Rows+1Fori=1Tomrc.Fields.CountIfNotIsNull(Trim(mrc.Fields(i-1)))ThenSelectCasemrc.Fields(i-1).TypeCaseadDBDateTextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&"","yyyy-mm-dd")CaseElseTextMatrix(.Rows-1,i)=mrc.Fields(i-1)&""EndSelectEndIfNextimrc.MoveNextLoopEndWithmrc.CloseEndSub'显示Grid表头PrivateSubShowTitle()DimiAsIntegerWithmsgListCols=12TextMatrix(0,1)="进货单编号".TextMatrix(0,2