基于VB的财务管理系统

1、基于VB会计管理系统前言1.1 工程介绍作为每一个企业和团体，财务管理系统是其管理财务收入和支出的不可缺少 的组成部分，无论是企业的财务计划，财务控制还是财务监督和财务运用，每一 个涉及到财务的方方面面，财务管理系统都起着至关重要的作用。更好的运用财 务系统和发挥财务管理的作用是一个企业成败的关键。而作为财务管理工作的核心就是最简单的资金流通，如果想要在资金的流通 与使用过程中更好的应用并且合理的调配是离不开一个好的财务管理系统的。作为企业。在生产经营活动无外乎供、产、销三个环节，这个过程始终贯穿 着资金运动，只是在各个环节上资金的表现形态不同罢了。在供应阶段资金由货 币形态转变为材料形态，生

2、产阶段由材料形态变为产品形态，在销售阶段由产品 形态又回到货币形态。从这里可以看出，财务管理贯穿于企业的各项工作之中， 财务工作与其它管理工作是密不可分的。 从企业目前 的实际工作来看，普遍存在 两个误区：一种认为财务管理就是管钱，只要管住钱就可万事大吉，重资金，轻 核算。上面谈到，资金在生产经营过程中分别有着不同的表现形式，“钱”只是这 个过程的起点和终点，大量的管理工作都蕴含在过程之中。因此，只有加强内部 核算，才能真正做到节支降耗，否则，“钱”是管不住的。另一种认为财务管理就 是管财务部门，把财务部门与其他管理部门割裂开来，财务管理的触角不能延伸 到各项管理工作之中。财务管理就成为无本之

3、木，其作用得不到发挥，形成经营 和生产“两张皮”。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专 业毕业的学员来说，也是一次将计算机应用于现实管理的一次很有意义的实践活 动。1.2 开发的意义今天，作为任何产业的附庸与必须，计算机已经成为我们学习和工作的得力 助手，在每一个企业和团体使用计算机是节省时间和提高效率的最佳途径，而为 了更好的管理公司的财务信息和，使用方便快捷的财务管理系统也就成为了帮助 我们在财务管理方面必备的工作了。作为一个时代发展的必然需求，财务管理已经成为了一种模式，而如何将这 种模式具体化并且实现，就是本次毕业设计的思路与要求，正宇公司财务管理系 统的

4、设计与实现将是本次设计的主题。二开发环境及技术实现2.1 开发环境软件环境操作系统Microsoft WindowsXP简体中文专业版+ SP3软件系统：Visual basic 6.0 中文版、Access 数据库。2.2 Visual Basic 6.0 简介Visual Basic 6.0中文版是一种应用程序开发工具，它的功能就是用来编程 Windows下的应用程序。" VisuaL'词在计算机程序设计领域中意为：句视化的"，Microsoft公司的其 冠以Visual的产品都含有这个意思。VB就是可视化程序设计语言。可视化程序设计指的是一种开发图形用户界面的

5、方法，使用这种方法，程序 员不须编写大量代码去描述界面元素的外观和位置，只要把预先建立的界面元素 用鼠标拖放到屏幕上适当的位置即可。在众多的开发工具中，我们为什么要选择Visual Basic6.0呢？因为VB具有众多其它开发工具所没有的优点！具体介绍如下：1） Visual Basic提供可视化的编程工具用传统的高级语言编程时，程序的各种功能、用户界面和显示的结果全要由 程序语句来实现，这就增加了编程难度。而用 Visual Basic开发应用程序，包括 两部分工作：一是设计用户界面，二是编写程序代码。Visual Basic向程序设计人员提供图形对象（窗体、控件、菜单等）来进行应 用程序的

6、界面设计，例如程序人员可以根据用户的需要轻而易举地在屏幕上画出 下图的用户界面。Visual BASIC提供的 工具箱”内存放若干个 控件”，程序设计 者可以自由地从工具箱中取出所需控件，放到窗体中的指定位置，而不必为此编 写程序。也就是说，屏幕上的用户界面是用Visual Basic提供的可视化设计工具直接 画”出来的，而不是用程序 写出来的”。2)程序采用事件驱动方式在设计好用户界面后，第二件事是编写程序。Visual Basic改变了程序的机制， 它没有传统意义上的主程序，而由事件”来驱动子程序的运行。一般来说，每个子程序要实现的功能是单一的，子程序的规模一般不会太大，也就是说，把原来

7、一个统一控制的、包罗万象的大程序分解为许多个独立的、小规模的子程序，分 别由各种 事件”来驱动执行，于是编程难度大大降低了。3) Visual Basic融入了最新的计算机技术Visual BASIC的设计者在Visual Basic中融入了最新的计算机技术，使得用 Visual Basic编程能充分利用了这些最新的技术，例如在多媒体方面的应用、在 Internet方面的应用等。总之，Visual Basic是面向对象的、结构化的计算机语言。Visual Basic的界面由一些对象组成，每个对象有若干个属性、方法和事件，程序人员的任务是设 计这些对象的事件处理过程。Visual Basic是一

8、种很容易学习并很快就可以熟练学 握的功能强大的编程语言。第三章需求分析3.1 用户需求分析3.1.1 系统需求随着互联网的爆炸性发展，人们越来越习惯于利用网络来实现所需的服务， 网络已深深影响到人们生活的各个方面。另外，传统的财务管理模式已经无法满 足一部分现代人的需要，而财务管理系统，除去在我们计算与管理过程中出现的 误差与错失，并且能够满足各类公司和团体的常规与特殊需求，而且其方便快捷，实现技术又比较成熟，因此受到当代人的喜爱。该系统主要分为两部分：资金输入部分和资金输出部分，其中资金输入部分 主要包括公司创造的价值与在投资过程中所获得的利润，而资金输出部分则重点 体现在员工的工资以及公司

9、投资和在日常工作中所涉及到的需求。这两部分通归 为结账以及报表两类，除此之外，本系统还可对用户的账号和队系统的管理权限进行管理。管理员需要给财务处的人员分配用户名和密码， 及设定使用者的级别 同时，还需要给财务资源进行分级，以确定哪些级别的用户可以浏览。当然除了这些，我们对于系统中应有的查询功能也进行了构建，能够在系统 中合理并有效的查询出所需的账目及财务咨询将会是提高工作效率的一个重要组 成部分。3.1.2 功能需求财务管理系统主要是为，管理人员可以通过该系统处理关于公司的财政情况， 对于本系统，我们需要实现以下一些基本功能：1 .系统登录模块的实现2 .主窗体模块的实现3 .修改密码模块的

10、实现4 .增加工资记录模块的实现5 .导出报销记录的实现6 .添加固定资产的实现3.2可行性分析3.2.1 经济方面可行性分析制作这样一款软件所能获得的好处是显而易见的，而且在成本上的投入上和 所获得的利润相比已经基本算不上什么了。首先，在投入上，我们只需要准备一台电脑和一个工作人员，也就是我，然 后付给我相对应的报酬，从而获得系统本身，当然投入并不只是初期的第一步， 在后期系统的维护与运行中，也需要进行一小部分的投入。那么我们在来说说收益，如果在没有财务管理系统的情况下，公司需要大量 的人力以及资源来满足公司财务方面的管理以及保障，同时我们不能保证在管理 的过程中出现这样那样的问题，当然并不

11、是指拥有了财务管理系统就没有了这方 面的问题，但是由于财务管理系统是一个非常容易就能读懂并且使用的软件，在 公司里财务方面，对于总经理和总裁而言，就不会像管理财务报告那么复杂和繁琐了。同时，在使用财务系统的时候，可以简单并且直接的将财务信息进行汇总 和处理，方便快捷。从长远角度来看，随着科技化的日益普及和应用，计算机在我们公司的使用 已经成为了必然，而如何合理的利用计算机，并且通过计算机在很多方面实现价 值和利润就成为了关键中的关键，财务管理系统抛却古老的人的管理模式， 改为机器的控制模式，可以更加切合社会的发展需求，并且可以大大提高公司员 工的效率。拥有这样一个方便且简单的财务系统，并且不需

12、要付出太多的代价，绝对是 一个非常好的方案。3.2.2 技术方面可行性分析1. Visual Basic 6.0是一个易学易用的集成开发环境： Visual Basic 6.0为用户 设计界面、编写代码、调试程序、编译程序、制作应用程序安装盘等提供了友好 的集成开发环境。前文我已经介绍了 VB6.0的特点，通过这样一个简单，高效且 易用的软件，可以成功且迅速的编写出程序。2. Access数据库的方便与实用，与其友好的界面以及方便操作的平台都是我 选择它做数据库的主要原因，当然其与WIN系列系统的兼容于可用性也是我选择 它的重要依据。3. Visual Basic 6.0和Access的兼容性

13、是不容置疑的，虽然是第一次将两种软 件进行实际的结合使用，但是在技术上并没有太多的问题，所以使用这两个软件 进行程序的编写以及数据库的应用都没有问题。3.2.3 法律方面可行性分析依据国家计算机软件产品开发文件编制指南 和现代软件工程的理论与 原则编制标准的软件技术文档，本系统完全符合其相关规定。第四章财务管理系统的概要设计4.1 系统结构流程图4.1.1 系统结构图财务管理系统的系统结构大致可分为两个组成部分，一个就是系统的用户管 理部分，另外一个就是财务管理系统的主要构成部分。本系统的整体结构如图4.1:图4-1系统结构图作为财务管理系统中的用户管理子系统，因为并不是其中关键的结构，所需

14、要的功能并不是很多，大概分为用户登陆和密码修改两方面。具体结构如图4.2:图4-2用户管理子系统图作为系统的核心部分，财务管理子系统所需要的功能就相对过多，主要分为4.3:凭证管理、账簿查询以及结账和报表等方面，具体结构如图财务管理子系统图4.3财务管理子系统4.1.2系统流程图图4.4是本系统的整体流程图:图4-4系统流程图图4-7凭证E-R图4.1.3 E-R 图图4-10分录历史 E-R图5.科目余额表图4-12明细账簿E-R图图4-13汇总账簿E-R图8.资产负债图4-15实体联系图4.2 数据库设计“科目表”是系统的关键表，其他各表均与“科目表”通过“科目代码”字段进行多对一的关联。

15、系统共需要11张表，用途如下表数据表名称数据表用途科目表保存企业财务的科目设置信息账簿初始化表正式使用系统前初始化科目的期初余额凭证表输入会计凭证，记录表的主表分录表输入会计分录，记录表的从表科目余额表保存各个会计期间的科目借、贷、余额情况凭证表历'史保存过账后的凭证历史分录表历史保存过账后的分录历史本期明细帐簿保存当前会计期间的明细帐簿数据本期汇总帐簿保存当前会计期间的明细帐簿数据，期末结账后期末变成新会计期间的期初资产负债表统计用表，用于计算资产负债表系统参数表系统运行所需的参数信息4.3 创建数据库打开ACCESS,名称为caiwubook。然后创建数据库对象，完成数据库的设计。

16、Object TreeVi ev生也*-MainMenul- 礴基百蹴据管理（mnuBaseData 成科目设置mnukemu 猖帐户设置mnuzhanghu- 礴凭证管理（mnuPingzheng 蟋凭证输入mnuInputPZ 凭证过帐mnuCerFZ）- 嗯帐薄查询mniCHidngBu）嗯息分类帐mnuT otaZB嗯 明细帐mnuDetaiEB-礴结帐及报表mnReport吗试篁平衡表（mnuTe&tCal）=噂期末结帐mnuJieZhang） 猖资产负债表（mnuReportl吗退出系统（mnuEwitv图4-16数据库截图创建“科目表”数据表CREATE TABLE db

17、o.科目表(科目代码char (20) NOT NULL,科目名称char (20) NULL,科目类别char (20) NULL,是否存货科目char (10) NULL,余额方向char (4) NULL数量单位char (10) NULL)ON PRIMARYGO创建“帐簿初始化表”数据表CREATE TABLE dbo.帐簿初始化表(科目代码char (20) NOT NULL ,科目名称char (20) NULL ,累计借方money NULL ,累计贷方money NULL ,期初余额money NULL ,余额方向char (4) NULL)ON PRIMARYGO创建“凭证

18、表”和“凭证表历史”数据表 CREATE TABLE dbo.凭证表(凭证编号char (10) NOT NULL, 凭证字号char (2) NULL, 附单据int NULL, 制单char (20) NULL, 借方合计money NULL, 贷方合计money NULL, 凭证状态char (10) NULL)ON PRIMARY GOCREATE TABLE dbo.凭证表历史( 凭证编号char (10) NOT NULL , 凭证字号char (2) NULL , 附单据int NULL , 制单char (20) NULL , 借方合计money NULL , 贷方合计mone

19、y NULL , 凭证状态char (10) NULL)ON PRIMARYGO创建“分录表”和“分录表历史”数据表CREATE TABLE dbo.分录表( 编号int IDENTITY (1,1) NOT NULL, 凭证编号char (10) NOT NULL, 科目代码char (20) NULL, 借方money NULL,贷方money NULL, 单价money NULL, 结算方式char (10) NULL,)ON PRIMARY GOCREATE TABLE dbo.分录表历史( 编号int NOT NULL ,凭证编号char (10) NOT NULL , 科目代码ch

20、ar (20) NULL , 借方money NULL , 贷方money NULL , 单价money NULL , 结算方式char (10) NULL ,)ON PRIMARYGO创建“科目余额表”数据表CREATE TABLE dbo.科目余额表( 科目代码char (20) NULL , 期初借方余额money NULL , 期初贷方余额money NULL , 本期借方发生额money NULL , 本期贷方发生额money NULL ,ben 本期借方余额money NULL , 本期贷方余额money NULL , 最后结算分录int NULL , 余额方向char (4) N

21、ULL ,)ON PRIMARYGO创建“本期明细帐簿”数据表CREATE TABLE dbo.本期明细帐簿(内部编号int IDENTITY (1,1) NOT NULL ,分录编号int NULL ,凭证字号char (4) NULL ,凭证编号char (10) NULL ,科目代码char (20) NULL ,借方money NULL ,贷方money NULL ,余额方向char (4) NULL ,单价money NULL ,结算方式char (10) NULL ,)ON PRIMARYGO创建“本期汇总帐簿”数据表CREATE TABLE dbo.本期汇总帐簿(科目代码char

22、 (20) NOT NULL ,会计期间int NULL ,期初余额money NULL ,本期借方合计money NULL ,本期贷方合计money NULL ,本年借方累计money NULL ,本年贷方累计money NULL ,余额money NULL ,余额方向char (4) NULL)ON PRIMARYGO创建“资产负债表”数据表CREATE TABLE dbo.资产负债表(流动资产总计money NULL ,固定资产总计money NULL ,其他资产money NULL ,资产总计money NULL ,应付帐款money NULL , 其他负债money NULL ,负债

23、总计money NULL ,实收资本总计money NULL ,负债及所有者权益总计money NULL)ON PRIMARYGO创建“系统参数表”数据表CREATE TABLE dbo.系统参数表(编号int IDENTITY (1,1) NOT NULL ,参数名称char (20) NULL ,取值int NULL)ON PRIMARYGO4.4界面设计4.4.1 主界面设计本模块主要就是一个简单的界面视图，如图4.17:图4-17财务管理系统主界面4.4.2 用户登录子界面图4-18管理员登陆界面员工管理的权限属于经理。以“ admin”帐号登陆系统。选择“员工管理” 可以进行“创建员

24、工帐号”、“修改员工密码”、“修改员工资料”等操作。也可以 点取“员工帐号管理”启动如图4-17所示界面进行员工帐号的集中统一管理。4.4.3 财务管理子系统界面设计图4-19财务管理系统子界面4.4.4 填写凭证的设计本模块的功能是对基础财务的设定、使工作人员易于工作，做到数据不易丢 失，根据各种基本情况设定界面。数据底堆护攵类窗讣回回区I图4-20填写凭证界面4.4.5 账目查询界面设计本模块的功能主要用于查询财务相关账目及信息，分别有总分类查询和各账 目的明细查询，如图4.21和图4.22图4-21总分类账目查询设计界面图4.22明细账查询界面第五章财务管理系统详细设计及编码5.1 用户

25、登录子系统的实现5.1.1 分配用户管理实现图5-1管理员登陆界面员工管理的权限属于经理。以“ admin”帐号登陆系统。选择“员工管理”可以进行“创建员工帐号”、“修改员工密码”、“修改员工资料”等操作。也可以 点取“员工帐号管理”启动如下图所示界面进行员工帐号的集中统一管理。主要代码如下：Private Sub Command1_Click()Dim Uname As StringDim Pd As StringDim Sql As StringUname = Combo1.Text ' 存放用户名Pd = Text2.Text ' 存放密码Sql = "sele

26、ct * from pwd where 用户名='"'存放一 SQL字符串If Rs_log.State = 1 Then Rs_log.Close'判断记录集对象的状态Rs_log.Open Sql & Uname & "' and 密码='"& Pd & "”', Con, 1,3 '判断返回的记录条数是否为0如果不为0则表示在表中存在这样一个用户名和密码，否则则不存在If Rs_log.RecordCount <> 0 ThenQx = Rs_log

27、.Fields（"权限"）MDIForml.ShowUnload FormlElseMsgBox "用户名或者密码错误"End IfEnd SubPrivate Sub Form_Load（）设置数据库连接对象，使其连接到数据库Con.Open "driver=sql server;server=;database=student"Con.CursorLocation = adUseClientRs_log.Open "pwd", Con, 1,3For i = 0 To Rs_log.RecordCount -

28、1Combo1.AddItem Rs_log.Fields（" 用户名"）Rs_log.MoveNextNext iEnd Sub5.1.2 用户信息管理模块部分代码图5-2员工管理界面主要代码如下：Dim Flag As Boolean '记录点击确定前所进行的是“添加”还是“修改”按钮保存添加或修改后的信息Private Sub saveinfo（）Rs_info.Fields（"学号"）=Text1.TextRs_info.Fields（" 姓名"）=Text2.TextRs_info.Fields（"性别&q

29、uot;）=Combo1.TextRs_info.Fields（" 年龄"）=Val（Text3.Text）Rs_info.UpdateEnd SubPrivate Sub Showinfo（）'把当前记录显示在文本框当中If IsNull（Rs_info.Fields（"学号"）=True ThenText1.Text =""学号”)ElseText1.Text = Rs_info.Fields（End IfIf IsNull(Rs_info(" 姓名")=True ThenText2.Text =&qu

30、ot;"ElseText2.Text = Rs_info.Fields(" 姓名")End IfIf IsNull(Rs_info.Fields(" 性别")=True ThenCombol.Text =""ElseCombol.Text = Rs_info.Fields("性别")End IfIf IsNull(Rs_info.Fields("年龄")=True ThenText3.Text =""ElseText3.Text = Rs_info.Fields(&

31、quot;年龄")End IfEnd SubPrivate Sub Command1_Click()'移到第一条Rs_info.MoveFirstCall ShowinfoEnd SubPrivate Sub Command2_Click()'移到第上一条Rs_info.MovePreviousIf Rs_info.BOF = True ThenRs_info.MoveFirstEnd IfCall ShowinfoEnd SubPrivate Sub Command3_Click()'移到下一条Rs_info.MoveNextIf Rs_info.EOF =

32、 True ThenRs_info.MoveLastEnd IfCall ShowinfoEnd SubPrivate Sub Command4_Click()'Rs_info.MoveLastCall ShowinfoEnd SubPrivate Sub Command5_Click()'Flag = TrueRs_info.AddNewEnd SubPrivate Sub Command6_Click()'Rs_info.DeleteEnd SubPrivate Sub Command7_Click()'Flag = FalseEnd SubPrivate

33、Sub Command8_Click()'If Flag = True Thenmsg ="你确定要添加当前记录吗?Elsemsg ="你确定要修改当前记录吗?移到最后一条添加记录删除记录修改点击“确定"按钮时执行相关操作”End IfX = MsgBox(msg, vbOKCancel + vbQuestion,If X = vbOK Then添加")Call saveinfoElseRs_info.CancelBatchRs_info.MoveFirstEnd IfEnd Sub'网格控件的行或列发生变化时触发该事件Private S

34、ub DataGrid1_RowColChange(LastRow As Variant, ByVal LastColAs Integer)If Rs_info.BOF <> True And Rs_info.EOF <> True ThenCall ShowinfoEnd IfEnd SubPrivate Sub Form_Load()If Rs_info.State = 1 Then Rs_info.CloseRs_info.Open "stuinfo", Con, 1,3Set DataGrid1.DataSource = Rs_infoCal

35、l ShowinfoForm3.Width = 8055Form3.Height = 5115End Sub5.2 财务管理子系统模块实现5.2.1 财务管理子系统模块的实现如图5.3,财务管理系统所包括的四个主要功能，分别是基础数据管理，凭证管理，账簿查询，结账及报表。5-3财务管理系统子界面卜表是图5.3各控件的属性以及说明控件类型对象（控件）名属性取值（说明）FormfmMainNamefmMainCaption财务管理系统FormstylefsMDIFormFrameBevel1Caption基础数据管理FrameBevel2Caption凭证管理FrameBevel3Caption帐

36、簿查询FrameBevel4Caption结账及报表LabelLabel1 到 Label9Caption见图表5-1窗体及其控件的属性设置如表因为各个窗体均需要对对数据库进行访问，可以把与数据库进行连接的控件 放置到一个数据访问模块中，这样所有的窗体都可以共享来访问数据库。在ODBC中添加一个驱动程序为 SQL Server的系统DNS数据源指向前面创 建的caiwubook数据库，名称为caiwulink。在VB6.0中单击菜单命令，生成一个数据模块并保存为“工程1.vbw”文件为数据模块添加一个Database控件，控件的属性设置如表，这样在其他窗体 中就可以直接使用Query和Tabl

37、e空件来访问数据了对象（控件）名属性取值（说明）DatabaselNameDatabaseAliasNameCaiwulinkDatabaseNamedbParamsUSER NAME=sg 问数据库的用户和密码）LoginPromptFalse （程序运行时 不提示输入数据库用户 名和密码）表5-2 Database 控件属性表5.2.2 凭证窗体设计的模块的实现选择New |Form菜单命令，新建一个窗体，将其 Name属性改为“fmParent” 并为其添加如图所示控件。选择 Project|Options菜单命令，将fmParent窗体从 自动创建的窗体列表中删除。控件类型对象名属性取

38、值（说明）FormfmParentCaption数据库维护父类窗体DataSouceDataSource1FormSytleAutoEditDataSetfsMDIChildfalseTable1TableTable1DatabaseNamedbImageListImageList1ImageList按ToolBar1的顺序ToolbarToolbar1FlatImageListShowCaptionsButtonHeightTrueImageList1True36ToolbarButtonbtFirstCaption首记录ToolbarButtonbtPriorCaption上记录Toolb

39、arButtonbtNextCaption下记录ToolbarButtonbtLastCaption尾记录ToolbarButtonbtNewCaption新增ToolbarButtonbtEditCaption修改ToolbarButtonbtDeleteCaption删除ToolbarButtonbtSaveCaption保存ToolbarButtonbtCancelCaption取消ToolbarButtonbtExitCaption退出CoolBarCoolBar1AutoSizetruePanelPanel1ParentlCoolBar1BitBtnBitBtn1Caption搜索L

40、abel1blCountCaption记录数：Label共三个CaptionEdit1、Edit2、Edit3Edit共三个NameDBGridDBGrid1ReadOnlyDataSourcetrueDataSource1表5-3所需各控件的属性5.2.3 总分类帐的查询功能的实现选才F File|New|Other菜单命令，弹出New Items窗体，在财务选项卡中选择 fmParent选项，单击 OK按钮。将其Name属性设置“ fmTotalZB"，Caption属性 设置为“总分类帐查询”。选择Project|Options 菜单命令，将fmTotalZB窗体从自动创建的窗

41、体列表中删除，并为窗体添加如图控件图5-8总分类帐查询(2)将Pane12d的Align属性设置为“ alTop”，并在上面添加一个 CheckBox 控件和Table控件。各控件的属性设置如图。控件类型对象名属性取值说明TableTable1TableNameActivedbo.本期汇总帐簿trueCheckBoxCheckBoxCaption无发生金额/、显小QueryQuery1DatabaseNamedbTableTable2DatabaseNameTableNameActivedbdbo科目表trueToolButton灰色的五个Enabledfalse表5-4 checkbox 控

42、件属性完成明细帐查询功能选才F File|New|Other菜单命令，弹出New Items窗体，在财务选项卡中选择 fmParent选项，单击 OK按钮。将其Name属性设置“ fmDetailZB "，Caption属性 设置为“明细帐查询”。选择Project|Options菜单命令，将fmDetailZB窗体从自动创建的窗体列表中删除，并为fmDetailZB窗体添加如图控件图5-8明细账查询(2)将Panel2的Align属性设置为“alTop”，并在上面添加一个Label控件 各控件的属性设置如表所示。控件类型对象名属性取值说明TableTable1TableNameAc

43、tiveMasterSourceMasterFieldsdbo.本期明细帐簿 trueDataSource2 科目代码QueryQuery1DatabaseNam eSQLdbselect distinct a.科 目代码，b.科目名 称from本期明细 帐簿as a,科目表 as b where a.科目 代码=b.科目代码 order by a.科目代 码trueActiveDataSouceDataSouce2DataSetQuery1trueToolButton灰色的五个EnabledFalsePanelPanel2AlignalTopLabelLabel4Caption科目5.2.4

44、 资产负债表报表输出功能实现(1)新建一个窗体，将其 Name属性改为“ fmReportZiCh"，Caption属性改 为“资产负债表”，并为其添加一个QuickRep和一个Table控件。两个控件属性设置如表所示控件类型对象名属性取值说明TableTable1DatabaseNam eTableNameActivedbdbo.资产负债表trueQuickRepQuickRep1DataSetBandsReportTitleTableHasDetail、HasTitle打印(2)在QuickRepI控件的各个Band上分别放置对应的QRSysData控件、 QRLabel控件和Q

45、RDBText控件，如图所示，其中QRDBText控件DataField属性 设置为相应QRLabel的标题。二旗产量fii衰H:TitleH皆产负债表也耐匿产现金及现金等馒现金及现金等价规座收帐相：应收帐利圈：坏帐准置：坏帐准爸厘收帐款停建：应收帐款停建舐动资产总记：流动资产总比固定资产原值：固定资产原值谟：累计折回：累计折町固定资产总比：固定资产总记其他资严：其他资先负债及所有者权益1 L座付帐就:应付摊就预收帐飘：颈收帐耨座付工商：应村工瓷艮他负傀：其他负他力债总代：负债总比实收资用:实收资用膂本公租：资本公积扇余公积：赢余公积器分眈魄:未分配利河所有老权益总比：所有老权益总之1J>

46、;11 Tr图5-9资产负债表筑产总优：资产总正员债及所有者权益总忧：负债及所有者板可六程序的测试、连编与发行6.1 系统的测试与调试在应用程序设计和创建的过程中，需要不断地对所设计的菜单、表单、报表 等科学试验模块进行测试与调试。通过测试发现问题和纠正错误，并逐步加以完 善。软件在运行过程中可能会产生各种各样的问题，也可能带来不同程度的严重 后果。软件测试是保证软件质量的最重要的手段。软件测试的概念IEEE定义为：使用人工可自动手段来运行或测定某个系统过程，其目的在于检验它是否满足规 定需求或是弄清预期结果与实际结果之间的差别。Visual Basic 6.0提供了专门的程序调试器，可用它来

47、设置程序断点、跟踪程 序的运行，检察所有变量的值、对象的属性值及环境设置值等。启动程序调试器 的方法是执行“工具”菜单下的“调试器”命令，或在命令窗口执行DEBUG命令。在各程序模块测试达到预定的功能和效果后，就可进行整个程序系统的综合 测试与调试。综合测试通过后，便可投入试运行，即把各程序模块连同数据库一 起装入指定的应用程序磁盘目录，然后启动主程序开始运行，考察系统的各个功 能模块是否能正常运行，是否达到了预定的功能和性能要求，是否能满足用户的 需求。试运行阶段一般只需装入少量的试验数据，待确认无误后再输入大批的实 际数据。尽管面向对象技术的基本思想保证了软件应该有更高的质量，但无论采用什 么样的编程技术，编程人员的错误都不是可避免的，而且由于面向对象技术开发 的软件代码重用率高，更需要严格测试，避免错误的繁衍。因此，软件测试在面 向对象编程里更具有它的重要性。典型的面向对向程序具有继承、封装和多态的 新特性，这使得传统的测试策略必须有所改变。封装对数据的隐藏，外界只能通 过被提供的操作来访问或修改数据，这样降低了数据被任意修改和读写的可能性， 降低了传统程序中对数据非法操作的测试。继承是面