会计电算化系统的设计与实现财务管理子系统

次试理工大学

毕业设计（论文）

会计电算化系统的设计与实现

财务管理子系统

学院（系）：

专业班级：

学生姓名：

指导教师:

摘要

本系统是以会计学欧J基本理论为基础，我国会计电算化日勺管理体制为约束,

结合中小企业的财务管理需求进行开发的。为实现会计电算化业务中的财务管理

功能，系统采用了经典的信息管理系统(MIS)模式。本系统重要包括后台数据库

日勺建立和维护以及前端应用程序日勺开发两个方面，系统为C/S架构。系统日勺后台

数据库采用SQLServer2023建立，其提供了强大而稳定的企业级数据库开发平

台，实现了数据一致性、完整性及安全性上的规定。并且SQLServer的存储过程

特性，为本系统业务功能日勺实现提供了处理方案。系统日勺前台应用程序采用

DELPHI7.0进行开发。DELPHI的ADO组件提供了强大而快捷H勺数据库控件，能

以便而简洁操纵数据库的I智能化对象，实现了短期内开发出顾客满意的可行系

统。本系统的会计业务功能是通过调用存储过程实现，满足了功能的稳定性和安

全性规定。

关键词：会计电算化；财务管理；凭证；存储过程；ADOSQL；DLL：

QuikRcp

DesignandRealizationofComputerizedAccounting

System--FinancialManagementSubsystem

Abstract

.Thi.syste.i.base.o.th.principle.o.accountancy.constraine.b.Chines.accountin.b.ED

P.combine.wit.th.financia.managemen.requiremen.o.middl..smal.enterprise.t.deve'op.

T.irnplemen.th.financia.manageinen.functio.i.accountin.b.EDP.syste.applie.typica.MI.

model.Th.establishmen..maintenanc.o.backgroun.databas.a.wel.a.th.front-en.applicati

o.developmen.ar.include.wit.thi.system.syste.i.th.C/.structure.System'.backgroun.data

bas.i.establishe.b.SQ.Svide.powerfu..stabl.enlerpris.databas.develo

egralit.an.security.Mces.fe

atur.o.SQ.Svide.solutio.fo.thi.syste.busines.function.System'.front-sid.applicat

io.i.develope.b.DELPH.7.0.whos.AD.component.of'fe.po\verfu..quic.databas.control.t.

operat.database'.intelligentize.objectiv.convenientL.quickLan.develo.th.applicatio.syst

e.t.mee.clients.requiremen.withi.shor.period.Th.accountanc.busines.functio.o.thi.sysle.

cess.t.mee.th.functiona.stabilit..securit.requirement.

Keywords：Computerized;Accounting;Financial;ManagementCredentials;

ADO;SQL;DLL;QuikRep

3.5报表管理...................................................

3.6期末处理...................................................

3.7往来管理...................................................

3.8固定资产管理...............................................

4数据库的设计与实现...........................................

4.1数据表项...................................................

4.1数据库表关系图.............................................

4.2数据库表构造...............................................

4.3存储过程...................................................

5前端界面口勺设计与实现.........................................

5.1程序主窗体.................................................

5.2会计科目设置...............................................

5.3账户设置...................................................

5.4凭证输入...................................................

5.5凭证过账...................................................

5.6总分类账查询..............................................

5.7试算平衡...................................................

5.8明细账查询.................................................

5.9期末结账...................................................

5.10资产负债表报表输出.......................................

6系统扩展

结论

参照文献...............................................................

致谢..............................................................

声明...............................................................

1引言

1.1课题背景

财务部门作为企业经营的关键部门，其会计电算化的应用也决定着一种企业

信息系统实行成败的关键。老式会计档案包括原始凭证、记账凭证、日志账、

明细账、总账以及报表等，一种单位每个会计期间的会计档案都要按一定的规

定排列，连同多种附件定期加具封面，装订成册，花费了大量的时间和空间，

查找十分不便，又易于毁坏。电算化会计是以计算机为工具，运用会计所特有

的措施，对企业的经营活动状况进行反应和监督，因此它既是提供以财务信息

为主的信息系统，同步又是参与管理的一种管理活动。电算化会计的职能是反

应和监督，它的内容是核算和管理，因此电算化会计一般可分为电算化会计核

算子系统和电算化会计管理系统，目前还出现了更高层次的会计决策支持子系

统。通过会计核算来反应企业的经营活动状况，通过会计管理来监督企业的经

营活动状况“通过会计决策来参与企业管理。针对电算化会计的以上内容，会

计软件重要分为核算型财务软件、管理型财务软件和决策支持型软件。本系统

既是属于核算型财务软件系统。

1.2本课题研究的意义

会计电算化的概念有广义和狭义之分。狭义的会计电算化是指以电子计算机

（如下简称计算机）为主体的现代电子信息技术在会计工作中的应用；广义口勺会计

电算化是指与实现会计工作电算化有关的所有工作，包括会计电算化软件的开

发和应用、会计电算化人才的培训、会计电算化向宏观规划、会计电算化的制度

建设、会计电算化软件市场口勺培育与发展等。针对电算化会计口勺内容，会计软件

重要分为核算型财务软件、管理型财务软件和决策支持型软件。本系统是属于核

算型财务软件系统，即是在会计业务发生后对凭证、报表等进行录入、查对、过

账等操作。

财务管理作为企业管理的I构成部分，与经济价值或财富的保值增值有关,

是有关发明财富日勺决策，企业生存、发展、获利日勺总目的I离不开财务日勺筹资、投

资以及对资金的运用管理另首先，财务管理目的是制定生产目日勺、销售目日勺等一

系列目的的基础和前提，这使得财务管理在企业管理中处在一种关键地位：财

务管理目日勺将从主线上反应企业日勺总目Wo因此确立一种合理日勺财务管理目的对

企业口勺长远发展有着极为重要的意义。而采用电算化能到达如下目时:

(1)提高会计数据处理的时效性和精确性，提高会计核算的水平和质量，减

轻会计人员的劳动强度；

(2)提高经营管理水平，使财务会计管理由事后管理向事中控制、事先预测转

变，为管理信息化打下基础；

(3)推进会计技术、措施、理论创新和观念更新，增进会计工作深入发展。

1.3本课题的研究措施

本系统是以会计学的基本理论为基础，我国会计电算化的管理体制为约束，结

合中小企业的财务管理需求进行开发的。按照会计的对象、会计的职能、会计

核算措施、会计科目、账户、会计科目与账户的关系、复式记账原理、借贷记

账法、会计分录、试算表与试算平衡、结账与会计报表来进行业务功能的建立。

系统部分采用后台数据库加前端平台的C/S构造。业务功能通过数据库中调用

存储过程的方式实现。

2理论知识简介

2.1系统构造

应用程序系统的构成从顾客应用角度来看，可提成数据存储层、

业务处理层和界面表达层等3个层次，而应用程序构造可归纳为:

集中式应用程序构造、单顾客应用程序构造、多层服务器应用程序构

造、浏览器/服务器应用程序构造、客户机/服务器应用程序构造等5

种类型。

本财务管理系统就采用客户机/服务器应用程序构造(C/S),此

时，客户机提出祈求，服务器对客户机的祈求作出回应。通过对服务

功能的分布实现了分工服务。数据存储层放在服务器上，业务处理层

和界面表达层放在客户机上，因此又称为“敏捷的客户机”构造。许

多操作在当地的客户机上执行，当需要数据时，才向服务器发出祈

求。并使应用程序的处理更靠近顾客，使整个系统具有很好的性能,

可以并行地处理应用程序的祈求、减少了数据传播量、减少了服务器

的负荷。在开发时所有程序都置于一台计算机上，以便调试运行。

取务器客户跳

图:2-1C/S模式构造

2.2系统环境

2.2.1开发环境

开发硬件：INTELX86系统平台、Core2DuoT7200处理器、1GB内存。

网络操作系统:Windows2023ServerEnterpressEditonWithSP1o

服务器平台：Windows2023ServerEnterpressEditonWithSP10

程序开发平台：Delphi7.0WithSP1O

数据库服务器:SQLServerEnterpressEditonWithSP4。

2.2.2运行环境

中小型企业日勺财务部门。

硬件平台：INTELX86系统平台、500MHz以上处理器，256M以上内存。

软件平台：WindowsX86/NT操作系统、

数据库服务器：MicrosoftSQLServer2023或以上。

2.3开发工具

2.3.1SQLServer2023

数据库：是一种实际可运行的存储、维护和应用系统提供数据H勺软件系统,

是存储介质、处理对象和管理系统日勺集合体。它一般由软件、数据库和数据管理

员构成。其软件重要包括操作系统、多种宿主语言，实用程序以及数据库管理系

统。数据库是根据某种数据模型组织起来并寄存二级存储器中的数据集合。这些

数据为多种应用服务，独立于详细的应用程序。数据库由数据库管理系统统一管

理，数据日勺插入、修改和检索均要通过数据库管理系统进行。数据库管理系统是

一种系统软件，它的重要功能是维护数据库并有效地访问数据库中任意部分数

据。对数据库的维护包括保持数据的完整性、一致性和安全性。

SQLServer是一种关系数据库管理系统，它最初是由MicrosoftSybase和

Ashton-Tate三家企业共同开发日勺于1988年推出了第一种OS/2版本。在

WindowsNT推出后Microsoft与Sybase在SQLServer的I开发上就分道扬镶

Microsoft将SQLServer移植到WindowsNT系统上专注于开发推广SQLServer

日勺WindowsNT版本，简称为SQLServer或MSSQLServe

区别于FoxPro、Access小型数据库，SQLServer是一种功能完备的数据库

管理系统。它包括支持开发日勺引擎、原则日勺SQL语言、扩展的特性（如复制、（LAP、

分析）等功能。而像存储过程、触发器等特性，也是大型数据库才拥有日勺。SQL

Server2023除了具有扩展性，可靠性以外，还具有可以迅速开发新的因特网

系统日勺功能。尤其是佗可以直接存贮XML数据，可以将槽索成果以XML格式输

出等特点，有助于构建了异构系统的互操作性。

SQLServer2023的特性:

（1）兼容性良好

由于今天Windows操作系统占领着主导地丛J位，选择SQLServer一定会在兼

容性方面获得某些优势。此外，SQLServer2023除了具有扩展性，可靠性以

外，还具有可以迅速开发新的因特网系统的功能。尤其是它可以直接存贮

XML数据，可以将搜索成果以XML格式输出等特点，有助于构建了异构系统

的互操作性，奠定了面向互联网的企业应用前服务的基石。这些特点在.NET

战略中发挥着重要的作用。

（2）数据仓库

SQLServer2023非常明显II勺改善就是增长了0LAP（联机分析处理）功能,这可以让诸多

中小企业顾客也可以使用数据仓库的某些特性进行分析OLAP可以通过多维存储技术

对大型、复杂数据集执行迅速、高级的分析工作。数据挖掘功能可以揭示出隐藏在大

量数据中的倾向及趋势，它容许组织或机构最大程度的从数据中获取价值。通过对既

有数据进行有效分析，这一功能可以对未来的趋势进行预测。

（3）新的数据类型

①64位整型数（bigint）:在数据量越米越大的今天用以往的最大整型int

长度231T来表达整数已显得太不够用，而FLOAT也不是很合适，因此SQL2023

就有了新的整数类型一bigint°bigint数据类型是一种从-263到263-1整型量。

bigint存储长度是8个字节，因此被称为64位整型量。这种新的整型量，处理

标识符超过先前最大整型量长度的场所。新的bigint数据类型合用的场所与整

型数值完全一致。

②变量（sql.variant）：它可以寄存数据类型，数字、字符和对象等。它不

能寄存blob数据，如text、ntext和image,尚有timestamp,不过已经

给编程带来了很大的以便了。sql_variant数据类型能被用于列参数和变量,

也能返回顾客定义的函数的数值。sql_variant数据类型口勺运算，容许一种

单个参数或变量存储不一样数据类型口勺数据值。

③表格（table）数据类型：新的表格数据类型是一种局部变量，它可以临

时存储一种行集合（rowset）,也能返回成一种表格值的函数，此表格数据

类型能替代存储在tempdb数据库中日勺临时表格。由于新日勺数据类型是在内

存中管理，而不是存储在硬盘上，因此大大提高了数据库性能。

（4）顾客自定义函数

在SQL2023里面，顾客可以建立自定义的函数，函数返回值可以是一种值，

也可以是一种表。相比运用游标，使用顾客自定义函数不仅执行效率提高了,

代码日勺可读性也好多了。

（5）带索引的视图

在此前版本的SQLServer里，视图是不可以有索引的，因此视图一般也就

没有什么用处了，除了偶尔用它来做某些权限上的管理以外。查询一种视图和

使用一种连接语句在执行效率上没有什么区别。不过，Microsoft在SQL

Server2023进行了变化，即可以在视图上创立索引。这样，既有的应用程序就

可以不再修改而使效率得到很大提高。程序中将不再出现复杂的SQL语句，所

有时操作都交给自定义函数、存储构造和视图去完毕了，只需要在程序中写

selectfromview就可以了，别的事情由数据库管理员去完毕。

2.3.2Delphi的简介

Delphi是真正的面向对象的开发工具。Delphi使用了真编译，可以让代码

编译成为可执行的文献，并且编译速度非常快。Delphi具有强大的数据库开发

能力，可以轻松地开发数据库。

Delphi是全新口勺可视化编程环境，使用了MicrosoftWindows图形顾客界

面口勺许多先进特性和设计思想，采用了弹性可反复运用的完整的面向对象程序

语言（Object-OrientedLanguage）、当今世界上最快口勺编辑器、最为领先的数据

库技术。

Delphi保留了所有工具中最灵活日勺数据库构造。对大多数基于当地、客户/

服务港和ODBC数据库平台的J应用程序来说，BDE的功能都非常强大。也可以避

开使用BDE以支持新日勺当地ADO组件。

Delphi的功能特点：

（1）具有面向对象日勺可视化设计工具

在Delphi中，应用而向对象的程序设计措施（OOP）,把程序和数据封装起

来视为一种对象，每个对象都是可视H勺。程序员在设计时只需用既有工具根

据界面设计规定，直接在屏幕上“画”出窗口、菜单、按钮、滚动条等不一

样类型的对象，并为每个对象设置属性。程序员的编程工作仅限于编写有关

对象要完毕内功能程序，因而程序设计的效率可大大提高。

（2）事件驱动口勺编程机制

事件驱动是非常适合图形顾客界面的编程方式。在图形顾客界面的应用程序

中，是由顾客的动作即事件掌握着程序运行的流向，每个事件都能驱动一

段程序的运行。程序员只要编写响应顾客动作的代码，而各个动作之间不一

定有联络。

（3）提供了易学易用的应用程序集成开发环境

在Delphi集成开发环境中，顾客可设计界面、编写代码、调试程序，直至

把应用程序编译成可执行文献在Windows中运行，使顾客在友好的开发环

境中工作。

（4）构造化的程序设计语言

Delphi具有丰富日勺数据类型和构造化程序构造，作为一种程序设计语言,

它尚有如下某些特点：

①强大的数值和字符串处理功能；

②丰富的I图形指令，可以便地绘制多种图形；

③提供静态和动态数组，有助于简化内存日勺管理；

④过程可递归调用，使程序更为简洁；

⑤支持随机文献和次序文献日勺访问；

⑥提供了一种可供应用程序调用的包括多种类型口勺图标库：

⑦具有完善的运行出错处理。

（5）支持多种数据库系统口勺访问

运用数据控件可访问口勺数据库系统有：MicrosoftAccess^Btrieve、DBASE>

MicrosfotFoxPro和Paradox等，也可以访问MicrosoftExcelsLotusl-2-3

等多种电子表格。

（6）支持动态数据互换（DDE）、动态链接库（DLL）和对象口勺链接与嵌入（OLE）

技术

如下是Delphi中的基本概念:

对象：面向对象编程（OOP）的提法大家一定也很耳熟。对象简朴地说就是

大家常常看到的多种窗口、按钮、文本框甚至打印机等。

属性：如同电视有黑白、彩色之分同样，作为对象的Windows中的窗口也

是有大有小，文本框的位置不也许完全同样，菜单要显示出不一样的功能，这

些都是由对象的属性决定的。不一样对象的属性也许不一样。属性一般决定了

对象的位置、大小、显示等状况。

措施：就是对象可以做的事，如打印机对象就有打印（Print）措施、窗口

对象支持隐藏（Hide）措施、诸多对象支持移动（Move）措施等。

事件：就是对象对顾客多种操作的反应状况。如顾客用鼠标按一下按钮，

就会触发按钮的“按"（Click）事件。

控件：控件就是Delphi提供的编程用的模块，与对象有直接的联络，如同

积木的木块，使用这样的控件，就可以像拼图或堆积木同样“搭”、“拼”你的

程序界面。Delphi中使用控件，简化了Windows中的窗口、按钮等对象的编程

设计。每个控件均有各自的属性、事件及措施。只需修改这些特性你就可以随

心所欲地编程了。最重要的是，你可以运用成千上万的多种扩充的控件来迅速

构造几乎能满足你任何规定的程序。

2.3.3ADO组件

ADO（ActiveXDataObjects,ActiveX数据对象）是Microsoft提出的应

用程序接口（APT）用以实现访问关系或非关系数据库中的数据。这一数据访问

技术口勺应用数据库接口称为OLEDB,OLEDB加紧了访问多种数据的速度。从Delphi

5开始，Delphi中新的数据访问组件都采用了A30技术，可以不通过BDE就能

使用现行日勺数据控制部件如DBGrid和DBEdit对数据进行直接日勺访问，因此缩短

了ADO/OLE-DB的运行时间。更重要的是，使用ADO组件可以防止顾客在使用程

序之前手动设置BDE和ODBC属性，以免产生不必要日勺错误。

DELPHI中提供了ADOCormection组件、ADOData件t组件、ADOTable组件、

ADOQuery组件、ADOStoredProc组件、ADOCommand组件和RDSConnection组件7

个组件。在本系统设计中重要使用如下3个组件：

ADOTable组件：该组件用于检索或者操作由单一数据表生成的数据集。该

部件可以直接链接到数据设备上或者通过ADOConnection链接到数据设备.匕

ADOQuery组件：该组件用于检索或操作由一种合法日勺SQL语句生成日勺数据集。

该部件可以执行数据定义SQL语句，例如“select*fromtable”。该部件可以直

接连接到数据设备上或者通过ADOConnection链接到数据设备上。

ADOCommand组件：重要用于执行命令(这些命令是一组不返回成果集的SQL语

句，假如要得到返回成果集，则应当使用ADOQuery组件)，它一般与一种数据

集支撑部件一起使用。可以实现从一种表中检索数据。该组件可以直接连接到数

据设备上或者通过ADOConnection链接到数据设备上，如图：2-2所示。

ADO接口SQLServer

应用程序

DELPHI数据库

图:2-2本系统的数据库连接

3系统需求分析

3.1会计学理论基础

(1)会计时对象

会计对象详细表象的经济业务，按其性质的分类，就形成会计对象的要素。

会计对象要素重要包括资产、负债、所有者权益、收入、费用、利润等。

(2)会计的职能

会计日勺基本职能由两项，即会计核算职能和会计监督职能。

会计核算包括:

•款项和有价证卷日勺收付•财物日勺收发、增减和使用

•债权债务H勺发生和结算•资本、基金欧I增减和经费日勺收支

•收入、费用、成本的计算•财务成果日勺计算和处理

•其他需要办理会计手续、进行会计核算的事项

(3)会计核算措施

设置会计科目和账户，复式记账，填制和审核会计凭证，登记会计账薄,

成本计算财产清查，编制会计报表。

(4)会计科目

会计科目是对会计对象的详细内容进行分类核算日勺标志或项目。通过设置会

计科目，可以分类反应不一样的经济业务，可以将复杂的经济信息变成有规律、

易识别的经济信息，并为其转换为会计信息准备条件。

(5)借贷记账法

借贷记帐法是以“借”、“贷”作为记帐符号H勺一种复式记帐法。其基本原

理包括记帐符号、帐户构造、记帐规则和试算平衡措施。

(6)试算表与试算平衡

•过账：为了持续、系统地反应各类经济业务，需要将会计分录(记账凭证)

中分散的数据，分别登记到有关账户中去，这种登记账簿口勺过程就称为过账。

•试算平衡：是在期末对所有账户的发生额或余额进行加总，以确定借贷与

否相等，从而检查记账、过账与否对口勺的一种措施。

(7)结账与会计报表

总结一定会计期间财务状况和经营成果的大小，企业一般在会计期末进行

结账。结账实一项将账簿记录定期结算清晰口勺账务工作。结账后会形成该会计期

间的会计报表，常用日勺会计报表有损益表和资产负债表。

根据以上对财务管理内容的分析和会计知识的简介，该财务管理系统包括

如图3-1所示功能。

会计电算化系统

凭证管理账簿管理结账及报表|

「

I「

试E

凭

总

资

期

账

凭

算

科明

产

账

证

末

户

证

平

细

负

分

过

输

结

B设

衡

账

债

入

类

账

账

设置

表

表

一

置一

一

图：3-1系统功能

3.2基础资料维护

“基础资料维护”用于对会计科目、核算项目以及凭证、账薄、固定资产等

项目进行初始化设置，这些设置一般不轻易修改，包括的功能模块如下。

|基础资料一

常

结

用

算

摘

方

要

式

图:3-3基础资料维护

3.3凭证管理

“凭讦管理”用干完毕凭讦制定、审核、记账、杳询等功能，白动牛成多种

会计账，包括的功能模块如下。

|凭^正管理1

凭

凭

_凭L

_L凭

证

证

证

证

证

汇

检

查

输

审

总

查

询

入

核

图：3-4凭证管理

3.4账薄管理

“账薄管理”用于提供多种账务处理查询筛选的功能，包括日勺功能模块如

下。

账薄管理

—

—■

数

数

核

量

量

总

算

多

明

金

金

分

类

栏

细

类

额

款

账

账

总

账

总

总

账

账

账

图:3-5账薄管理

3.5报表管理

“报表管理”用于报表的定义、编制和输出。企业会计核算的成果最终需要

用于报表的形式反应出来，一般包括账务报表处理、汇总报表处理、合并报表处

理等。模块关系图如下。

报表管理

核

利

资

算

科

试

润

产

目

算

项

日

分

负

余

记

平

目

表

配

债

额

所

明

表

表

表

表

细

表

图:3-6报表管理

3.6期末处理

“期末处理”是系统总结某以会计期间的经营活动状况，转至下一期的必做

事项。同步该模块在结账前，按企业财务管理和成本计算日勺规定，必须进行制造

费用，产品成木口勺结转，期末调汇及损益结转等工作，包括功能模块如下。

期末处理

图:3-7期末处理

3.7往来管理

“往来管理”用于对企业日勺外来账款进行全面核算、管理、分析，预测、决

策。一般包括如下模块：

期末处理

丁

二

结

期

期

,期

自

算

末

末

末

动

损

结

调

结

转

益

账

汇

账

账

图:3-8往来管理

3.8固定资产管理

“固定资产管理”用于管理、核算固定资产增减变化、变动、以及折I日的记提、

转账等，一般包括如下所示的功能模块。容许不一样固定资产采用不一样的折旧措施。

提供原则1向折旧措施，提供固定资产卡片自定义设置和灵活1向报表杳询系统。

固定资产管理

图：3-9固定资产管理

4数据库的I设计与实现

4.1数据表项

本系统中，“科目表”时系统的关键，其他各表均与“科目表”通过“科目

代码”字段进行多对一的关联。系统共需要11张表，用途如表4-1所示：

表4-1系统数据表及用途

数据库名数据表用途

科目表保留企业财务的科目设置信息

账簿初始正式使用系统前初始化科目时期初余额

凭证表输入会计凭证，分录表的主表

分录表输入会计分录，分录表的从表

科目余额保留各个会计期间的科目借、贷、余额状况

凭证历史保留过账后的凭证历史

分录表历保留过账后的分录历史

本期明细保留目前会计期间的明细账簿数据

本期汇总保留目前会计期间的明细账薄数据，期末结账后期末变成新会计期间的

资产负债记录用表，用于计算资产负债表

系统参数系统运行所需的参数信息

图：4-1数据库表关系图

4.2数据库表构造

表4-2凭证表表4-3凭证历史表

列名数据K与否为列名数据长与否为

凭证编char1not凭证编char1not

会计期int4null会计期int4nail

凭证字char2null凭证字char2null

日期date8null日期date8nail

附单据int4null附单据int4njll

制单char2null制单char2njll

借方合mone8null借方合mone8njll

贷方合mone8null贷方合mone8nail

过帐状char4null过帐伏char4njll

凭证状char1null凭证状char1null

表4-4账薄初蛤化表表4-5系统参数表

列名数据长与否列名数据长与否为

科目代char20not编号int4

科目名char20null参数名char2null

合计借mone8null取值int4null

合计贷mone8null

期初余mone8null

余额方char4null

4.3存储过程

本系统的业务功能是通过调用存储过程实现，部分实例如下。

createprocsf_初始化帐户

as

begintran

一清除本来数据,从新建立帐户

deletefrom帐簿初始化表

设置帐户初始基本数据

insertinto帐簿初始化表

(科目代码,科目名称,合计借方,合计贷方,期初余额,余额方向)

select科目代码，科目名称,0,0,0,余额方向from科目表

-设置初始信息

update系统参数表set取值=datepart(mm,getdate())

where参数名称='会计期间开始月份‘

update系统参数表set取值=datepart(mm,getdate())

where参数名称='目前会计期间'

commit

GO

5前端界面的设计与实现

前端系统构造采用多文档界面（MDI）模式，这种模式构造清晰简朴，易于理

解，每一种功能对应一种子窗体。

5.1程序主窗体

图：5-1系统主窗体

本实例运行后的效果如图5-1所示。选择菜单中日勺各菜单项就可以进入各对

应功能窗口。

5.2会计科目设置

图：5-2会计科目设置窗体

在这个窗体中，可以对会计科目H勺各项基础信息进行管理。其中【科目类别】

选项组表达该科目所属的类别，有资产、负债、权益、损溢和成本5个选项、一

般资产类科目余额方向为借方，负债和权益科目余额方向为贷方，但“坏帐准

备”日勺科目余额方向则为贷方。

datasourcel.DataSet.Edit;

encl;

//---------------删除记录----------------

procedureTSecSetting.ToolButton8Click(Sender:TObject);

begin

ifapplication.MessageBox(,删除该条记录？‘，‘财务管理系统

,MBOKCANCEL)=IDOKthen

dalasourcel.DataSet.Delete;

end;

//----------查询数据并显示-------------

procedureTSecSetting.BitBtnlClick(Sender:TObject);

begin

adoqueryl.Close:

adoqueryl.SQL.Clear;

adoqueryl.SQL.Add('select*from科目表where(科目代码like

''+editl.Text+,')and,);

adoqueryl.SQL.Add('(科目名称like''+edit2.Text+'')and(科目类

别like''+edit3.Text+'')');

adoqueryl.Open;

end;

5.3账户设置

图：5-3账户设置窗体

该功能模块有【建立新帐簿】、【启用帐簿】和【试算平衡】3个按钮。【建

立新帐簿】按钮用于建立一种新的初始帐簿，系统在后台调用“sf_初始化帐户”

存储过程，删除“帐簿初始化表”原有的信息，根据“科目表”重新创立“帐簿

初始化表”并在窗体中显示。在表格中输入各科目的初始信息和系统参数信息，

完毕后通过【启用帐簿】按钮启用新日勺帐簿。【启用帐簿】按钮先检查目前帐簿

试算与否平衡，假如平衡在后台调用“sf_启用帐户”存储过程，启用新定义FI勺

帐簿，假如不平衡，会提醒顾客查阅试算平衡表，检查输入的初始化信息并修

改，直到试算平衡

//--------------------启用新帐户-----------------

procedureTAccountSetting.BitBtn2Click(Sender:TObject);

begin

〃判断与否试算平衡

adoqueryl.Close:

adoqueryl.SQL.Clear;

adoqueryl.SQL.Add(,selectsum(合计借方)借方，sum(合计贷方)贷方

from帐簿初始化表');

adoqueryl.Open;

ifadoqueryl.FieldByName()借方

').AsStringOadoqueryl.FieldByName贷方').AsStringthen

begin

showmessage新帐簿初始化不平衡，请检查试算平衡表后重新输入');

exit;

end;

//假如试算平衡，则可以新建帐簿

ifapplication.McssagcBox（'试算成果平衡，启用新帐簿将删除所有历史

记录'+#13+'与否继续？确认'，MB与KCANCEL）=IDOKthen

begin

〃执行储存过程，启用帐户

adocommandl.CommandTcxt:=，EXECsf_启用帐户'；

adocommandl.Execute;

〃刷新数据表

adotablel.Active:二false;

adotablel.Active:=true;

adotable2.Active:二false;

adotable2.Active:=true;

〃显示帐户启用成功消息

showmessage新帐户启用成功'）;

end;

end;

5.4凭证输入