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