huanshu.txt

数据库程序PB+SQL学生图书管理系统 大学在校生作品

long Is_cert_id,Is_bookid,Il_a,Il_n
datetime Is_loandates1,Il_j,Il_k,Il_d
long Il_e,Il_h,Il_l,Il_f,Il_b
double Il_m
integer Il_flag1,Il_w
Is_bookid=long(sle_6.text)
Is_loandates1=datetime(today())
 Il_h=0
 Il_l=0
 
select  loan.returndates
into:Il_j
from loan
where loan.bookid=:Is_bookid and loan.returndates<:Is_loandates1 and loan.flag=0;
select  loan.loandates
into:Il_d
from loan
where loan.bookid=:Is_bookid and loan.returndates<:Is_loandates1;
Il_e=abs(DaysAfter(date(datetime(Il_d)),date(datetime(Is_loandates1)))-30)
Il_m=double(Il_e*0.1)
if  Il_j<Is_loandates1 and Il_j>Il_k then
	messagebox("提示信息","所借书在"+string(datetime(Il_j))+ "已超期，罚款"+string(double(Il_m))+"元，请交罚款！")
   
	end if
select  loan.flag
into:Il_w
from  loan
where loan.bookid=:Is_bookid ;
select  bookinfo.flag1
into:Il_b
from  bookinfo
where bookinfo.bookid=:Is_bookid ;
if  Il_b =0  then
	messagebox("信息错误","此图书编号的书未被借出！")
   
	return
end if

if	 Il_j<Is_loandates1 and Il_j>Il_k    then
insert into momey
  	 values(:Is_bookid,
           :Il_e ,
		     :Il_m );	
		else
insert into momey
  	 values(:Is_bookid,
          :Il_h,
		     :Il_l);	
		end if
		
		dw_2.retrieve(Is_bookid)
	
	

if     sle_6.text=""  then
		messageBox("数据不全","请输入图书编号")
end if

update bookinfo
set flag1=0
where bookinfo.bookid=:Is_bookid;//还书后将本书的flag1置0

update  loan
set flag=1 
where loan.bookid=:Is_bookid ;
delete 
from momey
where momey.bookid=:Is_bookid ;
select loan.flag
into:Il_a
from loan
where loan.bookid=:Is_bookid;
if Il_a=1 then
messageBox("提示信息","图书编号为"+string(long(Is_bookid))+"的图书已还借成功")
end if


sle_6.text=""
sle_6.setfocus()