snoto2

孙卫强的记事本本人写的一个多页的记事本编程时记一些乱七八糟的东西增加页面就在标签页加一行保存更新一下就好了.很实用

欠费表
SELECT fgqfb.nf, fgqfb.yf, fgqfb.qfje, fwxxb.lm, fwxxb.dy, fwxxb.fh, zgxxb.zgxm, zgxxb.lqff, 
      zgflb.flmc, fgyb.xm, fwxxb.fgybh, dwxxb_1.dwmc AS fgdw, dwxxb_2.dwmc
FROM fgqfb LEFT OUTER JOIN
      dwxxb dwxxb_2 RIGHT OUTER JOIN
      zgxxb ON dwxxb_2.dwbh = zgxxb.dwbh LEFT OUTER JOIN
      zgflb ON zgxxb.flbh = zgflb.flbh ON fgqfb.zgbh = zgxxb.zgbh LEFT OUTER JOIN
      dwxxb dwxxb_1 RIGHT OUTER JOIN
      fwxxb ON dwxxb_1.dwbh = fwxxb.fgdw LEFT OUTER JOIN
      fgyb ON fwxxb.fgybh = fgyb.bh ON fgqfb.fwbh = fwxxb.fwbh


房屋加予收月数(ysys)本月交费(byjf)去截止日期(jzrq)交费起始(yyyymm)
不欠费为0交本月为1


房屋编号
楼编号9+房编号3=12位



进度显示
jdwin.Show;

jdwin.Label1.Caption:=gs;
jdwin.ProgressBar1.Max:=dset.RecordCount;

jdwin.ProgressBar1.Position:=dset.RecNo; 

jdwin.Hide;

egrid 更新
egrid.AutoUpdate:=false;

egrid.AutoUpdate:=true;
  egrid.Refresh;

防止除零
try

p1.Expression:=tgs(dset.fieldbyname('gs').AsString);
temva:=floattostr(p1.Value);


 except
 on EZeroDivide do
 va:='';
 end;

报表系统数据库取数方法
取数方式

数据库->视图->数据报表数据库->数据报表
1、数据库->视图：由报表系统产生查寻生成
2、视图->数据报表数据库:由取数公式完成
3、数据报表数据库->数据报表由报表系统完成


关于取数公式
定位部分：表名:ln:字段
数据公式部分：数据视图名:字段

输入数字
if (key >#57) or (key <#48) then
begin
  if (key<>#46) then
  key:=#0;
end;


常用sql
SELECT top 100 fgsfb.sfbh, fwxxb.lm, fwxxb.dy, fwxxb.fh, zgxxb.zgxm,fwxxb.jzrq,  dwxxb.dwmc, fgsfb.jfje,fgsfb.jfrq, 
      fgsfb.jffl, fgsfb.fgybh, dwxxb_1.dwmc
FROM dwxxb dwxxb_1 RIGHT OUTER JOIN
      fgsfb ON dwxxb_1.dwbh = fgsfb.fgdw LEFT OUTER JOIN
      dwxxb RIGHT OUTER JOIN
      zgxxb ON dwxxb.dwbh = zgxxb.dwbh ON fgsfb.zgbh = zgxxb.zgbh LEFT OUTER JOIN
      fwxxb ON fgsfb.fwbh = fwxxb.fwbh
ORDER BY fgsfb.sfbh DESC