课程设计 - 超市进销存管理系统设计与实现

计算机信息管理专业毕业设计论文

《超市进销存管理系统设计与实现》

专业：计算机信息管理专业 年级：09春计算机信息管理 姓名： 学号： 指导老师：

二〇一一年十月

超市进销存管理系统

摘 要

随着经济的发展，超市进销存管理系统用计算机管理超市库存进出已经成为管理的一种计算机应用技术的创新,在计算机还未普及之前库存管理都是由工作人员手工书写的方式来操作的.现在一般的超市都采用计算机智能化管理,采用计算机作为工具的实用的计算机超市库存管理程序来帮助管理员进行更有效的超市库存管理工作。超市进销存管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

因为本人能力有限，加上时间紧迫，所以设计出来的本系统可能功能比较简单，另外本系统是单机版，不能实现网络互联操作,这些都有待于我在以后的工作学习中进一步改进。

关键字:超市进销存管理 MIS visual basic 数据库

计算机信息管理数据库应用课程设计

1

超市进销存管理系统

目 录

摘 要……………………………………………………………2 一、概述…………………………….……………………………..3

1、课题来源……………….……………………………………..3 2、开发背景和开发目的…….……………………………………..4

二、需求分析……………….……………………………………..5

1、系统目标……………….………………………………........................5 2、应用现状调查……………….…………………………………………5 3、系统总体流程图如下:…….…………………………………………...5 4、系统功能模块图…………….…………………………………………6 5、系统功能的分析…………….…………………………………………6 6、开发工具的选择…………….…………………………………………7

三、超市进销存管理系统的设计.????????????9

1、数据库设计……………….……………………………………………9 2、数据库逻辑结构设计……….…………………………………………10 3、用户登录表.….….….….….….….….….….….….….….….….….….…10 4、购入商品表….….…. ….….…. ….….…. ….….…. ….….…. ….….….11 5、商品报损表….….…. ….….…. ….….…. ….….…. ….….…. ….….….11 6、商品信息表.….….….….….….….….….….….….….….….….….….….12

四、超市进销存管理系统实施.………………………………….13

1、创建工程项目—超市进销存管理MIS…………………………………….13 2、创建超市进销存管理系统的窗体..…………………………………………..14 3、登录窗口的设计…………………………………………………………14 4、主界面窗的设计………………………………………………………………17 5、主要的控件及其基本属性.……………………………………………..40

计算机信息管理数据库应用课程设计

2

超市进销存管理系统

五、测试与分析.….….….….….….….….….….….….….….….….….….…42

1、测试环境.….….….….….….….….….….….….….….….….….….….…42 2、测试方法….…….…….…….…….…….…….…….…….…….…….…43 3、测试项目….…….…….…….…….…….…….…….…….…….…….…44

六、设计总结……………….……………………………………..46 参考文献……………….…………………………………………..48 附录……………….……………………………. ………………….49

计算机信息管理数据库应用课程设计

3

超市进销存管理系统

一、概 述

1、课题来源

随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。所以开发超市进销存系统管理软件提高管理效率是必然的发展趋势。 2、开发背景和开发目的

超市进销存管理系统用计算机管理超市库存进出管理的一种计算机应用技术的创新,在计算机还未普及之前库存管理都是由工作人员手工书写的方式来操作的.现在一般的超市都采用计算机智能化管理,采用计算机作为工具的实用的计算机超市库存管理程序来帮助管理员进行更有效的超市库存管理工作。超市进销存管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

计算机信息管理数据库应用课程设计

4

超市进销存管理系统

Alias \(ByVal lpbuffer As String, nSize As Long) As Long

Public OK As Boolean Dim m_Admin As New clsAdmin Dim m_nErrCount As Integer Private Sub Form_Load() m_nErrCount = 0 End Sub

Private Sub cmdCancel_Click() OK = False Me.Hide End Sub

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

计算机信息管理数据库应用课程设计

15

超市进销存管理系统

If m_nErrCount >= 3 Then

MsgBox \输入密码错误次数太多，请稍后重试\vbExclamation

End End If

MsgBox \密码错误，再试一次！还有 \& \次机会，注意密码区分大小写\登录\

txtPassword.SetFocus txtPassword.SelStart = 0

txtPassword.SelLength = Len(txtPassword.Text) Else OK = True

g_Account = Account Me.Hide End If End Sub

计算机信息管理数据库应用课程设计

16

超市进销存管理系统

5、主界面窗口

图片10 主界面窗口

代码分析: Option Explicit Const NAME_COLUMN = 0 Const TYPE_COLUMN = 1 Const SIZE_COLUMN = 2 Const DATE_COLUMN = 3

Dim mbMoving As Boolean Const sglSplitLimit = 500

计算机信息管理数据库应用课程设计

17

超市进销存管理系统

Private Sub Form_Load() LoadResStrings Me

Me.Left = GetSetting(App.Title, \\1000)

Me.Top = GetSetting(App.Title, \1000)

Me.Width

=

GetSetting(App.Title,

\

\

Me.Height

=

GetSetting(App.Title,

\

\

lvMerch.View = Val(GetSetting(App.Title, \\

'初始化数据 Call InitMain End Sub

Private Sub Form_Unload(Cancel As Integer) Dim i As Integer

'close all sub forms

计算机信息管理数据库应用课程设计

18

超市进销存管理系统

For i = Forms.Count - 1 To 1 Step -1 Unload Forms(i) Next

If Me.WindowState <> vbMinimized Then

SaveSetting App.Title, \\Me.Left

SaveSetting App.Title, \ SaveSetting App.Title, \\Me.Width

SaveSetting App.Title, \\Me.Height

End If SaveSetting lvMerch.View

End Sub

Private Sub Form_Resize() On Error Resume Next

If Me.Width < 3000 Then Me.Width = 3000 SizeControls imgSplitter.Left End Sub

计算机信息管理数据库应用课程设计

19

App.Title, \\

本文来源：https://www.bwwdw.com/article/0z1h.html