电算化会计实验指导书

《电算化会计》实验指导书

实验课程代码：08041030

英文名称：ComputerApplicationinAccounting

合用对象：管埋类本科专业、经济类本科专业

学时学分：共64学时，其中理论教学48学时，实验16学时。共4学分，实验1

学分。

一、实验的地位、作用

电算化会计实验作为课程实践性环节之一，是教学过程中必不可少的重要内容。通

过计算机实验和实例开发，使学生加深理解、验证巩固课堂教学内容；增强对关系数据

库系统VFP、账务解决系统整体的感性结识；掌握系统分析、系统设计及可视化程序设

计、应用系统开发的基本方法；培养学生理论与实践相结合的能力。

二、实验开设对象

本实验开设对象为《电竟化会计》课程的学习者（管理类本科专业、经济类本科专

业），实验为必修内容，

三、基本原理及课程简介

《电算化会计》是一门培养学生学习和掌握会计电算化系统分析和开发基本技术，

并具有一定程序设计和独立完毕简朴应用系统开发能力的专业提高类课程，属于计算机

和会计学相结合的边沿类课程，具有很强的操作性和实践性。课程实验教学目的在于使

学生从系统操作和软件设计两个方面掌握账务解决系统的基本原理、技术，井通过上机

实践进行自己动手进行实例开发，从而巩固提高课程教学质量。本课程规定学生了解系

统开发中需耍用到的系统调查、分析和设计等基本理论，并在此基础上熟悉一门数据库

语言，在掌握数据库语言的基础上，结合实际，进行简朴财务应用软件的设计与开发，

并能独立在计算机上进行实现。实验课程不同于理论课程，应充足体现“教师指导下的

以学生为中心”的教学模式，以学生为认知主体，充足调动学生的积极性和能动性，重

视学生自学能力的培养，实验方式重要为学生上机操作，教师随堂辅导。共开设8个实

验项目。实验1为账务解决系统的开发进行原始数据的准备，实验2-7为系统中各表

单的界面设计与程序设计训练，8为综合性系统开发实验。

四、指导教师

原则上由关系数据库课程讲授教师负责，并担任重要的实验指导教师，实验室人员

配合指导。指导教师应在每次实验前讲清实验目的、基本原理、实验规定等，指导学生

在规定的时间内完毕相关课程实验。

五、实验设备配置

每人配置1台电脑，安装有关系数据库系统VisualFoxpro6.0、用友财务软件、

Office97/2023等其他软件系统，可访问内部局域网。

六、考核与报告

1.实验后，学生洛实验结果等内容及时存盘，并写出实验报告，符合实验教学的

规定，并得到指导教师的认可。

2.指导教师对学生上机实验结果及时检查，并对每份实验报告进行审判、评分。

3.该实验课程的成绩单独评分，并与实验学分挂钩，同时记入课程总成绩。

实验一VFP操作回顾与账务解决系统开发准备

一\实验题目

1、回顾关系数据库课程中所学的VFP6.0的相关操作；

2、做建立项目管理账务解决系统开发准备。

二、实验课时

课内2学时。

三、实验目的

1、从VFP系统的启动开始，逐步熟悉其界面、辅助设计工具及基本操作，并回顾VFP的相关操作;

2、建立系统的控制和管理中心：项目管理器，建立系统文献的存储文献夹。

四、实验内容和规定

一•项目的建立

1.拟定系统文献夹的途径，建立系统文献夹：D:\***x**或者E：\******；

2.运用VF6.0新建项目文献：账务解决系统，并将其保存到所建文献夹中。

--数据初始化

1.将基础数据文献拷贝到系统文献夹下（各种表和数据文献）；

2.在项目管理器中建立数据库：总账.dbc；

3.在新建数据库中导入基础数据文献（将表添加到总账数据库）；

4.练习自行建立“操作人员”表，其它表格通过局域网共享获得。

三.建立系统的门户表单一一“系统注册”表单

1、建立“系统注册”表单

第一步：通过操作的方式建立一个表单，将其保存，取名为系统注册;

第二步：将表单的Caption属性有本来的forml改为“系统注册”。

2、建立“系统注册”表单集

建立方法：在建立表单集时，我们先建立一个新表单，建立完一个新表单后，VF的主菜单上就

会自动增长“表单”这一菜单项，有关表单和表单集的相关操作都可以在这一菜单项中来完毕。建

立表单集需要下面三个环节：表单一创建表单集一添加新表单（移除表单集）。

具体环节如下：

第一步：创建新表单：

图17建立表单示意图

己项目管理需意务处理

其他|臼

全部数据［支档］类］代码

杏

询打印新建01）..

国

一

纳

字

国

筌

出

计

画

目

科

会

蛛

㈣照Forml

记

参

目

国

科

总

汇

目

国

科

领

初

余

期

画

置

限

设

权

画

证

核

凭

申

画

说明:

路径

..:・・・・・：・・・・・：：・・・・・：・・•・・：・・・・・：・・・・・：・・・・・：・・・・・：・・・・・：・・・・・：：:・・•・・：▼

4丁1—►c

图1-2建立表单示意图

第二步：点击主菜单中的“表单”菜单项，然后点击其下拉菜单中的“创建表单集”；此时，“表

单设计器”就变成了“表单集设计器”。

■cfVVoxPro

图1-3创建表单集

第三步：点击“表单”菜单项下拉菜单中的“添加新表单”和“移除表单”进行表单集中表单个

数的增长和减少。

)»offhFoxPro

显示格式《a云8（⑷工具（I）程中（巧«n<W）帮助《卜”

新注底性（？）•・・

旧|朝㈤切*I跑11系斤江方法彳至JTCND…Z]<sal曲HII

IA问|前乙|修：|eIr的辐用性/方*去程序《EU7叫IfigflZ回回l"04|

图1-4往表单集中添加新表单

w表单设计图-文若2,1□1x|

d.I

图1-5表单集示意图

tVisualFoxPro

辑⑥显示⑦格式(0)表单3D工具(I)程序⑻窗口(劭帮助回

IlEEW新建雇性(的…

\|回|£@|0|篙|«|r编辑屈性，方法程序(日…吧酬7洌目EI匐4

包含文件⑴…

卫项目管理塞黑务处三

创建表弟集仁)

其他!□

全部移除表单集@代同

游加新表单(日

口园『薪建面：

移除表单

画查询打EP

?圜出纳答字快速表单(0)...添加3).…

由合计科目执行表单(B)Ctrl+E

工表单设计SB・文石2-1□!x|

<1I

图1-6移除表单示意图

3、建立“用户”数据表

此数据表中起码涉及：姓名、密码两个字段，用来控制用户的登陆以及用以纪录系统的使用情况。

|tfua用尸

姓名铅码

罗老师11S

一拳王阡

11s

张老师Z1S〜.......

王老师.....

..................

—,

----==

一--------------」

图1-7用户表结构示意图

4、设立系统数据环境

我们在前面已经建立了一个“用户”表，这个表是一个数据库表，存在于我们新建立数据库中，

但是这时候他还不能为我们的表单所用。由于数据库和表单是两个独立的事务。

所以接下来我们需要将本来在数据库中的表加到我们表单的数据环境中来，这样将会有两个方

面的好处：1、这个表现在和表单之间建立了一种关系，可以随时为我们的表单所用了；2、在表单

数据环境中的表将会随着表单的打开和关闭而自动的打井和关闭。这样的话我们在操作表单的时候

就不用再去紧张或者考虑我们要用到的表是否已经打开或者关闭了。

5、表单界面设计

涉及：标签、命令按钮、文本框、组合框和复选框。

用尸名:

S询：更改空码:

图1-8系统注册界面设计示意图

6、控件数据捆绑

标签用户名后面的组合框中数据来自于“用户”数据表中的姓名字段，要想实现在表单运营过

程中自动显示，在运营之前需要进行数据捆绑和程序控制。

(D数据捆绑

图1-9控件捆绑数据示意图

(2)程序控制

C0MB01.INIT

pubIicyhm,yhmm

yhm=''

yhmm=''

this.vaIue=this.Iist(1)

7、表单程序设计

F0RM1各控件中的程序如下：

我们在编程的时候考虑得最多或者说必须要考虑的就是：一方面程序要能实现其应有的功能；此外:

就是用户操作的简便性。

1、判断用户输入密码是否对的，是否有使用系统的权限：在程序编写过程中是通过判断用户输

入密码和系统提供密码是否一致来实现判断的。假如，用户输入的密码对的，那么他就可以进入系

统；否则，用户就会被拒之门外。

要实现这个功能，我们第一步就是要从系统中取出每个用户所相应的密码；第二步，再用我们

取出来的密码跟用户输入的密码进行比较。第三步：根据比较结果进行分支解决。

第一步：我们在编程过程中要实现的第一个功能就是取出系统中原先设定的用户密码。这一功

能我们是在：组合框中编程实现的。具体程序如下：

C0MB01.INIT

pubIicyhm,yhmm

yhm=''

yhmm=''

this.vaIue=this.Iist(1)

sele用户

yhm=aIItrim(姓名)

yhmm=aIItrim(密码)

C0MB01.CLICK

sele用户

yhm=aIItrim(姓名)

yhmm=aIItrim(密码)

thisform.textl.setfocus

第二步：实现用户输入密码和系统密码的比较，具体程序如下：

C0MMAND1.CLICK

localyhsr,xm

yhsr=alItrim(thisformtextl.vaIue)

ifsys(2023,yhsr)!=sys(2023,yhmm)&&第三步：比较之后进行分支解决。

thisform.textl.vaIue=，'

thisform.textl.setfocus

二messagebox("密码不对的，请重新输入！"，0+48,"密码错误")

return

eIse

ifthisform.checkl.vaIue==1

thisformset.form2.visibIe=.t.

thisformset.form2.activate

thisformset.forml.visible=.f.

eIse

pubIiczcr

zcr=yhm

releaseyhm,yhmm

thisformset.reIease

endif

endif

在更改密码表单中，进行的是输入新密码、比较输入密码以及进行密码的替换。在输入新密码

的时候，我们还要进行一些完善性的措施，由于密码关系到一个系统得安全性，所以我们在更改密

码的时候或输入密码时，需要遵循一定的规则。具体如下：(1)用户输入的密码不能为空；(2)用

户两次输入的密码必须相等。要想实现上述功能，在F0RM2表单中需要编写如下具体程序：

C0MMAND1.CLICK

locaIxmm1,xmm2

xmm1=aIItrim(thisformtextl.vaIue)

xmm2=aIItrim(thisformtext2.vaIue)

ifxmm1==1'

=messagebox("密码不能为空！",0+48,"警告")

thisform.textl.value=,'

thisform.textl.setfocus

return

endif

ifsys(2023,xmm2)!=sys(2023,xmm1)

二messagebox密码核对错误，请重新拟定新密码！”,0+48「警告”)

thisform.text2.value=，'

thisform.LexL2.setfocus

return

else

sele用户

repI密码withxmml

pubIiczcr

zcr=yhm

releaseyhm,yhmm

thisformset.reIease

endif

注意事项:

1.在建立完系统文献夹后，千万注意设定当前系统项目管理器文献途径为当前默认途径；

2.VFP命令语句不区分字母大小写，但必须是英文格式,，需要注意输入时的中、英文切换，

避免输入中文符号；

3.为防止软盘犯错、内容丢失，除在硬盘上保存外，最佳准备两块软盘备份，保证数据安全。

实验二会计科目表单的建立与修改

一\实验题目

1、进行会计科目表单的建立与修改；

二、实验课时

课内2学时

三、实验目的

通过实例练习，纯熟掌握VFP系统中会计科目表单的建立与修改方法，并完毕相应的数据库、

数据表内容，为后续实验做准备。

四、实验内容和规定

（-）.“会计科目”表单设计

1.建立“会计科目”表单

2.系统数据环境设立：将“会计科目”表加入到会计科目表单的数据环境，具体环节如下：

第一步：在表单“空白处”（即：无控件处）点击鼠标右键，出现如下图中的数据环境对话框;

:「会计科目-1□!x|

会计科目的设置与管理

第二步：在数据环境设计器中单击鼠标右键，出现如图所列示的快捷菜单，点击“添加”快捷菜

单;

增力口册J除修改退出

图2-2会计科目表单数据表添加

第三步：选种需要添加的表“会计科目”表，然后点击如图所示的“添加”按忸即可完毕一个

表的添加过程;

，会计科目

会计科目的设置与管理

科目级长：3-2-2科目个数：100

类型级次科目编码科目名称余颜方向二］

EGDI

:数究环境设计罂会计科目.•

±IJ

增力口删除修改退出

图2-3会计科目表单数据环境设立

第四步：如需添加多个表，反复第三步的操作，所有添加完毕后点击关闭按钮。

3.表单界面设计：

在会计科目表单中，需要用到下面几个控件：表格控件、命令按钮控件、标签控件以及起美化界

面作用的形状或容器控件。

根据实现表单功能需要将控件摆放完毕后，我们还需要进行控件属性的设立，其中对表格控件的

属性修改如下：

(1)将Readonly属性值设立为真；

(2)将Deletemark属性值设立为假；

(3)将RecordMark属性值设立为假；

(4)将scrolIbars属性值设立为2-垂直

(5)同时我们还可以修改表格的布局属性调整表格的行和列宽度，表格表头的宽度和字体

工会计科目,|r|x|

会计科目的设置与管理

科目级长：3-2-2科目个数：100

类型级次科目编码科目名称余颖方向

画圃哂迪］迪］

增加|删除|修改|退出

图2-4会计科目表单界面图

4、表格控件数据源的设定

表格控件中的列表头，控件中显示的数据均取决于表格控件所捆绑的数据源，因此，对的的捆

绑数据源是表格控件对的显示数据和修改数据的前提条件。具体捆绑环节如下：

第一步：将鼠标放在表格控件上点击鼠标右键，并在弹出的快捷菜单中选择“生成器”菜单项;

第二步：在表格控件生成器中进行数据表以及所用表中字段的拟定;

:/表格生成器

1.表格项2.样式3.布局4.关系

表格中添加哪些字段？

选择一个数据库或自由表，然后从一个表中选定字段。

黎据库和表@)：可用字段&):选定字段⑤):

［总账▼|…|科目名称明细I类型

是否未□球印□

科目编码

科目名称

吊用通要余额方向

用户

新凭证库I

临时凭证库1

科目汇.总声二J二1二I

帮助国)确定取消

图2-5表格控件数据捆绑

第三步：在此基础上还可以进行表格生成器中样式、布局和关系等选项卡的设定，所有设定完

毕后，点击拟定按钮即可俣存设定。

5、程序设计

在表单中，用户也许需要实现增长会计科目、修改会计科目或者删除会计科目的操作，为了实

现相应的功能，程序需要分别在不同的命令按钮中输入不同的程序加以实现。具体如下：

(1)增长命令按钮：

Command1.click

sele会计科目&&选中会计科目表成为当前表

insertbIank&&插入一条空白纪录，在用insert/pack等命令前必须将表设立成独占打开。

thisform.grid1.readonly=.f.&&改变其表格的属性，让表格变成可读写

thisform.refresh&&刷新表单

sele会计科目

thisform.Iabe14.caption=aIItrim(str(reccount(),4))

thisform.refresh

⑵删除命令按钮：

Command2.click

sele会计科目&&选中会计科目表成为当前表

delete&&将选中的记录打上删除标记。

Pack&&将打上删除标记的记录彻底删除

thisform.grid1.recordsource="会计科目"&&将表格控件重新捆绑数据源

thisform.grid1.refresh

thisform.refresh

sele会计科目

thisform.labe14.caption=aIItrim(str(reccount(),4))

thisform.refresh

⑶控制表格控件中数据是否可修改的修改命令按钮：

Commands,click

thisform.grid1.readonIy=.f.&&改变其表格的属性，让表格变成可读写

⑷退出表单命令按钮程序：

Cofiinand4.click

thisform.grid1.readonIy=.t.

thisform.release

⑸自动显示科目个数程序：

labeI4.init

sele会计科目

thisform.labe14.caption=aIItrim(str(reccount(),4))

thisform.refresh

规定：

1.按照会计科目表单图形界面进行界面设计，熟悉表单及表单控件各属性的含义和修改属性的

方法。

2.学习设立表单的数据环境，学习对表格控件等控件进行数据捆绑。

3.学习使用面向对象的编程方法，在会计科目表单的各个不同控件中进行程序设计。

实验三期初余额表单的建立与修改

一、实验题目

I、进行期初余额表单的建立与修改。

二、实验课时

课内2学时

三、实验目的

通过实例练习，纯熟掌握VFP系统中期初余额表单的建立与修改方法，并完毕相应的数据库、

数据表内容，为后续实验做准备。

四、实验内容和规定

（一）、“期初余额”过程设计

1、所实现的功能及过程描述

任何一个非新建公司，他们都会有一定的期初的资产、负债和权益。我们在做账的过程中用这

一公司的期初余额加上这一公司这一段时间的科目发生额，才干获得公司最终的资产、负债等数据。

所以，公司期初余额的设定，将关系到公司最终报出报表的准确性和可行度。

2、建立“期初余额',表弟

3、系统数据环境设立：将“期初余额”表加入到期列余额表单的数据环境，具体环节如下：

第一步：在表单“空白处”（即：无控件处）点击鼠标右键，出现如下图中的数据环境对话框;

/Forml,1□1x|

录入期初余额

科目名麻方向期初余颔

|现金(101)借75000.00

人民币(10101)借75000.00

美元(10102)信0.00

日元(10103)借0.00

限行存款U02)信1200000.00

工商银行(10201)借600000.00

工行人民吊户(1020101)借600000.00

工行美亢尸(1020102)市0.00

工行日元尸(1020103)借0.00

中国银行(10202)信600000.00

中行人民币尸(1020201)借600000.00

中行美元户(1020202)信0.00.执行表单(2

中行日元P(1020203)借0.00

其地货用资金Q09)借0.00粘贴也)

外境存款Q0901)借0.00数据环境…

银行本票存款(10902)借

0.00属性(D

短期投资(111)信

50000000生成器(8).

代码(③…

录入|修改|退出帮助(由…

图37期初余额表单数据环境设立

第二步：在数据环境设计器中单击鼠标右键，出现如图所列示的快捷菜单，点击“添加”快捷菜

单;

图3-2期初余额表单数据环境设立

第三步：选种需要添加的表“期初余额”表，然后点击如图所示的“添加”按忸即可完毕一个表的

添加过程；

图3-3期初余额表单数据环境设立

第四步：如需添加多个表，反复第三步的操作，所有添加完毕后点击关闭按钮。

3.表单界面设计：

在期初余额表单中，需要用到下面几个控件：表格控件、命令按钮控件、标签控件以及起美化界

面作用的形状或容器控件。

根据实现表单功能需要将控件摆放完毕后，我们还需要进行控件属性的设立，其中对表格控件的

属性修改如下；

(1)将Readonly属性值设立为真；

(2)将Deletemark属性值设立为假；

(3)将RecordMark属性值设立为假；

(4)将scrolIbars属性值设立为2-垂直

(5)同时我们还可以修改表格的布局属性调整表格的行和列宽度，表格表头的宽度和字体

等等。

图4-4期初余额表单属性设立

4、表格控件数据源的设定

表格控件中的列表头，控件中显示的数据均取决于表格控件所捆绑的数据源，因此，对的的捆

绑数据源是表格控件对的显示数据和修改数据的前提条件。具体捆绑环节如下：

第一步：将鼠标放在表格控件上点击鼠标右键，并在弹出的快捷菜单中选择“生成器”菜单项;

笫二步：在表格控件生成器中选中期初余额表并拟定表中所用的字段;

:/表格生成器

1.表格项2.样式3.布局4.关系

表格中添加哪些字段？

选择一个数据库或自由表，然后从一个表中选定字段。

黎据库和表@)：可用字段&):选定字段⑤):

［总账▼|…|科目名称明细I类型

是否未□球印□

科目编码

科目名称

吊用通要余额方向

用户

新凭证库I

临时凭证库1

科目汇.总声二J二1二I

帮助国)确定取消

图3-5表格控件数据捆绑

第三步：在此基础上还可以进行表格生成器中样式、布局和关系等选项卡的设定，所有设定完毕后,

点击拟定按钮即可保存设定。

5、程序设计

在表单中，用户也许需要实现增长会计科目、修改会计科目或者删除会计科目的操作，为了实

现相应的功能，程序需要分别在不同的命令按钮中输入不同的程序加以实现。具体如下：

(1)录入命令按钮程序：

Commandl.click

sele期初余额

thisform.grid1.refresh

thisform.refresh

(2)修改命令按钮程序：

Command2.click

thisform.gridl.readonly=.f.&&改变其表格的属性，让表格变成可读写

⑶退出表单命令按钮程序:

Commands,click

thisform.grid1.readonIy=.t.

thisform.release

规定：

1.按照期初余额表单图形界面进行界面设计，熟悉表单及表单控件各属性的含义和修改属性的

方法。

2.学习设立表单的数据环境，学习对表格控件等控件进行数据捆绑。

3.学习使用面向对象的编程方法，在会计科目表单的各个不同控件中进行程序设计。

实验四填制凭证表单的建立和修改（一）

一、实验题目

1、再次练习表单集的建立和表单之间的互相调用；

2、练习狂杂表单界面的设定和各种表单控件生成器的使用。

二、实验课时

课内2课时

三、实验目的

1.掌握表单集建立的基本思绪和方法，掌握显示、隐藏表单的基本方法；

2.熟悉复:杂表单界面的设定；

3.熟悉各种表单控件生成器的使用。

四、实验内容和规定

（-）“填制凭证”表单实现功能及过程描述：

“填制凭证”表单作为用户输入凭证数据的交互界面，一方面需要提供应用户一个清楚明了的

界面，保证用户可以正常得进行数据输入；然后，将每次填制新凭证时将用户输入的数据先保存到

空白的临时凭证库中，并对输入数据的合法性进行检查，假如出现不合法的情况，系统应给予一定

的提醒；在检测合法的情况下，将输入或生成的信息先保存到临时凭证库然后统一追加到记账凭证

库中。

其中，合法性的检查重要是对以下几个方面的检查：

1、借贷方金额合计必须相等；

2、摘要和科目名称不能为空；

3、借方金额和贷方金额不能同时为零或者都不为零。

（-）实行环节:

1.建立''填制凭证”表单

设立填制凭证表单的时候需要用到：标签、文本框、表格等控件。具体图形如下:

'填制新凭证司回国!

记账凭证

记字0100制单日期：11999-2-1+的单数据：Textl

摘要科目名称借方金额贷方会领

abl]蒯labl]labll

■

合计

记账审核出的制单

增加分录：.除分录：凭lit保存退出

图47填制凭证表单界面设计图

2.系统数据环境设立：

将临时凭证库、记账凭证库两个表添加到表单的数据环境中，以实现表单对其的自动调用。添

加过程跟前面所讲的“会计科目”表单和“期初余额”表单一致。

3.进行表格控件的数据捆绑和个别其他控件的属性设定：

(1)表格控件(Grid)数据捆绑：绑定的数据源是：临时凭证库。

图4-2表格控件数据捆绑

时间显示可用附件个数需改成

(2)进行三个文本框不同格式的认定:

一.

填制新凭证

r□I-■1

;让•

£J0100.制单日期：11999-2-1亡的隼数据：._IexH

止匕处(0100)摘要科目名称借方金额贷方金额

*

应国豳labl]

乃标签控

件，背景颜

合计

记账审核出纳制单

•••••

J

增加分录■除分录凭证保存退出

图4-3文本框和标签属性设立图

4.表单程序设计：

(1)凭证初始化：

F0RM1.LOAD事件

sele临时凭证库&&(注意“临时凭证库”打开时的属性，必须为独占打开,

即：数据环境中“临时凭证库”Excluxive属性为真。)

If!isexclusive('临时凭证库’)

Use

Use临时凭证库exclusive

Endif

zap&&将临时凭证库清空，只保存表结构

appendblank&&添加一条空白记录

setdeleteon

pubIicdeIrecno

deIrecno=0

TEXT3.INIT事件凭证号初始设立

sele记账凭证库

gobottom&&将记录指针移到最后一条记录

this.value二凭证号+1&&取出其凭证号数并加一得到所填新凭证的凭证号

TEXT2.INIT事件凭证日期初始设立

This.value=daLe()&&将当前填制凭证口期设定为系统口期

LABEL18.INIT事件显示制单人姓名

this.caption=alItrim(zcr)&&将此时的系统注册人姓名显示在标签控件上

(2)增、删凭证分录

C0MMAND4.CLICK事件添加一条分录即在表格中增长一空行

locaIpzgrid&&定义一局域变量,并将其赋值为

pzgrid=thisform.gridl&&表格控件对象

pzgrid.setfocus&&使表格控件获得焦点

sele临时凭证库&&在临时凭证库中增长一条空白记录

appendbIank&&同时表格控件中相应增长一空行

pzgrid.columnl.textl.refresh&&刷新该空白行各文本框的值

pzgrid.column2,textl.refresh

pzgrid.column3.textl.refresh

pzgrid.coIumn4.textl.refresh

pzgrid.setfocus&&使表格控件重新获得焦点

COMMAND2.CLICK事件删除一条分录即在表格中删除一行

thisform.gridl.setfocus&&使表格获得焦点

aa二messagebox（'拟定删除该分录吗？'，4+32.'提醒）

ifaa!二7&&拟定删除

sele临时凭证库

delete&&删除当前记录

thisform.grid1.coIumn3.textl.interaclivecharige

appendblank&&则添加一条空记录

thisform.gridl.setfocus&&使表格获得焦点，激活表格

thisform.grid1.column1.textl.refresh&&刷新该行各文本框的值

thisform.gridl.column2.textl.refresh

thisform.grid1.column3.textl.refresh

thisform.grid1.column4.textl.refresh

endif

⑶更新借方金额与贷方金额的值并计算合计金额

编程思绪：

当在表格中输入金额时，根据一条会计分录中借贷双方不能都为非零值的规则，假如其借方金

额不为零，则将其贷方金额自动置为零，反之，则将借方金额自动置零。同时，不管分录中借方还

是贷方金额发生改变，都要重新计算合计金额的值，并显示合计值结果，帮助用户判断当前借贷是否

平衡。

控制放在GRID1.C0LUMN3.TEXT1和GRID1.C0LUMN4.TEXT1的INTERACTIVECHANGE事件中完毕

（说明：当控件的值改变时发生该事件）

GRID1.COLUMNS.TEXT1.INTERACTIVECHANGE

locaIcurrenrec,currentvalue&&定义局域变量

sele临时凭证库

currentrec=recno()&&记录当前位置

currentvalue=this.value&&保存当前的借方金额的值

ifcurrentvaIue!=0&&假如借方金额不为零

repl贷方金额with0&&将贷方金额置为零

thisform.grid1.column4.textl.vaIue=0&&将第四列文本框的值置为零

endif

repI借方金额withcurrentvaIue&&将当前值存入数据表

localjfhj.dfhj

sum借方金额tojfhj&&计算借方与贷方金额合计值并

sum贷方金额todfhj&&将其分别存入变量中

thisform.label20.caption=aIItrim(str(jfhj,15,2))&&将合计金额值显示到标签控件上

thisform.Iabel21.caption=aIItrim(str(dfhj,15,2))&&注意aIIrim函数的运用。

gocurrentrec&&返回初始位置

GRID1.C0LUMN4.TEXT1.INTERACTIVECHANGE事件

locaIcurrenrec,currentvalue

sele临时凭证库

currentrec=recno()

currentvaIue=this.value

ifcurrentvaIue!=O

repl借方金额with0

thisform.grid1.column3.textl.vaIue=0

endif

repl贷方金额withcurrentvaIue

IocaIjfhj,dfhj

sum借方金额tojfhj

sum贷方金额todfhj

thisform.label?.caption=str(jfhj,15,2)

thisform.label8.caption=str(dfhj,15,2)

gocurrentrec

注意事项:

1.对临时凭证库表进行ZAP操作时，必须保证临时凭证库是独占打开的，即，临时凭证库的

Exclusive属性为.T.达成这一目的的方法有两种:

（1）是通过数据环境设计器进行数据表属性的设定:

图4-4数据表属性设定（Exclusive属性）

（2）是通过程序来进行判断和实现:

Sale