VB+access超市进销存管理系统

摘  要…………………………………………………………………………1
Abstract………………………………………………………………………2
第一章  引言…………………………………………………………………4
1．1  课题背景……………………………………………………………………4
1．2  系统简介……………………………………………………………………5
1. 3  开发软件介绍………………………………………………………………6
第二章 系统的分析……………………………………………………………8
2．1  系统开发的目标和思想……………………………………………………9
2．2  系统的可行性分析…………………………………………………………13
第三章  系统的设计……………………………………………………………18
3．1  系统的功能结构设计………………………………………………………18
3．2  系统的数据库设计  ……………………………………………………….19
3．3  界面设计与代码设计……………………………………………………………………23
结束语………………………………………………………………………………46

内容来自think58

[资料来源：http://www.THINK58.com]

致谢…………………………………………………………………………………47
参考文献…………………………………………………49 [版权所有：http://think58.com]

摘  要 think58 [版权所有：http://think58.com]

随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。  随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发Windows应用软件是专业人员的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了，即使你没有接受过严格的程序设计训练，使用Visual Basic也一样能够开发出功能强大、适合自己特殊需求的应用程序了。Visual Basic继承了Basic语言易学易用的特点，特别适合于初学者学习Windows系统编程。
    超市进销存管理系统用计算机管理超市库存进出管理的一种计算机应用技术的创新,在计算机还未普及之前库存管理都是由工作人员手工书写的方式来操作的.现在一般的超市都采用计算机智能化管理,采用计算机作为工具的实用的计算机超市库存管理程序来帮助管理员进行更有效的超市库存管理工作。超市进销存管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

think58好，好think58 [资料来源：http://think58.com]

    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
因为本人能力有限，加上时间紧迫，所以设计出来的本系统可能功能比较简单，另外本系统是单机版，不能实现网络互联操作,这些都有待于我在以后的工作学习中进一步改进。
关键字:超市进销存管理,MIS,visual basic ,数据库

第 二 章 系统的分析 本文来自think58 [资料来源：http://think58.com]

2．1 系统开发的目标和思想
本系统开发目标是服务于高速公路收费管理人员,方便工作人员,对过往车辆收费,发放收费票据记录,对信息的分类管理等.
同时力求做到界面人性化,功能齐全,数据存储安全.

think58.com [来源：http://www.think58.com]

[资料来源：http://THINK58.com]

2.2 系统的可行性分析

内容来自think58

[资料来源：http://THINK58.com]

技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于超市管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大顾客,.所以具有社会可行性.

[来源：http://www.think58.com]

第 三 章  系统的设计 内容来自think58 [资料来源：THINK58.com]

3．1 系统的功能结构设计 copyright think58

3．2  系统的数据库设计 think58.com

1:用户登陆表:
 

copyright think58 [来源：http://www.think58.com]

[资料来源：www.THINK58.com]

2:购入商品表:
 

think58.com [资料来源：THINK58.com]

[资料来源：THINK58.com]

3:商品保损表:
 

think58 [来源：http://think58.com]

[资料来源：http://www.THINK58.com]

4:商品信息表: 内容来自think58

[资料来源：http://think58.com]

5:供应商表: think58.com

[资料来源：http://www.THINK58.com]

  think58.com

6:销售表:
 

[资料来源：http://www.THINK58.com]

3.3 界面设计与代码设计

1. 登陆界面设计:
 
代码分析:
Option Explicit [版权所有：http://think58.com]

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long [资料来源：http://www.THINK58.com]

Public OK As Boolean
Dim m_Admin As New clsAdmin
Dim m_nErrCount As Integer

think58.com

Private Sub Form_Load()
  m_nErrCount = 0
End Sub

本文来自think58

[来源：http://www.think58.com]

Private Sub cmdCancel_Click()
  OK = False
  Me.Hide
End Sub think58.com [资料来源：THINK58.com]

Private Sub cmdOK_Click()
  'ToDo: 创建测试密码是否正确
  '检查正确密码
  Dim Account As String
  Dim Pwd As String
  Account = RealString(txtUserName.Text)
  Pwd = RealString(txtPassword.Text)
  '判断密码是否正确
  If Not m_Admin.CheckPwd(Account, Pwd) Then
    m_nErrCount = m_nErrCount + 1
    If m_nErrCount >= 3 Then
      MsgBox "输入密码错误次数太多，请稍后重试", vbExclamation
      End
    End If
    MsgBox "密码错误，再试一次！还有 " & 3 - m_nErrCount & " 次机会，注意密码区分大小写", vbCritical, "登录"
    txtPassword.SetFocus
    txtPassword.SelStart = 0
    txtPassword.SelLength = Len(txtPassword.Text)
  Else
    OK = True
    g_Account = Account
    Me.Hide
  End If
  [版权所有：http://think58.com]
End Sub

内容来自think58 [资料来源：http://THINK58.com]

[资料来源：THINK58.com]

2:报损信息表:
 
代码分析:
Option Explicit
Private OK As Boolean             '确定用户按了OK还是CANCEL按钮
Private m_obj As clsDispose         '数据对象，用来存储用户输入数据
Public m_ViewType As gxcViewType  '显示状态，指添加还是修改
Private m_TypeId As Long
Private m_Account As String       '调用此对话框的操作员

内容来自think58 [资料来源：http://think58.com]

'根据是“新增”还是修改，确定显示内容
Private Sub SetStatus()
 
  '设置控件默认值
  Call SetDefaultValue
 
  '设置状态
  Select Case m_ViewType
  Case vtadd    '添加
    CancelButton.Visible = True
    OKButton.Caption = "确定"
  Case vtModify '修改
    CancelButton.Visible = True
    OKButton.Caption = "保存"
  Case vtInfo   '查看
    CancelButton.Visible = False
    OKButton.Caption = "关闭" think58 [资料来源：http://www.THINK58.com]

  End Select copyright think58

[资料来源：www.THINK58.com]

End Sub copyright think58

[来源：http://think58.com]

'打开对话框，并传出用户输入数据
Public Function ShowDlg(ByRef obj As Object, _
                        ByVal eViewType As gxcViewType, _
                        Optional nTypeId As Long = -1, _
                        Optional strUser As String = "") As Boolean
  '保存数据
  Set m_obj = obj         '用户输入数据存放于此对象中
  m_ViewType = eViewType  '对话框状态
  If nTypeId = -1 And (Not m_obj Is Nothing) Then
    m_TypeId = m_obj.TypeId
  Else
    m_TypeId = nTypeId
  End If
  m_Account = strUser     '调用此对话框的用户账号 think58.com [资料来源：http://think58.com]
 
 
  '根据新增、编辑或查看设置显示内容
  SetStatus
 
  '显示对话框
  OK = False
  Me.Show vbModal
  If OK = False Then
    ShowDlg = False
    Exit Function
  End If
 
  '保存数据
  Set obj = m_obj
 
  '返回并释放对话框
  ShowDlg = True
  Unload Me
 
End Function

think58 [资料来源：http://www.THINK58.com]

[资料来源：http://think58.com]

'设置控件默认值
Private Sub SetDefaultValue()
  Dim ctl As Control
  Dim i As Integer
 
 
 '如果是新增，则清空所有文本框
 '此处判断 m_obj为空与判断m_ViewType = vtAdd等效，但更安全
  If m_obj Is Nothing Then
    For Each ctl In Controls
      If TypeOf ctl Is TextBox Then
        ctl.Text = ""
      End If
    Next
  Else  '用传入对象的值更新数据
    With m_obj
      txtCount.Text = .Count
      txtReason.Text = .Reason
      txtRemark.Text = .Remark
      cboUnit.ListIndex = 0
      dtpRegDate.Value = .RegDate
      For i = 0 To cboMerchName.ListCount - 1
        If cboMerchName.ItemData(i) = .MerchandiseID Then 内容来自think58

          cboMerchName.ListIndex = i         '客户类型Id
          Exit For
        End If
      Next i
     
    End With
  End If
 
End Sub copyright think58 [资料来源：http://THINK58.com]

'检查输入有效性
Private Function CheckValid() As Boolean
  CheckValid = False
   
  If txtCount.Text = "" _
    Or txtReason.Text = "" _
    Or txtRemark.Text = "" Then
    MsgBox "请填写完毕以上各项内容"
    Exit Function
  End If
  If cboMerchName.Text = "" Then
    MsgBox "请填写完毕以上各项内容"
    Exit Function
  End If
 
  If Not IsNumeric(txtCount.Text) Then
    MsgBox "数量请输入数字"
    Exit Function
  End If
 
  If Not IsDate(dtpRegDate.Value) Then
    MsgBox "请输入正确的日期格式"
    Exit Function
  End If
 
  CheckValid = True
 
End Function

内容来自think58 [资料来源：THINK58.com]

[资料来源：http://www.THINK58.com]