VB500 基于VB贸易公司信息管理系统SQL Server

贸易公司信息管理系统是为了对贸易公司业务信息实行计算机化的管理，以提高工作效率，方便查询。主要功能有对进出库记录等进行管理、查询以及对系统自身的用户权限管理。提供有商品的录入、修改、查询、删除等功能。而且还包含了对查询情况的模糊功能。系统管理主要任务是提高系统安全性和对系统提供良好的维护，如用户权限可以为用户提供权限服务。
贸易公司信息管理系统是基于MDI窗体，以VB自带的引擎连接SQLSERVER 2000数据库进行开发的，力求与需求相结合满足公司业务所要的功能，旨在达到使贸易公司管理和信息数字化，使之更加方便快捷以提高工作效率。
分析实现内容如下:
1基础信息管理  包括 （1）商品信息管理  （自动编号）
                      (2) 供应商信息管理
                     （3）客户信息管理
                      (4) 职员信息管理

2销售管理   包括   （1）订单管理
                    （2）商品销售管理
                    （3）商品退货管理
3库存管理   包括 （1）商品入库管理
                  （2）库存盘点管理
                  （3）库存查询管理                  
4报表管理  包括 （1）日销售报表
                 （2）月销售报表
                 （3）单商品销售报表
                 （4）商品入库报表 think58好，好think58 [资料来源：THINK58.com]
5 查询统计管理  包括 （1）销售查询
                     （2）销售退货查询
                     （3）入库查询
6会员管理   包括（1）会员信息管理
                 （2）优惠设置
7系统维护   包括（1）操作员管理
                 （2）权限设置
                 （3）数据备份
                 （4）数据恢复

内容来自think58 [版权所有：http://think58.com]

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

20世纪，随着全球经济的蓬勃发展，众多经济学家纷纷提出了新的管理理论。20世纪50年代，西蒙提出管理依赖于信息和决策的思想。同时期的维纳发表了控制论，他认为管理是一个控制过程。1958年，盖尔写到：“管理将以较低的成本得到及时准确的信息，做到较好的控制。”这个时期，计算机开始用于会计工作，出现数据处理一词。
1970年，Walter T.Kennevan给刚刚出现的管理信息系统一词下了一个定义：“以口头或书面的形式，在合适的时间向经理、职员以及外界人员提供过去的、现在的、预测未来的有关企业内部及其环境的信息，以帮助他们进行决策。”在这个定义里强调了用信息支持决策，但并没有强调应用模型，没有提到计算机的应用。
1985年，管理信息系统的创始人，明尼苏达大学的管理学教授Gordon B.Davis给了管理信息系统一个较完整的定义，即“管理信息系统是一个利用计算机软硬件资源，手工作业，分析、计划、控制和决策模型以及数据库的人-机系统。它能提供信息支持企业或组织的运行、管理和决策功能。”这个定义全面地说明了管理信息系统的目标、功能和组成，而且反映了管理信息系统在当时达到的水平。 copyright think58 [来源：http://think58.com]

作为计算机应用的一部分,使用计算机对贸易公司业务信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高贸易公司信息管理的效率,也是贸易公司业务管理的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情。
我作为跨世纪的一代学计算机的年轻人，希望在这方面有所贡献。改革的总设计师邓小平同志说过：科学技术是第一生产力。我希望能用所学的知识编制一个适用的程序来帮助贸易公司事业进行更有效的管理。 本文来自think58

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

菜单项包括：系统管理菜单，基本管理菜单，销售管理菜单，库存管理菜单，查询统计菜单。分别对其进行测试。部分测试用例：
    Private Sub cmdRegSave_Click() '''保存
On Error GoTo Err
Dim i As Integer
If nModeSys = 1 Then
    If rs.EOF Then rs.AddNew
    For i = 0 To Val(Txt(0).Text) - 1
        If Trim(Txt(i + 1).Text) = "" Then
           
        Else
            rs.Fields(i).Value = Trim(Txt(i + 1).Text)
        End If
    Next i
    rs.Update
ElseIf nModeSys = 2 Then
    rs.AddNew
    For i = 0 To Val(Txt(0).Text) - 1
        If Trim(Txt(i + 1).Text) = "" Then            think58好，好think58

        Else
        rs.Fields(i).Value = Trim(Txt(i + 1).Text)
        End If
    Next i
    rs.Update
End If
    nModeSys = 0
    cmdRegSave.Enabled = False
    MsgBox "操作已成功!", vbInformation + vbOKOnly, "系统提示"
Exit Sub
Err:
MsgBox Err.Description, vbInformation + vbOKOnly, "系统提示"
End Sub
（2）数据跟踪：完成菜单项测试后，我又对系统内的每一个数据进行了跟踪。经过实践证实，说明该功能完全正常，对其它的功能模块也进行了类似的设置。
以商品信息为例做测试：
输入以上数据，保存，成功。数据测试成功。 [资料来源：http://www.THINK58.com]

参考文献
1.C.J.Date , 《Database system implementation》,机械工业出版社, 2000
2.Hector Garcial-Molina , Jeffrey D.Ullman, Jennifer Widom,《An introduction to Database Systems(Seventh Edition), 机械工业出版社,2001
3.林陈雷, 郭安源, 葛晓东, 《教育信息化系统开发实例导航》 , 人民邮电出版社,2003
4.张立科,《数据库开发技术与工程实践》,人民邮电出版社,2004
5.张红军, 王虹 等 《Visual basic 6.0 中文版高级应用与开发指南》, 人民邮电出版社, 2002
6.伍俊良 主编 等 《VB课程设计与系统开发案例》清华大学出版社, 2002
7.姚巍，《Visual Basic数据库开发及工程实例》，人民邮电出版社
8.求是科技，《Visual Basic 6.0 数据库开发技术与工程实践》，人民邮电出版社，2004
9.刘瑞新，汪远征，《Visual Basic程序设计教程》，机械工业出版社，2001
10.刘萌，周学明，郭安源，《Visual Basic企业办公系统开发实例导航》，人民邮电出版社，2003
11.孟小峰，王珊，《数据库系统导论》，机械工业出版社，2000 内容来自think58

[资料来源：THINK58.com]