目   录
前言
概要
设计方案
开发背景
需求分析
可行性分析
模块图及流程图
模块图
流程图
功能分析
程序清单及程序界面
使用说明
附录
开发人员分工名单
系统开发参考文献
结束语

 前  言
 
 本文论述了销售管理系统的开发过程，它包括了软件的开发环境，开发工具以及相关技术、系统分析、系统设计、实现等内容。
本系统能为企业繁重的工作带来极大的方便，提高了工作效率及工作准确性，能准确无误地查找货物的综合信息，为企业减少了许多工作细节。
 为了使此系统简单易学易用、功能强大、软件费用支出低、见效快等特点，我们选择Visual Basic6.0开发此系统。Visual Basic6.0起代码有效率以达到Visual c++的水平。在面向对象程序设计方面，Visual Basic6.0全面支持面向对你程序设计包括数据抽象、封装、对象与属性、类与成员、继承与多态。
 销售管理系统是所有企业所必须需要的。销售管理系统包括系统管理、备分、查询、添加、打印输出、修改等功能。如果单纯销售管理的话工作量将会很大，若公司的货物多而杂，货物信息的统计，其困难是不敢想象的，用计算机可使销售管理人员从繁重的工作中解脱出来 供使用者简单的操作便可及时、准确地获得所需的信息。
 本文既对面向对象的程序设计理念作了一定的阐述，同时 Visual Basic6.0的窗口、项目管理器、窗体设计器、按钮、数据表格、ADO和DATA控件与数据库的连接、标签组合框、框架、文本框、菜单设计器以及系统的运行和使用等作了相关的介绍并插入了大量图片加以说明。
 本系统具有特点：
通用性：适用于规模不同的企业。
界面友好：提供给管理员良好的操作界面
准确性：通过良好的用户界面，可快准确地实现信息查询
 总之，SIMS系统的设计开发，为管理人员提高了工作效率和工作质量，由于时间仓促，本小组又是第一次尝试大的软件开发，经验欠缺，加之经验水平有限，系统可能不完善，敬请用户批评指正。
在开发软件的过程中，得到了任老师、胡老师、陈老师、廖老师的指导与帮助，在此表示衷心的感谢。

 概  要
销售管理系统(SIMS)
软件设计步骤流程图如下：
   

一、目的
 本系统宗旨在用微机计算机对企业的货物信息进行管理其内容包括货物的称、型号、价格等信息管理。
 SIMS的服务对象为企业的仓库管理人员，要求界面友好，不需要非计算机专业的专门培训即可使用该系统。

二、现有资源
人员：软件人员4人，要求接受过软件工程的基础训练，掌握Microsoft Visual Studio提供的Visual Basic6.0。
硬件：C1.0G微处理器，主存RAM128M,10G硬盘，软盘即可。
操作系统 Windows Me
鼠标或其他定位设备。

 第一章   设计方案
 一 开发背景

   现代科学技术的飞速发展，改变了世界，也改变了人类的生活，作为新世纪的大学生，应该站在时代发展的最前列，掌握现代科学技术知识，调整自己的知识结构和能力结构，以适应社会发展的要求。新的世纪需要具有丰富的现代化科学技术知识；能够独立解决所面临的任务；有活力、有创新意识的新型人才。
   同时在计算机技术迅猛发展的今天，一些企业也越来越需要一套完善的销售管理系统来管理有关销售等方面的信息，从而来减轻仓库管理人员的负担，提高仓库管理工作的效率，通过这样的系统可以做到企业的规范管理、系统化、自动化和快速查询等功能。因此为管理人员节省了大量的时间。
 此套销售管理系统界面美观，全中文操作，简单明了，易学易用，是企业实现规范管理的得力助手。
 二 需求分析
 由于现代社会某些企业对货物管理系统的许可认定，越来越复杂，因此查找难度大，不便于管理，这样给货物管理带来很大的难度，且费时费工，因此需要有一个功能强大的软件，能够对货物统一合理的管理，而且目前市场上缺乏这件软件。
 基于这种情况，本小组开发出了销售管理系统。它能完成任意标准的分类管理货物的入库、出库、销售、查看货物等功能。并对整个销售管理系统设置了安全性、保密性，使其进一步规范化、科学化管理。
三 可行性分析
 一个完整的销售管理系统即要有高度的可靠性又要有安全的可靠保密性，它即要求灵活简便，操作要求简单易行，用户界面要求简单友好，同时又具有一定的美观性，是用户菜单方便，不繁琐，便于查询、统计和打印，使冗余的操作变的十分简便，让人操作起来能得心应手。
 销售管理系统采用了多种控件相结合的设计方法，从而进一步完善了系统，满足了用户的需要，具体分为三大部分：
技术可行性
 一个完整的销售管理要灵活简便；操作要求简单易行，用户界面要求简单同时又具有一定的美观性，使用户菜单方便不繁琐，便于查询，本着以上的设计原则，本系统采用Photoshop7.0制作了用户界面，在设计图形处理方面，交好的利用了Photoshop7.0将许多与Windows交互的低级操作隐蔽起来，让程序员可以较快的编写良好的界面应用程序的特点，编制了本系统。
2)操作可行性
本系统将诸多功能尽可能在一个界面内完成，以便于用户操作。
  制作上使用Windows中文平台，中文显示提示信息，易学易懂，鼠标点击或快捷键操作方便迅速。
3)经济可行性
 一个实用性较强的系统，要求开发成本底，对计算机配置的要求也不是过高，使得系统工作在一个较为合适的环境中，本销售管理系统正是基于这点开发出来的。
          本系统对大多数用到销售系统管理的行业均有使用价值，特别适用于各行企事业单位，通过本系统可大大减轻工作人员对货物进、销、存，打印报表，进行货物管理的工作量。开发次系统对计算机硬件和软件配置都不需要特别的要求，且开发周期短，故在经济上可行。

 第二章 模块图及流程图
 主程序流程图

 入库登记流程图

 查 询 模 块

 
 
 系统管理密码修改流程图
                   
 

 系统管理添加用户流程图
        
                       

 销售登记流程图

 入库退单登记流程图

 销售退单登记流程图

 入库查询系统查询流程图：

 入库退单查询系统查询流程图：

库存查询系统查询流程图：

 销售查询系统查询流程图：

 销售退货查询系统查询流程图：

 
 
 
 数据备份流程图:

 
 
 
 
 
 
 
 
 
 
 
 数据恢复流程图:
 
 

 
 
 
 
 
 
 
 
 
 打印流程图：
 
 
 

 入库信息修改流程图：

 入库信息删除流程图：
 

第三章   SIMS功能分析

一  系统管理模块功能分析
 销售管理系统（SIMS）是专为中小企业研发的计算机自动化管理软件，该软件充分发挥了计算机快捷、准确、方便、高效率等特点，从而提高了货物管理工作的效率，同时也为管理人员节省了大量的时间。自SIMS研发成功以后，与以前各管理方法相比，其功能有了质的飞跃。下面，让我们来共同了解本系统后的一些功能。
 系统管理是当今数据库软件的一个必不可少的组成部分。该动能在维护数据库方面起到了举足轻重的作用。同时，它为我们更好的管理数据库提供了保证；在使用该系统后，让我们真的可以做到“高枕无忧”。
 系统管理模块是一个系统软件最危险的模块。如果说把SIMS比做说是保险库的话，那么系统管理模块就是这个保险库的钥匙。所以，我们在操作SIMS时一定要做到认真、仔细、谨慎，避免出现不当的错误。为了防止此类事件的发生在用户进行系统操作时，都会出现信息提示框，提示用户是否继续操作，因此在很大程度上避免错误的发生。系统管理模块包括添假、修改、退出三个子模块，从而更方便了用户管理。

二 货物信息管理
 货物信息管理模块顾名思义就是对货物信息进行管理，用它可以将手工管理变为计算机自动管理的系统，充分发挥了计算机快捷、准确、方便、高效率等特点，现在货物数量的不断增加，货物信息管理趋向了复杂化和多元化，越来越多的货物信息均采用了计算机化的管理模式，查询、添加、和修改等操作都使用了计算机的数据库技术，比起以前使用帐本的方法有了很大的进步，提供了很大的方便，本次程序设计的目的是编制一个对货物信息添加、修改、查询和打印等操作，为了使用户进一步了解我们开发的销售管理系统，现将各子模块的功能介绍下：
1、查询模块
 查询模块是销售管理系统不可缺少的重要组成部分，它可以对要涉及到大部分工作，进行货物相关数据信息的输入，货物因其他原因进行调整，所以在库中的数据进行编辑之前，首先查询、浏览一下，查看其中的内容，显示出用户所需要的查询结果。
 当用户进入到查询窗体时，窗体用到了标签、文本框、命令按钮等相结合的方式来完成条件输入，操作时，在下拉列表框中选择所要查询的字段：商品名称、简称、规格等。选中其一，然后在文本框中选择所要查询的值，最后点击“查找”按钮，则在相对应的位置中显示出来，可用游动条来进行查看。本窗体还包括货物信息的全部浏览和统计。
2、货物信息的添加与修改
 通过本模块可以对货物进行添加、修改、删除的操作，采用了VISUAL BASIC内嵌的DATA数据控件，是访问数据库的一种方便的工具，它能够利用三种Recordset对象来访问数据库中的数据，数据控件提供有限的不需编程而能访问现存数据库的功能，允许将VISUAL BASIC的窗体与数据库方便地进行连接。本窗体模块有“第一条”、“上一条”、“下一条”、“最后一条”、“修改”、“删除”等命令按钮，在这些命令按钮中，设置了提示对话框，总之 操作简便灵活，功能强大，能显著的提高用户的工作效率。
 通过VISUAL BASIC的窗体控件工具栏中，本模块中用到的控件简单的分为五类：
1：标签、DATA GRID
2：文本框、列表框、组合框
3：制类：命令按钮、单选按钮
4：器类：FRAME
5：接类：DATA
 在以上控件中，每个控件含有多种属性，其各控件属如下：
标签的值：
1)、Alignment：将属性设置为0，即从标签的左边开始显示标题。
2)、Autosize：将属性设置为 true，则可根据caption属性指定的标题自动调整标签的大小。
3)、Borderstyle：用来标签的边框，可以取值为1，既标签带有边框。
文本框的值：
1)、Maxlength：该属性设置为0
2)、Mnltiline：其值为False只能输入单行文本
命令按钮
设置Command1.Enabled=True使命令按钮生效；设置Command.Enabled=False使命令按钮失去作用；Data(数据控件)负责数据库和工程之间的数据库交换，本身一起来完成访问数据库的任务。
Data控件：连接数据库。
Data Grid控件：与数据库相连接，以表格的形式显示结果。

三 系统维护
 1进入到本模块，可以对用户进行浏览，添加和删除。点击添加用户可以添加普通和高级用户。
 2 修改密码
        如果遗忘密码之后，必须借助于具有管理该系统软件的内部人员进行对密码查询修改，具体步骤如下：
首先，内部人员打开该系统，输入正确的密码
其次，进入该系统的操作界面即显示主菜单的情况下。
然后，打开密码表查看所遗忘的密码。
最后，修改密码。
   面对现在的社会形势，许多企事业单位要对人员进行调动，向货物管理系统安全性要求高的信息，如果对其内部人员进行调动的话，为了使信息内容具有安全性，就要对密码进行修改，修改步骤如下：
1）管理人员打开本系统，输入正确的密码后进入操作界面
2）进入系统主菜单
3）电击系统设置主菜单
3）再点击修改密码
4）打开对话框
 这时鼠标定位到第一文本框中等待用户输入用户名、旧密码，如果密码输入正确，回车后鼠标定位到下一个文本框，用户输入新密码后，系统将新密码进行判断，如符合要求，用户可重新确定密码。如果正确系统提示密码修改成功。如果密码输入不符合要求系统自动弹出提示对话框，给于提示，确定后，光标定位到密码文本框中，这样就完成了密码修改。
 
四、打印功能
 为了提高SIMSR 透明度与清晰度，我们开发小组在该系统中加入了打印模块。可以分别对入库、销售、库存等信息进行打印。
 该打印模块中的各项都采用了简单的界面，在使用上操作简便，可用性强，用户可根据条件自由的实现组合打印、浏览结果等操作，因此，大大提高了打印质量和准确性。
五 备份功能
   备份是管理人员维护SIMS安全性和完整性的重要操作。备份是恢复受损SIMS最容易，把意外损失降低到最小的保障方法。没有备份所有的数据可能会丢失。备份可以防止因表和SIMS遭受破坏、介质失效或用户错误而造成的数据灾难。良好的备份策略是SIMS安全运行的保证，是没个管理工作人员必须认真调整和仔细规划在能完成的任务。

第四章 程序清单及程序界面
日常业务登记程序代码：

Dim s, y, i     '定义变量
Dim mydb As Database     '定义数据库
Dim rs1 As Recordset     '定义字段
Dim rs2 As Recordset
Dim lsph As Integer     '定义一个整型变量
Private Sub Form_Load()
'自动识别数据库路径
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
Data1.DatabaseName = str & "\仓库.mdb"
Data2.DatabaseName = str & "\仓库.mdb"
Data3.DatabaseName = str & "\仓库.mdb"

Data1.RecordSource = "kc"
Data2.RecordSource = "gys"
Data3.RecordSource = "rkd"

Data1.Refresh
Data2.Refresh
Data3.Refresh
mf1.Rows = 102: mf1.Cols = 12     '定义mf1表的总行数、总列数
'定义mf1表的列宽和表头信息
s = Array("300", "1500", "900", "1200", "900", "1200", "600", "600", "600", "900", "1140", "850")
y = Array("xh", "商品名称", "简称", "批号", "厂家", "规格", "包装", "单位", "数量", "单价", "金额", "备注")
For i = 0 To 11
mf1.ColWidth(i) = s(i): mf1.TextMatrix(0, i) = y(i)
Next i
mf1.FixedRows = 1: mf1.FixedCols = 1     '定义mf1表的固定行数、固定列数
'定义mf1表的列序号
For i = 1 To 101
mf1.TextMatrix(i, 0) = i
Next i
rkrq.Text = Date     '设置入库日期
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub gys_Change()
DBList1.Visible = True
DBList1.ReFill
'查询供应商信息
Data2.RecordSource = "select 供应商全称 from gys where ((gys.供应商全称  like " + Chr(34) + gys.Text + "*" + Chr(34) + ")or (gys.简称 like " + Chr(34) + gys.Text + "*" + Chr(34) + "))group by 供应商全称"
Data2.Refresh
End Sub
Private Sub dblist1_KeyPress(KeyAscii As Integer)
DBList1.Visible = True
gys.Text = DBList1.BoundText     '赋值给gys.text
DBList1.Visible = False
jsr.SetFocus
End Sub
Private Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then     '当按回车键时
With Data1.Recordset
If Data1.Recordset.RecordCount > 0 Then
If Data1.Recordset.Fields("商品名称") <> "" Then
'赋值给mf1表格
If .Fields("商品名称") <> "" Then mf1.TextMatrix(mf1.Row, 1) = .Fields("商品名称")
If .Fields("简称") <> "" Then mf1.TextMatrix(mf1.Row, 2) = .Fields("简称")
If .Fields("批号") <> "" Then mf1.TextMatrix(mf1.Row, 3) = .Fields("批号")
If .Fields("产地") <> "" Then mf1.TextMatrix(mf1.Row, 4) = .Fields("产地")
If .Fields("规格") <> "" Then mf1.TextMatrix(mf1.Row, 5) = .Fields("规格")
If .Fields("包装") <> "" Then mf1.TextMatrix(mf1.Row, 6) = .Fields("包装")
If .Fields("单位") <> "" Then mf1.TextMatrix(mf1.Row, 7) = .Fields("单位")
If .Fields("进价") <> "" Then mf1.TextMatrix(mf1.Row, 9) = .Fields("进价")
Text1.Text = mf1.Text        '赋值给text1
Text1.SetFocus
mf1.Col = 8     '到达第8列
grid1.Visible = False
Else
MsgBox ("无数据选择!!!")
grid1.Visible = False     'grid1不可见
Text1.SetFocus
End If
End If
End With
Text1.SetFocus     'text1获得焦点
End If
If KeyCode = vbKeyEscape Then     '按ESC键
grid1.Visible = False     'grid1不可见
Text1.SetFocus     'text1获得焦点
End If
End Sub
Private Sub gys_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then     '按回车键
jsr.SetFocus     'jsr获得焦点
DBList1.Visible = False     'DBList1不可见
End If
If KeyCode = vbKeyPageDown Then     '按PageDown键
DBList1.Visible = True     'DBList1可见
DBList1.ReFill
DBList1.SetFocus     'DBList1获得焦点
End If
End Sub
Private Sub jsr_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then     '按回车键
Text1.Visible = True
mf1.Row = 1: mf1.Col = 1     '到达第1行，第1列
Text1.SetFocus
End If
If KeyCode = vbKeyUp Then gys.SetFocus     '按向上键gys获得焦点
End Sub
Private Sub mf1_Click()
If mf1.Row >= 1 And mf1.TextMatrix(mf1.Row - 1, 8) <> "" Then     '在mf1表格第1行或大于第1行时
Text1.Visible = True     'text1可见
Text1.SetFocus
End If
End Sub
Private Sub mf1_entercell()
frm_main.Text1.Text = "1"
Call frm_main.entercell     '调用函数
End Sub
Private Sub mf1_RowColChange()     '格式化金额
For i = 1 To 100
If mf1.TextMatrix(i, 1) <> "" Then
mf1.TextMatrix(i, 9) = Format(mf1.TextMatrix(i, 9), "#0.000")
mf1.TextMatrix(mf1.Row, 10) = Val(mf1.TextMatrix(mf1.Row, 9)) * Val(mf1.TextMatrix(mf1.Row, 8))
mf1.TextMatrix(i, 10) = Format(mf1.TextMatrix(i, 10), "#0.00")
End If
Next i
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
frm_main.Text1.Text = "1"
If KeyCode = vbKeyReturn Then
grid1.Visible = False
If mf1.Col = 1 Then
With Data1.Recordset
If .RecordCount > 0 Then     '当记录大于零时
'赋值给mf1表格
If .Fields("商品名称") <> "" Then mf1.TextMatrix(mf1.Row, 1) = .Fields("商品名称")
If .Fields("简称") <> "" Then mf1.TextMatrix(mf1.Row, 2) = .Fields("简称")
If .Fields("批号") <> "" Then mf1.TextMatrix(mf1.Row, 3) = .Fields("批号")
If .Fields("产地") <> "" Then mf1.TextMatrix(mf1.Row, 4) = .Fields("产地")
If .Fields("规格") <> "" Then mf1.TextMatrix(mf1.Row, 5) = .Fields("规格")
If .Fields("包装") <> "" Then mf1.TextMatrix(mf1.Row, 6) = .Fields("包装")
If .Fields("单位") <> "" Then mf1.TextMatrix(mf1.Row, 7) = .Fields("单位")
If .Fields("进价") <> "" Then mf1.TextMatrix(mf1.Row, 9) = .Fields("进价")
mf1.Col = 7
End If
End With
End If
Call frm_main.movereturn     '调用函数
End If
If KeyCode = vbKeyUp Then
If mf1.Row > 1 Then mf1.Row = mf1.Row - 1
End If
If KeyCode = vbKeyDown And (mf1.TextMatrix(mf1.Row, 2)) <> "" Then
If mf1.Row < 99 Then mf1.Row = mf1.Row + 1
End If
If KeyCode = vbKeyLeft Then Call frm_main.moveleft     '调用函数
If KeyCode = vbKeyRight Then Call frm_main.moveright     '调用函数
If KeyCode = vbKeyPageDown And mf1.Col = 1 Then
Data1.RecordSource = "select * from kc"
Data1.Refresh
grid1.Visible = True: grid1.SetFocus
End If
End Sub
Private Sub text1_Change()
DBList1.Visible = False
mf1.Text = Text1.Text     '赋值给mf1.text
If mf1.Col = 1 Then
'按简称或商品名称查询库存商品信息
Data1.RecordSource = "select * from kc where ((kc.简称 like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")or(kc.商品名称 like " + Chr(34) + Text1.Text + "*" + Chr(34) + "))"
Data1.Refresh
If Text1.Text = "" Then     '当text1.text为空时
grid1.Visible = False     'grid1不可见
Else
If Data1.Recordset.RecordCount > 0 Then     '当记录大于零时
grid1.Visible = True     'grid1可见
Text1.SetFocus
End If
End If
End If
If mf1.Col = 8 Then mf1.TextMatrix(mf1.Row, 10) = Val(mf1.TextMatrix(mf1.Row, 8)) * Val(mf1.TextMatrix(mf1.Row, 9))
If mf1.Col = 9 Then
mf1.TextMatrix(mf1.Row, 10) = Val(mf1.TextMatrix(mf1.Row, 8)) * Val(mf1.TextMatrix(mf1.Row, 9))
If mf1.TextMatrix(mf1.Row, 8) = "" Then
MsgBox ("数量无,请重新输入!!!")
mf1.Col = 8
grid1.Visible = False
End If
End If
If mf1.Col = 11 Then
If mf1.TextMatrix(mf1.Row, 9) = "" Then
MsgBox ("单价无,请重新输入!!!")
mf1.Col = 9
grid1.Visible = False
End If
End If
Dim A, B As Single
For i = 1 To 31
A = Val(mf1.TextMatrix(i, 10)) + A: B = Val(mf1.TextMatrix(i, 8)) + B
If mf1.TextMatrix(i, 1) <> "" And mf1.TextMatrix(i, 8) <> "" Then js.Text = i
Next i
hj.Text = A: hjsl.Text = B     '计算合计金额，合计数量
End Sub
Private Sub Comdj_Click()
'查询所有入库数据,并按票号排序
Data3.RecordSource = "select * from  rkd  order by 票号"
Data3.Refresh
'创建入库票号
If Data3.Recordset.RecordCount > 0 Then
If Not Data3.Recordset.EOF Then Data3.Recordset.MoveLast
If Data3.Recordset.Fields("票号") <> "" Then
lsph = Right(Trim(Data3.Recordset.Fields("票号")), 4) + 1
PH.Text = Date & "rkd" & Format(lsph, "0000")
End If
Else
PH.Text = Date & "rkd" & "0001"
End If
'设置控件有效或无效
gys.Enabled = True: jsr.Enabled = True: js.Enabled = True: hjsl.Enabled = True: hj.Enabled = True
Text1.Enabled = True: mf1.Enabled = True: Combc.Enabled = True: Comqx.Enabled = True: Comdj.Enabled = False
'清空数据
For i = 1 To 100
For j = 1 To 11
mf1.TextMatrix(i, j) = ""
Next j
Next i
gys.SetFocus
mf1.Row = 1: mf1.Col = 1    '到达mf1表格的第1行，第1列
End Sub
Private Sub Combc_Click()
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\仓库.mdb")     '自动识别数据库路径
Set rs1 = mydb.OpenRecordset("rkd", dbOpenTable)
Set rs2 = mydb.OpenRecordset("kc", dbOpenTable)
'查询库存商品信息
Data1.RecordSource = "SELECT * FROM KC"
Data1.Refresh
For i = 1 To 100
If mf1.TextMatrix(i, 1) <> "" And mf1.TextMatrix(i, 8) <> "" Then
'添加入库商品信息到"rkd"表中
rs1.AddNew
If mf1.TextMatrix(i, 1) <> "" Then rs1.Fields("商品名称") = mf1.TextMatrix(i, 1)
If mf1.TextMatrix(i, 2) <> "" Then rs1.Fields("简称") = mf1.TextMatrix(i, 2)
If mf1.TextMatrix(i, 3) <> "" Then rs1.Fields("批号") = mf1.TextMatrix(i, 3)
If mf1.TextMatrix(i, 4) <> "" Then rs1.Fields("产地") = mf1.TextMatrix(i, 4)
If mf1.TextMatrix(i, 5) <> "" Then rs1.Fields("规格") = mf1.TextMatrix(i, 5)
If mf1.TextMatrix(i, 6) <> "" Then rs1.Fields("包装") = mf1.TextMatrix(i, 6)
If mf1.TextMatrix(i, 7) <> "" Then rs1.Fields("单位") = mf1.TextMatrix(i, 7)
If mf1.TextMatrix(i, 8) <> "" Then rs1.Fields("数量") = mf1.TextMatrix(i, 8)
If mf1.TextMatrix(i, 9) <> "" Then rs1.Fields("进价") = mf1.TextMatrix(i, 9)
If mf1.TextMatrix(i, 10) <> "" Then rs1.Fields("金额") = mf1.TextMatrix(i, 10)
If mf1.TextMatrix(i, 11) <> "" Then rs1.Fields("备注") = mf1.TextMatrix(i, 11)
If gys.Text <> "" Then rs1.Fields("供应商") = gys.Text
If jsr.Text <> "" Then rs1.Fields("经手人") = jsr.Text
If rkrq.Text <> "" Then rs1.Fields("日期") = rkrq.Text
If PH.Text <> "" Then rs1.Fields("票号") = PH.Text
rs1.Update        '更新表
'查找库存商品信息
Data1.Recordset.FindFirst "商品名称 like " + Chr(34) + mf1.TextMatrix(i, 1) + Chr(34) + "and 批号 like " + Chr(34) + mf1.TextMatrix(i, 3) + Chr(34) + "and 产地 like " + Chr(34) + mf1.TextMatrix(i, 4) + Chr(34) + " and 规格 like " + Chr(34) + mf1.TextMatrix(i, 5) + Chr(34) + ""
If Data1.Recordset.NoMatch Then
'添加入库商品到"kc"表中
rs2.AddNew
If mf1.TextMatrix(i, 1) <> "" Then rs2.Fields("商品名称") = mf1.TextMatrix(i, 1)
If mf1.TextMatrix(i, 2) <> "" Then rs2.Fields("简称") = mf1.TextMatrix(i, 2)
If mf1.TextMatrix(i, 3) <> "" Then rs2.Fields("批号") = mf1.TextMatrix(i, 3)
If mf1.TextMatrix(i, 4) <> "" Then rs2.Fields("产地") = mf1.TextMatrix(i, 4)
If mf1.TextMatrix(i, 5) <> "" Then rs2.Fields("规格") = mf1.TextMatrix(i, 5)
If mf1.TextMatrix(i, 6) <> "" Then rs2.Fields("包装") = mf1.TextMatrix(i, 6)
If mf1.TextMatrix(i, 7) <> "" Then rs2.Fields("单位") = mf1.TextMatrix(i, 7)
If mf1.TextMatrix(i, 8) <> "" Then rs2.Fields("库存") = mf1.TextMatrix(i, 8)
If mf1.TextMatrix(i, 9) <> "" Then rs2.Fields("进价") = mf1.TextMatrix(i, 9)
If mf1.TextMatrix(i, 10) <> "" Then rs2.Fields("库存金额") = mf1.TextMatrix(i, 10)
rs2.Update     '更新表
Else
'更新"kc"表中的"库存"及"库存金额"
Data1.Recordset.Edit
Data1.Recordset.Fields("库存") = Val(mf1.TextMatrix(i, 8)) + Val(Data1.Recordset.Fields("库存"))
Data1.Recordset.Fields("库存金额") = Val(Data1.Recordset.Fields("库存")) * Val(Data1.Recordset.Fields("进价"))
Data1.UpdateRecord
End If
End If
Next i
rs1.Close: mydb.Close
'清空数据
For i = 1 To 100
For j = 1 To 11
mf1.TextMatrix(i, j) = ""
Next j
Next i
gys.Text = "": jsr.Text = "": js.Text = "": hjsl.Text = "": hj.Text = ""
Text1.Visible = False: DBList1.Visible = False     '设置控件不可见
mf1.Enabled = False: Combc.Enabled = False: Comdj.Enabled = True: Comqx.Enabled = False
End Sub
Private Sub Comqx_Click()      '取消操作
gys.Text = "": jsr.Text = "": js.Text = "": hjsl.Text = "": hj.Text = ""
For i = 1 To 100
For j = 1 To 11
mf1.TextMatrix(i, j) = ""
Next j
Next i
gys.Enabled = False: jsr.Enabled = False: js.Enabled = False: hjsl.Enabled = False: hj.Enabled = False
DBList1.Visible = False: Text1.Enabled = False: mf1.Enabled = False: Combc.Enabled = False:
Comqx.Enabled = False: Comdj.Enabled = True: Comdj.SetFocus
End Sub
Private Sub Comend_Click()
frm_main.Enabled = True
Unload Me
End Sub

查询模块程序代码:

Dim lsql As String
Dim tmpsql1 As String
Dim tpsql1 As String
Private Sub Combo1_LostFocus()
Combo1.AddItem "商品名称"
Combo1.AddItem "批号"
Combo1.AddItem "产地"
Combo1.AddItem "数量"
Combo1.AddItem "供应商"
Combo1.AddItem "日期"
Combo1.AddItem "票号"
End Sub

Private Sub Combo2_LostFocus()
Combo2.AddItem ">"
Combo2.AddItem "<"
Combo2.AddItem ">="
Combo2.AddItem "<="
Combo2.AddItem "="
End Sub

Private Sub Command1_Click()
Text3.Text = str(Data1.Recordset.RecordCount)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
slql = "select * from .kc"
Data1.RecordSource = slql
Data1.Refresh
Text3.Text = str(Data1.Recordset.RecordCount)
End Sub

Private Sub Command4_Click()
i = MsgBox("确实要重新设置吗？", 33, "")
If i = 1 Then
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
End If
End Sub

Private Sub Command5_Click()
i = MsgBox("真的要打印吗？", 33, "")
If i = 1 Then
DataReport1.Show
Else
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.ShowPrinter
errhandler:
Exit Sub
End If
End Sub

Private Sub Command9_Click()
On Error Resume Next
If Combo3.Text = "" Then
MsgBox "请输入查询内容！", 49, "提示信息"
End If
tmpsql1 = Combo1.Text & Combo2.Text & "'" & Trim(Combo3.Text & "'")
lsql = "select * from rkd where " & tmpsql1
Data1.RecordSource = lsql
Data1.Refresh
MSFlexGrid1.Visible = True
End Sub

Private Sub Form_Load()
  Data1.DatabaseName = App.Path & "\仓库.mdb"
  Me.Left = (Screen.Width - Me.Width) / 2
  Me.Top = (Screen.Height - Me.Height) / 2
  Me.Width = 8000
  Me.Height = 5220
 
End Sub

入库信息管理程序代码：

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Command2.Enabled = False
Command3.Enabled = True
End Sub
Private Sub Command2_Click()
Data1.Recordset.MovePrevious
Command3.Enabled = True
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
Command2.Enabled = False
End If
End Sub

Private Sub Command3_Click()
Data1.Recordset.MoveNext
Command2.Enabled = True
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Command3.Enabled = False
End If
End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveLast
Command3.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command5_Click()
If Command5.Caption = "修改" Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Text15.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command6.Enabled = True
Command5.Caption = "确认"
Data1.Recordset.Edit
Text1.SetFocus
Else
Command5.Caption = "修改"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command6.Enabled = False
Data1.Recordset.Update
End If
End Sub

Private Sub Command7_Click()
r = MsgBox("你是否要真的删除，注意不能恢复！", vbOKCancel, "删除警告")
If r = 1 Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End If
End Sub

Private Sub Command6_Click()
Command5.Caption = "修改"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command6.Enabled = False
Data1.UpdateControls
End Sub
Private Sub Command8_Click()
Unload Me
frm_main.Enabled = True
End Sub
Private Sub Form_Load()
Command6.Enabled = False
Data1.DatabaseName = App.Path & "\仓库.mdb"        '自动识别数据库路径
End Sub

供应商管理程序代码：

Dim X, i     '定义变量
Public Sub viewdata()      '定义显示数据的函数
For i = 0 To 16
If Data1.Recordset.Fields(i) <> "" Then gys(i).Text = Data1.Recordset.Fields(i) Else gys(i).Text = ""
Next i
End Sub
Private Sub Form_Activate()
' 向combo1添加查询项目列表
X = Array("供应商编号", "供应商全称", "简称", "地址", "所属地区", "邮政编码", "电话", "传真")
For i = 0 To 7
Combo1.AddItem (X(i))
Next i
Combo1.Text = "供应商全称"
'初始化给gys(i)赋值
If Data1.Recordset.RecordCount > 0 Then
Call viewdata       '调用函数
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\仓库.mdb"        '自动识别数据库路径
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
Unload Me
End Sub
Private Sub ComFind_Click()
'查询供应商信息
Data1.RecordSource = "select * from gys where (gys." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
Call viewdata       '调用函数
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub gys_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)     '回车获得焦点
If KeyCode = vbKeyReturn And Index < 16 Then gys(Index + 1).SetFocus
If KeyCode = vbKeyReturn And Index = 9 Then SSTab1.Tab = 1
If KeyCode = vbKeyReturn And Index = 16 Then ComSaveM.SetFocus
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
If Data1.Recordset.RecordCount > 0 Then
If SSTab1.Tab = 2 And ComAdd.Enabled = False Then
MsgBox ("您正在处理数据,请取消数据处理,在执行本操作!")
SSTab1.Tab = 0
Else
End If
End If
End Sub
Private Sub CmdMD_Click(Index As Integer)
Select Case Index
Case Is = 0     '移到第一条记录
If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
Case Is = 1     '移到上一条记录
If Data1.Recordset.RecordCount <> 0 Then
If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst
End If
Case Is = 2     '移到下一条记录
If Data1.Recordset.RecordCount <> 0 Then
If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast
End If
Case Is = 3     '移到最后一条记录
If Data1.Recordset.RecordCount <> 0 Then
If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast
End If
End Select
Call viewdata     '调用函数
End Sub
Private Sub ComAdd_Click()     '允许用户添加新记录
For i = 0 To 16
gys(i).Text = ""
gys(i).Enabled = True
Next i
ComSaveM.Visible = True: ComSaveA.Visible = False: ComSaveM.Enabled = True: ComEsc.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = False
Next i
ComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = False
SSTab1.Tab = 0: gys(0).SetFocus
End Sub
Private Sub ComModify_Click()     '允许用户修改记录
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.Edit
For i = 0 To 16
gys(i).Enabled = True
Next i
ComSaveA.Visible = True: ComSaveA.Enabled = True: ComSaveM.Visible = False: ComEsc.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = False
Next i
ComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = False
Else
MsgBox ("没有要修改的数据!")
End If
End Sub
Private Sub ComSaveA_Click()     '保存修改记录
Dim A As String
A = MsgBox("您确实要修改这条数据吗?", vbYesNo)
If A = vbYes Then
Data1.Recordset.Edit
For i = 0 To 16
If gys(i).Text <> "" Then Data1.Recordset.Fields(i) = gys(i).Text
gys(i).Enabled = False
Next i
ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
ComModify.Enabled = True: ComDelete.Enabled = True: Data1.Recordset.Update
End If
End Sub
Private Sub ComSaveM_Click()     '保存新增记录
Dim mydb As Database
Dim myrs1 As Recordset
If gys(0).Text <> "" And gys(1).Text <> "" Then
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\仓库.mdb")
Set myrs1 = mydb1.OpenRecordset("gys", dbOpenTable)
myrs1.AddNew
For i = 0 To 16
If gys(i).Text <> "" Then myrs1.Fields(i) = gys(i).Text
Next i
myrs1.Update: myrs1.Close: mydb1.Close: Data1.Refresh
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
ComModify.Enabled = True: ComDelete.Enabled = True
ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
Else
End If
End Sub
Private Sub ComDelete_Click()     '删除供应商信息
If Data1.Recordset.RecordCount > 0 Then
A = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If A = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
ComModify.Enabled = True: ComDelete.Enabled = True
ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
For i = 0 To 16
gys(i).Text = ""
Next i
End If
Else
MsgBox ("没有要删除的数据!")
End If
End Sub
Private Sub ComEsc_Click()     '取消操作
If Data1.Recordset.RecordCount > 0 Then
For i = 0 To 16
gys(i).Enabled = False
If Data1.Recordset.Fields(i) <> "" Then gys(i).Text = Data1.Recordset.Fields(i)
Next i
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
ComModify.Enabled = True: ComDelete.Enabled = True: ComSaveA.Enabled = False
ComSaveM.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
End If
End Sub
Private Sub Comend_Click()
frm_main.Enabled = True
Unload Me
End Sub

库存盘点程序代码：

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\仓库.mdb"     '自动识别数据库路径
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub Command1_Click()
'盘点库存大于零的库存信息
Data1.RecordSource = "select * from kc where kc.库存>0 "
Data1.Refresh
MS1.Col = 9: MS1.Sort = flexSortNumericAscending     '第9行按升序排序
End Sub
Private Sub Command2_Click()
frm_main.Enabled = True
Unload Me
End Sub
价格管理程序代码：

Public Sub eva l()     '定义赋值函数
If Data2.Recordset(0) <> "" Then pz.Caption = Data2.Recordset(0) Else pz.Caption = "0"
If Data2.Recordset(1) <> "" Then hjsl.Caption = Data2.Recordset(1) Else hjsl.Caption = "0"
If Data2.Recordset(2) <> "" Then hjje.Caption = Data2.Recordset(2) Else hjje.Caption ="0"
End Sub
Private Sub Form_Load()     '自动识别数据库路径
Data1.DatabaseName = App.Path & "\仓库.mdb"
Data2.DatabaseName = App.Path & "\仓库.mdb"
End Sub
Private Sub Form_Activate()
' 向combo1添加查询项目列表
Combo1.AddItem ("商品名称")
Combo1.AddItem ("简称")
Combo1.AddItem ("批号")
Combo1.ListIndex = 0
'初始化查询统计库存商品信息
Data2.RecordSource = "select count(*)as 品种,sum(库存)as 合计库存,sum(库存金额)as 合计库存金额 from kc  "
Data2.Refresh
Call eva l     '调用函数
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub texgjj_Change()
texgje.Text = Val(texgkc.Text) * Val(texgjj.Text)     '计算库存金额
Data2.Refresh
Call eva l     '调用函数
End Sub
Private Sub texgkc_Change()
texgje.Text = Val(texgkc.Text) * Val(texgjj.Text)     '计算库存金额
Data2.Refresh
Call eva l     '调用函数
End Sub
Private Sub Command1_Click()   '查询统计库存商品信息
Data1.RecordSource = "select * from kc  where (kc." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
Data2.RecordSource = "select count(*)as 品种,sum(库存)as 合计库存,sum(库存金额)as 合计库存金额 from kc  where (kc." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data2.Refresh
Call eva l     '调用函数
End Sub
Private Sub Command2_Click()
frm_main.Enabled = True
Unload Me
End Sub
添加与删除用户程序代码：

Private Sub Command1_Click()
If Command1.Caption = "添加" Then
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Text1.Enabled = True: Text2.Enabled = True
Command1.Caption = "确认"
Data1.Recordset.AddNew
Text1.SetFocus
Text3.Text = "0"
Else
Command1.Caption = "添加"
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Text1.Enabled = False: Text2.Enabled = False
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Command2_Click()
Command1.Caption = "添加"
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Text1.Enabled = False: Text2.Enabled = False
Data1.UpdateControls
'Data1.Recordset.Bookmark = mbookmark
End Sub

Private Sub Command3_Click()
On Error Resume Next
r = MsgBox("你是否要真的删除，注意不能恢复！", vbOKCancel, "删除警告")
If r = 1 Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End If
End Sub
Private Sub Command4_Click()
Unload Me
frm_main.Enabled = True
End Sub
Private Sub Command5_Click()
Data1.Recordset.MoveFirst
End Sub
Private Sub Command6_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
End Sub
Private Sub Command7_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub
Private Sub Command8_Click()
Data1.Recordset.MoveLast
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\仓库.mdb"
Command2.Enabled = False
End Sub

修改密码程序代码：

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\仓库.mdb"    '自动识别数据库路径
End Sub
Private Sub Command1_Click()     '确认修改操作员信息
Data1.RecordSource = "select * from ma where 操作员 = '" & Text1.Text & " '"     '查询操作员信息
Data1.Refresh
If Text1.Text <> "" And Text2.Text <> "" And Text2.Text = ma.Text Then
If Text3.Text = "" Then
MsgBox ("请输入新密码!!")
Text3.SetFocus
Else
Data1.Recordset.Edit
Data1.Recordset.Fields("密码") = Text3.Text
If Text3.Text <> Text4.Text Then
MsgBox ("两次密码不一样，请重新输入!")
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
Else
Data1.Recordset.Update
MsgBox ("密码修改成功!")
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "":
End If
End If
Else
If Text1.Text = "" Then
MsgBox ("请输入用户名!")
Text1.SetFocus
Else
If Data1.Recordset.EOF Then
MsgBox "无此用户"
Data1.RecordSource = "ma"
Data1.Refresh
Text1.Text = ""
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox ("请输入旧密码!")
Text2.SetFocus
Else
If Text2.Text <> Data1.Recordset.Fields("密码") Then
MsgBox ("旧密码错误,请重新输入旧密码!")
Text2.SetFocus
End If
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
frm_main.Enabled = True
Unload Me
End Sub

数据备份窗口代码：

Private Sub Command1_Click()            '确认数据备份
YesNo = MsgBox("准备好了吗？", vbNo + vbQuestion)
If YesNo = vbNo Then
Exit Sub
End If
On Error GoTo errprompt
Me.MousePointer = 11
MkDir (Text1.Text & ":\数据备份")
FileCopy App.Path & "\yyjxc.mdb", Text1.Text & ":\数据备份\yyjxc.mdb"
Me.MousePointer = 0
MsgBox "数据已备份完毕。"
errprompt:
Me.MousePointer = 0
Select Case Err.Number
Case 57
MsgBox "磁盘已满！", vbCritical
Case 70
MsgBox "磁盘写保护！", vbCritical
End Select
End Sub
Private Sub Command2_Click()
Load frm_main
frm_main.Show
frm_main.Enabled = True
Unload Me
End Sub

数据恢复窗口代码：

Private Sub Form_Activate()
'赋值给text1
Text1.Text = "A"
End Sub
Private Sub Command1_Click()                '确认数据恢复
YesNo = MsgBox("准备好了吗？", vbNo + vbQuestion)
If YesNo = vbNo Then
Exit Sub
End If
On Error GoTo errprompt
Me.MousePointer = 11
FileCopy Text1.Text & ":\数据备份\yyjxc.mdb", App.Path & "\yyjxc.mdb"
Me.MousePointer = 0
MsgBox "数据已恢复完毕。"
errprompt:
Me.MousePointer = 0
Select Case Err.Number
Case 57
MsgBox "磁盘已满！", vbCritical
Case 70
MsgBox "磁盘写保护！", vbCritical
End Select
End Sub
Private Sub Command2_Click()
Load frm_main
frm_main.Show
frm_main.Enabled = True
Unload Me
End Sub

 
 第五章  使用说明
1、简介
   本软件是一个简单的商品进销存管理系统，前台界面是使用VB开发的，后台是ACCESS数据库。用户可以使用本软件对商品的进、销、存纪录进行管理，及时的掌握商品的进、销、存情况。
2、软件开发目的
    针对小型的商品零售单位，业务发生频繁，每笔业务涉及金额小、内容重复等特点。
3、软件适用范围
小型超市、商店、个体工商户
4  销售管理系统是专为小企业开发的货物挡案计算机管理系统。它可以将原先货物档案手工管理变为计算机可视化管理，充分发挥了计算机的快捷、准确、方便、高效的特点，使原来几个小时的大工作量变为在短短的几分钟就完成而且准确无误，极大的提高了工作效率和工作质量。该系统具有高度的可靠性和安全保密性，操作简单，易行，用户界面简单，友好，又具有一定的美观性，菜单式的使用方式方便，不繁琐，便于用户查询、统计和打印等。让人操作起来，得心应手，满足了用户的需要。

  
 第六章   附   录
 
开发小组人员分工一览表

 日常业务登记模块：苏兆民   闫新民

 库存管理模块：    霍宪斌   闫新民

 查询统计模块：    李业森   霍宪斌

 业务信息管理模块：苏兆民   李业森

 打印报表模块：    闫新民   苏兆民

 系统设置和帮助：  霍宪斌   李业森

 参 考 文 献

书 名
 作者
 出版社

VB 程序设计简明教程 龚沛曾  陆慰民 杨志强 高等教育出版社
VB 数据库开发
入门与范例解析 郭 胜     夏邦贵 机械工业出版社
VB  程序设计教程 谭浩强 清华大学出版社

VB程序设计题典 
刘圣才  李春葆 
清华大学出版社
VB For Windows语言参考详解 周民光  王复康 北京航空航天大学出版社

结 束 语
 通过使用VB编程，使人真正体会到了可视化编程的优点，自己动手开发小规模的应用系统，学会一种规范化的编程方法，使我加深了对软件的理解。学以致用，学用结合，这既是学习理论知识目的，也是检验学习的最好方法。
 毕业设计是整个教学过程的最后环节，是学生综合运用所学知识解决实际问题能力的考查。这次毕业设计不尽使我了解了VB在数据库方面编程的概要，更让我知道了计算机的编程秘诀在于严密的思考与仔细的推敲，只有这样，才会有一个完善的软件生成。
 在此，我能够依据实际情况以及课堂上所学习的知识，应用到自己的实际工作，帮助解决工作过程中的问题，对实施方法程序有深刻理解，在数据库设计方面，编程技术方面有了一定的进步。通过这一系列工作使我系统地掌握三年来所学的专业知识，并基本掌握了开发一个应用软件的能力。
  通过这次毕业设计，我受益匪浅，不仅巩固了三年来所学的知识，还深入学习了Visual Basic 6.程序设计语言，这种面向对象程序设计理念及快捷灵活的编程手法让人耳目一新。
  在任老师的细心指导下，我解决了许多设计中遇到的问题，在此深表感谢，同时希望各位老师和同学对本系统提出宝贵意见，谢谢大家。
 

相关论文