duzhe.txt

图书管理系统的源代码,数据库建立可以直接用,谢谢大家.

if il_row>0 and il_rowcount>0 then
	dw_1.deleterow(il_row)
	commit;
	if il_row>1 then
		il_row -=1
	end if
	dw_1.selectrow(0,false)
	dw_1.selectrow(il_row,true)
	dw_1.scrolltorow(il_row)
	parent.event ue_search()
end if


cb_query.enabled =true
pb_add.enabled=true
pb_modify.enabled=true
pb_del.enabled=true


rollback;
dw_1.enabled=true
dw_2.enabled=false
cb_query.enabled=true
pb_add.enabled=true
pb_modify.enabled=true
pb_del.enabled=true
pb_first.postevent(clicked!)

integer li_rtn
if dw_1.enabled=false then
	li_rtn = messagebox("提示信息","数据库没有保存,需要保存退出吗!",question!,yesno!)

	if li_rtn = 1 then
		pb_save.triggerevent(clicked!)
	end if
end if
close(parent)


this .selectrow(0,false)
if row <1 then return
this.selectrow(row,true)
il_row =row
parent.event ue_search()


this .selectrow(0,false)
if rowcount <1 then return
this.selectrow(1,true)
il_row =1
il_rowcount =rowcount
sle_record.text =string(il_rowcount)
if il_rowcount <=1 then
	pb_next.enabled =false
	pb_buttom.enabled =false
end if
parent.event ue_search()


string ls_select,ls_lx
ls_lx=trim(sle_lx.text)
ls_select = ""
if not isnull(ls_lx) and ls_lx <> "" then
	ls_lx ="%" + ls_lx +"%"
	ls_select ="类型号 like'" + ls_lx +"'"
end if
if ls_select <> "" then
	ls_select =is_sql + " where " + ls_select
else
	ls_select =is_sql
end if
dw_1.setsqlselect(ls_select)
il_rowcount = dw_1.retrieve()
sle_record.text =string(il_rowcount)


dw_1.enabled =false
dw_2.enabled =true
dw_2.reset()
dw_2.insertrow(1)
dw_2.setitem(1,"限制图书",1)
dw_2.setitem(1,"限制期刊",1)


if dw_2.rowcount() <1 then return
dw_2.accepttext()
dw_1.setitem(il_row,"类型" ,dw_2.getitemstring(1,"类型"))
dw_1.setitem(il_row,"图书册数" ,dw_2.getitemstring(1,"图书册数"))
dw_1.setitem(il_row,"期刊册数" ,dw_2.getitemstring(1,"期刊册数"))
dw_1.setitem(il_row,"续借次数" ,dw_2.getitemstring(1,"续借次数"))
dw_1.setitem(il_row,"限制图书" ,dw_2.getitemstring(1,"限制图书"))
dw_1.setitem(il_row,"限制期刊" ,dw_2.getitemstring(1,"限制期刊"))
if dw_2.update() =1 then
	commit;
	dw_1.enabled =true
	dw_2.enabled =false
	messagebox("提示","保存数据成功!")
else
	rollback;
	messagebox("提示","保存数据失败!")
end if
il_rowcount =dw_1.rowcount()
sle_record.text =string(il_rowcount)


string ls_lx
ls_lx =dw_1.getitemstring(il_row,"类型")
dw_2.retrieve(ls_lx)

string ls_dzlx
if il_row >0 and il_rowcount >0 then
	ls_dzlx =dw_1.getitemstring(il_row,"类型")
	delete from 读者信息
	where 读者信息.类型 = :ls_dzlx;
	if sqlca.sqlcode =0 then
		commit;
		messagebox("提示","删除成功!")
	else
		rollback;
		messagebox("提示","删除失败!")
		return
	end if

	if il_row >=1 then 
		il_row -=1
	end if
	dw_1.retrieve()
	dw_1.selectrow(0,false)
	dw_1.selectrow(il_row,true)
	dw_1.scrolltorow(il_row)
	parent.event ue_search()
end if