我和电脑结下了不解之缘并受益匪浅
一九八三年公司购进了一批日本生产的PC——1500个人电子计算机,我厂有幸分得了几台.PC——1500计算机,固化了BASIC语言,可以用BASIC语言编写应用软件,本身还带有存储程序的录音机和四色笔的小打印机,可以把编写好的程序储存起来,并把程序运算的结果打印出来,功能相当强大,唯一不足的是他不能识别中文.
分得PC——1500计算机后,我如获至宝.为了迅速掌握和应用现代计算工具的技能,我每天上班就学习BASIC语言,下班把计算机背回家中试着编写程序.我对英语一窍不通我就一个一个的死背硬记程序语言和命令.不久我就学会了一些BASIC编程语言和语法,如：常量、变量、运算符；CLEAR 清屏、INPUT 输入、PRINT输出、LPRINT 打印 IF—THEN 条件控制语句 FOR TO NEXT_—循环语句等等.并结合财务核算编制了一批应用程序,经试用效果还很好,不仅加快了计算速度,还提高了核算工作质量.计算机在会计核算中的单模块的应用还激发了会计人员变革传统会计核算的信念和学习新技术的要求.当时编写的并在公司《科技杂志增刊——计算机应用程序汇编》上发表的共有八个：“记账凭证汇总”、“多层次横竖栏金额汇总”、“单一产品成本计算”、“联产品成本计算”、“成本还原计算”、“分析和预测应用”、“按成本项目分析量差价差影响成本计算”和“成本利润分析直方图”等.现简录“成本利润分析直方图”程序清单如下：
成本利润分析作直方图程序清单
[略述]
在成本利润分析中常常应用曲线图或直方图来表示成本利润指标完成情况的动态,以起到直观感的作用.下面这个程序可以作直方图.
[操作指南]
用RUN启动程序后,输入X座标的数值即分析期参数,如年度为12个月,季度为3个月,则输入12或3,然后输入Y座标数值,即分析预测的成本或利润指标在Y轴线上的数值,如：200万,400万等.
[变量说明]
A——x 座标数值（月、季参数）
B——y 座标数值 成本利润指标在y轴上的数值
C——成本利润指标的最高数值
D——成本利润指标增长幅度值
X——分析时期（年或季度的数值）
M——输入分析成本利润指标的实际数值
[键盘操作过程]
步骤 输入 显示 注释
1
RUN
ENTER
A=?
2
输入x 座标数值
ENTER
B=?
3
输入y 座标数值
ENTER
C=?
4
输入成本利润指标在y轴上的最高数值
D=?
5
分析期成本利润指标的增长幅度值
x＝?
6
输入分析时期值 打印后显示 M＝?
7
输入分析期成本利润指标的实际数值
W=?
|
|
|
|
|
|
|
|
40输入分析期成本利润指标的实际数值 打印输出直方图
[例子]
月份
1
2
3
4
5
6
利润（万元）
914.07
113.6
641.8
1,202.1
1,338.2
1,358.8
月份
7
8
9
10
11
12
利润（万元）
140.5
578.3
1,539.3
748.4
1,126.6
1,208.7
[程序清单] （程序编号 BR028）
10 CLEAR
12 GRAPH
13 INPUT “A=?”;A,”B=?”;B,”C=?”;C,”D=?”;D,”X=?”;X
15 LINE –(0,450),9
16 SORGN
17 LINE(0,0)-(200,450),0,3,B
20 FOR U=1 TO A
30 LINE –((U*200/A),10),9
31 LINE –((U*200/A),0),0,2
32 LINE –((*200/A-200/A),-10),9PRINT U
35 NEXT U
50 FOR U=B TO C STEP D
60 P=U/(C/450)
70 LINE-(0,P),9
80 LINE –(10,P),0,2
90 LPRINT U
100 NEXT U
110 LINE –(0,0),9
120 FOR I= 200/A TO 200 STEP 200/A
130 INPUT M
140 N=M/(C/450),\:E=E+M
150 S=S+N
160 LINE-((I-200/A),N)-((I-200/A)+(200/A),N),0,1
161 T=M
162 IF T>Z THEN LET Z=T
170 NEXT I
174 K=S/A=E/A
176 LINE (0,K)-(200,K),2,3
177 LINE (50,470),9:CSIZE 2PRINT X
190 LINE –(0,0),9
191 TEXT
192 LF 2
195 LPRINT “
“;”E=”;INT E
196 LPRINT “
“;”Z=”;INT Z
197 LPRINT “
“;”L=”;INT L
200 END
PC——1500电子计算机的应用通过科协的宣传和推广很快在全公司普遍应用起来,一时之间来我厂学习的人络绎不绝.后来在我的建议下公司财务处举办了几期培训班,由公司电子计算中心的专业人员授课,讲解BASIC语言,由我介绍电子计算机在财务工作中的应用经验,公司科协还举办了PC ——1500电子计算机应用展览.很快一个财会人员学习计算机语言,应用计算机辅助会计核算的高潮在公司形成.我所开发的财务应用软件被公司企协评为“企协成果三等奖”.
时间进入到一九八五年的秋天,公司购进了一批IBM—PC/XT机（286机）分配到我厂一台后,我真的欣喜若狂高兴极了.我当即萌发了开发会计电算化软件的设想,当我找到公司电子计算机应用中心的领导提出我的设想后他们表示大力支持,经过一段时间的筹划一九八五年一个以我为项目负责人的“会计电算化开发项目组”正式成立.“项目组”的成员共有八个人,财务科两个人,公司计算机中心专业人员六个人.
“会计电算化”开发工作经过“系统调查”、“系统分析”、“系统设计”和“系统的调试”等步骤,并通过三个月的双轨运行测试一切正常.于一九八六年的一月一日正式投入使用,在全公司化工X厂首先第一个甩掉了手工记账,实现了会计核算电算化.
化工X厂的“会计电算化”系统是在DBASE Ⅲ 数据库编程语言上实现的,它主要有以下两大功能：
1、会计核算系统它有以下各项功能
①能按凭证编号、日期及记帐凭证所记载的全部内容生成日记帐也叫流水帐.
②能按多种形式查询、统计账目,并可按规定的职责范围进行账目的订正、改错和追加数据.
③能按任选的凭证编号范围进行凭证汇总并打印出各科目本期发生额的汇总表.
④能按会计科目和一、二级明细科目生成各级明细帐,并能按日打印现金、银行存款、专项存款和结算准备金明细帐.月末打印出其他各种明细帐和产成品、半成品数量金额明细帐.并完成日计、月计、累计和本其余额的计算.
⑤按月生成并打印各科目余额表和资金平衡表.
⑥能按月核算销售利润打印销售利润表.
2．成本核算系统它有以下功能
①能按用途和材料、备件明细科目进行材料、备件和定额材料分配,打印分配表,并自动生成记录,转帐,存入凭证数据库.
②能分别按车间和费用项目核算月份和季度的车间经费明细表和分配表,打印车间经费明细表.
③能按明细项目核算月份或季度的企业管理费编制或打印企业管费表和分配表.
④能按产品对象汇集成本费用,编制成本计算单,计算在产品成本和本期产品成本.并按简单法、逐步结转分步法和分类法计算各产品和自制半成品的本期成本和累计成本,编制和打印产品成本表.
⑤能按月或季核算与编制定额材料和燃料动力明细表.
⑥能按月核算生产利润,编制和打印生产利润表.
化工X厂实现会计电算化后使财会人员从大量的记帐、算帐和报帐的繁重劳动中解放出来.一个操作员每天用半天时间就可以把全月的数据全部输入计算机,并按需要可随时打印出明细帐和科目汇总表.全月近2000多个会计记录4000多笔明细帐,只用2～3天时间（如备两台电子计算机只用1～2天）就可以全部打印完毕.月末成本计算完毕,有关结转账户的凭证输入计算后,四十分钟即可把各科目余额表和资金平衡表编制打印完.二十分钟即可把销售利润表核算打印完,提高工作效率四～五倍.同时,提高了会计核算工作的质量,使会计核算工作走向了规范化、标准化,提高了财会人员现代化管理水平.
化工X厂开发的“会计电算化软件”于一九八七年由公司组织了评审,并在全公司推广,一九八八年五月被省计经委和企管协会授予《企业管理现代化成果一等奖》.
之后又组织开发了《物资管理系统》、《档案管理系统》和《财务管理系统》都分别获得了公司《现代化管理成果奖
