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