财务软件源码大揭秘
前 言
长 期 以 来,使用 的 大 多 数 财 务 软 件 都 是 用 DBASE 语 言 或
CLIPPER 语言编写的,后来是 FOX 系列的数据库语言。在 2000 年
以前的财务管理软件中,用 Visual Foxpro 语言编写的占大多数,最
近一段时间,由于使用 SQL 数据库等大型数据库方面的原因,使用
VB 或 DELPHI 语言编程的人逐渐多起来。但 Visual Foxpro 作为专
门的数据管理语言,在学习数据库管理编程方面,由于其较好的人
机交互界面,仍然在数据管理系统方面占有较大的比重。
作为一个数据库管理系统的维护人员,如果能有所维护系统的
源代码,将会对工作带来相当大的便利条件,也能使维护工作更快
更好的完成。
为了给热心学习数据库管理并希望成为编程高手的人提供一个
完全真实的编程环境,给他们的学习提供全方位的参考,现将
Visual Foxpro 系列的软件源程序完全提供出来,一方面作为参考,
另一方面也可以以此为基础,开发出更好的软件。
此书为源代码参考系列的第一本。以后还会陆续出版有关工资
管理、人事管理、各行业管理的 Visual Foxpro 源代码及其他语言的
源代码参考。
LEOPARD
2001 年 6 月 26 日于北京
1
财务软件源码大揭秘
第 一 部分 初始设置................................................................1
一.01 节 账套选项.....................................................................................................................1
(a) 新建账套--CREATACC.SCX......................................................................................1
(b) 选择账套--ACCSET.SCX.........................................................................................43
一.02 节 设置会计科目 --ACCSUB.SCX..............................................................................50
(a) 往来科目、项目转换--TRANKMXM.SCX.............................................................69
(b) 科目数据查询授权--SUBLIMIT.SCX......................................................................78
(c) 增加会计科目--ACCSUB1.SCX...............................................................................81
一.03 节 货币设置--COIN.SCX...........................................................................................122
(a) 增加货币--COIN1.SCX...........................................................................................132
一.04 节 期初数据--INITDATA.SCX...................................................................................138
一.05 节 核算项目--ACCITEM.SCX...................................................................................172
(a) 客户管理--ACCITEM1.SCX...................................................................................184
(b) 部门管理--ACCITEM2.SCX..................................................................................193
(c) 职员管理--ACCITEM3.SCX...................................................................................198
一.06 节 账套选项--ZTOPTION.SCX.................................................................................212
(a) 凭证显示格式--SHOWMODE.SCX.......................................................................226
(b) 非法对应科目--FFDYKM.SCX..............................................................................230
(c) 凭证类型设置--PZLXSET.SCX..............................................................................234
(d) 结算方式设置--JSFSSET.SCX...............................................................................245
一.07 节 启用账套--USEACC.SCX.....................................................................................249
第 二 部分 系统工具............................................................262
二.01 节 修改口令--CHNGPSWD.SCX..............................................................................262
二.02 节 用户管理--USERMNG.SCX.................................................................................267
(a) 增加用户--USER.SCX............................................................................................287
二.03 节 上机日志--FRMLOG.SCX....................................................................................290
(a) 日志过滤--LOGFILTER.SCX.................................................................................296
(b) 日志删除--LOGDELE.SCX....................................................................................299
二.04 节 数据整理--FRMTIDY.SCX...................................................................................302
二.05 节 改变会计期间--CHNGDATE.SCX.......................................................................310
第 三 部分 凭证处理............................................................314
三.01 节 凭证编制--PROOF.SCX........................................................................................314
(a) 摘要--SUMMARY.SCX...........................................................................................383
(b) 自动转账分录—AUTOPLST.SCX.........................................................................391
(c) 增加自动凭证--AUTOPSET.SCX..........................................................................402
(d) 结转对应科目--JZDYKM.SCX..............................................................................419
(e) 自动转帐分录数据来源公式向导--FORMULA.SCX...........................................427
三.02 节 凭证查询、审核--PROOFLST.SCX.....................................................................447
(a) 凭证数据输入--PROOFDATAIN.SCX...................................................................467
(b) 凭证数据输出--PROOFDATAOUT.SCX...............................................................482
(c) 打印凭证--PSOMEPZ.SCX.....................................................................................487
1
财务软件源码大揭秘
(d) 过滤凭证--FILTERPZ.SCX.....................................................................................496
(e) 查找凭证--LOCAPZ.SCX.......................................................................................517
(f) 批量审核—BATCHAUDIT.SCX............................................................................521
三.03 节 凭证汇总--COLLECT.SCX...................................................................................523
(a) 科目汇总表--COLLECT1.SCX...............................................................................531
三.04 节 凭证分册--PROOFFASCICULE.SCX..................................................................536
(a) 打印凭证分册--PSOMEPF.SCX.............................................................................552
三.05 节 凭证过帐--POSTACC.SCX...................................................................................560
第 四 部分 账簿处理............................................................575
四.01 节 查询总帐--总帐.SCX.............................................................................................575
四.02 节 查询明细帐--明细帐.SCX.....................................................................................638
四.03 节 查询日记帐--日记帐.SCX.....................................................................................693
四.04 节 查询多栏式明细帐--多栏帐.SCX.........................................................................714
(a) 自动编排--ASKZDBP.SCX.....................................................................................756
四.05 节 查询项目总帐--项目总帐.SCX.............................................................................758
四.06 节 查询试算平衡表--SSPHB.SCX.............................................................................787
第 五 部分 期未处理............................................................797
五.01 节 自动转帐--AUTOPLST.SCX.................................................................................797
五.02 节 期末结帐--SETTLE.SCX......................................................................................808
第 六 部分 往来账................................................................835
六.01 节 往来明细--WLLIST.SCX.......................................................................................835
(a) 往来明细--WLLIST1.SCX......................................................................................846
六.02 节 往来总帐--WLLEDGER.SCX...............................................................................863
(a) 往来总帐--WLZZLST.SCX.....................................................................................867
(b) 查找往来--LOCAWLZZ.SCX.................................................................................883
六.03 节 往来清理--WLCANCEL.SCX...............................................................................889
(a) 往来帐清理--WLCLEAR.SCX...............................................................................895
(b) 查找往来--LOCAWLXM.SCX...............................................................................913
六.04 节 往来对帐单--WLCHKSHT.SCX...........................................................................918
(a) 往来对帐单--WLDZD.SCX....................................................................................928
六.05 节 往来帐龄分析--WLANANY.SCX.........................................................................943
(a) 往来帐龄分析表--WLANANYS.SCX....................................................................957
第 七 部分 银行对账............................................................973
七.01 节 银行对帐期初数据—选择银行科目--INTBANKS.SCX....................................973
(a) 期初数据--INITBANK.SCX...................................................................................976
(b) 日记帐期初未达帐--BANKACC0.SCX.................................................................988
(c) 对帐单期初未达帐--CHKSHT0.SCX....................................................................997
(d) 银行日记帐期初未达--INBANK0.SCX...............................................................1008
(e) 银行对帐单期初未达--INDZD0.SCX..................................................................1017
七.02 节 银行日记帐--CHOIBANK.SCX..........................................................................1025
2
财务软件源码大揭秘
(a) 银行帐--BANKACC.SCX.....................................................................................1026
七.03 节 银行对帐未达帐--MISSCHOI.SCX....................................................................1034
(a) 未达帐--MISSBANKUNIT.SCX...........................................................................1035
七.04 节 银行对帐单--SHEETSUB.SCX...........................................................................1050
(a) CHKSHEET.SCX...................................................................................................1054
(b) READBANK.SCX.................................................................................................1066
(c) INCHKSHT.SCX....................................................................................................1072
七.05 节 银行对帐--BANKCHK.SCX...............................................................................1080
(a) 手工核对对帐单、日记帐--DZD_RJZ.SCX.......................................................1087
七.06 节 银行对帐余额调节表--YESUBCHK.SCX.........................................................1106
(a) YEADJUST.SCX....................................................................................................1108
第 八 部分 账套维护..........................................................1120
八.01 节 反过帐--RE_POST.SCX......................................................................................1120
八.02 节 反结帐--RESETTLE.SCX...................................................................................1127
八.03 节 备份--BACKUP.SCX...........................................................................................1132
八.04 节 恢复--RESTORE.SCX.........................................................................................1139
第 九 部分 公用类..............................................................1147
九.01 节 BASECTRL.VCX.................................................................................................1147
九.02 节 BASEFORM.VCX................................................................................................1161
九.03 节 BTOOLBAR.VCX................................................................................................1181
九.04 节 GENERAL.VCX..................................................................................................1221
九.05 节 HKLOGIN.VCX...................................................................................................1228
九.06 节 MAIN.VCX..........................................................................................................1232
九.07 节 PZIN.VCX............................................................................................................1244
九.08 节 VIEWBASE.VCX................................................................................................1265
第 十 部分 主程序调用及其他处理..................................1276
十.01 节 主程序--ZWMAIN.PRG......................................................................................1276
(a) MYUDF.PRG.........................................................................................................1280
(b) VIEWPROC.PRG..................................................................................................1299
十.02 节 启动屏幕--STARTFORM.SCX...........................................................................1303
十.03 节 主界面--MAINFORM.SCX.................................................................................1305
十.04 节 快捷菜单--EDTSHORT.MPR..............................................................................1337
十.05 节 关于对话框--ABOUTBOX.SCX.........................................................................1338
(a) 计算器--CALC.SCX..............................................................................................1346
(b) 选择明细会计科目--CALLKJKM.SCX...............................................................1362
(c) LPCw.h...................................................................................................................1365
(d) STRINGS.H............................................................................................................1371
(e) 报表文件列表........................................................................................................1373
3
财务软件源码大揭秘
财务软件源码大揭秘
(Visual Foxpro Version)
第 一 部分 初始设置
一.01节 账套选项
(a) 新建账套--CREATACC.SCX
1