VB512 基于VB制造业MPR系统SQL

全球制造业市场竞争日益激烈，企业要想获得持续性的赢利取决于其是否能够赢得和保持相当的客户的满意度。经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。

目   录
摘 要 I
ABSTRACT II
第1章 绪论 1
1.1 课题背景 1
第2章 用户需求分析 2
2.1 功能需求 2
2.2 实现目标 2
第3章 相关技术介绍及系统数据库介绍 4
3.1 数据库 4
3.1.1 ADO数据库访问技术 4
3.1.2 VB的数据库访问技术 6
3.2 VB 6.0中文版 6
3.3 软件的运行环境设计 9
3.3.1 软件环境： 9
3.3.2 硬件环境： 9
第4章 系统模块设计 10
4.1 系统结构图 10
4.2 数据库需求分析 11
第5章 系统设计与数据库实现 12
5.1 库的结构 12
5.1.1 采购信息表 12
5.1.2 计划表 13
5.1.3 库存表 13
5.1.4 生产表 13
5.1.5 销售表 14
5.1.6用户表 14
5.2 系统主界面设计 14
5.3 库存管理模块设计 16
5.3.1入库管理模块设计 16
5.3.2库存清点管理模块设计 17
5.4 销售管理模块设计 17
5.5 采购管理模块设计 18
5.6 财务管理模块设计 19
5.7 生产管理模块设计 20
5.8 计划管理模块设计 21
5.9 用户管理模块设计 22 本文来自think58 [资料来源：THINK58.com]
结 论 24
致 谢 25
参考文献 26

本文来自think58 [资料来源：http://THINK58.com]

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

 同时我国制造业经营形式正在向集团化、连锁化发展.在这一发展过程中,旧的企业管理模式已不适应新型的社会主义市场经济的要求,而新的企业管理模式正在被广泛探讨、研究之中.这其中,如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率,已是制造企业特别关心的问题.再者,由于制造业产品种类繁多、销售模式特殊、业务量大,单凭手工记账及人工判断决策已很难适应工作的需要.制造业作为一个关系到社会生产力发展的特殊行业,国家对该行业又有一些不同于其他行业的管理政策,这些都加大了管理的难度.如何尽快建立和完善现代企业的信息化管理机制问题,已成为制造企业发展的关键所在. 

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

[资料来源：THINK58.com]

    通过对制造业企业日常业务的设计处理,实现了现代化的制造门店管理模式.具体功能包括日常业务、库存管理、查询统计、基础信息管理、系统设置等大模块.系统主要的功能模块设计有:
1、销售管理：对客户需求、仓存、采购等物流管理。
2、计划管理：将客户需求和产品预期产量分解到生产管理和采购管理中。
3、采购管理：根据计划、销售的信息进行采购。
4、生产管理：根据企业的生产任务控控制材料和加工过程跟踪。
5、库存管理：进行产品和材料流动和循环管理。
6、简易财务管理：应收、应付、成本资金流动及成本核算。.
2.2 实现目标
面对制造行业的高速发展及其发展过程中出现的各种情况，制造门店进销存管理系统在实施后应能够达到以下目标:
实现多点操作的信息共享,相互之间信息传递准确、快捷、顺畅.
全面自动化管理,可随时掌握制造的库存、销售等情况.
能够快速、准确地处理制造进、销、存、退、盘点、变价、折扣等多种业务模式.
系统界面友好美观,操作简单易行,查询灵活方便,数据存储安全可靠. think58好，好think58

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

WINDOWS环境下设计具有图形界面的应用程序，如果用传统的高级语言进行，工作量将十分巨大，其中绝大部分的工作量花在界面设计上（用程序语句在屏幕上画出所需的界面），Visual Basic和其它可视化工具的出现，使应用程序的设计进入了一个新的阶段。
Visual Basic是MICROSOFT公司推出的程序设计语言，具有功能强大、软件费用支出低、见效快等特点。它提供了开发WINDOWS应用程序最迅速、最简捷的方法。
总的来说，Visual Basic具有以下特点：
可视化编程：
用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。

think58.com

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

面向对象的程序设计
4.0版后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。
结构化程序设计语言
Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简 think58好，好think58

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

2. 代码如下：
   Private Sub Command1_Click()
  rst.Open "select * From yonghu where 用户名='" + Trim(Me.txtusername) + "'", Cnn, adOpenKeyset, adLockOptimistic
If rst.RecordCount = 0 Then
        MsgBox "该用户名不存在，请查后再试！", vbCritical, "敬告！"
        Me.txtusername = "": Me.txtusername.SetFocus: Me.Txtpassword.Text = ""
        sum = sum + 1
        If sum = 3 Then
            MsgBox "看样子你不是合法的用户，请你离开。", vbCritical, "滚！滚！滚！"
            End
        End If
        rst.Close
        Exit Sub
    Else
        If rst.Fields("密码") = Trim(Me.Txtpassword) Then [资料来源：www.THINK58.com]
            getName = txtusername
            MDIFrmmain.Show
           
            Unload Me
            '验证权限
        Else
            MsgBox "密码不正确，请查证！", vbCritical, "警告！"
            sum = sum + 1
            If sum = 3 Then
                MsgBox "看样子你不是合法的用户，请你离开。", vbCritical, "GET OUT OF HERE!"
                End
            End If think58.com

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

End If
End If
    rst.Close
End Sub
Private Sub Form_Load()
    X0 = Screen.Width
    Y0 = Screen.Height
    X0 = (X0 - Me.Width) / 2
    Y0 = (Y0 - Me.Height) / 2
    Me.Move X0, Y0
   
Set Cnn = New ADODB.Connection
If Cnn.State Then Cnn.Close
Cnn.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=MPR"
Cnn.Open 本文来自think58

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

Label1.Caption = "总共的金额为" + Str(ys) + "元！"
End Sub
Private Sub Command2_Click()
Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=mpr"
Adodc1.RecordSource = "select * From caigou"
Adodc1.Refresh
'On Error Resume Next
Dim ys%, sumRst%
rst.Open "SELECT SUM(采购金额) as sumRst FROM caigou", Cnn, adOpenKeyset, adLockOptimistic
        ys = Str(rst("sumRst"))
rst.Close
Label1.Caption = "总共采购的金额为" + Str(ys) + "元！"
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
  On Error GoTo Err
    If MSHFlexGrid1.TextMatrix(0, 1) = "" Then Exit Sub
    numExcel = 1
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
        Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(App.Path + "\paper" & CStr(numExcel) & ".xls") '打开已经存在的EXCEL工件簿文件

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

    Set xlSheet = xlBook.Worksheets(1) '设置活动工作表
        xlSheet.Cells(1, 1) = FlName & "销售表"
        For i = 0 To MSHFlexGrid1.Rows - 1
            For j = 0 To MSHFlexGrid1.Cols - 1
                xlSheet.Cells(i + 2, j + 1) = Trim(MSHFlexGrid1.TextMatrix(i, j))
            Next j
        Next i
    xlApp.Visible = True
    Exit Sub
Err:
    MsgBox Err.Description, , "错误"
    xlBook.Close (True) '关闭工作簿
    xlApp.Quit '结束EXCEL对象
    Set xlApp = Nothing '释放xlApp对象 copyright think58 [资料来源：THINK58.com]

5.7 生产管理模块设计
程序启动后,选择”生产管理”菜单下的”生产管理”项,将进入生产管理模块.在进货管理模块中主要实现如下功能:
•完成新增生产计划功能.
•自动生成进生产计划编号，输入有关该计划的各种信息并对其保存
•在界面下方显示所有计划的信息，方便管理员进行查询
界面如下： 内容来自think58 [资料来源：www.THINK58.com]

参考文献
1 《活用Visual Basic 6.0数据库编程》陈俊元   清华大学出版社2000年.7月
2 《Visual Basic 循序渐进教程》王一华 北京希望电子出版社      1999年.8月
3 《Visual Basic 6.0参考详解》 李怀名 清华大学出版社    1999年.11月
4 《Access 2000 中文版》 骆元  电子工业出版社            1999年.8月
5 《中文 Access 疑难解析》 郑敬云    北京电子工业出版社       1997年.6月
6 《如何使用Access 中文版》郭言      北京机械工业出版社  1999年.5月
7 《Visual Basic 6.0数据库开发指南》林立军 西安电子科技大学出版社    2000年.2月
8 《Access 2000系统开发实务》   刘建南 人民邮电出版社    2000年.3月
9 《Visual Basic 6.0高级编程技巧》  白鹏  西安交通大学出版社   1999年.12月
10《Access 中文版即学即通》     铁超     人民邮电出版社  1999年.4月

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

11《Visual Basic程序设计教程》  刘瑞新    电子工业出版社 2000年.2月
12《Access 2000中文版速成》  莫卫东    北京科学出版社    1997年.6月
13《Visual Basic 6.0数据库编程》  张龙之  中国科学技术大学出版社      1999年.6月
14《Access 2000中文版技巧与实例》  马龙  中国水利水电出版社   1999年.5月
15《用 Visual Basic 访问数据库》 Jeffrey P. McManus 电子工业出版社    1999年.2月
16《Microsoft Access 2000即学即会》   林立于 北京大学出版社   1999年.8月
17《AN INTRODUCTION TO DATABASE SYSTEMS SEVENTH EDITION》C.J.DATE   　　　 机械工程出版社   2000年．5月
18《A FIRST COURSE IN DATABASE SYSTEMS》  JEFFREY D.ULLMAN JENNIFER WIDOM    机械工业出版社　　2003年．5月