if dw_group_register.GetRow() = 0 then Return

integer li_return
string ls_regist_no, ls_room_code
long ll_temp

li_return = MessageBox("Ìáʾ", "ÊÇ·ñ½øÐÐÖӵ㷿תȫÈÕ×â²Ù×÷£¿", Question!, YesNo!, 2)
if li_return = 2 then Return

ls_regist_no = dw_group_register.GetItemString(dw_group_register.GetRow(), "regist_no")

//²éѯµÇ¼ÇºÅ
select count(*)
into :ll_temp
from GUEST_DOSSIER
where regist_no = :ls_regist_no
using g_trans;

if ll_temp = 0 or IsNull(ll_temp) then
MessageBox("Ìáʾ", "ÇëÏȼÈëÖӵ㷿¿ÍÈ˵µ°¸ÐÅÏ¢£¡", Exclamation!)
Return
end if
//È¡µÃ·¿¼äºÅ
select substring(room_bed_code, 1, 5)
into :ls_room_code
from GUEST_DOSSIER
where regist_no = :ls_regist_no
using g_trans;

if g_trans.sqlcode <> 0 then
MessageBox("³ö´í", "²éÕÒÖӵ㷿¿ÍÈ˵µ°¸³ö´í£¡", Exclamation!)
Return
end if

li_return = wf_hour_to_allday(ls_room_code, gs_empid)

if li_return = -1 then
MessageBox("ʧ°Ü", "Öӵ㷿תȫÈÕ×âʧ°Ü£¡", Exclamation!)
Return
elseif li_return = 0 then
MessageBox("³É¹¦", "Öӵ㷿תȫÈÕ×â³É¹¦£¡")
end if

//´¥·¢Ë¢Ð°´Å¥
cb_refresh.Trigger Event Clicked()

这是公司安排我改的一个比较老的酒店系统里的一个按钮的脚本，做系统的人已经不在公司了我自己又半天看不懂！
就红色那句右边是个什么意思~我开始以为是自定义函数结果我找遍了模块中的自定义函数都没有~不知道是啥意思！
高手们给个指点。

[此贴子已经被作者于2006-3-10 13:49:15编辑过]