汽车四S店零配件仓库管理系统样本

目录TOC\o"1-2"\h\z\u摘要 3Abstract 41绪论 524S店汽车零配件仓库管理系统分析 62.1汽车4S店业务流程分析 62.2关于数据库 62.3系统运营环境 73.管理软件设计 103.1功能设计 103.2模块构造设计 103.3程序流程图 113.4数据库设计 134.仓储管理软件设计 154.1 界面设计 154.2仓储管理软件安全性设计 265系统测试 275.1测试项 275.2测试条件 276.结论 29总结与体会 30致谢 31参照文献 32附录 334S店汽车零配件仓储管理系统摘要4S店汽车零配件仓储管理系统可以对的有效地完毕仓库管理寻常工作，从而实现顾客可以迅速进行汽车零配件仓储管理。4S店汽车零配件仓储管理系统涉及需求分析、系统功能、系统设计、程序设计、系统测试及存在问题等方面，详细地简介了“4S店汽车零配件仓库管理系统”设计开发整个过程。4S店汽车零配件仓储管理系统采用VisualBasic作为开发工具，后台数据采用Access数据库设计，运用ADO数据库访问实现各种功能。核心词：零部件管理；数据库；管理系统；VisualBasic。4SCar’sPartsStorageManagementSystemAbstract4Scar’spartsstoragemanagementsystemcanabletocorrectlyandeffectivelyaccomplishthedailyworkofstoragemanagement，enablinguserstoquicklycar’spartsstoragemanagement.4Scar’spartsstoragemanagementsystemincludesrequirementanalysis，systemfunction，systemsdesign，programmingandthesystemtestsandexiststheaspectssuchasquestionetc，andsystematicallyintroducedthewholecourseof“4Scar’spartsstoragepartsmanagementsystem"subjectdevelopment.4Scar’spartsstoragemanagementsystemusingVisualBasicasadevelopmenttool，thebackgrounddatausingtheAccessdatabasedesign，ADOdatabaseaccesstoachievethevariousfunctions.Keywords：Partsmanagement；Database；Managementsystem；VisualBasic.1绪论随着中华人民共和国经济迅速增长，中华人民共和国汽车保有量逐年递增，对于汽车4S店售后及仓库管理需要更加以便以及实用管理软件。在汽车4S店仓库管理中需要实时采集，并依照需要及时地向有关各部门传送各类信息，这对零配件供应、销售服务、质量监控、成本核算等均有着重要作用。同步此数据对零配件质量跟踪和售后服务有重要意义。由于零配件管理数据属于动态信息，不但数据量大，并且内容庞杂，且由于此数据不但用于售后服务及质量监控等方面，同步还具备对零配件质量跟踪等功能，因而必要保证数据精确。符合行业管理软件和计算机网络技术应用为实现上述功能需求提供了可靠保证，为顾客提供更公开、更快捷、更规范和更优质服务，是各家汽车4S店面临共同挑战。想要有效地解决上诉问题，就必要引入更加高效管理手段，其中实行计算机化管理就是有效办法之一。24S店汽车零配件仓库管理系统分析2.1汽车4S店业务流程分析4S汽车店零部件管理系统业务重要是采购,销售信息管理。汽车4S店各个部门把采购信息和销售信息输入系统，操作人员依照汽车4S店零部件信息控制采购和销售业务，计算机也会自动记录信息。4S店汽车零部件管理特点是信息解决量比较大，所管理信息涉及所有汽车维修公司信息和业务信息等单据发生量特别大，关联信息多，查询和记录方式各不相似。因而在管理上实现起来有一定困难。在管理过程中经常浮现住处重复传递。单据、报表种类繁多，各个部门管理规格不统一等问题。4S汽车店零部件管理系统在设计过程中，为了克服这些困难，满足计算机管理需求，采用了如下某些原则：(1)程序代码原则化，软件统一化，保证软件可维护性和实用性。(2)删除不必要管理冗余信息，实现管理规范化、科学化。(3)统一各种原始单据格式，统一账目和报表格式。进行4S店汽车零部件管理系统业务流程图设计。操作员或管理人员进入本系统后，一系列操作过程设计。2.2关于数据库数据库是关于数据信息集合，也就是对数据流图中包括所有元素定义集合。任何数据最重要用途都是供人查阅对不理解条目解释。数据库作用是在软件分析和设计过程中给人提供关于数据描述信息。数据流图和数据库共同构成系统逻辑模型，没有数据库，数据流图就不严格，然而没有数据流图数据库也难于发挥作用。只有数据库和对数据流图精准定义放在一起，才干共同构成系统规格阐明。系统开发时，惯用名片形式书写保存描述一种数据元素。下面给出本系统重要数据元素数据库索引表格：名字：配件编号列名：配件编号描述：唯一地标记配件信息表一种特定核心域定义：配件编号位置：配件信息图2-1配件编号名字：入库单号描述：唯一地标记汽车维修公司入库信息一种特定核心域位置：入库单号图2-2入库单号名字：出库单号描述：唯一地标记汽车维修公司出库信息一种特定核心域位置：出库单号图2-3出库单号名字：顾客名称列名：顾客名称描述：顾客指定条件下系统顾客口令表位置：顾客信息表图2-4顾客名称2.3系统运营环境2.3.1系统开发工具选取当前，在市场上这些众多程序开发工具中，有些开发软件强调程序语言执行效率；有些则偏重于可视化程序开发工具所带来便利性与效率提高，各有各长处和特色，也满足了不同顾客需求。然而，语言执行效率和工具便利性是密切相连，只有便利工具，却程序语言执行效率，许多特殊化解决必须要耗费数倍工夫来解决，使得本来所标榜效率提高长处失去了作用；相反，如果只强调程序语言执行效率，却没有便利工具作配合，会使某些虽然非常简朴界面解决动作，也会严重地挥霍毕业设计宝贵时间。而VisualBasic是知名微软公司可视化软件开发工具，其被称为最容易编程语言，它具备简朴、高效、功能强大特点。它是一种非常抱负选取，是可视化迅速应用程序开发语言，它提供了可视化集成开发环境，这一环境为应用程序设计人员提供了一系列灵活而先进工具，可以广泛地用于许各种类应用程序设计。VisualBasic前身是QBASIC，语言基本是BASIC。自从微软推出VB后，便成为了程序开发人员首选工具之一。跟据记录，仅在数据库系统开发领域中，VB就占了90％份额。VB是基于对象可视化程序开发工具，它长处在于可以快捷、简易地建立Windows应用程序。1998年8月，微软推出了VB6.0版本，进一步加强了部件开发功能。以合用人员来分，可有如下三个版本：原则版针对普通程序设计人员,适合普通应用系统开发。专业版针对专业程序开发人员，它在原则版基本上提供了对数据库和Internet支持。公司版合用于专为公司设计应用软件程序开发人员。2.3.2数据库选取建立一种数据库也有各种选取，当前市场上有各种各样数据库，并且每一种数据库均有其自身特点，不能说哪一种更好，只能在其中寻找一种能更好地适应系统需求、更好地满足顾客规定以及适应开发人员习惯。固然，要是一种完善管理软件，必要要有后台数据库。而当前主流数据库有如下几种：低档数据库最流行是ACCESS；中级数据库，最流行是SQLServer，SQLServer，Mysql；高品位三大数据库，DB2，ORACLE,SYBASE。其中，我选取ACCESS做为系统后台数据库。ACCESS是美国微软公司开发一款关系型数据库管理系统产品，具备成本低，易上手，工具全等长处。合用于大型或超大型数据库服务器端。运用VB6.0卓越、迅速、简便界面开发平台，制作系统客户端界面；再运用ACCESS，创立出具备合理物理关系、逻辑关系后台数据库；最后运用VB语言来编写代码，实现人机交互，运用ADO办法来建立与后台数据库连接，涉及数据添加、查询、删除、修改等等；最后开发和测试系统。2.3.3开发与运营环境(1)硬件环境解决器：InterPentiumⅢ或更高。内存：256MB以上硬盘空间：40GB显卡：集成显卡或更高(2)软件环境操作系统：WindowsXP。开发工具：VB6.0中文公司版。数据库：MicrosoftACCESS。美化工具：Photoshop。其她：Excel。3.管理软件设计3.1功能设计仓库管理系统可觉得小型货品管理部门提供基本仓库管理，从而协助仓库管理人员可以使用软件对其既有业务流程进行搞笑管理，这些管理涉及：货品信息管理，涉及货品信息增长、修改、删除、浏览管理；货品采购入库管理，对采购货品完毕电子入库；货品销售出库管理，对销售货品实现电子出库；查询管理，涉及对货品信息查询、客户信息查询和其她信息查询；货品信息打印，对当前仓库中货品信息进行打印；管理员管理，重要是管理员登录管理与口令管理。3.2模块构造设计“4S店汽车零配件仓库管理系统”可分为几种主模块：系统管理、基本信息管理、查询管理、出入库管理、库存管理。按照构造化系统设计办法，将整个系统分解成相对独立若干模块，通过对模块设计和模块之间关系协调来实现整个软件系统功能，从而得到系统功能模块构造图。本系统功能模块构造如图3-1所示。汽车4S店零配件仓储管理查询管理顾客管理密码管理切换顾客配件管理配件分类库存查询库存详细信息采购查询销售查询汽车4S店零配件仓储管理查询管理顾客管理密码管理切换顾客配件管理配件分类库存查询库存详细信息采购查询销售查询系统管理基本信息管理出入库管理库存管理系统管理基本信息管理出入库管理库存管理采购入库销售出库采购入库销售出库图3-1系统模块构造图3.3程序流程图登陆管理系统登陆管理系统验证顾客信息信息错误信息对的进入主界面顾客是否对的库存管理查询管理系统管理基本信息管理出入库管理顾客管理密码管理切换顾客配件管理配件管理采购入库库存查询库存详细信息采购查询销售查询销售出库3.4数据库设计关于数据构造建立：在进行了数据基本构造规范化重组后，还必要建立整体数据关系构造。这一步设计完毕后数据库和数据构造设计工作基本完毕，后来系统实现时将数据分析和数据库内容代入到所设计数据整体关系构造中，一种规范化数据库系统构造就建立起来了。依照分析阶段得出结论，结合本系统对关于数据存储需要，更加以便实现该管理系统所有功能，现将本管理系统设计成如下几种数据库表，表设计如下:表3-1顾客信息表字段名称类型大小顾客名称文本（20）密码文本（20）权限文本（20）表3-2配件信息字段名称类型大小配件编号文本（50）配件名称文本（50）型号文本（50）汽车品牌文本（50）计量单位文本（20）库存量数字配件分类文本（20）表3-3采购入库信息字段名称类型大小入库单号文本（50）入库日期文本（20）配件编号文本（50）配件名称文本（50）型号文本（50）计量单位文本（20）入库数量数字采购价格货币生产厂家文本（50）采购人文本（20）表3-4销售出库信息字段名称类型大小出库单号文本（50）出库日期文本（20）配件编号文本（50）配件名称文本（50）型号文本（50）计量单位文本（20）出库数量数字销售价格货币客户文本（50）销售人文本（20）其她表请参照数据库.4.仓储管理软件设计4.1界面设计界面规定美观易懂、操作简朴，使顾客感觉高兴、操做以便，从而提高使用效率。本系统基于WindowsXP操作系统，因而在界面上遵循WindowsXP老式风格，由标题栏、菜单栏、快捷工具按钮、对话框等要素构成。与WindowsXP操作系统一致人机界面，使得顾客只要具备WindowsXP操作基本，就能不久适应本管理系统操作使用，因而可以大大减少系统培训费用以及培训周期，提高系统可推广性。为了进一步美化界面，使得顾客在操作中更加心情舒畅，咱们选用PhotoshopCS4图像解决软件，为系统设计了比较新颖界面图。总之对系统界面整体风格，页面布局构造以及色彩搭配等进行了合理规划和设计，在保证操作员实用性、以便性前提下，创造更简朴，更和谐系统界面。4.1.1登录界面设计顾客登录窗口启动。涉及输入顾客名和密码，登录（默认顾客名admin，密码admin）。从顾客信息表中检查与否有相应顾客名和密码，如果顾客名或密码错误，进行提示；如果输入顾客名和相应密码对的，进入主控制平台。顾客登录模块窗体设计，在工程中添加一种窗体，命名为frmLogon。顾客登录模块窗体如图4-1所示。图4-1登录其中顾客登录连接数据库某些代码：检查与否有相应顾客名和密码代码：PrivateSubcmdOK_Click()''进入..拟定'OnErrorGoToErrDimtxtSqlAsStringUserID=""IfTrim(txtUserName.Text)=""Then''判断顾客名与否为空MsgBox"请输入帐号！"，vbOKOnly+vbExclamation，"警告"txtUserName.SetFocusExitSubEndIfIfTrim(txtPassword.Text)=""Then'判断密码与否为空MsgBox"请输入密码！"，vbOKOnly+vbExclamation，"警告"txtPassword.SetFocusExitSubEndIf检查与否有该顾客代码：txtSql="select*from顾客信息表where顾客名称='"&txtUserName.Text&"'"''判断与否有这个顾客Ifrs.StateThenrs.Closers.OpentxtSql，CN，adOpenStatic，adLockOptimisticIfrs.EOF=TrueThen''如果没有这个顾客MsgBox"没有这个帐号，请重新输入帐号!"，vbOKOnly+vbExclamation，"警告"txtUserName.Text=""txtPassword.Text=""txtUserName.SetFocusElse''如果有顾客IfTrim(rs.Fields(1))=Trim(txtPassword.Text)ThenIfTrim(rs.Fields(2))="管理员"ThenIsUserMode=1ElseIsUserMode=2EndIfUserID=Trim(txtUserName.Text)UnloadMeMainfrm.ShowExitSub4.1.2主界面设计汽车维修公司零部件管理主界面是如图4-2主界面。采用SDI窗体。WINDOWS风格设计。重要采用菜单式管理方式。主界面功能涉及系统设立，基本数据，出入库管理，库存管理，查询管理和协助。图4-2主界面截图其中某些代码如下:PrivateSubMDIForm_Load()Me.StatusBar1.Panels(1).Text="操作员:"&UserIdMe.StatusBar1.Panels(2).Text="★欢迎使用汽车4S店零配件仓库管理系统★"CallPrivsSetingEndSub4.1.3顾客管理界面设计系统设立涉及，顾客，密码，数据库管理。顾客涉及权限管理。顾客管理模块实现2个重要功能：增长新操作人员、删除指定操作人员。密码是对当前顾客进行密码修改，其中代码可以参照frmUsers。如图4-3如图4-3顾客管理界面4.1.4基本信息界面设计汽车4S店零配件仓库管理系统基本信息涉及对配件分析信息,配件信息管理，涉及添加，删除，修改等操作。如图4-4是配件信息，添加，操作成功。图4-4配件信息截图其中重要代码如下:PrivateSubcmdRegAdd_Click()'''添加nModeSys=2''添加操作DimIDmaxAsStringDimiAsIntegerFori=1ToVal(Txt(0).Text)IfLbl(i).Caption="库存量"ThenTxt(i).Text=0ElseTxt(i).Text=""EndIfNextiTxt(1).Text=GetmaxId(Lbl(1).Caption)cmdRegSave.Enabled=True4.1.5出入库界面设计出入库管理涉及采购入库和销售出库信息。入库管理界面如图4-6所示。本界面重要是对入库单信息进行添加删除修改保存等操作。其中代码详情请参照frmlk文献。图4-6入库界面截图点击添加按钮如图4-7可实现汽车零配件添加。配件编号是支持选取配件信息,可以名称进行选取。图4-7添加界面截图其中代码如下：rst.Open"select*from采购入库信息where入库单号='"&Trim(Text1(0).Text)&"'"，CN，adOpenStatic，adLockOptimisticIfTrim(strDZId)=""Then'添加rst.AddNewFori=0To9IfTrim(Text1(i).Text)<>""Thenrst.Fields(i).Value=Trim(Text1(i).Text)Nextirst.UpdateWithfrmlk.MSHFlexGrid1If.Rows=2AndTrim(.TextMatrix(1，1))=""ThenElse.Rows=.Rows+1Fori=.Rows-2To1Step-1Forj=0To9.TextMatrix(i+1，j)=.TextMatrix(i，j)NextjNextiEndIf4.1.6出库管理设计出库管理设计和入库管理设计思想同样，并不做详细阐明，其中出库管理界面图4-8，图4-9所示。4-8销售出库界面截图图4-9出库添加截图4.1.7零配件库存管理设计零配件库存管理涉及汽车零配件详细库存信息和库存量查询。可以记录零配件出入库数量及时间。如图4-10。其中代码：Ifrst.StateThenrst.Closerst.Open"select配件编号,配件名称,型号,计量单位from配件信息"，CN，adOpenStatic，adLockOptimisticDimiAsIntegerDimjAsIntegerDimgridIAsIntegeri=0IfrsK.StateThenrsK.ClosersK.Open"select*from盘点信息表where年月='"&Combo1.Text&"-"&Combo2.Text&"'"，CN，adOpenStatic，adLockOptimisticIfNotrsK.EOFThenIfMsgBox("本月份配件已记录,与否重新记录?"，vbInformation+vbYesNo，"提示")=vbYesThenCN.Execute"deletefrom盘点信息表where年月='"&Combo1.Text&"-"&Combo2.Text&"'"ElseExitSubEndIf4-10零配件库存管理截图4-11零配件信息检索截图4.1.8查询功能设计查询功能设计涉及零配件出入库查询和数据记录。从而实现管理人员对零配件数量，销售数量，库存数量进行记录以及查询。如图4-12。其中所涉及到代码：IfTrim(Combo3.Text)<>""AndTrim(Combo4.Text)<>""AndTrim(Text1.Text)<>""Thenstrsql="select*from"&Trim(strTableName)&"where"&Trim(Combo3.Text)&""&Trim(Combo4.Text)&"'"IfCombo4.Text="like"Thenstrsql=strsql&"%"&Trim(Text1.Text)&"%'"Elsestrsql=strsql&Trim(Text1.Text)&"'"EndIfIfrs2.StateThenrs2.Closers2.Openstrsql，CN，adOpenStatic，adLockOptimisticSetMSHFlexGrid1.DataSource=rs2ElseMsgBox"请选取或输入数据!"，，"系统提示"4-12信息检索截图4.1.9协助界面设计关于和协助界面是对系统软件版本,作者一种简介。协助界面是对功能简介涉及：初始顾客:顾客和密码都为admin。添加顾客：在顾客名称中输入要添加顾客名，原始密码为12345，可以修改，之后点添加。完毕。如果系统已经添加该顾客，系统自动提示，重新添加。删除顾客：选中要删除顾客，直接点删除、系统有提示与否真删除，点是，就删除了此顾客。如图4-13。4-13关于截图4.2仓储管理软件安全性设计仓库管理系统安全性设计可以分为数据库级安全设计和应用软件级安全设计两个级别。数据库级安全设计对数据库级安全通过赋予操作员不同操作权限，控制操作员对数据库访问，对操作员进行存取控制；此外并发控制、完整性约束以及数据备份和恢复方略等等，这些安全性都可以充分运用数据库管理系统（DBMS）自身具备功能来实现。应用软件级安全设计可以在系统平台上依照不同登陆身份和权限，给出不同操作界面，容许不同操作。本系统登录模块、顾客管理模块配合，就是完毕这样功能。5系统测试测试目就是为了能以至少人力和发现潜在各种错误和缺陷。系统测试是保证系统质量和可靠性核心环节，是对系统开发过程系统分析，系统设计和系统实行最后检查。测试表格显示此功能模块通过测试，也证明了本功能模块与其她模块独立性十分强，从而在后来维护软件过程中，可以更多更有效使用各个功能模块。5.1测试项：整个系统5.2测试条件：在其她测试项目都通过了单元测试，组合测试，确认测试。下面针对整个系统进行测试：系统测试是将已经确认软件，计算机硬件等其她因素组合在一起，进行信息系统各种组装和确认测试，其目是通过和系统需求相比较，发现所开发系统与顾客需求不符或矛盾地方。常用系统测试有恢复测试，安全性测试，强度测试，性能测试，可靠性测试，安装测试。在本系统中咱们对整个源代码进行测试，发现系统没有浮现什么问题,在将系统打包后也许会浮现问题就是有些机器上没有微软公司某些ActiveXObject控件或者是某些组件。因而导致系统不能加载某写对象，为理解决这个问题我在对ActiveXObject控件进行了打包做成压缩包，只要复制到相应文献夹中即可。通过对整个系统测试，我发现整个系统功能还是比较稳定，虽然在某些地方还不尽如人意，但是咱们开发目还是达到了，作为第一次完整开发软件，第一次做毕业设计，咱们从中还是学到了不少知识，通过这次开发，咱们为后来进入汽车4S店售后行业做管理工作积累了一定经验。在开发本系统时，为了使系统可以稳定运营，对本系统进行了有针对性全面测试，采用方式是：1、菜单项测试：为了保证每一项下拉菜单可以正的确现系统设计功能，我设计了某些测试数据，基本上所有输入到本系统中，并对每一种菜单项逐个进行了增长、删除、修改等操作，从而保证了菜单没级功能正的确现。2、数据测试：完毕队菜单项测试后，我又对系统内每一种数据进行了测试。例如：例如对配件编号，我一方面在配件信息模块中对某个配件信息进行设定，然后在其她模块进行数据操作，随时观测这两个数值之间与否有冲突产生，通过多次设立并进行验证，阐明该功能没有问题。3、综合测试：在以上测试基本上对系统功能进行了整体测试，依次来检查系统功能与否符合系统设计规定。6.结论于此前对VB6.0和Access只是理解并不可以灵活运用，因此在毕设期间进行了一番研究，终于可以基本掌握了惯用控件用法和语句编程。数据库建设和使用，虽然SQL数据库安全性和普及性很高，但咱们在寻常中还是接触得比较少，因此这自然又是一番努力学习，就拿安装配备以及连接数据库方面来说就不那么容易。会用了两种软件，如何把它们连接在一起还真是一件困难事：选取连接办法就很重要，通过各方面比较，我选取了ADO，通过ADO对象与数据库中各表进行连接，同步也用到少数编程实现VB和数据库连接。在开发过程中我遇到了许许多多问题，诸多地方都不明白，经常有打退堂鼓想法，我经常请教同窗和教师，最后成果虽然不很完美，但我竭力了，并有所收获。总结与体会在开发过程中我遇到了许许多多问题，诸多地方都不明白，经常有打退堂鼓想法，我经常请教同窗和教师，最后成果虽然不很完美，但我竭力了，并有所收获。通过毕业设计锻炼，对于此前所学基本知识进行了一次比较系统复习和巩固。对咱们非计算机专业学生来说设计一种软件还是有一定难度，自己通过查阅大量书籍以及此前所做软件经验总结，还是比较顺利完毕了毕业设计规定。特别是对VB6.0和Access有了更深层次理解，在开发过程中我遇到了许许多多问题，诸多地方都不明白，经常有打退堂鼓想法，我经常请教同窗和教师，最后成果虽然不很完美，但我竭力了，并有所收获。致谢这次毕业设计已经进入尾声，在这里我要真诚地感谢协助我教师和同窗，有了她们协助我才干顺利完毕这次毕业设计。从选取毕业设计题目开始，到毕业设计规划，查找有关资料，设计模型，详细实行，结束论文，整个大体流程中，我导师都予以了我耐心指引和非常到位指点，设计时间之长，其间遇到了不少问题，也承蒙了教师照顾，真想对教师说一声：教师，辛苦了，谢谢您。除此之外，我还要道谢我几位同窗得力相助，我但愿我能向她们学习，发扬那种百折不挠、孜孜不倦对知识求索精神，那种至高无上敬业精神，立即我就要走向工作单位了，我相信我会时刻用她们平凡而不简朴来鞭策自已。再次衷心地感谢协助我教师和同窗。【参照文献】[1]塞奎春.VB6工程应用与项目实践[M].北京：机械工业出版社，.[2]萨师煊，王珊.数据库系统概论[M].北京：高等教诲出版社，.[3]黄明.信息系统设计与开发实例[M].北京：机械工业出版社，.[4]张海藩.软件工程导论[M].北京：清华大学出版社，1998.[5]申莉莉.SQLSERVER数据库应用教程[M].北京：机械工业出版社，[6]李建中.数据库系统原理[M].西安：电子工业出版社，1998.[7]刘瑞新.VB6.0数据库开发毕业设计指引及实例[M].北京：机械工业出版社，.[8]刘军.汽车4S店管理全程指引.北京：化学工业出版社，. [9]宓亚光.汽车特约销售服务站经营与管理丛书.北京：机械工业出版社,.[10]王丰，张剑芳，卢宝亮.仓库安全管理与技术（第2版）.北京：中华人民共和国物资出版社,.附录4S店汽车零配件仓储管理系统代码：PrivateSubCARPP_Click()strTableName="汽车品牌"frmZiDian.Show1EndSubPrivateSubCGLK_Click()strTableName="采购入库信息"frmlk.Show1EndSubPrivateSubChangeUser_Click()''isLogin=FalseUnloadMefrmLogin.ShowEndSubPrivateSubExit_Click()EndEndSubPrivateSubDATAtj_Click()frmtj.Show1EndSubPrivateSubExitSyss_Click()EndEndSubPrivateSubFindCG_Click()strTableName="采购入库信息"frmFind.Show1EndSubPrivateSubFindKC_Click()strTableName="配件信息"frmFind.Show1EndSubPrivateSubFindXX_Click()strTableName="销售出库信息"frmFind.Show1EndSubPrivateSubFJFX_Click()strTableName="配件分类"frmZiDian.Show1EndSubPrivateSubForm_Load()Me.Caption="汽车4S店零配件仓储管理系统操作员："&UserIDCallPrivssubisLogin=TrueEndSubSubPrivssub()IfIsUserMode=2ThensysManager.Visible=FalseBASEDATA.Visible=FalseEndIfEndSubPrivateSubForm_Resize()OnErrorGoToErr'''变化控件位置代码Picture1.Top=0Picture1.Left=0Picture1.Height=Me.ScaleHeight-StatusBar1.HeightPicture1.Width=Me.ScaleWidthStatusBar1.Panels(1).Text="欢迎使用"&Me.Caption''加载背景代码Image1.Picture=LoadPicture(App.Path&"\1.jpg")Picture1.RefreshPicture1.PaintPictureImage1.Picture，Picture1.ScaleTop，Picture1.ScaleLeft，Picture1.ScaleWidth，Picture1.ScaleHeight，0，0，Image1.Width，Image1.HeightErr:EndSubPrivateSubHelpFiles_Click()'''协助文献OnErrorGoToErrfrmhelp.Show1ExitSubErr:MsgBoxErr.DescriptionEndSubPrivateSubInfoPJ_Click()frmPJ.Show1EndSubPrivateSubKCxxinfo_Click()frmKcInfo.Show1'详细库存EndSubPrivateSubSysAbout_Click()''关于frmAbout.Show1EndSubPrivateSubsysManager_Click()frmUser.Show1EndSubPrivateSubUserpasword_Click()''顾客密码frmpsd.Show1EndSubPrivateSubXSCK_Click()frmck.Show1'销售出EndSub采购入库管理界面代码：PrivateSubCommand1_Click()'查询DimrstAsNewADODB.RecordsetDimiAsIntegerDimstrSQLAsStringIfTrim(Text1.Text)=""ThenstrSQL="select*from采购入库信息orderby入库单号desc"ElseFori=0To3IfOption1(i).Value=TrueThenstrSQL="select*from采购入库信息where"&Option1(i).Caption&"like'%"&Trim(Text1.Text)&"%'orderby入库单号desc"ExitForEndIfNextiEndIfIfrst.StateThenrst.Closerst.OpenstrSQL，CN，adOpenStatic，adLockOptimisticWithMSHFlexGrid1.Clear.Rows=2.Cols=rst.Fields.CountFori=0Torst.Fields.Count-1.TextMatrix(0，i)=rst.Fields(i).NameNextiIfrst.RecordCount>0Then.Rows=rst.RecordCount+1Label1.Caption="查询到"&rst.RecordCount&"条记录"ElseLabel1.Caption="查询到0条记录"'MsgBox"没有查询记录信息!"，，"提示"ExitSubEndIfDimkAsIntegerk=1WhileNotrst.EOFFori=0Torst.Fields.Count-1IfNotIsNull(rst.Fields(i))ThenIfrst.Fields(i).Type=adCurrencyThen.TextMatrix(k，i)=Format((rst.Fields(i))，"0.00")Else.TextMatrix(k，i)=Trim(rst.Fields(i))EndIfEndIfNextik=k+1rst.MoveNextWendEndWithEndSubPublicSubCommand3_Click()'添加frmlkAdd.strDZId=""frmlkAdd.Show1EndSubPrivateSubCommand4_Click()WithMSHFlexGrid1IfTrim(.TextMatrix(.Row，0))=""ThenMsgBox"请选取采购入库信息"，，"提示"ExitSubEndIffrmlkAdd.strDZId=Trim(.TextMatrix(.Row，0))frmlkAdd.Show1frmlkAdd.strDZId="