vb图书仓库管理系统课设说明书

中北大学课 程 设 计 说 明 书软件工程大型实验学生姓名:学 号：学 院:电子与计算机科学技术学院专 业:软件工程题 目:图书仓库管理系统员工管理子系统成绩指导教师： 张静 职称: 讲师 2010 年 12 月 31 日1. 设计目的书籍做为人类的精神食粮，在现代社会中越来越受到重视，大量的书籍出现在市场上，人们有了各种各样不同的选择。与此同时，为了管理大量的图书，图书仓库也大量的出现，仓库的管理问题也就提上了日程。随着图书的大量增加，其管理难度也越来越大，如何优化仓库的日常管理也就成为了一个大众化的课题。在计算机飞速发展的今天，将计算机这一信息处理利器应用于仓库的日常管理已是势必所然，它极大提高了仓库工作人员的工作效率，大大减少了以往入出存流程繁琐，杂乱，周期长的弊端。为了加快仓库管理自动化的步伐，提高仓库的管理业务处理效率，建立仓库管理系统已变得十分必要。入库、库存、出库还是现在图书仓库管理的常规基本模式。图书仓库管理的核心是入库、库存和出库之间的联系，如何处理好三者之间的关系是系统最为关键的部分。另外，员工信息和供应商信息管理也是仓库管理中一个必不可少的部分，它提供着与入库和出库相关的地一些信息，使得整个系统更加完整，更加实用。在本次课程设计中，按照软件工程基本原理，运用UML中所学的知识，以小组为单位，设计开发一个应用系统是本次的目的。通过对一个实际问题的分析、设计与实现，将原理与应用相结合，学会如何把书本上学到的知识用于解决实际问题，培养学生的动手能力，使我们能深入理解和灵活掌握教学内容是这次课程设计的目标。2.设计内容在本次课程设计中，我和叶飞共同完成需求分析模块。而在概要设计阶段，除了模式的选择(三层模式：用户界面层/业务逻辑层/数据库层)和E-R图的绘制由我们共同完成外，逻辑设计中的员工表、供应商表、书籍表、库存表设计以及相应表的数据库设计和流程图的设计由我完成。在详细设计阶段，我们共同完成了各种uml图的绘制。其中，我完成了顺序图中员工管理，供应商管理，出库，管理员的添加、修改、删除信息和员工的打印信息；完成了活动图中的登录，添加信息，查询信息和修改信息；我们合作完成了类图，构件图、部署图。在系统测试阶段，我完成了登录测试，删除信息测试，查询信息测试和打印测试。而在整个系统实现中，我主要负责员工对仓库的管理，具体有登陆，修改密码，出库，入库，库存和打印等功能。3.需求描述3.1.系统描述对图书仓库管理系统的描述如下：（1）仓库管理员仓库管理员可以管理员工和供应商的信息，包括信息的添加、修改、删除。可以登录系统。（2）员工员工可以登录系统，对图书库存进行管理。包括出库、入库、库存。出库、入库、库存都可以进行查询、修改、删除、添加信息等功能。（3）查询作为系统的核心功能之一，可以有单条件查询、多条件查询、模糊查询、精确查询，以方便用户的使用。（4）系统还有报表打印功能。3.2图书仓库管理系统用例图 图1 图书仓库管理系统3.3用例描述（1） 识别参与者通过对系统需求的分析，系统中有两个参与者，即员工和管理员。 员工员工主要负责管理库存，即出库，入库，库存信息等，他可以对信息进行添加，修改，删除，查询等。管理员管理员主要实现对人的管理，即对员工和供应商的管理。他可以添加修改和删除用户信息。（2）识别用例经过对需求的进一步分析，系统中有以下用例的存在：管理员工此用例实现对员工信息的管理。供应商管理实现对供应商的管理。 登录系统通过对此用例的操作可以对系统进行登录。 出库此用例实现对出库操作。 入库对入库的操作通过此用例来实现。 库存实现对库存信息的管理。 权限管理（添加信息，删除信息，修改信息）这三个用例实现对用户信息的添加，修改，删除。其中修改信息中有对人的信息的修改，也有对密码等的修改。 添加，修改，删除，查询这四个用例实现对图书库存的添加，修改，删除和查询。 打印报表将更新后的信息打印出来。 查询(单条件查询, 多条件查询, 模糊查询, 精确查询)对库存的图书信息实现单一条件的查询。对库存的图书实现多条件的相对精确的查找。对图书信息进行模糊查询。精确查找图书信息。（2） 用例的事件流描述图书库存管理系统的主要用例描述如下：管理员工前置条件：在这个用例开始前，管理员必须先登录到系统中。后置条件：如果这个用例成功，数据库中对员工的信息就会相应做出改变，否则系统状态没有变化。事件流：（基流、替代流、扩展流等）基流：当管理员登录系统成功，就可以对员工信息进行更新。a提供所查员工信息(a1)b查询员工信息（b1）c修改员工信息d添加员工信息e删除员工信息替代流：a1:如果所查员工信息不存在，视情况而定是否需要添加员工信息，否则用例中止b1:如果员工信息有错误，则需要修改员工信息，否则用例中止。供应商管理前置条件：在这个用例开始前，管理员必须先登录到系统中。后置条件：如果这个用例成功，数据库中对供应商的信息就会相应做出改变，否则系统状态没有变化。事件流：（基流、替代流、扩展流等）基流：当管理员登录系统成功，就可以对供应商信息进行更新。a提供所查供应商信息(a1)b查询供应商信息（b1）c修改供应商信息d添加供应商信息e删除供应商信息替代流： a1:如果所查供应商信息不存在，视情况而定是否需要添加供应商信息，否则用例中止 b1:如果供应商信息有错误，则需要修改供应商信息，否则用例中止。 库存前置条件：在这个用例开始前，员工必须先登录到系统中。后置条件：如果这个用例成功，数据库中对应的库存信息就要做出相应的修改，否则，系统中的库存状态没有变化。事件流：（基流、替代流、扩展流等）基流：当员工登录系统成功后，员工可以对库存进行管理，用例启动。a.员工可以对库存信息进行查询(a1)b.员工可以对库存信息进行添加（b1）c.员工可以对库存信息进行修改（c1）d.员工可以对库存信息进行删除（d1）替代流：a1:库存信息的查询可以有单条件查询，多条件查询，模糊查询，精确查询。如果查询信息不存在，则用例中止。b1:如果有入库，则要对库存信息进行添加。c1：如果库存有变，如有出库入库，则要对库存进行修改。d1：如果有出库，则要对库存信息进行删除操作。扩展流：如果必要，可将库存信息报表打印出来。 出库前置条件：在这个用例开始前，员工必须先登录到系统中,且库存中有此信息。后置条件：如果这个用例成功，数据库中对应的库存信息就要做出相应的修改，否则，系统中的库存状态没有变化。事件流：当员工登录系统成功后，员工可以进行出库管理，用例启动。员工登录系统成功后，如果需要做某些图书的出库，则查询库存信息，如果有此图书，则可以出库，同时删除此信息，对库存信息作相应的修改。否则，不能进行出库操作，同时库存状态没有变化。 入库前置条件：在这个用例开始前，员工必须先登录到系统中。后置条件：如果这个用例成功，数据库中对应的库存信息就要做出相应的修改，否则，系统中的库存状态没有变化。事件流：当员工登录系统成功后，员工可以进行入库管理，用例启动。员工登录系统成功后，如果需要做某些图书的入库，则在入库的同时对库存信息作相应的修改。否则，库存信息可能会出错。 查询前置条件：在这个用例开始前，员工必须先登录到系统中。后置条件：如果这个用例成功，员工可以对需要的信息进行查询，如果必要，还可以将查询结果打印出来。事件流：（基流、替代流、扩展流等）分支流：a：查询用户信息，如查询员工信息或者查询供应商信息。b：查询库存信息。可以简单查询库存信息，或者因为出库入库使库存信息改变而查询库存信息（b1）替代流b1：查询可以有多种形式，单条件查询，多条件查询，模糊查询，精确查询。3.4 E-R图：（1）管理员对于管理员这个实体而言，它的属性有：姓名，性别，管理员编号，电话，住址。.管理员编号姓 名性 别住 址电 话管理员 图2 管理员E-R图（2）供应商 对于供应商这个实体而言，他有姓名，电话，住址三个属性。故绘制如下：供应商地 址电 话姓 名 图3供应商E-R图（3）员工对于实体员工而言，它的属性有：员工编号，姓名，性别，电话，住址。员 工性 别电 话住 址姓 名员工编号 图4 员工E-R图（4）书籍对于书籍而言，它有下面8个属性：书名，编号，作者，出版社，出版时间，定价，出版号，图书类型。书籍书 名图书类型出版号出版时间出版社作 者定 价价编 号 图5书籍E-R图（5）图书库存管理的E-R图: 根据需求分析，系统中每个实体都有其自己的属性；而管理员可以管理供应商信息和员工信息；员工又可以对书籍进行出库，入库，库存的管理。 在管理员对供应商信息进行管理时，一个管理员可以管理多个供应商信息，他们之间是1.n的关系。 管理员管理员工信息，一个管理员管理多个员工信息，他们之间是1.n的关系。 员工对书籍进行入库管理，可以管理多书籍的入库，所以他们之间是1.n的关系。 同理，员工对书籍进行出库管理，也是1.n的关系；进行库存管理，他们依然是1.n的关系。 通过上述分析，可画出最终的E-R图如下： 管理员员 工书 籍供应商管理员编号姓 名地 址性 别住 址电 话性 别电 话住 址姓 名员工编号书 名图书类型出版号出版时间出版社作 者定 价价编 号库存管理入库出库电 话姓 名1111nnnnn 图6 图书仓库管理系统E-R图4.系统详细分析设计 4.1顺序图主要完成员工管理，供应商管理，出库，管理员的添加、修改、删除信息和员工的打印信息。（1）管理员工顺序图：图7 员工管理顺序图（2）管理供应商顺序图：图8 供应商管理顺序图（3）管理员修改信息顺序图： 图9 信息修改顺序图（4）管理员删除信息顺序图：图10 删除信息顺序图（5）管理员添加信息顺序图： 图11 添加信息顺序图（6）员工打印信息顺序图： 图12 打印信息顺序图（7）出库顺序图： 图13 出库顺序图4.2 活动图主要绘制了登录，添加信息，查询信息，修改信息。具体如下：（1）查询信息活动图：图14 查询信息活动图（2）登录活动图： 图15 登录活动图（3）添加信息： 图16 添加信息活动图（4）修改信息： 图17 修改信息活动图4.3类图需要用到以下的类：员工（有五个属性：姓名，编号，性别，电话，地址；可以有登录，添加，修改，删除，查询操作）管理员（有五个属性：姓名，性别，编号，电话，地址；可以有登录，添加，修改，删除，查询等操作） 书籍（有八个属性：图书名，图书编号，定价，作者，出版社，出版时间，出版号，图书类型） 供应商（属性：名称，地址，电话。可以提供书籍） 库存（出库，入库，库存） 报表类绘制类图如下： 图18 图书库存管理系统类图4.4部署图图书仓库管理系统在服务器端使用了两台主机，一台作为数据库服务器，另一台是应用服务器，上面运行了业务逻辑，它可以对信息维护模块进行操作，同时还连接了打印机。而客户端则是使用服务器进行必要的操作。所以部署图如下： 图19 图书仓库管理系统部署图4.5构件图在图书仓库管理系统中，包括MainProgram类（主程序）、People类、FormObject类、ControlObject类、manager类、employee类、Book类、DataBase类。People类是manager类和employee类的基类，所以managert类和employee类依赖People类。FormObject类、ControlObject类都和Book类相关，FormObject类、ControlObject类都依赖于Book类。ControlObject类和DataBase类相关，ControlObject类依赖DataBase类。所以构件图如下： 图20 图书仓库管理系统构件图4.6 数据库表表1管理员表：中文含义字段名称数据类型长度是否为空备注姓名name文本20否主键性别sex文本10否无管理员编号num数字long否无电话tel数字long否无住址address文本50是无表2供应商表：中文含义字段名称数据类型长度是否为空备注名称name文本20否主键电话Tel数字long否无住址address文本50否无表3书籍表：中文含义字段名称数据类型长度是否为空备注书名bname文本50否无编号num数字long否主键定价price数字long是无作者writer文本20否无出版社press文本50否无出版时间time时间/日期无是无出版号bnum数字long否无图书类型type文本50否无表4库存表：中文含义字段名称数据类型长度是否为空备注书名bname文本文本否无编号num数字long否主键定价price数字long是无作者writer文本20否无出版社press文本50是无出版时间time时间/日期无是无出版号bnum数字long否无库存量quantity数字long否无图书类型type文本50否无表5登录表：中文含义字段名称数据类型长度是否为空备注用户名name文本20否无密码 pwd文本20否无表6员工表：中文含义字段名称数据类型长度是否为空备注姓名name文本20否主键员工号num数字long否无性别sex文本10否无电话tel数字long否无住址address文本50是无表7出库表：中文含义字段名称数据类型长度是否为空备注书名bname文本50否无编号num数字long否主键出版社press文本50否无出库日期time时间/日期无否无出库人people文本20否无作者writer文本20否无图书类型type文本50否无表8入库表：中文含义字段名称数据类型长度是否为空备注书名bname文本50否无作者writer文本20否无编号num数字long否主键出版社press文本50否无出版日期time时间/日期无否无入库日期rtime时间/日期无否无入库人people文本20否无图书类型type文本50否无5.系统实现5.1开发工具及系统运行环境 开发工具：Access 2003 Microsoft Visual Basic 6.0 运行环境：Windows XP/Windows Vista/Win75.2 员工管理子系统实现在此次系统设计中，我主要完成员工对系统的管理模块。主要完成的界面及功能、代码如下：（1） 登录登录界面：界面功能:在登录界面中，主要实现员工和管理员的登录系统操作。实现代码：Private Sub Command1_Click()If Text1 = Or Text2 = ThenMsgBox 请输入用户名或密码, vbInformation, 提示ElseAdodc1.RefreshAdodc1.Recordset.Find 用户名= & Text1 & If Adodc1.Recordset.EOF = True ThenMsgBox 用户名不存在, vbInformation, 提示ElseIf Adodc1.Recordset.Fields!密码 = Text2 Then If Adodc1.Recordset.Fields!身份 = Combo1.Text And Combo1.Text = 管理员 Then main.Show Unload Me Else If Adodc1.Recordset.Fields!身份 = Combo1.Text And Combo1.Text = 员工 Then yuangong.Show Unload Me Else MsgBox 权限错误, vbInformation, 提示 End IfEnd IfElse MsgBox 密码不正确, vbInformation, 提示End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()adduser.ShowEnd Sub（2） 修改密码修改密码界面：界面功能：主要实现员工或者管理员对自己的系统密码的更改。实现代码：Private Sub Command2_Click()Unload Meconn.CloseEnd SubPrivate Sub Form_Activate()Text1.SetFocusEnd SubPrivate Sub Form_Load()Dim connstr As Stringconstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=False定义数据库连接conn.Open constrAdodc1.CommandType = adCmdTextAdodc1.RecordSource = SELECT * FROM 用户End SubPrivate Sub Command1_Click()If Text1.Text = And Text2.Text = And Text3.Text = And Text4.Text = ThenMsgBox 请输入用户名, 48, 提示ElseSet rs = New ADODB.RecordsetSQL = select * from 用户 where 用户名= + Text1.Text + and 密码= + Text2.Text + Set rs = conn.Execute(SQL)If rs.EOF ThenMsgBox 用户或密码错误,请重新输入！, 48, 提示Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocusElseIf Text3.Text = Text4.Text ThenSQL = update 用户 set 密码= + Text3.Text + where 用户名= + Text1.Text + Set rs = conn.Execute(SQL)Text4.Text = MsgBox 密码修改成功, 48, 提示Text1.Text = Text2.Text = Text3.Text = Text4.Text = ElseMsgBox 再次密码输入不同，请重新输入！, 48, 提示Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocusconn.CloseUnload MeEnd IfEnd IfEnd IfEnd Sub（3） 入库入库界面：界面功能：在这个界面，可以对书籍信息进行入库管理。也可以对库里的书籍 信息进行查询，可以往入库信息表里添加信息，删除信息。实现代码：Private Sub Command5_Click()Dim SQL As StringSet rs = New ADODB.RecordsetSQL = insert into 入库 (编号,书名,作者,入库人,出版社,出版日期,图书类型,入库日期) values ( + Text1.Text + , + Text2.Text + , + Text3.Text + , + Text4.Text + , + Text5.Text + , + Text6.Text + , + Text7.Text + , + Text8.Text + )Set rs = conn.Execute(SQL)Set rs1 = New ADODB.RecordsetSQL = insert into 库存 (编号,书名,作者,入库人,出版社,出版日期,图书类型,入库日期) values ( + Text1.Text + , + Text2.Text + , + Text3.Text + , + Text4.Text + , + Text5.Text + , + Text6.Text + , + Text7.Text + , + Text8.Text + )Set rs1 = conn.Execute(SQL)MsgBox 添加信息成功, 48, 提示Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text1.SetFocusSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd SubPrivate Sub Form_Load()Dim connstr As Stringconnstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=False定义数据库连接conn.Open connstrAdodc1.CommandType = adCmdTextAdodc1.RecordSource = SELECT * FROM 入库End SubPrivate Sub Command1_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 关键信息不全，无法添加, 48, 提示ElseDim SQL As StringSet rs = New ADODB.RecordsetSQL = insert into 入库 (编号,书名,作者,入库人,出版社,出版日期,图书类型,入库日期) values ( + Text1.Text + , + Text2.Text + , + Text3.Text + , + Text4.Text + , + Text5.Text + , + Text6.Text + , + Text7.Text + , + Text8.Text + )Set rs = conn.Execute(SQL)MsgBox 添加信息成功, 48, 提示Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text1.SetFocusAdodc1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()If (Text2.Text = ) Then MsgBox 请输入要查询的书名！ Text2.SetFocusElseAdodc2.RefreshAdodc2.Recordset.Find 书名= & Text2 & If Adodc2.Recordset.EOF = True ThenMsgBox 书名不存在, vbInformation, 提示ElseAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from 库存 where 书名= & Text2.Text & Adodc2.RefreshSet DataGrid1.DataSource = Adodc2DataGrid1.ReBindEnd IfEnd IfEnd SubPrivate Sub Command3_Click()Dim SQL As StringIf (Text1.Text = ) Then MsgBox 请输入要删除的编号！ElseSet rs = New ADODB.RecordsetSQL = select * from 入库 where 编号 = & Text1.Text & Set rs = conn.Execute(SQL)If rs.EOF ThenMsgBox 该编号不存在！Text1.Text = Text1.SetFocusElseSQL = delete * from 入库 where 编号 = & Text1.Text & Set rs = conn.Execute(SQL)MsgBox 删除信息成功, 48, 提示Text1.Text = Text1.SetFocusEnd IfEnd IfAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd SubPrivate Sub Command4_Click()Unload Meconn.CloseEnd Sub（4） 库存库存界面：界面功能：在这个界面可以对库存信息进行查询，实现精确查询、模糊查询、单条件查询、多条件查询。也可以对库存信息进行添加修改和删除操作。实现代码：Private Sub Command1_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 关键信息不全，无法修改, 48, 提示ElseAdodc1.RefreshAdodc1.Recordset.Find 编号= & Text1 & If Adodc1.Recordset.EOF = True ThenMsgBox 编号不存在, vbInformation, 提示ElseDim SQL As StringSet rs = New ADODB.RecordsetSQL = update 库存 set 书名= + Text2.Text + ,作者= + Text3.Text + ,入库人= + Text4.Text + ,出版社= + Text5.Text + ,出版日期= + Text6.Text + ,图书类型= + Text7.Text + ,入库日期= + Text8.Text + ,库存量= + Text9.Text + where 编号= + Text1.Text + Set rs = conn.Execute(SQL)MsgBox 库存信息修改成功, 48, 提示Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text1.SetFocusAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd IfEnd IfEnd SubPrivate Sub Command6_Click()If (Text2.Text = And Text3.Text = And Text5.Text = And Text7.Text = ) Then MsgBox 请输入关键信息！ElseAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from 库存 where 书名= & Text2.Text & and 作者= & Text3.Text & and 出版社= & Text5.Text & and 图书类型= & Text7.Text & Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd IfEnd SubPrivate Sub Command7_Click()If (Text2.Text = And Text3.Text = And Text5.Text = ) Then MsgBox 请输入关键信息！ElseAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from 库存 where 书名= & Text2.Text & and 作者= & Text3.Text & and 出版社= & Text5.Text & Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd IfEnd SubPrivate Sub Command8_Click()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseIf (Text2.Text = ) Then MsgBox 请输入要查询的书名！ Text2.SetFocusElseAdodc1.RecordSource = select * from 库存 where 书名 like % & Text2.Text & %Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd IfText2.Text = Text2.SetFocusEnd SubPrivate Sub Form_Load()Dim connstr As Stringconnstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=False定义数据库连接conn.Open connstrEnd SubPrivate Sub Command5_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 关键信息不全，无法添加, 48, 提示ElseAdodc1.RefreshAdodc1.Recordset.Find 编号= & Text1 & If Adodc1.Recordset.EOF = False ThenMsgBox 编号已经存在, vbInformation, 提示ElseDim SQL As StringSet rs = New ADODB.RecordsetSQL = insert into 库存 (编号,书名,作者,入库人,出版社,出版日期,图书类型,入库日期,库存量) values ( + Text1.Text + , + Text2.Text + , + Text3.Text + , + Text4.Text + , + Text5.Text + , + Text6.Text + , + Text7.Text + , + Text8.Text + , + Text9.Text + )Set rs = conn.Execute(SQL)MsgBox 添加信息成功, 48, 提示Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text1.SetFocusAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd IfEnd IfEnd SubPrivate Sub Command2_Click()MsgBox 请点击标签名查询！, 48, 提示End SubPrivate Sub Command3_Click()Dim SQL As StringIf Text1.Text = And Text2.Text = Then MsgBox 请输入要删除的信息！ Text2.SetFocusElseSet rs = New ADODB.RecordsetSQL = select * from 库存 where 编号 = & Text1.Text & Set rs = conn.Execute(SQL)If rs.EOF ThenMsgBox 该编号不存在！Text1.Text = Text1.SetFocusElseSQL = delete * from 库存 where 编号 = & Text1.Text & Set rs = conn.Execute(SQL)MsgBox 删除信息成功, 48, 提示Text1.Text = Text1.SetFocusEnd IfEnd IfAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindEnd SubPrivate Sub Command4_Click()Unload Meconn.CloseEnd SubPrivate Sub Image1_Click()End SubPrivate Sub Label10_Click()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from 库存 where 库存量= & Text9.Text & Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.ReBindText9.Text = Text9.SetFocusEnd SubPrivate Sub Label2_Click()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:课程设计数据库图书仓库.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from 库存 where 编号= & Text1.Text & A