仓库管理仓库管理系统课程设计

(仓库管理)仓库管理系统课程设计一、课程设计的内容1、学习与实践数据库应用程序开发流程。2、学习使用某一种数据库服务，学会数据库应用程序编程，安装配置系统开发环境。3、设计和实现仓库管理系统。4、撰写课程设计报告。二、课程设计的要求与数据系统应该实现以下功能：(1)进、出库管理。对进、出库信息进行记录。(2)查询功能。仓库管理对查询要求高，分为按日期查询，按人员查询和按物品查询。(3)人员管理和库存报表生成。人员管理包括了操作员设置管理，人员设置管理，以及数据整理。库存报表主要是月报表。(4)交接班和临时离开。仓库管理系统设计了交接班管理，通过主菜单记录当前操作用户的用户编号与用户名，保证了对进、出库信息当前负责人的确认。临时离开设计保证了管理员临时离开时系统的安全。(5)由于计算机能存贮大量的数据，而且数据只要一次存入，便可多次重复使用，所以管理数据达到完整，统一，原始记录能保证及时，准确。(6)许多重复性的工作，都可由计算机去执行，从而使管理人员从事务性工作解脱出来，真正变为从事一些信息的分析，判断，决策等创造性的工作。三、课程设计应完成的工作该系统主要分为四大功能:管理员功能、信息安全功能、一般用户功能、报表生成。(1)管理员功能：产品入库管理、产品出库管理、操作员设置、人员设置、库内信息整理、查询库内信息。(2)信息安全功能：人员权限区分、临时离开密码管理、交接班管理。(3)一般用户功能：查询入库信息、查询出库信息、查询库内信息、库存统计。(4)报表生成：库存信息报表生成。四、主要参考文献[1]新编VisualBasic程序设计—————蔡树元编著[2]软件工程（第二版）——————李代平等编著清华大学出版社2008.1[3]数据库系统概论（第四版）————王珊萨师煊高等教育出版社2006.5[4]Access数据库技术与应用————谭浩强编著清华大学出版社2009.8目录摘要第一章系统设计1.1任务描述-------------------------------------------------------------------------11.2任务目标-------------------------------------------------------------------------3第二章需求分析2.1需求分析的任务---------------------------------------------------------------42.1.1功能需求----------------------------------------------------------------------42.1.2用户需求----------------------------------------------------------------------42.2数据流图-------------------------------------------------------------------------42.3数据字典-------------------------------------------------------------------------62.4数据库设计----------------------------------------------------------------------82.4.1数据库的概念模型----------------------------------------------------------8第三章总体设计3.1系统流程分析------------------------------------------------------------------103.2功能模块图---------------------------------------------------------------------10第四章详细设计4.1程序流程图---------------------------------------------------------------------124.2数据库的逻辑结构设计-----------------------------------------------------12第五章编码实现5.1系统物理实施------------------------------------------------------------------145.2创建仓库管理信息系统各界面并编写代码---------------------------14第六章软件测试总结摘要随着公司业务两的逐渐增长，业务范围的不断扩大，特别是中国进入WTO争尤其是IT行业的竞争日趋激烈，公司需要更多的人力、物力、财力来稳固并拓展公司商品在市场的销售额。如何更加有效地管理仓库存已成为公司领导的重要决策事项。到目前为止，公司还没有一套完整的、行之有效的管理系统，公司进行信息管理的主要方式是基于文规范化，为了降低管理成本，实现管理现代化，扩大市场的竞争优势，公司领导提出开发进销存管理信息系统，希望通过建立管理信息系统来提高企业现有资源的利用率，使企业管理工作规范化、制度化和程序化，避免业务管理的随意性，提高信息处理的速度和准确性，及时、准确地把握企业内部、市场和其他外部信息，以提高领导决策的水平。第一章系统设计1.1任务描述通过与公司管理层的沟通和对系统的初步调查，发现目前，公司还没有一套完整的、行之有效的管理系统，公司进行信息管理的主要方式是基于文本、表格等纸介质的手工处理，信息处理工作量大查询困难。由此明确了系统开发的目标为：按照管理信息系统的原理和方法，采用成熟、先进的信息技术和手段，支持仓库进、销、存管理工作的全过程，加强销售活动中的各种信息资源的管理和应用，实现销售管理现代化，及时、准确地提供各种信息报表辅助领导决策。本系统初步调查采用的主要方式是系统分析人员与本公司各个主要管理人员进行交流，并到现场参观了解情况，主要参加人员是公司的销售部、采购部、库存部、MIS中心和行政部的员工代表。由于近年来企业规模不断的扩大，公司的整个业务数量也在不断扩大。然而在业务增加的同时也出现了一系列的问题：信息化不足，大量的日常工作皆是手工处理，因此造成工作效率低落、企业内部沟通不良等等，这样的直接后果就是信息传递、管理方式不仅效率低，可靠性、安全性和保密性都无法满足要求，而且数据统计时间严重滞后，往往是当领导了解到企业的“进、销、存”环节出现问题时，就已经远离了问题出现的时间和地点。另外传统的手工方式的管理，也并不能及时地将决策信息传递给相关决策人，从而不能及时发现问题、解决问题，以致不能更好地把握机会。这一切都缺乏系统、规范的信息管理手段，严重阻碍了公司的健康发展，因此开发进销存管理系统非常有必要。公司领导希望通过建立管理信息系统，使企业管理工作规范化、制度化和程序化，促进企业管理的基础工作，避免随意性，提高信息处理的速度和准确性，及时、准确地把握企业内部、市场和其他外部信息，以提高领导决策的水平。1.2任务目标仓库管理信息系统主要是为公司的经营活动提供信息服务，它涵盖了仓库的各项管理工作，涉及多方面的职能。系统能够对客户信息管理、订单管理、报价单管理、供应商管理、出货管理等信息提供存储、更新、查询、统计的功能，使公司能够合理控制进销存的各个环节，提高资金的利用率和结算速度，实现管理的高效率、实时性、安全性、科学化、现代化和智能化。按照管理信息系统的原理和方法，采用成熟的信息技术和手段，支持公司管理工作的全过程，加强各种信息资源的管理与运用，提高企业管理工作的现代化水平，优化人、财、物和信息资源在供、销等各环节的运行机制。管理信息系统应逐步覆盖公司内部的所有部门和一切经营活动，使所有业务部门的工作人员在信息系统的辅助下进行工作，提高管理的整体水平，同时企业领导可以通过系统及时了解各部门工作的进展情况。第二章需求分析2.1需求分析的任务2.1.1功能需求该系统主要分为三大功能:管理员功能、一般用户功能、信息安全功能。管理员功能包括：产品入库管理、产品出库管理、操作员设置、人员设置、库内信息整理、查询库内信息。一般用户功能包括：查询入库信息、查询出库信息、查询库内信息、库存统计。信息安全功能：人员权限区分、临时离开密码管理、交接班管理。2.1.2用户需求根据用户需求，该系统应该实现以下功能：(1)进、出库管理。对进、出库信息进行记录。(2)查询功能。仓库管理对查询要求高，分为按日期查询，按人员查询和按物品查询。(3)人员管理和库存报表生成。人员管理包括了操作员设置管理，人员设置管理，以及数据整理。库存报表主要是月报表。(4)交接班和临时离开。仓库管理系统设计了交接班管理，通过主菜单记录当前操作用户的用户编号与用户名，保证了对进、出库信息当前负责人的确认。临时离开设计保证了管理员临时离开时系统的安全。(5)由于计算机能存贮大量的数据，而且数据只要一次存入，便可多次重复使用，所以管理数据达到完整，统一，原始记录能保证及时，准确。(6)许多重复性的工作，都可由计算机去执行，从而使管理人员从事务性工作解脱出来，真正变为从事一些信息的分析，判断，决策等创造性的工作。2.2数据流图当数据在软件系统中移动时，它将被一系列“变换”所修改。数据流图（DFD）是一种图形化技术，它描绘信息流和数据从输入移动到输出的过程中所经受的变换。在数据流图中没有任何具体的物理部件，它只是描绘数据在软件中流动和被处理的逻辑过程。数据流图是系统逻辑功能的图形表示，即使不是专业的计算机技术人员也容易理解它，因此是分析员与用户之间极好的通信工具。本系统的数据流图如下所示：图2.2.1顶层数据流图库存查询的数据流图如下图：图2.2.2库存查询的数据流图入库出库数据流图：图2.2.3入库数据流图图2.2.4出库数据流图2.3数据字典数据流图表达了数据和处理的关系，数据字典则是系统中各类数据描述的集合，是进行任何字典最主要的用途是供人查阅对不了解的条目的解释，数据字典的作用也正是在软件分析和设计的过程中给人提供关于数据的描述信息。数据流图和数据字典共同构成系统的逻辑模型，没有数据字典数据流图就不严格，然而没有数据流图数据字典也难于发挥作用。只有数据流图和对数据流图中每个元素的精确定义放在一起，才能共同构成系统的规格说明。名字：入库操作定义：入库操作=产品基本信息+入库信息名字：Stock描述：目前库存产品的基本信息定义：产品基本信息=产品基本信息+产品规格名字：出库操作描述：库存产品出库多少的信息名字：Person描述：管理员编号与姓名名字：Operater描述：仓库管理员权限与密码2.4数据库设计2.4.1数据库的概念模型用E—R图表示当前的数据库概念模型图2.4.1简单整体E-R模型图2.4入库实体图2.5出库实体图2.7总E-R图第三章总体设计3.1系统流程分析有系统的工作流图分析，可以得出，该系统的业务流程主要有入库过程，出库过程和出入库信息查询三个部分，其业务流程图如下：图3.1系统流程图3.2功能模块图库存管理人员可能对数据库的管理有不同的权限，根据要求赋予不同人员对数据库管理的权限。图3.2.1登陆对话框根据系统的业务流程和用户的需求分析可以得出，本系统应该包含产品基本信息管理、出入库管理、库存管理、系统管理、操作人员管理、查询、统计等几大功能，如下图所示：图3.2.2总体功能模块图其中入库管理包括新物品初次入库（包含基本信息的入库）和非新物品入库。1）基本管理：具体用户是系统管理员，对于出库进库成功时系统直接算出该产品的余料。2）进库管理：主要完成对产品品名，规格型号，数量，单价，入库日期，入库人编号，入库人（入库人和编号为统一的，一入库人编号对应于一个入库人），经手人出库管理主要完成产品品名，规格型号，数量，单价，出库日期，出库人编号，出库人。3）交接班是为了便于用户交接班时不用退出系统就可以进行数据库用户更换4）修改密码必须先输入原始密码才让修改密码，防止用户离开时的疏忽而被其他人篡改用户信息和密码。图3.2.3系统的基本功能模块图5）查询按日期：查询某个时间段的出入库信息。按人员：查询某个入料人或领料人的相关信息按物品：查询某种商品的出入库信息和余料。图3.2.4系统的查询模块图6）统计：提供一种统计方式，一般要求按月统计，可以查出该月内的出入库总次数，及相关详细信息。图3.2.5系统的按月统计图7）设置：该操作只允许数据库管理员进行设置，对于无该权限的数据库管理员进入系统后无该功能。图3.2.6系统的人员设置图第四章详细设计4.1程序流程图详细设计的结果基本上决定了总终的程序代码的质量。结构程序设计技术是实现上述目标的关键技术，是详细设计的逻辑基础，用程序流程图来表示。描述程序处理过程的工具称为过程设计的工具，它们可以分为图形，表格和语言三类。程序流程图又称为程序框图，一直是软件设计的主要工具，对控制流程的描绘很直观，便于掌握，它是历史最悠久，使用最广泛的描述过程设计的方法，然而它也是用得最混乱的一种方法，上图为本系统的程序流程图，直观地描述了上机管理系统。4.2数据库的逻辑结构设计表4-1入库表（InStorehouse）表4-2出库表(OutStorehouse)表4-3库存表（Stock）表4-5系统管理员表（Operater）表4-6入库人、出库人、借出人表(Person)第五章编码实现5.1系统物理实施（1）硬件选择。系统中计算机能够运行WindowsXP以上操作系统即可。（2）操作系统。WindowsXP以上操作系统。（3）开发工具。面向对象程序设计语言VisualBasic6.0。（4）数据库管理系统。MicrosoftAccess数据库管理系统。5.2创建仓库管理信息系统各界面并编写代码打开VisualBasic6.0后，单击File---NewProject菜单，在工程模板中选择“展示屏幕”将产生一个展示屏幕窗体。如下展示部分界面以及代码：图5.2.1仓库管理信息系统与该窗体相关的程序PrivateSubM_ChangePassword_Click()EndSubPrivateSubM_ClearData_Click()EndSubPrivateSubM_DataBackup_Click()EndSubPrivateSubM_DataMake_Click()EndSubPrivateSubM_Exchange_Click()Login1=1="交接班"1EndSubPrivateSubM_Exit_Click()aa=MsgBox("退出前请确定数据是否保存!!",1+32)Ifaa=1ThenEndEndSubPrivateSubM_FindArticle_Click()EndSubPrivateSubM_FindDate_Click()EndSubPrivateSubM_FindPerson_Click()EndSubPrivateSubM_InStorehouse_Click()EndSubPrivateSubM_ManSetup_Click()EndSubPrivateSubM_OperaterSetup_Click()EndSubPrivateSubM_OutStorehouse_Click()EndSubPrivateSubM_PrintDay_Click()DataReport1.ShowEndSubPrivateSubM_Printjgj_Click()EndSubPrivateSubM_Printmustbuy_Click()DataReport3.ShowEndSubPrivateSubM_ProducePlan_Click()FrmProduceplanManage1.ShowEndSubPrivateSubM_Sparelist_Click()EndSubPrivateSubM_StorehouseManage_Click()EndSubPrivateSubM_StorehouseSetup_Click()EndSubPrivateSubM_TEMP_Click()1EndSubPrivateSubM_TotalDay_Click()EndSubPrivateSubM_TotalMonth_Click()EndSubPrivateSubMDIForm_Load()=&H3=2str1="日一二三四五六"StatusBar1.(4).Text="星期"&Mid(str1,Weekday(Date),1)StatusBar1.(3).Text=DateStatusBar1.(1).Text="管理员:"&Operater1EndSubPrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)Cancel=MsgBox("退出前请确定数据是否保存!!",1+32)IfCancel=1ThenEndEndSubPrivateSubMDIForm_Resize()'=2EndSubPrivateSubToolbar1_ButtonClick(ByValButtonAs)SelectCaseCase"T_InStorehouse"CallM_InStorehouse_ClickCase"T_Calc"Shell(+"\")Case"T_Exchange"CallM_Exchange_ClickCase"T_Temp"CallM_TEMP_ClickCase"T_Exit"CallM_Exit_ClickCase"T_OutStorehouse"CallM_OutStorehouse_ClickCase"T_StorehouseManage"CallM_StorehouseManage_ClickCase"T_FindPerson"CallM_FindPerson_ClickCase"T_FindArticle"CallM_FindArticle_ClickCase"T_ProducePlan"CallM_ProducePlan_ClickEndSelectEndSub图5.2.2入库录入界面与该窗体相关的程序PublicrkAsString'入库的类型PublicreccountAsInteger'记录条数Publicrow1AsInteger'单击list2时返回的行数PrivateSubCommand1_Click()'补充数据'判断输入的数据是否都为空'-----------------------------------------------补充出库信息--------------------------IfTrim(Text1(13))<>""OrTrim(Text1(14))<>""OrTrim(Text1(15))<>""OrTrim(Text1(16))<>""Then="select*fromoutstorehousewhere编号="+list2.TextMatrix(row1,4)With.Fields(8)=Text1(13).Fields(9)=Text1(14).Fields(10)=Text1(15).Fields(11)=Text1(16).UpdateEndWithCallCommand2_ClickCommand1.Enabled=FalseElseMsgBox("请输入数据！")EndIf'---------------------------------------------EndSubPrivateSubCommand2_Click()'补充出库信息时的数据清零Fori=13To16Text1(i).Text=""NextiEndSubPrivateSubCommand3_Click()'按确定按钮'-------------------------------判断输入----------------------------IfOption2.Value=FalseThenIfTrim(Text1(0).Text)=""OrTrim(Text1(1).Text)=""Then'当不要补充出库的信息时MsgBox("品名与规格不能为空！")Text1(0).SetFocusExitSubEndIfIfTrim(Text1(8).Text)=""ThenMsgBox("请输入领料人！")Text1(7).SetFocusExitSubEndIfElseIfTrim(Text1(0).Text)=""OrTrim(Text1(1).Text)=""Then'入库的关键信息MsgBox("品名与规格不能为空！")Text1(0).SetFocusExitSubEndIfIfTrim(Text1(11).Text)=""OrTrim(Text1(12).Text)=""Then'当要补充出库的信息时MsgBox("品名与规格不能为空！")Text1(11).SetFocusExitSubEndIfIfTrim(Text1(8).Text)=""ThenMsgBox("请输入领料人！")Text1(7).SetFocusExitSubEndIfEndIfIfIsNumeric(Text1(4))=FalseThen'判断数量是否为数值MsgBox("你输入的数量有误，请输入数值！")Text1(4).Text=""Text1(4).SetFocusExitSubEndIf'-------------------------------------------------------------------Text1(9).Text=Operater1'----------给进库表增加信息="select*frominstorehouse"With.AddNew.Fields(0)=Text1(0).Text.Fields(1)=Text1(1).Text.Fields(2)=Text1(2).Text.Fields(3)=Text1(3).Text.Fields(4)=Val(Text1(4).Text).Fields(5)=Text1(5).Text.Fields(6)=Date.Fields(7)=Text1(7).Text.Fields(8)=Text1(8).Text.Fields(9)=Text1(9).Text.Fields(10)=Text1(10).Text.Fields(11)=rk.UpdateEndWithCalllist1disp'--------------------'----------给库存表增加信息="select*fromstockwhere品名='"+Trim(Text1(0))_+"'and规格='"+Trim(Text1(1).Text)+"'"'查找库中是否有该物品If.EOF=TrueThenWith.AddNew.Fields(0)=Text1(0).Text.Fields(1)=Text1(1).Text.Fields(2)=Text1(2).Text.Fields(3)=Text1(3).Text.Fields(4)=Val(Text1(4).Text).Fields(5)=Text1(5).Text.UpdateEndWithElseWith.Fields(4)=.Fields(4)+Text1(4).UpdateEndWithEndIf'--------------------'----------给出库表增加信息="select*fromstockwhere品名='"+Trim(Text1(0))_+"'and规格='"+Trim(Text1(1).Text)+"'"'查找库中是否有该物品'--------------------CallclearzoreText1(6)=DateText1(9)=Operater1Text1(0).SetFocusEndSubPrivateSubCommand4_Click()'取消CallclearzoreText1(0).SetFocusEndSubPrivateSubCommand5_Click()'返回UnloadMeEndSubPrivateSubmand6_Click()'出库材料的查询'---------------------判断出库查询输入的数据--------------IfTrim(Text1(11).Text)=""OrTrim(Text1(12).Text)=""Then'当要补充出库的信息时MsgBox("品名与规格不能为空！")Text1(11).SetFocusExitSubEndIfCalllist2dispCommand1.Enabled=False'-------------------------------------------------EndSubPrivateSubForm_Load()=(-)/2-800=(-)/2="仓库管理系统→"&"入库操作"="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"CallclearzoreCalloption1defCalllist2defCalllist1defCalllist1dispText1(6).Text=DateText1(9).Text=Operater1Command1.Enabled=FalseEndSubPrivateSublist2_Click()row1=list2.Row'返回单击的行值Ifrow1<>0ThenCommand1.Enabled=TrueEndIf="select*fromoutstorehousewhere编号="+list2.TextMatrix(row1,4)If.EOF=FalseThen'此if为了判断LIST1中是否有数据Frame6.Enabled=TrueWithIfIsNull(.Fields(8))=TrueThenText1(13).Text=""ElseText1(13).Text=.Fields(8)EndIfIfIsNull(.Fields(9))=TrueThenText1(14).Text=""ElseText1(14).Text=.Fields(9)EndIfIfIsNull(.Fields(10))=TrueThenText1(15).Text=""ElseText1(15).Text=.Fields(10)EndIfIfIsNull(.Fields(11))=TrueThenText1(16).Text=""ElseText1(16).Text=.Fields(11)EndIfEndWithElseFrame6.Enabled=FalseEndIfEndSubPrivateSubOption1_Click()rk="初次入库"Calloption1defEndSubPrivateSubOption2_Click()rk="余料入库"Command1.Enabled=FalseCalloption2deflist2.Enabled=False'一开始就屏蔽list2的单击事件EndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).BackColor=&HC0FFFFEndSubPrivateSubText1_LostFocus(IndexAsInteger)Text1(Index).BackColor=&HFFC0C0IfIndex=7Then="select*frompersonwhere编号='"+Trim(Text1(7))+"'"If.EOFThenMsgBox("库中无此人，请重新输入编号！")Text1(7).Text=""Text1(8).Text=""'Text1(7).SetFocusElseText1(8).Text=.Fields(1)EndIfEndIfEndSubPrivateSublist2def()'将list2的表头初始化list2.TextMatrix(0,0)="品名"list2.TextMatrix(0,1)="规格"list2.TextMatrix(0,2)="入库人"list2.TextMatrix(0,3)="出库日期"list2.TextMatrix(0,4)="编号"EndSubPrivateSublist1def()'将list1的表头初始化list1.TextMatrix(0,0)="品名"list1.TextMatrix(0,1)="规格"list1.TextMatrix(0,2)="产地"list1.TextMatrix(0,3)="材质"list1.TextMatrix(0,4)="数量"list1.TextMatrix(0,5)="单位"list1.TextMatrix(0,6)="入库人"EndSubPrivateSuboption1def()'按option1屏蔽补充出库信息项list2.Enabled=FalseFrame6.Enabled=FalseFrame5.Enabled=FalseEndSubPrivateSuboption2def()'按option2打开补充出库信息项list2.Enabled=TrueFrame6.Enabled=TrueFrame5.Enabled=TrueEndSubPrivateSubclearzore()'将数据项初始化Fori=0To16Text1(i).Text=""Text1(i).BackColor=&HFFC0C0NextiOption1.Value=Truerk="初次入库"EndSubPrivateSublist2disp()DimrowwAsInteger''行list2.ClearCalllist2defroww=1list2.rows=1="select*fromoutstorehousewhere品名='"+Trim(Text1(11).Text)+_"'and规格='"+Trim(Text1(12).Text)+"'"If.EOF=TrueThenlist2.Enabled=False'屏蔽list2的单击事件ExitSubElselist2.Enabled=TrueEndIf.MoveFirstDoWhile.EOF=Falselist2.rows=list2.rows+1list2.TextMatrix(roww,0)=.Fields(0)list2.TextMatrix(roww,1)=.Fields(1)list2.TextMatrix(roww,2)=.Fields(14)list2.TextMatrix(roww,3)=.Fields(12)list2.TextMatrix(roww,4)=Str(.Fields(18))roww=roww+1.MoveNextLoopreccount=.RecordCountEndSubPrivateSublist1disp()DimrowwAsInteger''行roww=1list1.Clearlist1.rows=1Calllist1def="instorehouse"If.EOF=FalseThen.MoveFirstEndIfDoWhile.EOF=Falselist1.rows=list1.rows+1list1.TextMatrix(roww,0)=.Fields(0)list1.TextMatrix(roww,1)=.Fields(1)list1.TextMatrix(roww,2)=.Fields(2)list1.TextMatrix(roww,3)=.Fields(3)list1.TextMatrix(roww,4)=.Fields(4)list1.TextMatrix(roww,5)=.Fields(5)list1.TextMatrix(roww,6)=.Fields(8)roww=roww+1.MoveNextLoopEndSub图5.2.3登录窗口与该窗体相关的程序DimdatacountAsInteger'操作员个数PrivateSubcmdCancel_Click()'取消IfLogin1=1ThenUnloadLoginElseEndEndIf.CloseEndSubPrivateSubcmdDate_Click()DTPicker1.Visible=TrueEndSubPrivateSubCmdOK_Click()'登录IftxtPassword=PasswordAndTrim(Password)<>""Ordatacount=0ThenIfLogin1=1ThenLoadMainformElseEndIfIfRights=2ThenMainform.M_=FalseElseMainform.M_=TrueEndIfIfLogin1=1Then1.(1).Text="管理员:"&Operater1IfRights=1ThenMainform.M_=TrueElseMainform.M_=FalseEndIfElseMsgBox"输入的密码有误,请重新输入!!!!"EndIftxtPassword=""EndSubPrivateSubCombo1_Click()'选择操作员IfTrim(Combo1.Text)<>""Anddatacount<>0Then=True="select*fromoperaterwhere姓名='"&Trim(Combo1.Text)&"'"Operater1=.Fields(0)Password=.Fields(1)Rights=.Fields(2)EndIfEndSubPrivateSubDTPicker1_Change()'改变日期Date=DTPicker1.ValueDTPicker1.Visible=FalsetxtDate=Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"MsgBox("日期更改成功!!!")IfLogin1=1Then1.(3).Text=DateEndSubPrivateSubForm_Load()'初始化="登录"txtDate=Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"DTPicker1.Value=DateCallpdIfdatacount=0ThenOperater1="无"Combo1.Enabled=False=False=TrueText1.Visible=TrueElse.MoveFirstDoWhile.EOF=FalseCombo1.AddItem.Fields(0).MoveNextLoopText1.Visible=FalseEndIfEndSubPrivateSubText2_Change()EndSubPrivateSubTimer1_Timer()=TimeEndSubPrivateSubpd()'判断是否存在操作员="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"=adCmdUnknown="select*fromOperater"datacount=.RecordCountEndSubPrivateSubtxtPassword_Change()'判断是否输入密码IfLen(Trim(txtPassword))=0Then=FalseElse=TrueEndIfEndSubPrivateSubtxtPassword_GotFocus()=&HC0FFFF=0=12EndSubPrivateSubtxtPassword_LostFocus()=&HFFC0C0EndSub图5.2.4按日期查询窗口图5.2.5出库登记窗口图5.2.6员工管理窗口第六章软件测试单元测试也称模