我自己开发了一个考勤数据处理的一段程式拿出来给大家看看,第一次写,请大家提点意见(0分)

for i=1 to 5 do

while not 考勤数据.eof do
begin
case i of
i:=1 begin
//一段
上班1
下班1
end;
i:=2 begin
//二段
上班2
下班2
end;
i:=3 begin
上班3
下班3
end;
i:=4 begin
上班4
下班4
end;
i:=5 begin
上班5
下班5
end;
end;
//--上班--正常
if (打卡时间>=上班-有效刷卡1/上班) and (打卡时间<=上班时间+可迟到/早退) then
begin
正常
end else
//--迟到
if (打卡时间>上班+可迟到/早退) and (打卡时间<=上班+旷工) then
begin
迟到
end else

//--旷工
if (打卡时间>上班+可迟到/早退+旷工) and (打卡时间<下班-旷工) then
begin
旷工
end;

//--下班--正常
if (打卡时间>下班) and (打卡时间+有效刷卡1/下班) then
begin
正常
end else
if (打卡时间>下班-旷工) and (打卡时间<下班+可迟到/早退) then
begin
早退
end else
//--旷工
if (打卡时间>上班-有效刷卡1/上班) and (打卡时间<下班-旷工)
旷工
end;
end;

感觉不是太好,你可以先整理以下你们的思路,用语言清楚地表述出来再说
另外感觉for应在 while里较好,也可能省掉, next语句也少了吧

非常感谢你,如会改的,因为第一次写,不知大家有没有给一个小方案,如果可以我会给你现金

88888wwwww 留下你的EMAIL ,or qq

我这有一个现成的IC考勤模块，应符合你的需求；
我可给你源代码，你在何处？

to:xianjun2000
可不可以给小弟一份
icqlm@sina.com
QQ:6188477

我在深圳,
我的mail是
elk88@163.com
eld@es88.com
如果可以我会感谢你,如果你在深圳我们可以坐下来了一了
非常感谢大的对我的支持谢谢

TO: 88888wwwww
我也在深圳,但不知你在深圳何处？
你的考勤数据是从条形码扫描仪来还IC（ID）考勤机来呢？ （我都有做过）；
若有意： 发EMAIL: hellozxj@etang.com （写明你的联系方式）

谁有最加的方案拿出来,大家交流.交流.这也是一种学习方法,我写的不好,

TO : 88888wwwww
我目前有一个繁体的IC考勤软件（帮某公司订作的），我想可能符合你的需求。
我目前也在深圳。
若有现金交易的意向：我可以很低的价格提供方案或源码给你（没办法，现在
急需用钱，差点想去抢银行）。
若各位能帮我解决困难，能提供现金请致电： 13302462832 (请勿无事致电，
电话费不多了) 。 EMAIL: zhudonglincn@yahoo.com.cn

TO : xiaojun2000
能否给我一份！
谢谢！
zhang_yz@163.com

to:xianjun2000
可不可也给我一份
sthsm@21cn.com

to:xianjun2000
可不可也给我一份
fong_waihong@163.net