psnew.txt

DOS下一个完整的大型程序源代码

  先在08机脱机台md c:\ps, 把ps.arj解压缩到c:\ps下
  请在MakeSj.prg中sYhf=...的等号后加上Yhf????.dbf所在的目录, 如: '\jf\account\' +

一.话费现场收缴系统:

  1.更新软件之前, 请找一个老格式的Yhf????.dbf的文件, 任何月份的都可以, 最好是
1月份的, 更名为Yhf9801.dbf, 使用旧的软件装入数据.
    数据装入的目的只在于汇总出12月份的欠费和催缴数据, 供新软件使用.
    数据装入后使用原软件可以查询(输入电话号码后按光标向上移动键使光标回到
电话号码栏)到12月份未交费的用户有欠费和滞纳金.
  2.退出原软件, 备份所有数据：md \sj.old, xcopy \sj \sj.old
  3.把sj.arj解压缩到c:\sj下, 新软件只更新两个文件: Sj.exe 和 Sj.dbf.
    在新软件中, 可以查询12月份的日志, 可以统计12月份的收费情况.
  4.新软件和旧软件的功能和操作方法都完全一样. 插好数据盘(由ps.bat生成的monbu.dbf)
后选择[维护]菜单下的[重装当月数据], 装完后即可进行收缴.


二.磁卡查询系统:
  把cc.arj解压缩到c:\cc下, 新软件更新两个文件: CC.exe 和 N.exe.

  收缴系统的收缴数据库(现为monbu.dbf)以及磁卡查询系统的用户档案数据库
ccuser.dbf和长话话单数据库cc.dbf直接在新计费台由ps子目录下的ps.bat
(调用foxbase程序ps.prg)生成. 生成完后monbu.dbf, ccuser.dbf
拷到一张软盘上, cc.dbf压缩到几张软盘上. 过程如下:
  1.进入ps子目录, 运行ps.bat
  2.自动进入foxbase生成monbu.dbf, ccuser.dbf和cc.dbf, 提示
      "正在生成收缴数据库..."( 运行MakeSj.prg ) 和
      "正在生成用户档案数据库..."( 运行MakeSj.prg )  和
      "正在生成长话话单数据库..."
    生成完后先提示:
      "请准备好软盘以拷贝收缴库MONBU.DBF, 按任意键开始..."( 运行CopyFile.bat )
  4.拷完后提示:
      "请准备好软盘以拷贝用户档案数据库CCUSER.DBF, 按任意键开始..."
  5.拷完后提示:
      "请准备好几张空盘以压缩长话话单数据库CC.DBF, 按任意键开始...
       (压缩命令为: arj a -v1440 a:\cc.arj cc.dbf)"
    准备好几张空盘, 压缩完一张后ARJ会提示换盘, 敲y键回车后继续.
  4.每张盘最好写上标签. 第一张盘文件为cc.arj, 第二张为cc.a01, 第二张为cc.a02,
    依此类推.

  *** 磁卡查询系统的用户档案更新:
  把装有ccuser.dbf文件的软盘插入软驱, 选择[维护]菜单下[更新用户档案].

  *** 磁卡查询系统的数据装入:
  1.退出系统, 进入cc子目录. 把话单的第一张盘插入软驱.
  2.运行n.exe即可.
    n.exe自动调用arj.exe进行解压缩(命令为arj e -v a:\cc), 解压缩完一张后
  ARJ会提示换盘, 敲y键回车后继续.

  *** 重装当月数据:
  命令为: n /r

  *** n.exe的提示:
  Reinstall current month data
    -> 重装当月数据
  Current month data had been installed, you can reinstall it
    -> 本月数据已装入，您可以重装当月数据

另: TW.EXE为世界上最小的汉字系统


附：收缴库数据结构：
-------------------
Structure for table:          c:\sj\sj.dbf(monbu.dbf)
  Field   Field Name        Type              Width       Dec    等于Yhf????.dbf中字段
      1   CNO               Character             6              HTH
      2   NAME              Character            22              NAME 
      3   SYZ               Character             6               
      4   TEL               Character             8              DHHM 
      5   LB                Character             1              LB 
      6   CHG01             Numeric               8         2    SHYZF 市话月租
      7   CHG02             Numeric               8         2    SHF+XXFY 市话计次+信息费用 
      8   CHG03             Numeric               8         2    NHJCE 农话计次
      9   CHG04             Numeric               8         2    CHF   长 话 费 
     10   CHG05             Numeric               8         2    DBF   电 报 费
     11   CHG06             Numeric               8         2    SYZ   新业务费
     12   CHG07             Numeric               8         2    SHZWF 市话租维
     13   CHG08             Numeric               8         2    YDDHF 无线寻呼 
     14   CHG09             Numeric               8         2    WXXFF 移动电话 
     15   CHG10             Numeric               8         2    SJTXF 数据通信
     16   CHG11             Numeric               8         2    ZXF   租 线 费
     17   CHG12             Numeric               8         2    CZDL  出租电路 
     18   CHG13             Numeric               8         2    XLW   线路租维
     19   CHG14             Numeric               8         2    DWF   代 维 费
     20   CHG15             Numeric               8         2    NHYZF+NHHYF+DJF 其它=农话月租+农话会议+单据费 
     21   CHG16             Numeric               8         2     
     22   ZJ                Numeric              10         2    ZJ 
     23   ZNJ               Numeric               8         2     
     24   GSF               Numeric              10         2     
     25   OK                Logical               1