snoto13

来自「孙卫强的记事本本人写的一个多页的记事本编程时记一些乱七八糟的东西增加页面就在标签」· 代码 · 共 21 行

  FGmain.pas房管主窗体中 
  xtdir,fgyqx,fgybh,dwbh,dwmc,s_sql:string;
  //系统统目录,房管员权限，编号，单位编号，单位名，SQL语句
  byjf,dqny,dqsj,sjbh,dqn,dqy,xny, qsny,jzny:string;
  //本月己交费,当前年月,当前时间,编号用时间,当前年,当前月,下一编号时间,起始结束时间
  gdff,jmff,jfje,jmje:real;
  //固定房费，减免后房费,交费金额,减免
  i,ys,gxs:integer;
  //记数用,交费月数,更新数
  yqf,yys,yby:integer; //有欠，有予，有本

  pGmain.pas单身主窗体中 
  xtdir,fgyqx,fgybh,dwbh,dwmc,s_sql:string;
  //系统统目录,房管员权限，编号，单位编号，单位名，SQL语句
  byjf,dqny,dqsj,sjbh,dqn,dqy,xny, qsny,jzny:string;
  //本月己交费,当前年月,当前时间,编号用时间,当前年,当前月,下一编号时间,起始结束时间
  gdff,jmff,jfje,jmje:real;
  //固定房费，减免后房费,交费金额,减免
  i,ys,gxs:integer;
  //记数用,交费月数,更新数
  yqf,yys,yby:integer; //有欠，有予，有本