进销存管理系统的设计与实现

进销存管理系统的设计与实现目录0引言………………11系统设计开发………………11.1系统设计目的………………11.2系统设计需求…………………11.3系统设计软件…………………31.4系统设计总览…………………32系统数据表设计……………42.1数据库总列表…………………42.2数据库表字段及说明……………52.3数据库表关系图……………53系统界面与功能…………63.1登入界面…………………63.2操作界面…………………73.2.1操作界面…………？？？4系统设计总结……………………275结束语……………27

摘要：本文从需求分析、可行性分析等方面进行了系统分析；在此基础上对系统进行了系统设计和系统实施。在系统设计阶段，利用E-R图描述数据库的概念结构，形成了ACCESS支持的数据库逻辑结构；同时对系统功能进行了详细的分析，总结、归纳出商品库存管理系统各个功能模块。本系统采用面向对象程序设计的思想，利用VB编程语言、使用ACCESS2021作为后台数据库管理系统进行了系统开发、设计。本系统完成了对交易方信息管理、合同信息管理、员工信息管理、商品信息管理、仓库库存管理、采购销售单据管理等方面。系统具备对各类信息进行查询、添加、删除、修改等功能。本系统中设计了一系列的类，用于实现对各个数据库表的操作。关键词：数据库Access信息管理进销存0引言随着世界经济的发展，各企业及组织在交易频繁化、品种多样化、区域广泛化、手续明细化上不断提升。使得每次交易过程中总要面对大量的商品数据（供应商、收购商、收购量、销售量、等）统计、查询和处理。手工记账对于不断增加的商品形成数据量大、复杂和多样从而造成了数据的归档慢、统计工作繁杂、汇总分析不及时，又容易会出现遗漏及登记错误，往往在月底结账时就应一个小数点而要进行整月的账目盘查，对一点错误就要全部重新记账等。而且在日后数据资料的查看和管理相当不便。就各界企业和组织的后台管理需求的不断提高，很多管理者开始使用计算机电子表格处理大量数据管理，此时也逐步进入了商品信息化的时代。在商场激烈竞争的推动下，管理者为了提高工作效率及市场竞争力对于信息源的准确性、可靠性、及时性，信息处理的速度、完整度，以及数据分析整合能力等要求也有了很大的提高，进而出现了ERP系统，【ERP（EnterpriseResourcePlanning）：是由美国GartnerGroup咨询公司在1993年首先提出的，作为当今国际上一个最先进的企业管理模式,它在体现当今世界最先进的企业管理理论的同时，也提供了企业信息化集成的最佳解决方案。其主要宗旨是对企业所拥有的人、财、物、信息、时间和空间等综合资源进行综合平衡和优化管理，协调企业各管理部门，围绕市场导向开展业务活动，提高企业的核心竞争力，从而取得最好的经济效益。】随着ERP的推出，各企业也为本身需求定制了有针对性的管理软件。进销存管理系统是为了更好满足企业的切实需要和方便企业管理商品贸易数据而开发的数据库管理软件。根据企业的实际要求，即实现各项信息的添加、删除、查询、修改等几方面功能。进销存管理系统可以帮助企业方便快捷地管理繁琐的贸易数据。提高企业的管理水平和综合分析能力。1系统分析1.1系统设计目的企业的商品物资管理往往都是复杂繁琐的，由于商品物资种类品项繁多，进销渠道各有相异，各企业之间甚至同一集团内部的管理体制也尽有差异，因此必须根据企业具体情况制定相适的系统以便更好地提高工作效率。1.2系统设计需求1.2系统设计需求根据贸易企业基本的商品物资管理程序，一般制定为签署采购合同，执行合同发出订货单，根据订购单验收、审核入库，签署销售合同，根据对方订货单开具销售单，销售单审核出库等，概括分为基本信息、采购、销售、仓库及财务审核。为提高操作人员工作效率，系统设计需：1.简洁明了的人机界面。2.根据操作员特性的权限分类。3.客户及商品信息的添加、修改、删除、查询功能。4.仓库库存的查询功能。5.商品的采购及销售功能。1.3系统设计软件MicrosoftAccess是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。Access是一种关系型数据库管理系统，其主要特点如下：（1）存储方式单一Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。（2）面向对象Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。（3）界面友好、易操作Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。（4）集成环境、处理多种数据信息Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。（5）Access支持ODBC（开发数据库互连，OpenDataBaseConnectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。VisualBasic（VB）是由微软公司开发的包含协助开发环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程式开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。VisualBasic的特点1.具有面向对象的可视化设计工具2.事件驱动的编程机制3.结构化的程序设计语言4.提供了易学易用的应用程序集成开发环境5.支持多种数据库系统的访问6.高度可移植化的代码7.VB6.0在开发环境上,网络功能等的大大增强1.4系统功能模块登入界面登入界面操作界面信息管理业务管理财务管理仓库管理系统管理商品信息交易方信息合同信息仓库信息员工信息单据填开查询全部单据查询未复核单据查询已复核单据查询已处理单据单据复核查询全部单据查询未复核单据查询已复核单据查询已处理单据单据处理查询全部单据查询未复核单据查询已复核单据查询已处理单据修改密码添加账号账号修改图1系统设计图2数据库设计2.1数据库总列表序号表名称（按拼音排列）说明1仓库信息仓库名称及所在地2单据管理单据序号及开具资料3单据明细对应单据号的商品明细4合同信息合同号及签署明细5交易方信息交易往来的公司明细信息6库存管理仓库库存状况7权限管理权限名称及概述8商品信息商品名称单位等9员工信息员工资料10账号管理登入操作的账号资料2.2数据库表字段及说明1.仓库信息序号字段名字段类型长度属性说明1仓库名文本（50）主键仓库名称无重复2所在地址文本（50）默认对应仓库详细地址2.单据管理序号字段名字段类型长度属性说明1单据号自动编号（长整型）主键递增无重复2对方公司文本（50）默认对应所选合同的对方公司3制单日期文本（50）默认对应制单日期4合同号文本（50）默认对应制单所选合同5办理人文本（50）默认对应登入人员6单据类型文本（50）默认销售或采购7状态文本（50）默认未复核、已复核、已处理3.单据明细序号字段名字段类型长度属性说明1自动编号自动编号（长整型）主键递增无重复2单据号文本（50）默认所属单据号3货品名文本（50）默认商品名4数量数字（长整型）默认商品数量5单价货币（货币）默认商品单价6单位文本（50）默认计量单位7仓库文本（50）默认所操作的仓库8状态文本（50）默认未复核、已复核、已处理4.合同信息序号字段名字段类型长度属性说明1合同号文本（50）主键无重复2客户名称文本（50）默认对方公司抬头3启用日期文本（50）默认合同执行起始日期4结束日期文本（50）默认合同执行结束日期5货品名文本（50）默认商品名称6合同数量数字（长整型）默认预计数量7实际数量数字（长整型）默认实际已产生数量8计量单位文本（50）默认商品计量单位9经办人文本（50）默认办理人10执行状态是/否默认合同完成状态11交易类型文本（50）默认销售或采购5.交易方信息序号字段名字段类型长度属性说明1公司全名文本（50）默认公司名称2公司税号文本（50）主键公司税号3开户行文本（50）默认银行名称4银行账号文本（50）默认银行账号5公司地址文本（50）默认公司地址6联系文本（50）默认联系7交易类型文本（50）默认销售或采购6.库存管理序号字段名字段类型长度属性说明1编号自动编号（长整型）主键递增无重复2货品编号文本（50）默认货品编号3货品名文本（50）默认货品名称4库存数量文本（50）默认库存数量5单位文本（50）默认计量单位6所在仓库文本（50）默认所在仓库7.权限信息序号字段名字段类型长度属性说明1权限文本（50）默认权限2说明文本（50）默认性质说明8.商品信息序号字段名字段类型长度属性说明1编号自动编号（长整型）主键递增无重复2货品编号文本（50）默认货品编号3货品名文本（50）默认货品名称4产地文本（50）默认生产地5规格单位文本（50）默认计量单位9.员工信息序号字段名字段类型长度属性说明1编号自动编号（长整型）默认递增无重复2员工编号文本（50）主键无重复3姓名文本（50）默认姓名4性别文本（50）默认性别5年龄文本（50）默认年龄6家庭地址文本（50）默认家庭地址7出生日期文本（50）默认出生日期8部门文本（50）默认部门9职位文本（50）默认职位10学历文本（50）默认学历10.账号管理序号字段名字段类型长度属性说明1账号文本（50）主键无重复2密码文本（50）掩码*密码3权限文本（50）默认权限4员工编号文本（50）默认员工编号5注册日期文本（50）默认注册日期6登入状态文本（50）默认是/否2.3数据库表关系图如图2单据关系说明：交易方信息-公司名称连接合同信息-客户名称，合同信息-合同号连接单据管理-合同号，单据管理-单据号连接单据明细-单据号，单据明细-货品名连接库存管理-货品名，库存管理-货品编号连接商品信息-货品编号，商品信息-货品名连接合同信息货品名，合同信息-经办人连接员工信息姓名，员工信息-员工编号连接账号管理-员工编号，账号管理权限连接权限管理-权限。图2数据库表关系图3系统实施3.1登入界面登入操作界面如图3：该界面操作在账号密码对应的输入框内输入正确的账号密码，点击登入按钮可进入操作界面。如账号与对应的密码有误则弹出"账号或密码错误!"对话框。如账号为空则弹出"用户名不能为空!"对话框。图3登入界面图（1）使用控件控件类型名称属性控件功能窗体登入界面插入背景002.jpg默认标签Label更改字体默认文本框Text1默认输入登入账号文本框Text2设置掩码输入登入密码命令按钮Command2默认当登入账号与登入密码匹配时，点击进入操作页面，不匹配则有错误提示命令按钮Command10默认点击关闭（2）使用表表名称表类型字段名称账号管理表账号、密码、权限、员工编号、注册日期、登入状态（3）窗体命令代码初始建立变量conn/rsOptionCompareDatabaseOptionExplicitDimconnAsADODB.ConnectionDimrsAsADODB.Recordset命令按钮command2单击登入PrivateSubCommand2_Click()IfIsNull(Me.text1)OrMe.text1=""ThenMsgBox"用户名不能为空!",vbQuestionExitSubEndIfSetconn=CurrentProject.ConnectionSetrs=NewADODB.Recordsetrs.Open"账号管理",conn,adOpenDynamic,adLockBatchOptimisticrs.MoveFirstDoWhileNotrs.EOFIfrs!账号=Me.text1Andrs!密码=Me.text2ThenMsgBox"登入成功!",vbQuestionzhanghao=Me.text1rs.UpdateDoCmd.CloseacForm,Me.NameDoCmd.OpenForm"操作界面"ExitSubExitDoEndIfrs.MoveNextLooprs.Updaters.CloseMsgBox"账号或密码错误!",vbQuestionEndSub命令按钮command3单击退出程序PrivateSubCommand10_Click()OnErrorGoToErr_Command10_ClickDoCmd.QuitExit_Command10_Click:ExitSubErr_Command10_Click:MsgBoxErr.DescriptionResumeExit_Command10_ClickEndSub3.2操作界面完成登入后进入操作界面如图4：操作界面是进行各项功能进行操作的界面，主要由选项卡进行页切换，点击选项卡上的页标签可以进入对应的操作页。同时对于登入账号的权限，可进行操作的选项卡页标签也有所不同。图4操作界面图（1）使用控件控件类型名称属性控件功能窗体操作界面插入背景001.jpg默认标签welcome默认登入账号+欢迎使用选项卡选项卡控件20默认根据登入账号权限显示对应可执行的标签，点击选项卡标签，切换选项卡页。命令按钮Exit2默认单击关闭（2）使用表表名称表类型字段名称账号管理表账号、密码、权限、员工编号、注册日期、登入状态（3）窗体命令代码建立初始变量OptionCompareDatabaseDimconnAsADODB.ConnectionDimrsAsADODB.Recordset[退出按钮]Exit2PrivateSubexit2_Click()OnErrorGoToErr_exit2_ClickDoCmd.QuitExit_exit2_Click:ExitSubErr_exit2_Click:MsgBoxErr.DescriptionResumeExit_exit2_ClickEndSub登入账号权限PrivateSubForm_Load()welcome=zhanghao+"欢迎使用!!"Text=zhanghaoSetconncl_qx=CurrentProject.ConnectionSetcl_qx=NewADODB.Recordsetcl_qx!.Open"账号管理",conncl_qx,adOpenDynamic,adLockOptimisticcl_qx!.MoveFirstDoWhileNotcl_qx.EOFIfcl_qx!账号=Text.TextThenIfcl_qx!权限="管理"ThenMe.仓库管理.Visible=TrueMe.财务管理.Visible=TrueMe.系统管理.Visible=TrueMe.业务管理.Visible=TrueMe.信息管理.Visible=TrueEndIfElseIfcl_qx!权限="财务"ThenMe.仓库管理.Visible=FalseMe.财务管理.Visible=TrueMe.系统管理.Visible=FalseMe.业务管理.Visible=FalseMe.信息管理.Visible=TrueEndIfElseIfcl_qx!权限="仓库"ThenMe.仓库管理.Visible=TrueMe.财务管理.Visible=FalseMe.系统管理.Visible=FalseMe.业务管理.Visible=FalseMe.信息管理.Visible=TrueEndIfElseIfcl_qx!权限="业务"ThenMe.仓库管理.Visible=FalseMe.财务管理.Visible=FalseMe.系统管理.Visible=FalseMe.业务管理.Visible=TrueMe.信息管理.Visible=TrueEndIfExitDoEndIfcl_qx!.MoveNextLoopcl_qx!.CloseEndSub3.2.1信息管理页商品信息管理点击信息管理页标签进入商品信息管理，如图5：在商品编号、货品名、计量单位、产地对应的文本输入框中填入相应信息，单击添加按钮可在数据库内添加该信息，同时在左面列表框中显示现有信息，如编号有重复则提示"此编号已使用请更改"，如有未填项则显示"请完整填写信息"。点击左面列表框中信息，会在商品编号、货品名、计量单位、产地对应的文本框中显示其资料，可对货品名、计量单位、产地的信息通过修改按钮或删除按钮进行修改删除，同时更新列表框。修改删除按钮是通过货品编号确认，如有不符则提示"无此编号请确认"。图5商品信息管理页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认标签Lable32字体修改默认标签Lable16默认默认标签Lable18默认默认标签Lable20默认默认标签Lable22默认默认文本框Text01默认输入商品编号文本框Text02默认输入商品名称文本框Text03默认输入计量单位文本框Text04默认输入商品产地列表框List01商品信息点击列表项，将在TEXT对应控件中显示该项详细。命令按钮Command01默认将控件TEXT的内容相对应的添加到商品信息表。如商品编号有重复将弹出提示。更新List01内容。命令按钮Command02默认将控件TEXT的内容在商品信息表中相对应的项目进行修改。如有商品编号不符将弹出信息。更新List01内容。命令按钮Command03默认对与控件TEXT的内容在商品信息表中相同的项目进行删除。如有商品编号不符将弹出信息。更新List01内容。（2）使用表表名称表类型字段名称商品信息表编号、货品编号、货品名、产地、规格单位（3）窗体命令代码添加按钮添加新商品PrivateSubCommand01_Click()Setconn00=CurrentProject.ConnectionSetrs00=NewADODB.Recordsetrs00.Open"商品信息",conn00,adOpenDynamic,adLockOptimisticIfIsNull(Me.Text01)OrIsNull(Me.Text02)OrIsNull(Me.text03)OrIsNull(Me.Text04)ThenMsgBox("请完整填写信息"),vbOKOnly,"提示"ExitSubEndIfIfrs00.BOFOrrs00.EOFThenrs00.AddNewrs00!货品编号=Me.Text01rs00!货品名=Me.Text02rs00!规格单位=Me.text03rs00!产地=Me.Text04rs00.Updaters00.CloseMsgBox("成功添加新商品"),vbOKOnly,"提示"List01.RequeryElsers00.MoveFirstDoWhileNotrs00.EOFIfrs00!货品编号=Me.Text01ThenMsgBox("此编号已使用请更改"),vbOKOnly,"提示"Me.Text01.SetFocusText01.Value=""ExitSubExitDoEndIfrs00.MoveNextLooprs00.AddNewrs00!货品编号=Me.Text01rs00!货品名=Me.Text02rs00!规格单位=Me.text03rs00!产地=Me.Text04rs00.Updaters00.CloseMsgBox("成功添加新商品"),vbOKOnly,"提示"List01.RequeryEndIfEndSub修改按钮修改商品信息PrivateSubCommand02_Click()Setconn00=CurrentProject.ConnectionSetrs00=NewADODB.RecordsetDimi02AsIntegeri02=0rs00.Open"商品信息",conn00,adOpenDynamic,adLockOptimisticIfIsNull(Me.Text01)ThenMsgBox("请填入货品编号"),vbOKOnly,"提示"ExitSubEndIfrs00.MoveFirstDoWhileNotrs00.EOFIfrs00!货品编号=Me.Text01Thenrs00!货品名=Me.Text02rs00!规格单位=Me.text03rs00!产地=Me.Text04rs00.UpdateMsgBox("成功修改此商品"),vbOKOnly,"提示"i02=1List01.RequeryExitDoEndIfrs00.MoveNextLoopIfi02=0ThenMsgBox("无此编号请确认"),vbOKOnly,"提示"Me.Text01.SetFocusText01.Value=""EndIfEndSub删除按钮删除商品PrivateSubCommand03_Click()Setconn00=CurrentProject.ConnectionSetrs00=NewADODB.RecordsetDimi03AsIntegeri03=0rs00.Open"商品信息",conn00,adOpenDynamic,adLockOptimisticIfIsNull(Me.Text01)ThenMsgBox("请填入货品编号"),vbOKOnly,"提示"ExitSubEndIfrs00.MoveFirstDoWhileNotrs00.EOFIfrs00!货品编号=Me.Text01Thenrs00.Deleters00.UpdateMsgBox("成功删除此商品"),vbOKOnly,"提示"i03=1List01.RequeryExitDoEndIfrs00.MoveNextLoopIfi03=0ThenMsgBox("无此编号请确认"),vbOKOnly,"提示"Me.Text01.SetFocusText01.Value=""EndIfEndSub交易方信息管理点击交易方信息按钮进入交易方信息管理页，如图6：此页操作功能一基本相同。图6交易方信息管理页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认标签Lable48字体修改交易方信息管理标签Lable35默认公司全名：标签Lable37默认公司税号：标签Lable39默认银行名称：标签Lable41默认银行账号：标签Lable98默认公司地址：标签Lable100默认联系：标签Lable155默认交易类型：文本框Text11默认输入公司全名文本框Text12默认输入公司税号文本框Text13默认输入银行名称文本框Text14默认输入银行账号文本框Text15默认输入公司地址文本框Text16默认输入联系组合框Text17默认选择交易类型列表框List11交易方信息点击列表项，将在TEXT对应控件中显示该项详细。命令按钮Command11默认将控件TEXT的内容相对应的添加到交易方信息表。如公司税号有重复将弹出提示。更新List11内容。命令按钮Command12默认将控件TEXT的内容在交易方信息表中相对应的项目进行修改。如有公司税号不符将弹出信息。更新List11内容。命令按钮Command13默认对与控件TEXT的内容在交易方信息表中相同的项目进行删除。如有公司税号不符将弹出信息。更新List11内容。（2）使用表表名称表类型字段名称交易方信息表公司全名、公司税号、开户行、银行账号、公司地址、联系、交易类型（3）窗体命令代码添加删除指令代码与类似。合同信息管理点击合同信息按钮进入合同信息管理页，如图6：此页操作功能一基本相同。图7合同信息管理页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认标签Lable64字体修改合同信息管理标签Lable51默认合同号：标签Lable53默认对方名称：标签Lable55默认启用日期：标签Lable57默认结束日期：标签Lable174默认货品名：标签Lable111默认交易数量：标签Lable113默认计量单位：标签Lable115默认签办人：标签Lable157默认合同类型：标签Lable191默认单价：文本框Text21默认输入合同号文本框Text22默认输入对方名称文本框Text23默认输入启用日期文本框Text24默认输入结束日期文本框Text25默认输入货品名文本框Text26默认输入交易数量文本框Text27默认输入计量单位文本框Text28默认输入签办人文本框Text2a默认输入单价组合框Text29默认销售;采购列表框List21默认‘合同信息’表，点击列表项，将在TEXT对应控件中显示该项详细。命令按钮Command21默认将控件TEXT的内容相对应的添加到合同信息表。如合同号有重复将弹出提示。更新List21内容。命令按钮Command22默认对与控件TEXT的内容在合同信息表中相同的项目进行删除。如有合同号不符将弹出信息。更新List21内容。（2）使用表表名称表类型字段名称合同信息表合同号、客户名称、启用日期、结束日期、货品名、合同数量、实际数量、计量单位、经办人、执行状态、交易类型、单价（3）窗体命令代码添加删除指令代码与类似。仓库信息管理点击仓库信息按钮进入仓库信息管理页，如图6：此页添加删除操作功能一基本相同，添加仓库库存查询按钮，点击后打开库存查询窗体。图8仓库信息管理页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认标签Lable80字体修改仓库信息管理标签Lable67默认仓库名称：标签Lable69默认所在地：文本框Text31默认输入仓库名文本框Text32默认输入仓库所在地列表框List31默认‘仓库信息’表，点击列表项，将在TEXT对应控件中显示该项详细。命令按钮Command31默认将控件TEXT的内容相对应的添加到仓库信息表。如有重复将弹出提示。更新List31内容。命令按钮Command32默认对与控件TEXT的内容在仓库信息表中相同的项目进行删除。如有不符将弹出信息。更新List31内容。命令按钮Command33默认仓库库存查询（2）使用表表名称表类型字段名称仓库信息表仓库名、所在地址（3）窗体命令代码添加删除指令代码与类似。仓库查询按钮PrivateSubCommand33_Click()DoCmd.OpenForm"库存查询"EndSub员工信息管理点击员工信息按钮进入员工信息管理页，如图6：此页操作功能一基本相同。图9员工信息管理页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认标签Lable96字体修改员工信息管理标签Lable83默认员工编号：标签Lable85默认姓名：标签Lable87默认性别：标签Lable89默认年龄：标签Lable141默认职位：标签Lable143默认学历：标签Lable133默认住址：标签Lable135默认联系：标签Lable137默认出生日期：标签Lable139默认部门：文本框Text41默认输入员工编号文本框Text42默认输入姓名组合框Text43默认输入性别文本框Text44默认输入年龄文本框Text45默认输入职位文本框Text46默认输入学历文本框Text47默认输入住址文本框Text48默认输入联系文本框Text49默认输入日期文本框Text4a默认部门列表框List41默认‘员工信息’表，点击列表项，将在TEXT对应控件中显示该项详细。命令按钮Command41默认将控件TEXT的内容相对应的添加到员工信息表。如员工编号有重复将弹出提示。更新List41内容。命令按钮Command42默认将控件TEXT的内容在员工信息表中相对应的项目进行修改。如有税号不符将弹出信息。更新List41内容。命令按钮Command43默认对与控件TEXT的内容在员工信息表中相同的项目进行删除。如有员工编号不符将弹出信息。更新List41内容。（2）使用表表名称表类型字段名称员工信息表编号、员工编号、姓名、性别、年龄、家庭地址、、出生日期、部门、职位、学历（3）窗体命令代码添加删除指令代码与类似。3.2.2业务管理在操作界面中点击业务管理打开业务管理页，如图10：单击单据填开按钮进入单据界面，右边列表框中显示内容根据查询全部单据按钮、查询未复核单据按钮、查询已复核单据按钮、查询已处理单据按钮更变。图10业务管理页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认列表框List11默认‘单据状态查询’表列表框List12默认‘未复核单据查询’表列表框List13默认‘已复核单据查询’表列表框List14默认‘已仓库处理查询’表命令按钮Command11默认打开单据界面命令按钮Command12默认切换显示List11。屏蔽List12List13List14。命令按钮Command13默认切换显示List12。屏蔽List11List13List14。命令按钮Command14默认切换显示List13。屏蔽List11List12List14。命令按钮Command15默认切换显示List14。屏蔽List11List12List13。（2）使用表表名称表类型字段名称单据状态查询查询单据号、对方公司、制单日期、合同号、单据类型、状态未复核单据查询查询单据号、对方公司、制单日期、合同号、单据类型、状态已复核单据查询查询单据号、对方公司、制单日期、合同号、单据类型、状态已仓库处理查询查询单据号、对方公司、制单日期、合同号、单据类型、状态（3）窗体命令代码命令按钮‘单据填开’打开单据指令PrivateSubCommand11_Click()DoCmd.OpenForm"单据界面"EndSub命令按钮‘查询***’显示切换指令PrivateSubCommand12_Click()Me.List11.Visible=TrueMe.List12.Visible=FalseMe.List13.Visible=FalseMe.List14.Visible=FalseEndSubPrivateSubCommand13_Click()Me.List11.Visible=FalseMe.List12.Visible=TrueMe.List13.Visible=FalseMe.List14.Visible=FalseEndSubPrivateSubCommand14_Click()Me.List11.Visible=FalseMe.List12.Visible=FalseMe.List13.Visible=TrueMe.List14.Visible=FalseEndSubPrivateSubCommand15_Click()Me.List11.Visible=FalseMe.List12.Visible=FalseMe.List13.Visible=FalseMe.List14.Visible=TrueEndSub3.2.2财务管理页在操作界面中点击财务管理打开财务管理页，如图11：单击单据复核按钮进入复核界面，右边列表框中显示内容根据查询全部单据按钮、查询未复核单据按钮、查询已复核单据按钮、查询已处理单据按钮更变。图11财务管理页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认列表框List21默认‘单据状态查询’表列表框List22默认‘未复核单据查询’表列表框List23默认‘已复核单据查询’表列表框List24默认‘已仓库处理查询’表命令按钮Command21默认打开复核窗体命令按钮Command22默认切换显示List21。屏蔽List22List23List24。命令按钮Command23默认切换显示List22。屏蔽List21List23List24。命令按钮Command24默认切换显示List23。屏蔽List21List22List24。命令按钮Command25默认切换显示List24。屏蔽List21List22List23。（2）使用表表名称表类型字段名称单据状态查询查询单据号、对方公司、制单日期、合同号、单据类型、状态未复核单据查询查询单据号、对方公司、制单日期、合同号、单据类型、状态已复核单据查询查询单据号、对方公司、制单日期、合同号、单据类型、状态已仓库处理查询查询单据号、对方公司、制单日期、合同号、单据类型、状态（3）窗体命令代码指令值‘3.2.2业务管理页’类似。3.2.3仓库管理页在操作界面中点击仓库管理打开仓库管理页，如图12：单击单据处理按钮进入出入库界面，右边列表框中显示内容根据查询全部单据按钮、查询未复核单据按钮、查询已复核单据按钮、查询已处理单据按钮更变。图12仓库管理页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认列表框List31默认‘单据状态查询’表列表框List32默认‘未复核单据查询’表列表框List33默认‘已复核单据查询’表列表框List34默认‘已仓库处理查询’表命令按钮Command31默认打开出入库窗体命令按钮Command32默认切换显示List31。屏蔽List32List33List34。命令按钮Command33默认切换显示List32。屏蔽List31List33List34。命令按钮Command34默认切换显示List33。屏蔽List31List32List34。命令按钮Command35默认切换显示List34。屏蔽List31List32List33。（2）使用表表名称表类型字段名称单据状态查询查询单据号、对方公司、制单日期、合同号、单据类型、状态未复核单据查询查询单据号、对方公司、制单日期、合同号、单据类型、状态已复核单据查询查询单据号、对方公司、制单日期、合同号、单据类型、状态已仓库处理查询查询单据号、对方公司、制单日期、合同号、单据类型、状态（3）窗体命令代码指令值‘3.2.2业务管理页’类似。3.2.4系统管理页在操作界面中点击系统管理打开系统管理页。单击修改密码按钮进入修改密码页，如图13：在对应的文本框中输入原密码和2次新密码点击确定修改，可对登入号的密码进行修改，如原密码错误则提示"原始密码错误请确认大小写是否正确"，如两次新密码不匹配则提示"新密码不一致请重新输入"。点击添加账号按钮进入添加账号页，如图14：在对应的文本框中输入登入账号、登入密码、员工编号、权限设置点击确定添加，则新添加一个用户，如用户名有重复则提示"用户名重复请更改"，如有空未填则提示"请完整填写信息"。点击账号修改按钮进入账号修改页，如图15：选择账号后填入2次新密码及权限点击确定可对此账号进行修改，如两次新密码不匹配则提示"新密码不一致请重新输入"。如有空未填则提示"请完整填写信息"。无法对管理员账号进修修改。图13系统管理修改密码页图图14系统管理添加账号页图图15系统管理账号修改页图（1）使用控件控件类型名称属性控件功能窗体信息管理界面默认默认选项卡控件选项卡控件0默认默认标签Label**默认默认文本框Text01默认登入账号输入原密码文本框Text02默认输入新密码文本框Text03默认输入新密码命令按钮enter0默认判断text02与text03的值是否相等，如相等查找zhanghao的值在账号管理表中相对应的项，确认Text01的值是否与该项的密码列值相等，如相等将text02的值覆盖到该项密码列。如有不等弹出提示框。文本框Text11默认登入账号输入原密码文本框Text12默认输入登入密码组合框Text13默认查询选择权限组合框Text14默认查询选择员工编号文本框Text15默认显示当时日期命令按钮Enter1默认判断text11的值是否在账号管理表中有重复项，如没有重复则将TEXT11、text12、text13、text14、text15添加到表中对应列。如有相同弹出提示框。组合框Text21默认查询选择账号文本框Text22默认输入登入密码文本框Text23默认输入登入密码组合框Text24默认查询选择权限命令按钮Enter2默认判断text21的值是否在账号管理表中有存在项，如存在则将text22、text23、text24覆盖到表中对应列。如没有弹出提示框。（2）使用表表名称表类型字段名称员工信息表编号、员工编号、姓名、性别、年龄、家庭住址、的话、出生日期、部门、职位、学历账号管理表账号、密码、权限、员工编号、注册日期、登入状态权限查询查询权限、说明查询员工编号查询员工编号账号查询查询账号（3）窗体命令代码enter0修改登入密码指令PrivateSubenter0_Click()Setconn00=CurrentProject.ConnectionSetxt00=NewADODB.Recordsetxt00.Open"账号管理",conn00,adOpenDynamic,adLockOptimisticIfIsNull(Me.Text01)OrIsNull(Me.Text02)OrIsNull(Me.text03)ThenMsgBox("请填写完整")ExitSubEndIfIfMe.Text02<>Me.text03ThenMsgBox("新密码不一致请重新输入"),vbOKOnly,"提示"Text02.SetFocusText02.Value=""text03.SetFocustext03.Value=""ExitSubEndIfxt00.MoveFirstDoWhileNotxt00.EOFIfxt00!账号=zhanghaoThenIfxt00!密码<>Me.Text01ThenMsgBox("原始密码错误请确认大小写是否正确"),vbOKOnly,"提示"Text01.SetFocusText01.Value=""Else:xt00!密码=Me.Text02xt00.Updatext00.CloseMsgBox("已成功修改密码"+vbCrLf+"请牢记你的新密码："+Me.Text02),vbOKOnly,"提示"ExitDoEndIfEndIfxt00.MoveNextLoopMe.Text01=""Me.Text02=""Me.text03=""EndSubEnter1添加账号指令PrivateSubenter1_Click()Setconn11=CurrentProject.ConnectionSetxt11=NewADODB.Recordsetxt11.Open"账号管理",conn11,adOpenDynamic,adLockOptimisticxt11.MoveFirstIfIsNull(Me.Text11)OrIsNull(Me.Text12)OrIsNull(Me.Text13)OrIsNull(Me.Text14)ThenMsgBox("请完整填写信息"),vbOKOnly,"提示"ExitSubEndIfDoWhileNotxt11.EOFIfxt11!账号=Me.Text11ThenMsgBox("用户名重复请更改"),vbOKOnly,"提示"Me.Text11.SetFocusText11.Value=""ExitSubExitDoEndIfxt11.MoveNextLoopxt11.AddNewxt11!账号=Me.Text11xt11!密码=Me.Text12xt11!权限=Me.Text13xt11!员工编号=Me.Text14xt11!注册日期=Me.Text15xt11.Updatext11.CloseMsgBox("成功添加新账号"),vbOKOnly,"提示"EndSubenter2修改指令PrivateSub_Click()Setconn22=CurrentProject.ConnectionSetxt22=NewADODB.Recordsetxt22.Open"账号管理",conn22,adOpenDynamic,adLockOptimisticIfIsNull(Me.Text21)OrIsNull(Me.Text22)OrIsNull(Me.text23)OrIsNull(Me.Text24)ThenMsgBox("请完整填写信息"),vbOKOnly,"提示"ExitSubEndIfxt22.MoveFirstDoWhileNotxt22.EOFIfxt22!账号<>Me.Text21ThenMsgBox("无此账号"),vbOKOnly,"提示"ExitDoExitSubElseIfxt22!权限=管理ThenMsgBox("不能修改管理员信息")ExitDoExitSubElseIfMe.Text22<>Me.text23ThenMsgBox("新密码不一致请重新输入")Me.Text22=""Me.text23=""ExitDoExitSubElsext22!密码=Me.Text22xt22!权限=Me.Text24xt22.Updatext22.CloseMsgBox("修改成功")ExitDoEndIfEndIfEndIfxt22.MoveNextLoopMe.Text21=""Me.Text22=""Me.text23=""EndSub4系统设计总结该系统由ACCESS开发VB语言编译的进销存系统，主要有信息管理、业务管理、财务管理、仓库管理、系统管理这5个板块组成，经测试已能进行添加新项指令、修改指定项指令、删除指定项指令、查询所有项及部分项、根据登入账号权限显示可执行页面。由于时间较为仓促，系统设计上仍有较多不完善的地方，例如界面美化、条件查询、统计结算等。今后仍需继续努力完善此系统，实现功能健全的进销存系统。5结束语通过梁老师的精心教导与自己的不断努力下，毕业设计及毕业设计论文即将完成。梁老师从毕业设计选题至毕业设计论文写作都给了我很多的指导与帮助。特别在程序框架设计及其代码编译上，梁在此我要对梁老师及在这两年半对我尽心教导的其他诸位老师致谢。参考文献：[1]凯际资讯工作室著·《ACCESS进销存数据库开发》·中国青年出版社，2021[2]卢湘鸿编·《ACCESS数据库与程序设计》·电子工业出版社，2021[3]夏帮贵，刘凡馨著·《ACCESS2021数据库开发经典实例精解》·机械工业出版社，2021[4]任灵平，杨玲编·《VB程序设计实验教程》·南开大学出版社，2021[5]王珊，萨师煊著·《数据库系统概论》·高等教育出版社，2021[6]李琪著·《电子商务项目策划与管理》·电子工业出版社，2021[7]上海龙旗控股集团/[8]中国营销传播网

社会实践报告系别：班级：学号：姓名：作为祖国未来的事业的继承人，我们这些大学生应该及早树立自己的历史责任感，提高自己的社会适应能力。假期的社会实践就是很好的锻炼自己的机会。当下，挣钱早已不是打工的唯一目的，更多的人将其视为参加社会实践、提高自身能力的机会。许多学校也积极鼓励大学生多接触社会、了解社会，一方面可以把学到的理论知识应用到实践中去，提高各方面的能力；另一方面可以积累工作经验对日后的就业大有裨益。进行社会实践，最理想的就是找到与本专业对口单位进行实习，从而提高自己的实战水平，同时可以将课本知识在实践中得到运用，从而更好的指导自己今后的学习。但是作为一名尚未毕业的大学生，由于本身具备的专业知识还十分的有限，所以我选择了打散工作为第一次社会实践的方式。目的在于熟悉社会。就职业本身而言，并无高低贵贱之分，存在即为合理。通过短短几天的打工经历可以让长期处于校园的我们对社会有一种更直观的认识。实践过程：自从走进了大学，就业问题就似乎总是围绕在我们的身边，成了说不完的话题。在现今社会，招聘会上的大字报都总写着“有经验者优先”，可还在校园里面的我们这班学子社会经验又会拥有多少呢？为了拓展自身的知识面，扩大与社会的接触面，增加个人在社会竞争中的经验，锻炼和提高自己的能力，以便在以后毕业后能真正真正走入社会，能够适应国内外的经济形势的变化，并且能够在生活和工作中很好地处理各方面的问题，我开始了我这个假期的社会实践-走进天源休闲餐厅。实践，就是把我们在学校所学的理论知识，运用到客观实际中去，使自己所学的理论知识有用武之地。只学不实践，那么所学的就等于零。理论应该与实践相结合。另一方面，实践可为以后找工作打基础。通过这段时间的实习，学到一些在学校里学不到的东西。因为环境的不同，接触的人与事不同，从中所学的东西自然就不一样了。要学会从实践中学习，从学习中实践。而且在中国的经济飞速发展，又加入了世贸，国内外经济日趋变化，每天都不断有新的东西涌现，在拥有了越来越多的机会的同时，也有了更多的挑战，前天才刚学到的知识可能在今天就已经被淘汰掉了，中国的经济越和外面接轨，对于人才的要求就会越来越高，我们不只要学好学校里所学到的知识，还要不断从生活中，实践中学其他知识，不断地从各方面武装自已，才能在竞争中突出自已，表现自已。在餐厅里,别人一眼就能把我人出是一名正在读书的学生,我问他们为什么,他们总说从我的脸上就能看出来,也许没有经历过社会的人都有我这种不知名遭遇吧!我并没有因为我在他们面