aad0617库存管理系统设计方案.docx

《aad0617库存管理系统设计方案.docx》由会员分享，可在线阅读，更多相关《aad0617库存管理系统设计方案.docx（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、aad0617库存管理系统设计方案目 录摘要1Abstract2第一章绪论31.1管理信息系统的概述31.2数据库应用系统开发简介33库存管理系统51. 3.1国内外同类管理软件的研究现状与进展趋势53. 2库存管理系统研究背景与意义6第二章数据库理论基础7数据库系统设计71. 2SQL语言介绍71SQL 基础72.2.2SQL 语句8第三章应用系统开发工具93. 1 Visual Basic 简介及实现原理92数据库组件介绍93.3SQL语言在VB中的应用104Access2000 简述11第四章 库存管理系统设计分析12需求分析123.1 模块划分13数据库设计15第五章应用程序设计18程

2、序结构18第三章 应用系统开发工具1 Vi sua I Basic简介及实现原理Visual Basic （简称VB）是美国微软公司（Microsoft）于1990年推出的一套完整的Windows 系统软件开发工具，可用于开发Windows环境下的各类应用程序，是一种可视化、面向对象、用 事件驱动方式的结构化高级程序设计语言与工具，是目前使用最广泛的编程语言之一。至今以升 级到了 6.0版。VB的重要特点之一是可视性。系统引进了窗体与控件的机制，用于设计应用程序界面。用户 通过在屏幕上生成窗体，在窗体中绘制所需要的控件与按钮，设计菜单与对话框，VB会自动生成 相应的代码。VB的另一重要特点是事

3、件驱动。当窗体或者控件上发生一个事件时，VB立即把操纵权交给 程序员。程序员不必担心如何推断事件是否已发生，只需要编写一段代码告诉计算机在事件发生 以后应该做什么工作就能够了。这样，设计一个Windows应用程序简化为用鼠标在屏幕上点击、 拖拽并添加少量的代码就能够完成了，大大降低了对程序设计的要求，提高了应用程序的开发效 率。利用VB的可视性特点，可方便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制 所需的每种控件。如要修改窗体或者控件的某项属性，只需在相应的窗体或者控件的属性窗口修 改相应的参数便可达到需要的设计效果。利用VB的事件驱动性特点，只需在窗体或者控件上的代码窗口中添加少量

4、的代码，便可达 到告诉当在相应的窗体或者控件上发生某一事件时，它们在事件发生后应该做什么工作的目的。 比如几个窗体上的添加、删除、返回按钮的作用，就是通过在各个相应按钮的代码窗口中输入相 应的代码，来达到当在几个按钮上出现单击（Click）事件后，相应按钮实现添加、删除、返回 的功能的。3. 2数据库组件介绍在使用Visual Basic开发数据库应用程序的时候，会经常使用数据库访问控件。这些控件 包含： Data控件； ADO Data 控件； DataList 控件/DataCombo 控件； DataGrid 控件； MSChart 控件。下面将分别对这些控件的要紧功能及使用方法进行介绍

5、。3. 2. 1 Data 控件Data控件是Visual Basic中最基本的数据库操作控件。它使用Recordset对象提供对存储 在数据库中数据的访问。Data控件同意从一个记录移动到另一个记录，并显示与操纵来自被连接 控件的记录的数据。许多其他的数据库操作控件都需要Data控件或者类似的数据源控件（比如 ADO Data 控件）。Data控件能够执行大部分数据库访问操作，但是它并不能显示数据库中数据的内容。Data 控件通常需要与其他控件结合使用。这些与Data控件结合使用的控件，能够称之为“数据觉察 控件:由于程序员无需编写任何代码，就能够在这些控件中显示当前记录的数据。当Data控

6、件 中当前记录发生变化时，数据觉察控件的内容也会随之发生变化。当与Data控件相连接时，DataList、DataCombo DataGrid与MSHF1 exGrid控件都能管理记 录集合。所有这些控件都同意一次显示或者操作几个记录。内部的Picture、Label TextBox CheckBox Image OLE ListBox与ComboBox控件也是数据觉察的，能与由Data控件管理的 Recordset对象的某个字段相连接。4. 2. 2 ADO Data 控件ADO Data控件与内部Data控件与Remote Data控件（RDC）相似。用户能够使用ADO Data 控件快速

7、地创建一个到数据库的连接。5. 2. 3DataList 控件/DataCombo 控件DataList控件是一个数据绑定列表框，它能够自动地由一个附加数据源中的一个字段充填， 同时可选择地更新另一个数据源中一个有关表的一个字段。DataCombo控件的功能与DataList 控件完全相同，只只是DataCombo控件是一个组合框。6. 2.4 DataGrid 控件在许多情况下，需要使用表格形式来显示数据库中的数据。这时就要借助于MatGrid控件。 用户能够设置DataGrid控件的DataSource属性为一个ADO Data控件，从而将ADO Data中的数 据自动地填充到DataGr

8、id表格中。这个DataGrid控件实际上是一个固定的列集合，每一列的行 数都是不确定的。3. 2. 5 MSChart 控件MSChart控件的功能是以图形方式显示数据的图表。这会使枯燥的数据变得更加生动直观， 增加了程序的有用价值。MSChart控件支持一下特性：1、真三维表示；2、支持所有要紧的图表类型；3、数据网络成员支持随机数据，数据数组。3.3 SQL语言在VB中的应用 .SQL提供的有用函数为实现使用VB程序调用SQL语言访问Access数据库多个记录的目的，我们利用SQL提供的 函数。 Davg Function （求平均值） Dcount Function （计算满足条件的记

9、录数） Dfirst Function （返回记录集的第一个记录的某个域值） Dlast Function （返回记录集的最后一个记录的某个域值） Dlookup Function （返回记录集中满足待定条件的记录的域值） Dsum Function （求与计算） Dmax Function （求最大值） Dmin Function （求最小值）利用以上的SQL函数能够方便地进行数据库文件记录地查询与统计工作，以Dsum为例，语 法如下：Dsum（pxpr, clomai n, cri tori a）例：计算目的港为英国地所有订单地运费总与。假定“Orders”是数据库文件中地一张表格，则x-

10、Dsum （Feight”, Order, ”ship country =UK）2 .利用SQL访问多个记录地方法在进信息查询与统计地过程中，我们往往需要从记录集中根据待定的条件提取其中的一部分 记录信息。这种改变基于数据库关系视图的记录集，这里我们介绍提取记录信息的有效方法。(1)建立一个新的查询set mydb=Open Database(c:DIRlmanage. rndb)(打开数据库文件c:DIRlmanage. mdb)set myquery=mydb. creat QueryDef (“monthquery)(创建查询名为 monthquery 的查询) Myquery. SQL

11、=,select*from OPNRPT where mid $ (year, 7, 2)=&yeartext. ” (利用查询的SQL属性,建立查询根据，即查询的条件。这里用到了 Setect Statement) 以后假如需要这样的查询，只需要引用查询名“monthqu/y”即可。需要说明的两点是：使 用前先定义 Dim mydb AS Database 及 myquery AS querydef.查询monthquery”没有使用 Data 控件，也就不直接显示信息。(2)如何设置Data控件的Recordsource属性设置Datasource属性的命令为：Data. Recordso

12、urce=Setect Vss_code, voyage, Sum(weight)AS Weight20 from monthquery where ctn size=,20,group by Vss code, Voyage在这个命令中字段名Vss_code为船名代码，Voyage为航次，ctn_size为集装箱号，weight 为集装箱重量。计算机通过增加了条件的monthquery查询构成了新的记录集。AS为关键字表示，并定义了 别名。通过这一个方法定义的记录集能够使用move与Find方法逐条记录的进行操作。3 . 4 Access 2000 简述Access2000是关系数据库开发工

13、具，1992年，Microsoft Access作为第一个面向Windows 操作平台的桌面数据库管理系统而诞生，它不但充分表达了面向对象的思想，提供可视化的编程 手段，而且充分利用了 Windows操作平台的优越性，使用与Windows完全一致的界面风格，使界 面非常友好。在Access中，用户不需要编写复杂的程序就能够建立一个完整的数据库应用系统, 是一个典型的开放式数据库系统，它能够与Windows下的其他应用程序共享数据库资源。数据库能汇合各类信息以供查询、存储与检索。Access的优点在于它能使用数据表示图或 者自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，能够

14、使数据库一目 了然。另外，Access同意创建自定义报表用于打印或者输出数据库中的信息。Access也提供了 数据存储库，能够使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享 数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所 述，Access作为关系数据库开发具备了许多优点，能够在一个数据包中同时拥有桌面数据库的 便利与关系数据库的强大功能。库存管理系统设计分析需求分析本套应用程序名称之“库存管理系统”，要紧用于仓库货品信息的管理，系统包含仓库管理、 入库、出库、一些统计查询与报表等几部分构成。库存管理系统需满足仓库管理员及工作人员的

15、需求，他们具有登陆应用系统的权限，因此需 要对工作人员的登陆本模块进行更多的考虑，设计不一致用户的操作权限与登陆方法。关于一个仓库来说，最大的功能就是存储货品，因此仓库管理就是对货品信息，仓库信息， 短线货品及超储货品的管理，用户能够根据实际情况对各类货品信息进行分类管理，包含添加， 删除更新数据库等。当然，仓库中货品入库也是常有的事，入库管理操作就是关于货品入库情况的管理，用户能 够方便地输入一些货品的信息。有了货品的入库，自然也就有货品的出库，这部分提供的功能与入库操作流程差不多，有所 区别的只是对一些出库货品的管理，也很方便数据的输入。仓库货品的信息量大，数据安全性与保密性耍求高。本系统

16、实现对货品信息的管理与总体的 统计等，仓库信息，供货单位与经办人员信息的查看及保护。仓库管理人员能够浏览、查询、添 加、删除等货品的基本信息与统计等，并能够对一些基本的信息生成报表形式，并打印输出的功 能。报表是一个数据库中最重要的功能之一，有了报表才能清晰地明白货品的出入库情况，在数 据报表功能中包含出库报表，库存报表及经办人员报表等一些基本信息的打印，方便简洁。本系统基本涵盖了库存管理的要紧需求，具有完善细致的功能、友好的用户界面、强大的数 据处理功能与完备的安全机制；随心所欲的查询与所见即所得的打印功能，并全面支持分析与决 策的功能。系统特色：1 .设置系统用户登陆功能，即时对系统数据进

17、行安全设置与保护。2,友好的用户界面，业务操作简单，进入系统即能使用。3 .成熟先进的技术与系统构架，使用先进的数据库访问方式，数据更安全，性能更稳 固。4 .强大的数据处理能力与开放的数据接口，选用具有大型数据库安全机制的数据库系 统，提供各类级别的数据保护与权限操纵方式，确保数据的安全可靠。5 .系统每种操作都能够通过菜单来进行。操作快捷、方便。易懂易会。系统集输入、 保护、查询、统计与各类处理为一体，信息导入导出方便共享。4.2模块划分库存管理系统综合管理货品出入库期间汇总表基本模块与功能：1 .系统包含用户管理，密码管理，关闭系统，与数据的备份与恢复，能够根据需要对整个数据库进 行备份

18、，以确保数据的安全性。帮助：本系统的帮助信息，包含应用程序的版本信息；2 .库存管理货品信息管理：对仓库里的货品进行登记；货品库存管理：管理仓库的库存情况；短线货品管理：对仓库里短线的货品进行登记，以便及时采购补货；超储货品管理：对仓库里超储的货品进行登记，操纵库存量，减少进货；3 .入库管理入库登记管理：能对货品的入库登记，删除，更换等；入库期间统计：货品入库期间年度的统计；供货单位期间供货金额统计：对货品供应的金额进行统计；4 .出库管理对货品出库期间的年度统计，出库登记，及收获单位金额统计等；5 .盘存管理对盘存货品信息的盘存录入；6 .综合管理可根据同一货品的出入库情况，对库存情况的汇

19、总；7 .附项管理对供货单位情况，经办人员，收货单位情况，仓库信息进行登记管理，可进行添加，删除等 操作；8 .历史数据管理对历史库存，历史出库，历史出库情况进行管理；9 .打印与查询可根据输入的条件，对货品的入库信息，库存信息等进行简单查询与组合查询。据流程图:V汇总计算库存汇总历史数据管数据备份备份输出图41库存管理系统数据流程图货品信息管理数据流程图:图42货品信息管理数据流程图4. 3数据库设计本库存管理系统是应用在单机系统上的，因此只需建立起一个数据库，在此数据库基础上建 立起表格，现将部分数据结构表描述如下：货品信息表字段名数据类型字段长度是否为空货品编码文本5货品名称文本10类别

20、文本8型号文本4单位文本2仓库编码文本5存放仓库文本12入库计划单价货币出库计划单价货币原始库存数字长整型默认货位文本5警戒底线库存数字长整型警戒高线库存数字长整型入库登记表表2入库登记表字段名数据类型字段长度是否为空入库口期口期/时间入库单号文本10货物编码文本5数量数字长整型进货价货币总额货币已付货款货币供货单位编码文本5供货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注出库登记表字段名数据类型字段长度是否为空出库日期日期/时间出库单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币出货价货币总额货币已收获款货币收货单位编码文本5收货单位文本20经办人编码

21、文本5经办人文本8增值税率数字单精度型备注备注表3货品出库表仓库信息表字段名数据类型字段长度是否为空仓库编号文本5仓库名称文本12存货种类文本2存货价值货币供货单位信息表（收货单位表）表5供货单位信息表字段名数据类型字段长度是否为空单位编号文本5单位名称文本50单位地址文本50电话文本15联系人文本8经办人员表表6经办人员表字段名数据类型字段长度是否为空编号文本5姓名文本8家庭住址文本50办公电话文本15家庭电话文本15用户表表7用户表字段名数据类型字段长度是否为空UserID文本10userPWD文本6另外，我们还建立了几张查询表,入库登记统计表货品入库年度统计表供货单位年度供货金额统计表库

22、存汇总表出库登记统计表货品出库年度统计表收货单位年度收货金额统计表另外，我们还建立了几张查询表,入库登记统计表货品入库年度统计表供货单位年度供货金额统计表库存汇总表出库登记统计表货品出库年度统计表收货单位年度收货金额统计表用以存放部分用于计算的统计信息，以便查询入库登记合计入库登记_n入库登记_w库存出库登记一合计出库登记出库登记_d入库登记.合计表与出库登记.合计分别是以入库登记表与出库登记表为基础的，因此此处不 再描述；库存汇总表要紧由出库表与入库表建立关系获得。入库登记_n表8入库登记_n字段名数据类型字段长度是否为空货物名称文本10入库日期日期/时间年度数量数字长整型入库登记w字段名数

23、据类型字段长度是否为空供货单位文本50入库日期日期/时间年度供货总额数字长整型表9入库登记_w库存汇总字段名数据类型字段长度是否为空货物编码文本5入库日期日期/时间货物名称文本10数量（入库）数字长整型进货价货币数量（出库）数字长整型库存数量数字长整型表10库存汇总表出库登记_h表11出库登记字段名数据类型字段长度是否为空货物名称文本10出库日期日期/时间年度数量数字长整型出库登记_d表12出库登记_d字段名数据类型字段长度是否为空收货单位文本50出库日期日期/时间年度金额总额数字长整型第五章应用程序设计5.1程序结构本应用程序由33个窗体构成，要紧的分别是：主窗体，欢迎界面，登陆窗体，入库窗

24、体， 出库窗体，库存汇总，打印及查询等窗体构成。通过运行程序首先进入欢迎界面与登陆窗体，通过输入密码，验证身份后进入主窗体，在主 窗体上有10个菜单项，分别对应各自的功能模块窗体，包含系统，库存管理，入库管理，出库 管理，盘存管理，综合管理，附项管理，历史数据管理，打印与查询。需要哪个功能的时候就点 哪个菜单，相对应的窗体会自动弹出。5. 2程序源代码19第六章设计总结385. 2程序源代码程序实现的部分代码如下：公共模块Public datel As StringPublic date2 As StringPublic gUserName As String储存用户名添加执行SQL语句的函数

25、Public Function transactSQL(ByVai sql As String) As ADODB.Recordset Dim con As ADODB. Connection Dim rs As ADODB.Recordset Dim strConnection As String Dim strArray () As String Set con = New ADODB. Connection 创建连接 Set rs = New ADODB. Recordset 创建记录集 On Error GoTo TransactSQL_ErrorstrConnection = ，Pr

26、ovider=Microsoft. jet. oledb. 4. 0;Data Source=E: 库 存管理 kucun.mdb strArray = Split (sql) con. Open strConnection打开连接If StrComp(UCase$ (strArray (0), “select”, vbTextCompare)二 0 Then rs. Open Trim$ (sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs返回记录集iflag = 1 Else con. Execute sql执行命令

27、iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error:MsgBox 查询错误: & Err. Description iflag = 2 Resume Transact,SQL_Exi t End Function主窗体的程序代码图5 1主窗体界Private Sub al_Click()Forml. ShowEnd SubPrivate Sub a2_Click ()Dim fAdd As New frmAddUserfAdd.ShowfAdd

28、.ZOrder 0End SubPrivate Sub a.3_Click()Dim fChangePWD As New frmChangePWD fChangePWD. ShowEnd SubPrivate Sub a4_Click() frmAbout. ShowEnd SubPrivate Sub a5_Click() 调入数据备份Load main_sjbfma.i n_sjbf. Showmain. Enabled = FalseEnd SubPrivate Sub a6_Click()调入数据恢复Load main_sjhfmain sjhf. Showmain. HideEnd

29、SubPrivate Sub bl Click()frm货品信息.ShowEnd SubPrivate Sub bl2_Click()sql = select * from货品信息order by货品编码 frmProInfo. createList (sql)frmProInfo.ShowEnd SubPrivate Sub b2 Click()frm货品库存.ShowEnd SubPrivate Sub B3_Click()frm超储货品.ShowEnd SubPrivate Sub b4_Click()frm短线货品.ShowEnd SubPrivate Sub cl_Click()fr

30、m入库登记.ShowEnd SubPrivate Sub c2_Click ()frm货品入库年度统计.ShowEnd SubPrivate Sub c3_Click()frm供货单位供货分类金额统计.ShowEnd SubPrivate Sub e4_Click()frm供货单位年度供货金额统计.ShowEnd Subdatel 二 Textl. Text & / & Text3. Text & / & Text2. Textdate2 = Text6.Text & / & Text4.Text & / & Text5.TextText7.Text = datelEnd SubPrivate

31、 Sub dl_Click() frm出库登记.Show End SubPrivate Sub d2_Click() frm货品出库年度统计.Show End SubPrivate Sub d3_Click() frm收货单位期间收货统计.Show End SubPrivate Sub d4_Click() frm收货单位年度收货金额统计.Show End SubPrivate Sub el_Click() frm盘存录入.Show End SubPrivate Sub e2_Click() frm盘存表.ShowEnd SubPrivate Sub fI Click() frm货品出入汇总表

32、.Show End SubPrivate Sub glClick() frm经办人员.Show End Subfrm供货单位.ShowEnd SubPrivate Sub g3 Click() frm仓库信息.Show End SubPrivate Sub g5_Click() Form6. ShowEnd SubPrivate Sub hl_Click() frm历史库存.Show End SubPrivate Sub h2_Click() frm历史入库.Show End SubPrivate Sub h3 Click() frm历史出库.Show End SubPrivate Sub i

33、l Click() DataReportl. Show End SubPrivate Sub i2_Click()DataReport2. Show End SubPrivate Sub i3_Click()DataReport3. Show End SubPrivate Sub jl_Click()Form2. Show End SubPrivate Sub j2_Click()Form3.Show End SubForm4. ShowEnd SubPrivate Sub j4_Click()Form5. ShowEnd SubPrivate Sub Toolbarl_ButtonClick

34、(ByVai Button As ComctlLib. Button) Select Case Button. KeyCase Is = rk cl_Click Case Is 二 ck dl_Click Case Is = kchz fl_ClickCase Is 二 zhcx J4_ClickCase Is = sjbf a5 Click调入入库登记调入出库登记调入库存汇总调入组合查询调入数据备份End SelectEnd SubPrivate Sub x_Click () End End Sub登陆模块的实现mycn,Private Sub cmdLogin_Click() denlu

35、name = txtUserName. Text denlu pass = txtPassword. Text Dim mycn As New ADODB. Connection Dim myrs As New ADODB. Recordset Set myrs = New ADODB.Recordset mycn.Open “Provider=Microsoft。 Jet. OLEDB. 4. 0;Data Source=kucun. mdb; myrs. Open SELECT * FROM 用 户where userID= + denlu name + adOpenKeyset, adL

36、ockOptimisticTf myrs. BOF = True And myrs. EOF = Trup ThenMsgBox 查无此人，登陆信息 ElseIf myrs(userPWD) = denlu_pass ThenMsgBox 身份正确，登陆信息 main. ShowUnload Me ，ElseMsgBox 密码不正确，登陆信息 End IfEnd IfEnd Sub 添加用户模块的实现Option ExplicitPrivate Sub Command1 Click()Dim sql As StringDim rs As ADODB. RecordsetIf Trim(User

37、Name. Text)= Then推断用户名称是否为空MsgBox 请输入用户名称！，vbOKOnly + vbExclamation, 警告 Exit Sub UserName. SetFocusElse sql =select * from 用户 where UserID= & UserName & Set rs = transactSQL (sql)If rs. EOF=False Then推断是否已经存在用户MsgBox 这个用户已经存在！请重新输入用户名称！，vbOKOnly + vbExclamation, 警告UserName. SetFocusUserName. Text =

38、PassWord. Text 二ConfirmPWD. Text = Exit SubEl soIf Trim (PassWord. Text) Trim (Conf irmPWD. Text) Then 推断两次密码 是否相同MsgBox 两次输入的密码不一致，请重新输入密码！，vbOKOnly + vbExclamation, 警告PassWord. Text = ConfirmPWD. Text =PassWord. SetFocus Exit SubElself Trim(PassWord. Text)二 Then推断密码是否为空MsgBox 密码不能为空！，vbOKOnly + vb

39、Exclamation, 警告 PassWord. Text = ConfirmPWD 二 PassWord. SetFocusElse添加用户sql =insert into 用户(UserID, UserPWD) values ( & UserName sql 二 sql & ， & PassWord & ) transactSQL (sql) MsgBox 添加成功！ ，vbOKOnly + vbExclamation, 添加结果 重新设置初始化为空 UserName. Text = PassWord. Text 二 ConfirmPWD. Text = UserName. SetFoc

40、usEnd If End If End If End SubPrivate Sub Command2 Click() Unload Me End SubPrivate Sub Form_Load () UserName. Text = PassWord. Text = ConfirmPWD. Text =End Sub 修改用户密码的实现Option ExplicitPublic gUserName As StringPrivate Sub Commandl_Click()Dim sql As Stri ngDim rs As ADODB. RecordsetIf Trim(01dPWD. T

41、ext) = Then推断是否输入旧密码MsgBox 请输入旧密码！，vbOKOnly + vbExclamation, 警告 OldPWD. SetFocus Exit SubElseIf Trim(NewPWD. Text)=Then推断是否输入新密码MsgBox 请输入新密码！，vbOKOnly + vbExclamation, 警告 NewPWD. SetFocus Exit SubElself Trim (NewPWD. Text) Trim (Conf irmPWD. Text) Then 推断两次密码是否 相同MsgBox 两次密码不一致！vbOKOnly + vbExclama

42、tion, 警告NewPWD. Text 二ConfirmPWD. Text = NewPWD. SetFocusElse修改密码sql =update 用户 set UserPWD = & NewPWD & z/，where UserID=sql = sql & gUserName &transactSQL (sql)MsgBox 密码已经修改！，vbOKOnly + vbExclamation, 修改结果Unload MeEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub FormLoad()

43、OldPWD.Text 二NewPWD. Text 二ConfirmPWD. Text = End Sub 数据备份模块的实现Private Sub FormActivate()赋值给textlTextl.Text = AEnd SubPrivate Sub Commandl_Click ()确认数据备份Me. MousePointer = 11YesNo = MsgBox (准备好了吗? ，vhNo + vhQupsti on)If YesNo = vbNo ThenExit SubEnd IfOn Error GoTo errpromptMe. MousePointer = 11MkDir

44、 (Textl. Text & :数据备份”)FileCopy App. Path & kucun. mdb, Textl. Text & ：、数据备份kucun & Date & . mdbMe. MousePointer = 0MsgBox 数据已备份完毕。 errprompt:Me. MousePointer = 0Select Case Err. NumberCase 57MsgBox 磁盘已满！ ，vbCriticalCase 70MsgBox 磁盘写保护！“，vbCritical End SelectEnd SubPrivate Sub Command2_Click()Load mainmain. Showmain. Enabled = TrueUnload MeEnd SubPrivate Sub Form_Unload (Cance