VB485 公司会计电算化系统VB+SQL

本系统是以会计学的基本理论为基础，我国会计电算化的管理体制为约束，结合中小企业的财务管理需求进行开发的。为实现会计电算化业务中的财务管理功能，系统采用了典型的信息管理系统(MIS)模式。本系统主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，系统为 C/S架构。系统的后台数据库采用SQL Server 2000建立，其提供了强大而稳定的企业级数据库开发平台，实现了数据一致性、完整性及安全性上的要求。并且SQL Server的存储过程特性，为本系统业务功能的实现提供了解决方案。系统的前台应用程序采用Visual Basic 6.0进行开发。Visual Basic 6.0的ADO组件提供了强大而快捷的数据库控件，能方便而简洁操纵数据库的智能化对象,实现了短期内开发出用户满意的可行系统。本系统的会计业务功能是通过调用存储过程实现，满足了功能的稳定性和安全性要求。 copyright think58 [资料来源：http://www.THINK58.com]

廊坊市嘉荣伟业商贸有限公司成立于2006年，是一家发展潜力很大并充满活力的商贸型企业，公司自成立以来在经营过程中以诚信为本，以质量求生存，以低价谋发展，本着一切按客户实际需求而经营，为客户提供最完善的服务，深得客户的信赖与支持。随着经济的飞速发展，与竞争日益激烈的市场，公司进一步加强了与各厂商战略性地密切合作，将所有产品直销化，售后服务双重保障化，产品价格透明化等相应的创新基制下，嘉荣伟业商贸公司通过自己不断的努力，逐渐发展壮大公司，目前公司拥有了经验丰富专业的管理团队、销售团队、服务团队，在公司全体员工的一致努力下，公司顺利地进入多元化经营中期，全方位为客户提供各种服务。公司通过对客户手握手的承诺、心贴心的服务，为客户节约采购成本，并提供最佳方案与完善的服务。
1.3公司部门设置
嘉荣伟业商贸主要部门有财务部、核算部、策划部、综合部等部门，另外还有一个总经理办公室。
财务部主要负责财务部的主要工作职责是负责公司会计核算、纳税筹划、财务报告、预资金管理、成本核算与成本监控、财务分析、风险控制等，并作为主要部门参与公司的经营决策、投资管理、资本运营等。
核算部主要负责的工作如下：负责中心的财务工作，严格遵守国家的财经纪律，正确贯彻执行中心财务会计制度；负责办理日常经费支出及专项资金支出的拨付业务；负责本单位固定资产的管理工作；做好财务账目和报表的填报工作；严格按照会计制度和财务制度规定对中心所发生的经济业务进行会计核算、会计检查和会计分析；负责会计业务档案的管理。 think58好，好think58

策划部的职责主要是在领导指导下根据公司内外环境和发展战略，提出公司经营思路和策略、公司发展规划建议，参与重大决策和项目的论证、总体规划、方案策划、协调实施过程等；收集竞争对手的商业资讯，分析其优劣势，经比较后提出竞争建议；密切关注法律法规和体制环境的变化，主持和参与市场调研、情报收集、分析与预测，提出系统化的经营改进方案和专题报告；做好各种认证体系的申报办证工作；完成领导临时交办的其他任务。
综合部的职责是综合协调中心内各部门之间工作，负责对外联络及中心接待工作的统筹安排；负责文秘、调研综合、档案管理及文件的收发处理；财务管理、监督及工程交易咨询服务费的收取；固定资产、物业、车辆及办公用品的管理、调配、维护保养及其它后勤服务工作等。
总经理办公室主要职责如下：1、在总经理领导下负责办公室的全面工作，努力作好总经理的参谋助手，起到承上启下的作用，认真做到全方位服务。2、协助总经理调查研究、了解情况并提出处理意见或建议，供集团领导决策。3、协助总经理作好经营服务各项管理并督促、检查落实贯彻执行情况。4、负责各类文件的分类呈送，请集团领导阅批并转有关部门处理。5、负责公司内外上下互通信息、左右协调，做好接待工作、来信来访，及时处理反馈师生反映的后勤保障方面的意见、建议。6、记好集团大事记，及时收发、报道集团在经营决策及深化改革中的经验、好人好事、先进事迹，认真办好后勤集团网站，树立后勤服务新气象。7、协助集团领导及考核工作领导小组做好各部门的考核、评优、检查等工作。8、负责处理办公室职责范围内的其他事宜，完成领导交办的其他工作任务。

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

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

应用程序系统的组成从用户应用角度来看，可分成数据存储层、业务处理层和界面表示层等3个层次，而应用程序结构可归纳为：集中式应用程序结构、单用户应用程序结构、多层服务器应用程序结构、浏览器/服务器应用程序结构、客户机/服务器应用程序结构等5种类型。
本财务管理系统就采用客户机/服务器应用程序结构（C/S），此时，客户机提出请求，服务器对客户机的请求作出回应。通过对服务功能的分布实现了分工服务。数据存储层放在服务器上，业务处理层和界面表示层放在客户机上，因此又称为“灵敏的客户机”结构。许多操作在本地的客户机上执行，当需要数据时，才向服务器发出请求。并使应用程序的处理更接近用户，使整个系统具有较好的性能，可以并行地处理应用程序的请求、减少了数据传输量、降低了服务器的负荷。在开发时所有程序都置于一台计算机上，以便调试运行。本系统应用于公司局域网内部，通过IP来实现内网和外网的分离，防止外部侵入。

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

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

图:3-1 C/S 模式结构
3.2系统环境
3.2.1开发环境
开发硬件：INTEL X86系统平台、Core 2 Duo T7200处理器、1GB内存。
网络操作系统：Windows 2003 Server Enterpress Editon With SP1。
服务器平台：Windows 2003 Server Enterpress Editon With SP1。
程序开发平台：Microsoft Visual Basic 6.0企业开发版。
数据库服务器：SQL Server Enterpress Editon With SP4。
3.2.2运行环境
硬件平台：INTEL X86系统平台、500MHz以上处理器，256M以上内存。
软件平台：Windows X86/NT 操作系统、
数据库服务器：Microsoft SQL Server 2000 或以上。
3.3开发工具
3.3.1 SQL Server 2000
数据库: 是一个实际可运行的存储、维护和应用系统提供数据的软件系统，是存储介质、处理对象和管理系统的集合体。它通常由软件、数据库和数据管理员组成。其软件主要包括操作系统、各种宿主语言，实用程序以及数据库管理系统。数据库是依照某种数据模型组织起来并存放二级存储器中的数据集合。这些数据为多个应用服务，独立于具体的应用程序。数据库由数据库管理系统统一管理，数据的插入、修改和检索均要通过数据库管理系统进行。数据库管理系统是一种系统软件，它的主要功能是维护数据库并有效地访问数据库中任意部分数据。对数据库的维护包括保持数据的完整性、一致性和安全性。 [资料来源：http://THINK58.com]
区别于FoxPro、Access小型数据库，SQL Server是一个功能完备的数据库管理系统。它包括支持开发的引擎、标准的SQL语言、扩展的特性（如复制、OLAP、分析）等功能。而像存储过程、触发器等特性，也是大型数据库才拥有的。SQL Server 2000 除了具有扩展性，可靠性以外，还具有可以迅速开发新的因特网系统的功能。尤其是它可以直接存贮 XML 数据，可以将搜索结果以 XML格式输出等特点，有利于构建了异构系统的互操作性。
SQL Server 2000的特性：
（1）兼容性良好
由于今天Windows操作系统占领着主导地的位，选择SQLServer一定会在兼容性方面取得一些优势。另外，SQLServer2000除了具有扩展性、可靠性以外，还具有可以迅速开发新的因特网系统的功能。尤其是它可以直接存贮XML数据，可以将搜索结果以XML格式输出等特点，有利于构建了异构系统的互操作性，奠定了面向互联网的企业应用和服务的基石。这些特点在.NET战略中发挥着重要的作用。
（2）数据仓库
SQL Server 2000非常明显的改进就是增加了OLAP（联机分析处理）功能,这可以让很多中小企业用户也可以使用数据仓库的一些特性进行分析。OLAP可以通过多维存储技术对大型、复杂数据集执行快速、高级的分析工作。数据挖掘功能能够揭示出隐藏在大量数据中的倾向及趋势，它允许组织或机构最大限度的从数据中获取价值。通过对现有数据进行有效分析，这一功能可以对未来的趋势进行预测。

think58

3.3.2  Visual Basic的简介
Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序 think58好，好think58 [版权所有：http://think58.com]

在这个窗体中，可以对收支的各项基础信息进行管理和设置。可以对收入项目和支出项目进行添加，修改和删除等操作，这个窗口就是对系统进行收入和支出的设置。

think58.com

//---------------新增记录----------------
  On Error Resume Next
            Dim A As Boolean
                       
               If SSTab1.Tab = 0 Then
                  A = MsgBox("是否添加前记录?", vbYesNo + 32, "添加记录")
                  If A = True Then
                     ExeCutesql "insert into 收入项目 values('" & Text1.Text & "')", Str_text
                     Mydb1.MoveLast 本文来自think58 [资料来源：THINK58.com]
                     Call Db1
                     MsgBox "收入项目添加成功！", vbOKOnly + 64, ""
                     Text1.Text = ""
                  End If
               Else
                  A = MsgBox("是否添加前记录?", vbYesNo + 32, "添加记录")
                     If A = True Then
                        ExeCutesql "insert into 支出项目 values('" & Text1.Text & "')", Str_text

                        Mydb2.MoveLast
                        Call Db2
                        MsgBox "支出项目添加成功！", vbOKOnly + 64, ""
                        Text1.Text = ""
                     End If
               End If [版权所有：http://think58.com]

//---------------删除记录----------------
procedure TSecSetting.ToolButton8Click(Sender: TObject);
  On Error Resume Next
            Dim A As Boolean
           
            Set Mydb3 = ExeCutesql("select * from 收入项目 where value='" & Text1.Text & "' ", Str_text)
            If SSTab1.Tab = 0 Then
               A = MsgBox("是否删除当前记录", vbYesNo + 32 + 256, "删除记录")
               If A = True Then
                  Mydb3.Delete
                  Mydb3.MoveNext

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

               If Mydb3.EOF Then Mydb.MoveLast
                  Mydb3.Requery
                  Call Db1
               End If
            Else
               Set Mydb4 = ExeCutesql("select * from 支出项目 where value='" & Text1.Text & "' ", Str_text)
               A = MsgBox("是否删除当前记录", vbYesNo + 32 + 256, "删除记录")
               If A = True Then
                  Mydb4.Delete [来源：http://think58.com]
                  Mydb4.MoveNext
               If Mydb4.EOF Then Mydb2.MoveLast
                  Mydb4.Requery
                  Call Db2
               End If
            End If
7.3账户设置
 
图：7-3账户设置窗体
该功能模块有对系统用户的添加和权限设置的功能，超级用户可以设置用户的权限，这样该操作人员登陆以后就只能有对应的权限。还可以实现对操作人员的增加和删除。
//-----------------初始化账户-----------------------
If Trim(Me.txtCZY.Text) = "" Then
        MsgBox "登陆名不能为空！", 48, "提示"

think58.com

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

        Exit Sub
    End If copyright think58

参考文献
[1] 陈禹,信息系统分析与设计，北京，高等教育出版社，2005
[2] 求是科技，Visual Basic 开发ERP系统实例导航，北京，机械工业出版社，2007
[3] 蒉克华，管理信息系统，北京，机械工业出版社，2006
[4] 黄梯云,管理信息系统,北京,高等教育出版社,2007
[5] 王珊，数据库系统简明教程,北京,高等教育出版社，2004.9
[6] 励景源主编，会计电算化，立信会计出版社，2000.1
[7] 许晓林主编，电算化会计信息系统，机械工业出版社，2001.4
[8] 教育部考试中心组编，会计电算化教程，清华大学出版社，2002.3
[9] 张琦 林京娟，“Internet下的会计电算化建设问题”，现代电子技术，2001.4
[10] 付得一主编，会计信息系统，清华大学出版社，2002.4
[11] 过鹏程，“论中国会计电算化的改革与发展”，北方经贸，2002.6
[12] 张连军，“我国会计电算化存在的问题及对策”，山西财经大学学报，2002.1
[13] Thomas R.Peltier.Information Security Risk Analysis.Rothstein Associates Inc,2001
[14] Management Information System,Mcleod,Printice Hal,1998
[15] Accounting Information System,8th ed,George H.Bodnar,William S.Hopwood,2001 by prentice hall,inc. 1991.65(4) 253-260 copyright think58 [来源：http://think58.com]

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