Delphi：停车管理系统.zip源码Delphi项目程序源码下载

--初始化------------------------------------------------------------- create proc tcxt_csh as truncate table sys truncate table gdcl_fkjl truncate table lscl_fkjl truncate table jczt truncate table sfjg truncate table czyqx delete gdcl_czda delete czy insert czy(code,xm,mm,qybz) values('000','管理员','','1') insert czyqx(code,cdsm) values('000','系统应用设置') insert czyqx(code,cdsm) values('000','更改登录用户') insert sfjg(bm,yhlx,sffs,sdsfsj,sdsjsf,jgsfsj,jgsjsf,mftcsj,mrxe) values ('0000','临时用户','按时间收费','120','5','120','2','','20') insert sfjg(bm,yhlx,yxq,sfje) values ('0001','月卡用户',1,50) insert sys(pass,hostname,dyyl) values ('','小区车辆管理','1') --固定车收费--------------------------------------------------------------------- create proc tcxt_in_gdcl_fkjl @Tmh char(9), @Sflb char(8), @Yhlx char(8), @Sfje money, @Yxrqz datetime output, @Skr_code char(3), @sta int output as declare @yxq int if @sflb='办卡费' begin select @yxq=yxq from sfjg where yhlx=@yhlx set @yxrqz=dateadd(month,@yxq,getdate()) insert gdcl_fkjl(tmh,sflb,yhlx,sfje,yxrqz,skr_code,sksj,wxbz) values (@tmh,@sflb,@yhlx,@sfje,@yxrqz,@skr_code,getdate(),'0') update gdcl_czda set kfz=@yxrqz where tmh=@tmh --更新卡费日期止 set @sta=0 return end else begin insert gdcl_fkjl(tmh,sflb,yhlx,sfje,yxrqz,skr_code,sksj,wxbz) values (@tmh,@sflb,@yhlx,@sfje,@yxrqz,@skr_code,getdate(),'0') if @sflb='物管费' begin update gdcl_czda set wyglfz=@yxrqz where tmh=@tmh --更新物业管理费日期止 end else begin update gdcl_czda set cwfz=@yxrqz where tmh=@tmh --更新车位费日期止 end set @sta=0 return end --固定车辆收费作废---------------------------------------------------------------------------- create proc tcxt_zf_gdcl_fkjl @xh int, @sta int output as declare @rq datetime,@sflb char(8),@tmh char(9) declare @kfz datetime,@wyglfz datetime,@cwfz datetime select @rq=yxrqz,@sflb=sflb,@tmh=tmh from gdcl_fkjl where zid=@xh select @kfz=kfz,@wyglfz=wyglfz,@cwfz=cwfz from gdcl_czda where tmh=@tmh if @sflb='办卡费' --作废的恰好是最后一次收费记录，则需要把车主档案中最新的止日期置空 if @rq=@kfz update gdcl_czda set kfz=null where tmh=@tmh if @sflb='物管费' if @rq=@wyglfz update gdcl_czda set wyglfz=null where tmh=@tmh if @sflb='车位费' if @rq=@cwfz update gdcl_czda set cwfz=null where tmh=@tmh update gdcl_fkjl set zfrq=getdate(),wxbz='1' where zid=@xh set @sta=0 --临时车收费----------------------------------------------------------------------------- create proc tcxt_lscl_fkjl_clsf @xh int, @skr_code char(3), @ljsj numeric(8,2) output, --必须取浮点形，后面四舍五入要用 @je money output, @sffs char(12) output as declare @nowtime datetime,@tmh char(9),@cphm char(15) declare @mcsf char(4),@mftcsj char(4),@gysf char(4) declare @Sdsfsj char(4),@Sdsjsf char(4),@Jgsfsj char(4),@Jgsjsf char(4),@Mrxe char(4) declare @sjdsf char(4),@cg12xssf char(4) select @sffs=sffs from sfjg where bm='0000' select @nowtime=getdate() select @ljsj=datediff(minute,jrsj,@nowtime),@tmh=tmh,@cphm=cphm from lscl_fkjl where zid=@xh if @sffs='不收费' begin select @je=0 update lscl_fkjl set wcsj=@nowtime,sksj=@nowtime,skr_code=@skr_code,ljsj=@ljsj,je=@je where zid=@xh --作离开处理 update jczt set czbz='1' where tmh=@tmh and zt='开入' and lb='临时车' and czbz='0' insert jczt (Tmh,Cphm,Jcsj,Lb,Zt) values(@tmh,@cphm,@nowtime,'临时车','离开') --写入状态表 end if @sffs='按次收费' begin select @mcsf=mcsf,@mftcsj=mftcsj,@gysf=gysf from sfjg where bm='0000' set @je=cast(@mcsf as int) if @mftcsj<>'' --累计停车时间小于免费停车时间,不收费 if @ljsj<=cast(@mftcsj as int) set @je=0 if @gysf<>'' if @ljsj>=12*60 --超过12小时加收过夜费 set @je=@je+cast(@gysf as int) update lscl_fkjl set wcsj=@nowtime,sksj=@nowtime,skr_code=@skr_code,ljsj=@ljsj,je=@je where zid=@xh update jczt set czbz='1' where tmh=@tmh and zt='开入' and lb='临时车' and czbz='0' insert jczt (Tmh,Cphm,Jcsj,Lb,Zt) values(@tmh,@cphm,@nowtime,'临时车','离开') --写入状态表 end if @sffs='按时间收费' begin select @Sdsfsj=sdsfsj,@Sdsjsf=sdsjsf,@Jgsfsj=jgsfsj,@Jgsjsf=jgsjsf,@Mrxe=mrxe,@Mftcsj=mftcsj from sfjg where bm='0000' set @je=cast(@sdsjsf as int) if @mftcsj<>'' --累计停车时间小于免费停车时间,不收费 if @ljsj<=cast(@mftcsj as int) set @je=0 if @ljsj>cast(@sdsfsj as int) --累计时间大于首段收费时间，加上间隔收费;间隔收费次数，四舍五入后取整　 set @je=@je+round((@ljsj-cast(@sdsfsj as int))/cast(@jgsfsj as int) ,0)*cast(@jgsjsf as int) if @mrxe<>'' --每日限额处理 if @je>cast(@mrxe as int) set @je=cast(@mrxe as int) update lscl_fkjl set wcsj=@nowtime,sksj=@nowtime,skr_code=@skr_code,ljsj=@ljsj,je=@je where zid=@xh update jczt set czbz='1' where tmh=@tmh and zt='开入' and lb='临时车' and czbz='0' insert jczt (Tmh,Cphm,Jcsj,Lb,Zt) values(@tmh,@cphm,@nowtime,'临时车','离开') --写入状态表 end if @sffs='按时间段收费' begin select @sjdsf=sjdsf,@cg12xssf=cg12xssf from sfjg where bm='0000' set @je=cast(@sjdsf as int) if @cg12xssf<>'' if @ljsj>=12*60 --超过12小时加收过夜费 set @je=@je+cast(@cg12xssf as int) update lscl_fkjl set wcsj=@nowtime,sksj=@nowtime,skr_code=@skr_code,ljsj=@ljsj,je=@je where zid=@xh update jczt set czbz='1' where tmh=@tmh and zt='开入' and lb='临时车' and czbz='0' insert jczt (Tmh,Cphm,Jcsj,Lb,Zt) values(@tmh,@cphm,@nowtime,'临时车','离开') --写入状态表 end ---------------------------------------------------------------------------------------------------------- create proc tcxt_ztjs --区内状态 @skr_code char(3), @cnxycs int output, @drkrzs int output, @drkccs int output, @drsf int output, @sfbc int output as declare @f1 money,@f2 money,@b1 int,@b2 int select @cnxycs=count(*) from jczt where czbz='0' --场内现停有车数 select @drkrzs=count(*) from jczt where convert(char,jcsj,102)=convert(char,getdate(),102) and zt='开入' --当日开入总数 select @drkccs=count(*) from jczt where convert(char,jcsj,102)=convert(char,getdate(),102) and zt='离开' --当日开出数 select @f1=isnull(sum(sfje),0),@b1=count(*) from gdcl_fkjl where convert(char,sksj,102)=convert(char,getdate(),102) and skr_code=@skr_code and zfrq is null select @f2=isnull(sum(je),0),@b2=count(*) from lscl_fkjl where convert(char,sksj,102)=convert(char,getdate(),102) and skr_code=@skr_code and zfrq is null select @drsf=@f1+@f2,@sfbc=@b1+@b2 --个人交款统计-------------------------------------------------------- create procedure tcxt_calculate_grsf @code char(3), @qrq datetime, @zrq datetime, @gd_sfje money output, @gd_sfbc int output, @gd_zfje money output, @gd_zfbc int output, @gd_min int output, @gd_max int output, @gd_zfjlh varchar(200) output, @ls_sfje money output, @ls_sfbc int output, @ls_zfje money output, @ls_zfbc int output, @ls_min int output, @ls_max int output, @ls_zfjlh varchar(200) output as declare @zfh int,@zfstr varchar(8) --统计固定车收费情况---------------------- select @gd_sfje=isnull(sum(sfje),0) from gdcl_fkjl where skr_code=@code and sksj>=@qrq and sksj<=@zrq select @gd_sfbc=count(*) from gdcl_fkjl where skr_code=@code and sksj>=@qrq and sksj<=@zrq select @gd_zfje=isnull(sum(sfje),0) from gdcl_fkjl where skr_code=@code and zfrq>=@qrq and zfrq<=@zrq and zfrq is not null select @gd_zfbc=count(*) from gdcl_fkjl where skr_code=@code and zfrq>=@qrq and zfrq<=@zrq and zfrq is not null select @gd_min=isnull(min(zid),0) fro