小型出入库系统的设计与实现

1、小型出入库系统的设计与实现,硕士论文答辩：,列走琐禁傲咨赃近北贼黔珊桃伟穴计纂掺很睹详跃鸦酿炔弟让方忆桩恫爹小型出入库系统的设计与实现小型出入库系统的设计与实现,小型出入库系统的设计与实现,【摘 要】： 随着信息技术的发展，传统的统计方式在处理庞大的信息量时显得极不适应，人们对于运用计算机来辅助协调和管理自身工作的需求正在逐步提高。近来，国内外兴起了一股办公自动化的热潮，希望能借助相关的计算机技术实现对企业办公过程的自动化管理。对信息流的有效组织和管理已经成为衡量一个办公自动化系统优劣的重要标志。“好用库管”小型出入库系统就是一个由人、计算机硬件、软件和数据资源组成的，目的在于及时准确地收集、

2、加工、存储、传送和决策的微型信息管理系统。,【关键词】： 出入库系统；库存管理；数据输入；数据查询；管理信息系统,Loading and Unloading System； Inventory Management; Data Input； Data Inquiry； Information Management System,孪豆毖序金凌阻酵称昧硒遍结抉询堆型再膏甚场撰仗合迭慢殴恳履岳耳辈小型出入库系统的设计与实现小型出入库系统的设计与实现,1系统和开发工具介绍1.1系统介绍,（1）系统名称 （2）模拟说明 （3）系统功能（4）系统运行条件 硬件系统环境 CPU：C300或更高； 内存：64

3、 MB或更大； 硬盘：50MB或更大。 软件系统环境 Microsoft Windows 98以上； Microsoft Visual Basic 6.0以上； Microsoft SQL Sever7.0以上。,述中藻喝钨鸿征洋礼恬滩籽衬碉渭彤猪粒蔫乔蹋根摆怯扭越共猛涨酪侨饰小型出入库系统的设计与实现小型出入库系统的设计与实现,1.2开发工具介绍 （1）Microsoft Visual Basic 6.0 （2）SQL Server 2000 1.3系统的技术特点 （1）使用ADO控件来访问数据库 （2）使用ADO对象模型来访问数据库,要犀马哭壕掂驻盼腺讳旧躁近畅晶薪惧蝉型插屎摈膘聂峪妄碟瓷

4、罚闲袒即小型出入库系统的设计与实现小型出入库系统的设计与实现,2 系统分析,2.1现有状况分析 2.1.1现有业务流程分析 2.1.2存在的问题 （1）仓库的出入库记录全部由人工完成，工作量非常大，而且非常繁琐； （2）仓库经常出现数据误差的现象； （3）虽然有专职人员负责数据核对与库存检点工作，但工作效率非常低。,蔑椒周式胖勃俐鸵麓溉拣肚溶屉酥懊诛链鹿愿核琳英背还毖搀虞树壤则赛小型出入库系统的设计与实现小型出入库系统的设计与实现,2.2系统可行性分析 对输入的数据能够进行整理归档，进行相适处理工作后再输出有用的数据信息；同时，系统能够及时统计相应的数据资料，为查询或输出等提供即时的数据资料。

5、,柒抵蒲泊畸厄磊内妊娜盼绩针耪勺狡烟安犹砷疙躬廷功竣颓境璃骏辱淄倾小型出入库系统的设计与实现小型出入库系统的设计与实现,3 系统设计,3.1系统设计概述 系统设计作业的概念和任务可以归纳如下： （1）按照系统研究作业所限定的目标范围和信息源，应用专业知识找出或确认系统部件，一般情况下这些部件都应在目标提示的性质所覆盖的范围之内（系统部件代表系统的一部分的状态，系统的整体状态由这些部分的状态组成的）； （2）根据目标性质所覆盖的系统部件，首先从系统结构上分析系统环境因素与系统部件之间的关系（系统环境因素包括有不可控制因素和可控制因素两类）； （3）分析系统各部件之间的相互联系和影响，描述出系统的

6、结构框图，使系统环境、决策系统和目标能有机地和协调地连结为一体，并能具体反映系统的行为特征； （4）依照系统整体状态及其行为特征，提出能反映目标方向性的参数作为该设计系统的输出。,设冰壤彤义镐撼绝莆钝吟陛兵蓄洋镶寡蔓准搂回泡咒谐蒜赶晋忆推脏碰箭小型出入库系统的设计与实现小型出入库系统的设计与实现,3.2库存系统总体设计3.2.1系统设计目标,（1）方便的数据输入方式，良好的人机界面，尽量避免汉字和长字符串的人工重复输入； （2）灵活地查询性能，能快速实现库存数据的查询； （3）考虑到仓库原料的多样性，对新数据和无用数据也能给于处理； （4）把目前基本上是“静态”的库存管理数据变为“动态”的数据

7、，能随时提供库存现状信息； （5）为了以后系统的改进，整个系统可以作为一个封装体。,昭骆团崭暴焦颗示蹿诞式炯淑关块拍辉趟恭陆吸鹿蓉搅拓器伟桔恫昌堵压小型出入库系统的设计与实现小型出入库系统的设计与实现,3.2.2系统基本功能 （1）用户登录；（2）入库管理；（3）出库管理；（4）查询；（5）盘点； （6）系统维护（增加、减少操作员，原料基本资料维护，数据备份、数据恢复）。 系统的功能结构图绘制如图3.1所示：,泣钻说播讹库要帅吏异岗乾龚沪资灯床梯妊市判矽诬惜宁呛氓冰抉荣铡贬小型出入库系统的设计与实现小型出入库系统的设计与实现,3.2.3数据库规划 针对以上功能的实现，结合对功能实现的方便，数据

8、库结构精简、合理性、易维护等15-17因素的考虑，总共建了5张表格，描述见表3.1-表3.5：,她七郡迈孤汇堰截嫉毗芋渊甸鸿驭且漏龟搏释裴碑卫炽摹汇楼项诚能吴庄小型出入库系统的设计与实现小型出入库系统的设计与实现,3.2.4系统数据流程图 根据功能机构图和以上5张表，系统的信息数据流程图如图3.2所示:,午硅勒挪脓鲁谚检手乎误睬蝗讨钎田梭劲忱基芦杜琴捉枫植哩旷孙漫尹切小型出入库系统的设计与实现小型出入库系统的设计与实现,4系统实现,4.1用户登录模块 界面设计：用户登录界面如下图所示：,代码如下： Dim strsql As String Set cn = CreateObject(adodb

9、.connection) Set rs = CreateObject(adodb.recordset) cn.Open conn_string strsql = select * from login where 用户名= & Text1(0).Text & rs.Open strsql, cn, 3, 3,聚您考汤痪赁锑锈僚眶骋口猛几壹诚霓秉长贼棕原涉盯伴仆氢李刽明痔慢小型出入库系统的设计与实现小型出入库系统的设计与实现,当不是以用户名“admin”登录时，主窗体的一些菜单的Enabled属性被设为了False, 显示为灰色,不可用。如 下图所示：,非管理员用户登录的结果 Fig. The

10、sign in result of non-administrator,郭掸绅瞧孪油裙宙季躬腾皂沟痛掐砸而愉泉静侗蔼轩耕枣冗孤痕笨讶撑淹小型出入库系统的设计与实现小型出入库系统的设计与实现,4.2主窗体模块 界面设计：主窗体各个模块的设置如下图所示： 主窗体Fig. Main window,泼坚靖党榨赵褥凹瓣豁扛浑屎嘶胡酬接攀裳冗热筒零岸加谰常晨惨癌岂正小型出入库系统的设计与实现小型出入库系统的设计与实现,4.3操作员维护模块 界面设计：操作员维护界面如图所示：,操作员维护界面 Fig. Operator maintenance interface,之甫褐氏奋跟奴钧顾皱砰私链惊醚崇面够名皱喻邓

11、循销鼎熏映鲁瞒颧刚总小型出入库系统的设计与实现小型出入库系统的设计与实现,（1）功能分析： 该窗体用于实现添加或删除操作员的功能。 （2）功能实现： 使用ADO控件来访问login表（操作员数据表），将DataGrid控件和ADODC控件绑定。 当按下添加钮时，调用窗体frmUserin.frm，如图4.5所示：,点击图中“添加”按钮后出现的界面 Fig. The interface after press “add”botton in Fig.,潘玛莹录梅掩煞戮廊帐墅壹护阎紧趴酝阅刷波窃赊撅拼陆赎日自前民忽召小型出入库系统的设计与实现小型出入库系统的设计与实现,4.4原料基本信息维护模块 界

12、面设计：原料基本信息界面如图4.6所示： 窗体名：frmNew.frm （1）功能分析： 该窗体用于实现添加或删除原料种类的功能。 （2）功能实现： 使用ADO控件来访问productnew表（原料基本信息数据表），将Data控件和ADODC控件绑定。当按删除钮时执行以下代码： Private Sub Command2_Click() Dim varBmk As Variant Dim Massage As Integer If DataGrid1.SelBookmarks.Count = 0 Then MsgBox 请先选定要删除的行 Exit Sub End If DataGrid1.Al

13、lowDelete = True Massage = MsgBox(确定要删除吗？, vbYesNo) If Massage = vbNo Then Exit Sub End If For Each varBmk In DataGrid1.SelBookmarks With Adodc1.Recordset . Bookmark = varBmk .Delete End With Next Adodc1.Refresh End Sub 实现删除功能，同时更新productnew表（原料基本信息数据表）。,桃税僵善津椰降账论搐圭堂每涎牡燕龋疹灯用使伶梭姑弗寇硝菌锌恕滑迎小型出入库系统的设计与实现

14、小型出入库系统的设计与实现,原料基本信息界面 Fig.Raw material information interface,点击左图中“添加”按钮后出现的界面 Fig. The interface after press “add”botton in,北木含姬顽君见寿橙惶殉鱼漱邦腆苍窘桃绝椽途鹰排神扫泽讶火豁屎次今小型出入库系统的设计与实现小型出入库系统的设计与实现,4.5入库模块 界面设计：入库界面如右图所示： 窗体名：frmInput.frm （1）功能分析： 该窗体用于实现原料入库的功能。 （2）功能实现： 该窗体是原料入库的界面，使用ADO对象模型来访问productnew表（原料基本

15、信息数据表）、product表（原料库存数据表）和productin表（原料入库数据表）。,入库界面 Fig. Loading interface,隧取寒汞疾萄火逗警盾殖铁榜拐伙追证句宪切谚戚岁攀膳扎间酉尺捌葬游小型出入库系统的设计与实现小型出入库系统的设计与实现,4.6出库模块 界面设计：出库界面如图4.9所示：,出库界面 Fig. Unloading interface,（1）功能分析： 该窗体用于实现原料出库的功能。 （2）功能实现： 该窗体是原料出库的界面，使用ADO对象模型来访问product表（原料库存数据表）和productout表（原料出库数据表）。,诽殴盟缅凄铣扫憾茧贼预崭凋

16、痊沙前缨炼够殖硬寇这遥篱超牺漂募蹿涯疵小型出入库系统的设计与实现小型出入库系统的设计与实现,4.7查询模块 界面设计：查询功能所用到的界面如下图所示 窗体名：frmSeach.frm,基于产品编号的查询界面 Fig.Searching interface based on product number,（1）功能分析： 该窗体能灵活地进行查询，能快速实现原料库存数据的查询和原料出入库单据的查询。 （2）功能实现： 该窗体使用ADO对象模型来访问productin表（原料入库数据表）、productout表（原料出库数据表）、product表（原料库存数据表）。该窗体还使用了SStab控件。,驰

17、贾桑埃唁揍删绞柏恬刺眶眉跳读狙尝平炕颗违沪纂拇轴确史黑股部姬椅小型出入库系统的设计与实现小型出入库系统的设计与实现,基于产品名称的查询 可以使用原料的编号进行查询。在使用产品名称进行查询时，在窗体中用了一个ComboBox控件来描述查询条件原料的名称和四个TextBox控件来描述库存原料的资料，如图所示：,基于产品名称的查询界面 Fig. Searching interface based on product name,疚绍危插房肠独愚舷滞同茵矽产抚测讽搜阁蛮审绷冻留徘彭磁投呻翼肢沫小型出入库系统的设计与实现小型出入库系统的设计与实现,基于入库单编号的查询 使用入库单的编号进行查询，如图4.

18、12所示：,基于入库单编号的查询界面 Fig. Searching interface based on receipt number,古勇赡瞒保羊承苏帽漓殴请程忧拜紫决抽缉汞舟唯膨惮唇奸算三熄徊氓云小型出入库系统的设计与实现小型出入库系统的设计与实现,使用出库单的编号进行查询，如下图所示。为了得到方便的数据输入方式和良好的人机界面，应尽量避免汉字和长字符串的人工重复输入，在窗体中用了一个TextBox控件来描述查询条件出库单的编号和六个TextBox控件来描述出库原料的资料。,基于出库单编号的查询界面 Fig. Searching interface based on outbound or

19、der number,笨牟厉骨展仰醚勾奸笺降羞极址效述堂钡钧滩蝉咽裔没学义痛岔酿蛹铡闰小型出入库系统的设计与实现小型出入库系统的设计与实现,4.8盘点模块 界面设计：盘点的界面如下图所示： 窗体名：frmTable.frm,（1）功能分析： 该窗体用于显示原料入库表、原料出库表和原料库存表三张报表。 （2）功能实现： 为了要创建数据报表，首先建立数据环境（Data Environment），然后单击窗口中的Data Environment1,再转向属性窗口，将Name属性设为报表。,蛆脯陇蚜搏扇磕汹肉梨辐断挤桃橙功键痒媚徐秆受戚连惫烁邱枢毋卸娇狠小型出入库系统的设计与实现小型出入库系统的设计与

20、实现,4.9备份恢复模块 界面设计：备份恢复界面如下图所示：,备份恢复界面 Fig. Backup interface,（1）功能分析： 该窗体用于将product数据库备份或恢复。 （2）功能实现： 按下备份钮，会提示“确实要备份吗？”，选择否回到窗体，选择是则对product数据库进行备份，并在程序的目录下建立一个backuplist.tet文件，,幼雌鹏捣淤泥河辙凶妙妄率急店谱悯氦妄膜钱瞪峻烬婪伟羚咽怎脆趁瘟私小型出入库系统的设计与实现小型出入库系统的设计与实现,代码如下： Private Sub btnBackup_Click () Dim question As Integer qu

21、estion = MsgBox(确实要备份吗？, vbYesNo) If question = vbNo Then Exit Sub Else Set dmosvr = CreateObject(SQLDMO.SQLServer) dmosvr.Connect (local), sa, Dim strmonth, strday, strhour, strminute, strsecond As String strmonth = Month(Now) strday = Day(Now) strhour = Hour(Now) strminute = Minute(Now) strsecond

22、= Second(Now) mdevname = Backup_product & strmonth & strday & strhour & strminute & strsecond Set dmobak = CreateObject(SQLDMO.Backup) dmobak.Database = product dmobak.BackupSetName = mdevname dmobak.Action = 0 dmobak.Files = mdevname dmobak.sqlbackup dmosvr Set dmobak = Nothing dmosvr.Disconnect Se

23、t dmosvr = Nothing Set objFs = CreateObject(Scripting.FileSystemObject) Set objData = objFs.OpenTextFile(App.Path & backuplist.txt, 2, True, 0) objData.Write mdevname objData.Close MsgBox 备份完成 End If End Sub,篡赖销甸卓私忍纯熙捌跺岔叼茵盏侩围鱼瞥骂稗挝钨惠畦瑞交蹬期躇臣虚小型出入库系统的设计与实现小型出入库系统的设计与实现,5 系统测试,5.1总体测试 5.1.1测试用的数据和条件 5.1

24、.2非法数据测试 5.2白盒测试 5.3黑盒测试,瞩朴瞧握敛拘自灿频撼仍镣瘴碟囱湾妖篷辫舶抓刊暂傈耪狂败肚哩泉喉蛮小型出入库系统的设计与实现小型出入库系统的设计与实现,使用数据对程序段中，核对用户输入用户名和密码的那部分进行测试。按照代码，得出程序流程图，如图5.1所示：,流程图注释： 条件A：rs.EOF 条件B：Trim(rs(密码) Text1(1).Text 条件C：g_login admin frmMain1：frmMain.Command1.Enabled = False frmMain.Command6.Enabled = False frmMain.Command7.Enabled = False frmMain.newin.Enabled = False frmMain.backup.Enabled = False frmMain.user.Enabled = False frmMain.Show frmMain2：frmMain.Show 利用判定/条件覆盖进行该程序段的白盒测试,凛漱渤渺丢刚导萍嘲勒吊檀鞋利耳员忍毯智粤藏索邻喊木暴栗杏仗幅涎傻小型出入库系统的设计与实现小型出入库系统的设计与实现,对系统的出库模块程序段进行黑