十年前的废酸定额核算系统源代码.docx

1、十年前的废酸定额核算系统源代码SET PROC TO WADR.FOXDO TN01* TN01 *PROCEDURE TN01SET TALK OFFSET STAT OFFSET SAFE OFFSET SCOR OFFSET ESCA OFFSET ECHO OFFSET DOHI OFFGB= _UC= LOAD TESTCALL TEST WITH _UCIF LEFT(_UC,1)=1 SET COLO TO +GB/B,+W/G CLEAR SET COLO TO /0 10,20 CLEAR TO 16,61 SET COLO TO +W/BG 9,18 SAY* 10,18

2、SAY* * 11,18 SAY* * 12,18 SAY* * 13,18 SAY* * 14,18 SAY* * 15,18 SAY* SET COLO TO +GR/R,R/R 10,20 SAY 11,20 SAY UCDOS not be installed 12,20 SAY 13,20 SAY Press any key to EXIT! 14,20 SAY 12,36 GET GB READ SET COLO TO CLEAR QUITENDIFIF LEFT(_UC,1)0 SET COLO TO +GB/B,+W/G CLEAR SET COLO TO /0 10,20 C

3、LEAR TO 16,61 SET COLO TO +W/BG 9,18 SAY* 10,18 SAY* * 11,18 SAY* * 12,18 SAY* * 13,18 SAY* * 14,18 SAY* * 15,18 SAY* SET COLO TO +GR/R,R/R 10,20 SAY 11,20 SAY UCDOS特殊显示程序TX.COM没有运行 12,20 SAY 13,20 SAY 请按任意键退出本系统 ! 14,20 SAY 12,36 GET GB READ SET COLO TO CLEAR QUITENDIFRELE MODU TESTSET COLO TO /BDO

4、 WHILE.T. SET COLO TO /1 CLEAR 0,0 SAY CHR(14)+CU1,0 0,0 SAY CHR(14)+RE0,0,WADR.OV3 SET DEVI TO SCRE SET MESSAGE TO 24 SET COLOR TO /0 11, 4 CLEAR TO 21,43 SET COLOR TO +BG/BG,+W/BG 10, 1 SAY 11, 1 SAY 12, 1 SAY 13, 1 SAY 14, 1 SAY 15, 1 SAY 16, 1 SAY 17, 1 SAY 18, 1 SAY 19, 1 SAY 20, 1 SAY SET COLO

5、R TO +GR/+G 11, 5 SAY 主 菜 单 【2005年完整版】 SET COLOR TO +GR/R,+G/1 13, 5 PROMPT 1 定 额 核 算 MESSAGE 对生产定额进行核算，显示出详细的计算过程 14, 5 PROMPT 2 输 入 数 据 MESSAGE 输入核算生产定额时所需原始数据 15, 5 PROMPT 3 打 印 计 算 过 程 MESSAGE 将详细的计算过程打印出来 注意:准备好打印机! 16, 5 PROMPT 4 打 印 盘 点 数 据 MESSAGE 将盘点数据输送成打印出来 注意:准备好打印机! 17, 5 PROMPT 5 输 送 计

6、 算 过 程 MESSAGE 将详细的计算过程输送出相关的资料(TXT文件) 18, 5 PROMPT 6 输 送 盘 点 数 据 MESSAGE 将盘点数据输送成相关资料(TXT文件) 19, 5 PROMPT 7 退 出 MESSAGE 退出本系统 MENU TO XZ 0,0 SAY CHR(14)+CU1,1 DO CASE CASE XZ=1 DO TN03 CASE XZ=2 DO TN02 CASE XZ=3 DO TN06 CASE XZ=4 DO TN07 CASE XZ=5 DO TN04 CASE XZ=6 DO TN05 CASE XZ=7 USE EXIT ENDCA

7、SEENDDSET COLOR TO B/NY1=79Y2=0DO WHILE Y139 0,Y1 CLEA TO 24,Y1 0,Y2 CLEA TO 24,Y2 Y1=Y1-1 Y2=Y2+1 Z=1 DO WHIL Z1500 Z=Z+1 ENDDENDDSET STAT ONSET COLO TOQUIT* TN02 *PROCEDURE TN02 0,0 SAY CHR(14)+CU1,0SET COLO TO /018,52 CLEAR TO 21,70SET COLOR TO +BG/BG,+W/BG17,51 SAY 18,51 SAY 19,51 SAY 20,51 SAY

8、MMMM=1DO WHILE.T.SET COLOR TO +GR/R,+G/118,55 SAY请输入密码M= MM=SET COLO TO R/B19,55 CLEA TO 19,64PJ=1DO WHIL PJ=8 SET CONS OFF WAIT TO M STORE MM+M TO MM XA=55+PJ XS=19,+STR(XA)+SAY &XS.* PJ=PJ+1ENDDSET CONS ONIF UPPE(MM)=20052005 EXITELSE MMMM=MMMM+1 IF MMMM=3 RETU ENDIFENDIFENDDOUSE WADR.LIBSET COLO

9、TO +GR/B,+W/G 0,0 SAY CHR(14)+CU1,1SET FORM TO WADR.FMTAPPEUSESET FORM TOCLEAR ALLRETU* TN03 *PROCEDURE TN03SET COLO TO +GB/B,+W/GCLEARCLEAR ALLP=1DIME LXYB(25),LXYQ(25)DO WHILE.T. DO WHILE.T. SET COLO TO +GB/B,+W/G CLEAR YEA=0 MN=0 SET COLO TO /0 10,20 CLEAR TO 16,61 SET COLO TO +W/BG 9,18 SAY 10,1

10、8 SAY 11,18 SAY 12,18 SAY 13,18 SAY 14,18 SAY 15,18 SAY SET COLO TO +GR/R,+W/G 10,20 SAY 11,20 SAY 请 按 要 求 输 入 时 间 12,20 SAY 年份(2005-2050): 13,20 SAY 月份(1-12): 14,20 SAY 12,50 GET YEA PICT9999 13,51 GET MN PICT99 READ IF YEA2050.OR.MN12 LOOP ENDIF USE WADR.LIB LOCATE FOR YEAR=YEA.AND.MON=MN IF .NOT.

11、FOUND() LXY= 10,20 SAY 11,20 SAY 本期原始数据不存在,无法进行定额核算! 12,20 SAY 13,20 SAY 是否进行其它时间的定额核算(Y/N)? 14,20 SAY 13,54 GET LXY PICT! READ IF UPPE(LXY)=Y LOOP ELSE RETU ENDIF ELSE SCATTER TO LXYB(25) LOCATE FOR YEAR=LXYB(3).AND.MON=LXYB(4) IF .NOT.FOUND() LXY= 11,20 SAY 上期原始数据不存在,无法进行定额核算! 12,20 SAY 13,20 SAY

12、按任意键返回主菜单 SET COLO TO ,R/R GG=SYS(2002) 13,56 GET LXY PICT! READ SET COLO TO GG=SYS(2002,1) RETU ENDIF SCATTER TO LXYQ(25) 11,20 SAY 12,20 SAY 正在进行数据处理! 请稍候. 13,20 SAY EXIT ENDIF ENDDO WACLL=LXYB(5)+LXYQ(6)-LXYB(6)-LXYB(7) SAHL=WACLL*LXYB(12)/100 SACL=LXYB(8)+LXYB(9)-LXYQ(9)+LXYB(10) DSAJCC=LXYB(11)

13、-LXYQ(11) SAZ=SAHL-DSAJCC SAHSL=SACL/SAZ*100 NAHL=WACLL*(LXYB(13)+1.66*LXYB(14)/100 NACL=LXYB(15)+LXYB(16)-LXYQ(16) XYNA=LXYB(17)*50/1000 NAZ=NAHL+XYNA NAHSL=NACL/NAZ*100 ZYHL=LXYB(18)+LXYQ(19)-LXYB(19) ZYDR=ZYHL/WACLL*1000 YNACL=LXYB(20)+LXYB(21)-LXYQ(21) CJHL=LXYB(22)+LXYQ(23)-LXYB(23) CJDR=CJHL/Y

14、NACL*1000 SHHL=LXYB(24)+LXYQ(25)-LXYB(25) SHDR=SHHL/YNACL*1000 SET COLO TO +GR/B CLEAR ?SPACE(14)+LTRIM(STR(LXYB(3)+年+LTRIM(STR(LXYB(4)+月至+LTRIM(STR(LXYB(1)+年+LTRIM(STR(LXYB(2)+月废酸生产定额计算 ? ?A 1、废 酸 处 理 量废酸领入量+上期末结存-本期末结存-废酸损失量 ?SPACE(19)+LTRIM(STR(LXYB(5),9,3)+LTRIM(STR(LXYQ(6),9,3)+- +LTRIM(STR(LXY

15、B(6),9,3)+-+LTRIM(STR(LXYB(7),9,3) ?SPACE(19)+LTRIM(STR(WACLL,9,3) ? 2、废酸中含硫酸量废酸处理量SA ?SPACE(19)+LTRIM(STR(WACLL,9,3)+LTRIM(STR(LXYB(12),5,2)+ ?SPACE(19)+LTRIM(STR(SAHL,9,3) ? 3、硫 酸 产 量硫酸发送量+本期末结存-上期末结存+外售酸 ?SPACE(19)+LTRIM(STR(LXYB(8),9,3)+LTRIM(STR(LXYB(9),9,3)+- +LTRIM(STR(LXYQ(9),9,3)+LTRIM(STR(

16、LXYB(10),9,3) ?SPACE(19)+LTRIM(STR(SACL,9,3) ? 4、稀硫酸的结存差本期末稀硫酸量-上期末稀硫酸量 ?SPACE(19)+LTRIM(STR(LXYB(11),9,3)+-+LTRIM(STR(LXYQ(11),9,3) ?SPACE(19)+LTRIM(STR(DSAJCC,9,3) ? 5、硫 酸 回 收 率硫酸产量(废酸中含硫酸量-稀硫酸的结存差)100 ?SPACE(19)+LTRIM(STR(SACL,9,3)+(+LTRIM(STR(SAHL,9,3)+- +LTRIM(STR(DSAJCC,9,3)+)100 ?SPACE(19)+LT

17、RIM(STR(SACL,9,3)+LTRIM(STR(SAZ,9,3)+100 ?SPACE(19)+LTRIM(STR(SAHSL,6,2)+SPACE(3)+ SET COLO TO +GR/G XZ= 24,20 SAY 按 任 意 键 继 续 GET XZ PICT! READ SET COLO TO +GR/B CLEAR ?SPACE(14)+LTRIM(STR(LXYB(3)+年+LTRIM(STR(LXYB(4)+月至+LTRIM(STR(LXYB(1)+年+LTRIM(STR(LXYB(2)+月废酸生产定额计算 ? ?B 1、废 酸 处 理 量+LTRIM(STR(WACL

18、L,9,3) ? 2、废酸中含硝酸量废酸处理量(NA+1.66N2O3)100 ?SPACE(19)+LTRIM(STR(WACLL,9,3)+(+LTRIM(STR(LXYB(13),5,2)+1.66+LTRIM(STR(LXYB(14),5,2)+)100 ?SPACE(19)+LTRIM(STR(NAHL,9,3) ? 3、硝 酸 产 量硝酸发送量+本期末结存-上期末结存 ?SPACE(19)+LTRIM(STR(LXYB(15),9,3)+LTRIM(STR(LXYB(16),9,3)+- +LTRIM(STR(LXYQ(16),9,3) ?SPACE(19)+LTRIM(STR(N

19、ACL,9,3) ? 4、硝烟折成 硝 酸本期梯恩梯产量501000 ?SPACE(19)+LTRIM(STR(LXYB(17),9,3)+501000 ?SPACE(19)+LTRIM(STR(XYNA,9,3) ? 5、硝 酸 回 收 率硝酸产量(废酸中含硝酸量+硝烟折成硝酸量)100 ?SPACE(19)+LTRIM(STR(NACL,9,3)+(+LTRIM(STR(NAHL,9,3)+LTRIM(STR(XYNA,9,3)+)100 ?SPACE(19)+LTRIM(STR(NACL,9,3)+LTRIM(STR(NAZ,9,3)+100 ?SPACE(19)+LTRIM(STR(N

20、AHSL,6,2)+SPACE(3)+ ?C 1、重 油 耗 量重油领入量+上期末结存-本期末结存 ?SPACE(19)+LTRIM(STR(LXYB(18),9,3)+LTRIM(STR(LXYQ(19),9,3)+-+LTRIM(STR(LXYB(19),9,3) ?SPACE(19)+LTRIM(STR(ZYHL,9,3) ? 2、重 油 耗 率重油耗量废酸处理量 ?SPACE(19)+LTRIM(STR(ZYHL,9,3)+LTRIM(STR(WACLL,9,3) ?SPACE(19)+LTRIM(STR(ZYDR,6,2)+SPACE(3)+kg重油T废酸 SET COLO TO +

21、GR/G XZ= 24,20 SAY 按 任 意 键 继 续 GET XZ PICT! READ SET COLO TO +GR/B CLEAR ?SPACE(14)+LTRIM(STR(LXYB(3)+年+LTRIM(STR(LXYB(4)+月至+LTRIM(STR(LXYB(1)+年+LTRIM(STR(LXYB(2)+月废酸生产定额计算 ? ?D 1、亚硫酸钠 产 量亚硫酸钠发送量+上期末结存-本期末结存 ?SPACE(19)+LTRIM(STR(LXYB(20),9,3)+LTRIM(STR(LXYB(21),9,3)+-+LTRIM(STR(LXYQ(21),9,3) ?SPACE(

22、19)+LTRIM(STR(YNACL,9,3) ? 2、纯 碱 耗 量纯碱领入量+上期末结存-本期末结存 ?SPACE(19)+LTRIM(STR(LXYB(22),9,3)+LTRIM(STR(LXYQ(23),9,3)+- +LTRIM(STR(LXYB(23),9,3) ?SPACE(19)+LTRIM(STR(CJHL,9,3) ? 3、纯 碱 耗 率纯碱耗量亚硫酸产量 ?SPACE(19)+LTRIM(STR(CJHL,9,3)+LTRIM(STR(YNACL,9,3) ?SPACE(19)+LTRIM(STR(CJDR,6,2)+SPACE(2)+kg纯碱T亚硫酸钠 ?E 1、亚

23、硫酸钠 产 量+LTRIM(STR(YNACL,9,3) ? 2、硫 磺 耗 量硫磺领入量+上期末结存-本期末结存 ?SPACE(19)+LTRIM(STR(LXYB(24),9,3)+LTRIM(STR(LXYQ(25),9,3)+- +LTRIM(STR(LXYB(25),9,3) ?SPACE(19)+LTRIM(STR(SHHL,9,3) ? 3、硫 磺 耗 率硫磺耗量亚硫酸产量 ?SPACE(19)+LTRIM(STR(SHHL,9,3)+LTRIM(STR(YNACL,9,3) ?SPACE(19)+LTRIM(STR(SHDR,6,2)+SPACE(2)+kg硫磺T亚硫酸钠 SE

24、T COLO TO +GR/G 24,20 SAY 是否还要继续计算其它时间生产定额(Y/N)? GET XZ PICT! READ IF UPPE(XZ)Y RETU ENDIFENDDORETU* TN04 *PROCEDURE TN04SET COLO TO +GB/B,+W/GCLEARCLEAR ALLP=1DIME LXYB(25),LXYQ(25)DO WHILE.T. DO WHILE.T. SET COLO TO +GB/B,+W/G CLEAR YEA=0 MN=0 SET COLO TO /0 10,20 CLEAR TO 16,61 SET COLO TO +W/BG 9,18 SAY 10,18 SAY 11,18 SAY 12,18 SAY 13,18 SAY 14,18 SAY 15,18 SAY SET COLO TO +GR/R,+W/G 10,20 SAY 11,20 SAY 请 按 要 求 输 入 时 间 12,20 SAY 年份(2005-2050): 13,20 SAY 月份(1-12): 14,20 SAY 12,50 GET YE