库存管理系统

1、库存管理系统作者 : 潘鲲鹏指导老师 : 陈小玉 【摘要】随着现代工业的发展，计算机信息管理系统越来越受到企业重视。本文主要分析了 库存管理系统的一些基本功能和组成情况，包括系统的需求分析、系统结构，功能模块 划分以及数据库模式分析等，重点对应用程序的实际开发实现作了介绍。达到了数据的 一致性和安全性，且应用程序功能完备，符合了库存管理系统作为典型的信息管理系统 （MIS） 的要求。同时简单介绍了 Visual Basic 编程环境和 Access 数据库管理系统的功能 特点，库存管理系统是企业物流管理中不可或缺的一部分。 关键词：库存管理，数据库，信息管理， VB【关键词】库存管理，数据库，

2、信息管理， VB第一章 绪论库存管理系统是一个企事业单位不可缺少的一部分 , 它的内容对于企业的决策者和管理 者来说都是至关重要的，因此，库存管理系统应该能够为用户提供充足的信息和快捷的 查询手段，但一直以来人们使用传统的人工方式管理库存，这种管理方式存在着许多缺 点，诸如效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查找、 更新和维护都带来了不少的困难。作为计算机应用的一部分，使用计算机对产品库存信息进行管理，具有着人工管理无法 比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本 低等，可减少更多的人力物力，这些都能够极大地提高货品库存的管理效率，

3、也是企业 库存管理科学化、正规化，与世界接轨的重要条件。因此，开发一个库存管理系统是很 有必要的，具有其特有的技术意义和管理意义。1.1 管理信息系统的概述管理信息系统（简称MIS）是在管理科学、系统科学、计算机科学等的基础上发展起来的综合性边缘科学。 在 21 世纪信息高速发展的时代中， 管理信息系统具有很重要的作用， 它的预测和辅助决策的功能，即利用现代管理的决策和支持。管理信息系统是一个由人、机（计算机）组成的能进行管理信息的收集、传递、存储、 加工、维护和使用的系统。它能观测企业或组织的各种运动情况，利用过去的数据预测 未来；从全局出发辅助决策；利用信息控制企业或组织行为，帮助其实现长

4、远的规划目 标。简言之，管理信息系统是一个以计算机为工具，具有数据处理、预测、控制和辅助 决策功能的信息系统。管理信息系统是一个人机系统，同时它又是一个一体化集成系统。管理信息系统是信息 系统的一个子系统，它以计算机技术、通讯技术和软件技术为技术基础，同时将现代管 理理论、现代管理方法及各级管理人员融为一体，最终为某个组织整体的管理与决策服 务，是由人和计算机组成的能进行管理信息的收集、传递、存储、加工、维护和使用的 系统。管理信息系统的基本结构可以概括为四大部件，即信息源、信息处理器、信息用户和信 息管理者。因此，一个成功的管理信息系统应该具有可靠的硬件、实用的软件、强有力 的现代化管理水平

5、。具体讲，管理信息系统的三大支柱是：计算机网络、数据库和现代 化的管理，这三打支柱称为管理信息系统的扩展部件。第 - 1 - 页 （共 18 页 ）1.2 数据库应用系统开发简介 在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库的结构、开 发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。 数据库应用系统开发的目标是建立一个满足用户长期需求的产品。开发的主要过程为： 理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库， 并且这些数据库带有功能完备、高效能的应用。 数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于 60 年

6、代， 30 多年 来数据库技术得到了迅速发展，并已形成较为完整的理论体系和一大批实用系统。并且， 近年来，随着 World Wide Web(WWW) 的猛增及 Internet 技术的迅速发展，使得数据库技 术之时成为最热门技术之一。1.3 库存管理系统 当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛 应用于信息处理系统的环境。计算机最大的好处在于利用它能够进行信息管理，使用计 算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对复杂的 信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开 发密切相关，系统的开发是系统管

7、理的前提。1.3.1 国内外同类管理软件的研究现状与发展趋势 现在国内外对此类系统的开发与研究也是很有实用性的，基本上能满足各企业的自身特 点，来进行库存方面的管理，同时，改类系统又都在不断地深入与发展，来适用更多的 企业，一般都能运用于各个企业的库存管理，但是都没有针对大众的广泛应用，只能运 用某个企业或单位，这一点还有待于今后的进一步开发与实践。今后此类软件将会向条码库存管理系统发展，现阶段，伴随物流及管理信息化、网络化 的发展，应用条码技术进行库存管理、实现仓库作业自动化，将是一个必然的发展趋势， 也是需要迫切解决的一个现实问题。随着信息化技术的不断提高和应用的日渐普及，更 多的商品拥有

8、自己的条码，而且，使用条码化工作代替传统作业模式，减少了手工输入， 这样不但提高了作业效率，还能确保资料正确，并减少因人为失误所造成的损失。1.3.2 库存管理系统研究背景与意义 随着我国经济的飞速发展，各种类型规模的公司企业迅速崛起，许多从事生产和经营管 理的企业都有自己生产和销售的产品，而这些产品都需要储存在仓库中，对于每个企业 来说，随着企业规模的不断扩大，产品数量的急剧增加，所生产产品的种类也会不断地 更新与发展，有关产品的各种信息量也会成倍增长。面对庞大的产品信息量，如何有效 地管理库存产品，对这些企业来说是非常重要的，库存管理的重点是销售信息能否及时 反馈，从而确保企业运行效益。而

9、库存管理又涉及入库、出库的产品、经办人员及客户 等方方面面的因素，如何管理这些信息数据，是一项复杂的系统工程，充分考验着仓库 管理员的工作能力，工作量的繁重是可想而知的，所以这就需要由库存管理系统来提高 库存管理工作的效率，这对信息的规范管理、科学统计和快速查询，减少管理方面的工 作量，同时对于调动广大员工的工作积极性，提高企业的生产效率，都具有十分重要的 现实意义。第二章 数据库理论基础2.1 数据库系统设计 一个成功的信息管理系统，是建立在许多条件之上的，而数据库是其中一个非常重要的 条件和关键技术。信息管理系统所涉及的数据库设计分五个步骤：数据库需求分析、概 念设计、逻辑设计、物理设计与

10、加载测试。（ 1） 数据库需求分析的任务是将业务管理单证流化为数据流，划分主题之间的边界，绘制出 DFD 图，并完成相应的数据字典。（ 2 ） 概念设计的任务是从 DFD 出发，绘制出本主题的实体关系图，并列出各个实体 与关系的纲要表。（ 3 ） 逻辑设计的任务是从 E-R 图与对应的纲要表出发，确定各个实体及关系的表名属 性。（ 4） 物理设计的任务是确定所有属性的类型、 宽度与取值范围， 设计出基本表的主键 ， 将所有的表名与字段名英文化（现在很多软件能支持中文字段，如 Access 2000 ），实 现物理建库，完成数据库物理设计字典。（ 5 ） 加载测试工作贯穿于程序测试工作的全过程，

11、整个录入、修改、查询、处理工作 均可视为对数据库的加载测试工作。2.2 SQL 语言介绍2.2.1 SQL 基础SQL（Structured Query Language ，结构查询语言 ） 是一个功能强大的数据库语言。使用SQL 的常见关系数据库管理系统有：Oracle、Sybase、Microsoft SQLServer、Access、Ingres等等。虽然绝大多数的数据库系统使用SQL,但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的SQL命令，比如"Select" 、"I nsert"、"Update" 、

12、 "Delete" 、 "Create" 和 "Drop" 常常被用于完成绝大多数数据库的操作。2.2.2 SQL 语句SQL语句概括起来可以分为数据操作语言，数据定义语言和数据控制语言几大组，它们 用于对数据库数据的查询，修改和更新，是一种完备的数据处理语言。主要用到的数据 操作语言主要是：SELECT:用于数据检索；INSERT: 用于增加数据到数据库；UPDATE:用于从数据库中修改现存的数据； DELETE: 用于从数据库中删除数据。第三章 应用系统开发工具3.1 Visual Basic 简介及实现原理Visual Basi

13、c （简称 VB）是美国微软公司（Microsoft ）于1990年推出的一套完整的Windows 系统软件开发工具，可用于开发Windows 环境下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的结构化高级程序设计语言和工具，是目前使用最广泛 的编程语言之一。至今以升级到了6.0 版。VB 的重要特点之一是可视性。系统引进了窗体和控件的机制，用于设计应用程序界面。 用户通过在屏幕上生成窗体，在窗体中绘制所需要的控件和按钮，设计菜单和对话框，VB 会自动生成相应的代码。 大大降低了对程序设计的要求，提高了应用程序的开发效率。3.2 数据库组件介绍在使用 Visual Basic 开发数

14、据库应用程序的时候，会经常使用数据库访问控件。这些控 件包括： Data 控件； ADO Data 控件； DataList 控件 /DataCombo 控件； DataGrid 控件； MSChart 控件。面将分别对这些控件的主要功能及使用方法进行介绍。3.2.1Data 控件Data 控件是 Visual Basic中最基本的数据库操作控件。它使用 Recordset 对象提供对存储在数据库中数据的访问。 Data 控件允许从一个记录移动到另一个记录，并显示和操 纵来自被连接控件的记录的数据。 许多其他的数据库操作控件都需要 Data 控件或类似的 数据源控件。3.2.2 ADO Dat

15、a 控件ADOData控件与内部 Data控件以及 Remote Data控件（RDQ相似。用户可以使用 ADOData 控件快速地创建一个到数据库的连接。3.2.3 DataList 控件 /DataCombo 控件DataList 控件是一个数据绑定列表框，它可以自动地由一个附加数据源中的一个字段充 填，并且可选择地更新另一个数据源中一个相关表的一个字段。DataCombo 控件的功能与 DataList 控件完全相同，只不过 DataCombo 控件是一个组合框。3.2.4 DataGrid 控件在许多情况下，需要使用表格形式来显示数据库中的数据。这时就要借助于DaatGrid 控件。用

16、户可以设置 DataGrid 控件的 DataSource 属性为一个 ADO Data 控件，从而将 ADO Data 中的数据自动地填充到 DataGrid 表格中。这个 DataGrid 控件实际上是一个固定的 列集合，每一列的行数都是不确定的。3.2.5 MSChart 控件MSChart 控件的功能是以图形方式显示数据的图表。这会使枯燥的数据变得更加生动直 观，增加了程序的实用价值。3.3 SQL 语言在 VB中的应用1.SQL 提供的实用函数为实现使用 VB程序调用 SQL语言访问 Access数据库多个记录的目的，我们利用SQL提供的函数。 Davg Function Dcoun

17、t Function Dfirst Function Dlast Function Dlookup Function Dsum Function Dmax Function Dmin Function（求平均值）（计算满足条件的记录数）（返回记录集的第一个记录的某个域值）（返回记录集的最后一个记录的某个域值）（返回记录集中满足待定条件的记录的域值）（求和计算）（求最大值）（求最小值）利用以上的 SQL函数能够方便地进行数据库文件记录地查询和统计工作。2. 利用 SQL 访问多个记录地方法 在进信息查询和统计地过程中，我们往往需要从记录集中根据待定的条件提取其中的一部分记录信息。这种改变基于数据

18、库关系视图的记录集，这里我们介绍提取记录信息的 有效方法。建立一个新的查询set mydb=Open Database（ “ c:DIR1manage.mdb” ）（打开数据库文件 c:DIR1manage.mdb ）set myquery=mydb.creat QueryDef（“ monthquery ”）（ 创建查询名为 monthquery 的查询）Myquery.SQL= select*from OPNRPT where mid$(year,7,2)='” &yeartext.text &(利用查询的 SQL属性，建立查询依据，即查询的条件。这里用到了Sete

19、ct Stateme nt)以后如果需要这样的查询，只需要引用查询名”monthquery ”即可。需要说明的两点是：使用前先定义 Dim mydb AS Database 及 myquery AS querydef. 查询”monthquery ”没有使用 Data控件，也就不直接显示信息。3.4 Access 2000 简述Access2000 是关系数据库开发工具，1992年，Microsoft Access作为第一个面向Windows操作平台的桌面数据库管理系统而诞生，它不但充分体现了面向对象的思想，提供可视化的编程手段，而且充分利用了Windows操作平台的优越性，采用与Window

20、s完全一致的界面风格，使界面非常友好。第四章库存管理系统设计分析4.1需求分析库存管理系统需满足仓库管理员及工作人员的需求，他们具有登陆应用系统的权限，所以需要对工作人员的登陆本模块进行更多的考虑，设计不同用户的操作权限和登陆方法。4.2模块划分库存管理系统综 合 管 理短线货品管理货品库存管理货品信息管理基本模块与功能：计1. 系统包括用户管理，密码管理，关闭系统，以及数据的备份与恢复。2. 库存管理货品信息管理：对仓库里的货品进行登记； 货品库存管理：管理仓库的库存情况；3. 入库管理入库登记管理：能对货品的入库登记，删除，更改等。4. 出库管理对货品出库期间的年度统计，出库登记，及收获单

21、位金额统计等;5. 盘存管理数据流程图：系统仓库管理入库管理出库管理附项分类汇总计算库存汇总历史数据管理数据备份备份输出4- 1库存管理数据流程图4.3数据库设计本库存管理系统是应用在单机系统上的，只需建立起一个数据库，在此数据库基础上建 立起表格，现将部分数据结构表描述如下：货品信息表字段名数据类型字段长度是否为空货品编码文本5货品名称文本10类别文本8型号文本4单位文本2仓库编码文本5存放仓库文本12入库计划单价货币出库计划单价货币原始库存数字长整型默认货位文本5警戒底线库存数字长整型警戒咼线库存数字长整型入库登记表表1货品信息表字段名数据类型字段长度是否为空入库日期日期/时间入库单号文本

22、10货物编码文本5数量数字长整型进货价货币总额货币已付货款货币供货单位编码文本5供货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注表2入库登记表 出库登记表字段名数据类型字段长度是否为空出库日期日期/时间出库单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币出货价货币总额货币已收获款货币收货单位编码文本5收货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注表3货品出库表字段名数据类型字段长度是否为空UserID文本10userPWD文本6第五章应用程序设计5.1程序结构表7用户表本应用程序由 33个窗体组成，主要的分别是：主窗体，欢迎界面

23、，登陆窗体，入库窗体, 出库窗体，库存汇总，打印及查询等窗体组成。5.2程序源代码程序实现的部分代码如下：公共模块Public date1 As StringPublic date2 As StringPublic gUserName As String ' 保存用户名 ' 添加执行 SQL 语句的函数Public Function transactSQL(ByVal sql As String) As ADODB.RecordsetDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConnection As

24、StringDim strArray() As StringSet con = New ADODB.Connection ' 创建连接Set rs = New ADODB.Recordset ' 创建记录集库存管理On Error GoTo TransactSQL_Errorkucun.mdb"strArray = Split(sql)con.Open strConnection ' 打开连接If StrComp(UCase$(strArray(0), "select", vbTextCompare) = 0 Then rs.Open Tr

25、im$(sql), con, adOpenKeyset, adLockOptimisticSet transactSQL = rs' 返回记录集iflag = 1Elsecon.Execute sql ' 执行命令 iflag = 1End IfTransactSQL_Exit:Set rs = NothingSet con = NothingExit FunctionTransactSQL_Error:MsgBox " 查询错误： " & Err.Descriptioniflag = 2Resume TransactSQL_ExitEnd Func

26、tion主窗体的程序代码 Pt存苣程忝址Tl'n lxPrivate Sub a1_Click()Forml.ShowEnd SubPrivate Sub a5_Click()'Load main _sjbfmain _sjbf.Showmain.En abled = FalseEnd SubPrivate Sub a6_Click()'Load main _sjhfmain _sjhf.Showmain .HideEnd SubPrivate Sub b1_Click() frm货品信息.ShowEnd SubPrivate Sub b12_Click()sql =

27、"select * fromfrmProI nfo.createList (sql)frmProI nfo.ShowEnd SubPrivate Sub b2_Click() frm货品库存.ShowEnd SubPrivate Sub B3_Click() frm超储货品.ShowEnd SubPrivate Sub b4_Click()调入数据备份调入数据恢复货品信息 order by 货品编码frm 短线货品 .ShowEnd SubPrivate Sub c1_Click()frm 入库登记 .ShowEnd SubPrivate Sub c2_Click()frm 货品入库

28、年度统计 .ShowEnd SubPrivate Sub c3_Click()frm 供货单位供货分类金额统计 .ShowEnd SubPrivate Sub c4_Click()frm 供货单位年度供货金额统计 .ShowEnd SubPrivate Sub Command1_Click()date1 = Text1.Text & "/" & Text3.Text & "/" & Text2.Text date2 = Text6.Text & "/" & Text4.Text &

29、; "/" & Text5.Text Text7.Text = date1End SubPrivate Sub d1_Click()frm 出库登记 .ShowEnd SubPrivate Sub d2_Click()frm 货品出库年度统计 .ShowEnd SubPrivate Sub d3_Click()frm 收货单位期间收货统计 .ShowEnd SubPrivate Sub d4_Click()frm 收货单位年度收货金额统计 .ShowEnd SubPrivate Sub e1_Click()frm 盘存录入 .ShowEnd SubPrivate S

30、ub e2_Click()frm 盘存表 .ShowEnd SubPrivate Sub f1_Click()frm 货品出入汇总表 .ShowEnd SubPrivate Sub g1_Click()frm 经办人员 .ShowEnd SubPrivate Sub g2_Click()frm 供货单位 .ShowEnd SubPrivate Sub g3_Click()frm 仓库信息 .ShowEnd SubPrivate Sub g5_Click()Form6.ShowEnd SubPrivate Sub h1_Click()frm 历史库存 .ShowEnd SubPrivate Su

31、b h2_Click()frm 历史入库 .ShowEnd SubPrivate Sub h3_Click()frm 历史出库 .ShowEnd SubPrivate Sub i1_Click()DataReport1.ShowEnd SubPrivate Sub i2_Click()DataReport2.ShowEnd SubPrivate Sub i3_Click()DataReport3.ShowEnd SubPrivate Sub j1_Click()Form2.ShowEnd SubPrivate Sub j2_Click()Form3.ShowEnd SubPrivate Sub

32、 j3_Click()Form4.ShowEnd SubPrivate Sub j4_Click()Form5.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.KeyCase Is = "rk" ' 调入入库登记 c1_ClickCase Is = "ck" ' 调入出库登记 d1_ClickCase Is = "kchz" ' 调入库存汇总 f1_ClickCase

33、Is = "zhcx" ' 调入组合查询 j4_ClickCase Is = "sjbf" ' 调入数据备份 a5_ClickEnd SelectEnd SubPrivate Sub x_Click()EndEnd Sub登陆模块的实现Private Sub cmdLogin_Click() denlu_name = txtUserName.Text denlu_pass = txtPassword.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet

34、 myrs = New ADODB.Recordsetmycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kucun.mdb;" myrs.Open "SELECT * FROM 用户 where userID='" + denlu_name + "'", mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox " 查无此人 "

35、;, , " 登陆信息 "ElseIf myrs("userPWD") = denlu_pass ThennnnnnnnnnnnnnnnnnnnnnMsgBox " 身份正确 ", , " 登陆信息 " main.ShowUnload MennnnnnnnnnnnnnnnnnninnnnnnElseMsgBox " 密码不正确 ", , " 登陆信息 "End IfEnd IfEnd Sub 货品入库登记模块的实现HFX入阵登记入障日期.进货价.供赁单位褊码軽办人鏑码.货厠编

36、码:已付贺歎:増值建率.备注： f磅加® I 更新 I H I 4 iKrriJ 1 5-3入库登记窗口Private Sub Form_Unl oad(Ca ncel As In teger)Scree n.M ousePo in ter = vbDefaultEnd Sub'为这个recordset显示当前记录位置datPrimaryRS.Captio n = "Record: " &CStr(datPrimaryRS.Recordset.AbsolutePositio n)End Sub'下列动作发生时该事件被调用Dim bCa nc

37、el As Boolea nSelect Case adReas onCase adRs nAddNewCase adRs nCloseCase adRs nDeleteCase adRs nFi rstCha ngeCase adRs nMoveCase adRs nRequeryCase adRs nRes ynchCase adRs nUn doAddNewCase adRs nUn doDeleteCase adRs nUn doUpdateCase adRs nUpdateEnd SelectIf bCa ncel Then adStatus = adStatusCa ncelEnd

38、 SubPrivate Sub cmdAdd_Click()On Error GoTo AddErrdatPrimaryRS.Recordset.AddNewExit SubAddErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErrWith datPrimaryRS.Recordset.Delete.MoveNextIf .EOF The n .MoveLastEnd WithExit SubDeleteErr:MsgBox Err.Descriptio nEnd SubPr

39、ivate Sub cmdRefresh_Click() '只有多用户应用程序需要On Error GoTo RefreshErrdatPrimaryRS.RefreshExit SubRefreshErr:MsgBox Err.Descriptio nEnd Sub出库登记模块的实现5-4出库登记窗口Private Sub Form_Unl oad(Ca ncel As In teger)Scree n.M ousePo in ter = vbDefaultEnd Sub'下列动作发生时该事件被调用Dim bCa ncel As Boolea nSelect Case adR

40、easonCase adRsnAddNewCase adRsnCloseCase adRsnDeleteCase adRsnFirstChangeCase adRsnMoveCase adRsnRequeryCase adRsnResynchCase adRsnUndoAddNewCase adRsnUndoDeleteCase adRsnUndoUpdateCase adRsnUpdateEnd SelectIf bCancel Then adStatus = adStatusCancelEnd SubPrivate Sub cmdAdd_Click()On Error GoTo AddEr

41、r datPrimaryRS.Recordset.AddNew Exit SubAddErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click()On Error GoTo DeleteErrWith datPrimaryRS.Recordset .Delete.MoveNextIf .EOF Then .MoveLastEnd WithExit SubDeleteErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click()' 只有多用户应用程序需要 On

42、Error GoTo RefreshErr datPrimaryRS.Refresh Exit SubRefreshErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAllExit SubUpdateErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click()Unload MeEnd Sub第六章 设计总结由于以前对 Visu

43、al Basic 6.0 的接触并不是很多，对它的开发环境不是非常了解，所以 在程序的开发过程中遇到了很多的困难，但经过同学和指导老师的帮助，一一化解了困 难，并从中学到了很多编程方面的知识。但是由于经验方面的原因，以及对库存方面的 操作流程了解不足，该系统还有许多不尽如人意的地方和功能上的缺陷，这些都有待于 进一步改善。在本次毕业设计中，我从指导老师陈小玉老师身上学到了很多东西，陈老师认真负责的 工作态度，无论在理论上还是实践中，她都给予我很大的帮助，是我得到不少的提高， 相信对我以后的工作和学习都会有很大的帮助，感谢她细心而耐心的辅导。参考文献1 汉清计算机工作室 , Visual Basic 6.