[求助]请问里面这句代码什么意思?
<P>if dw_group_register.GetRow() = 0 then Return</P><P>integer li_return<br>string ls_regist_no, ls_room_code<br>long ll_temp</P>
<P>li_return = MessageBox("Ìáʾ", "ÊÇ·ñ½øÐÐÖӵ㷿תȫÈÕ×â²Ù×÷£¿", Question!, YesNo!, 2)<br>if li_return = 2 then Return</P>
<P>ls_regist_no = dw_group_register.GetItemString(dw_group_register.GetRow(), "regist_no")</P>
<P>//²éѯµÇ¼ÇºÅ<br>select count(*)<br>into :ll_temp<br>from GUEST_DOSSIER<br>where regist_no = :ls_regist_no<br>using g_trans;</P>
<P>if ll_temp = 0 or IsNull(ll_temp) then<br>MessageBox("Ìáʾ", "ÇëÏȼÈëÖӵ㷿¿ÍÈ˵µ°¸ÐÅÏ¢£¡", Exclamation!)<br>Return<br>end if<br>//È¡µÃ·¿¼äºÅ<br>select substring(room_bed_code, 1, 5)<br>into :ls_room_code<br>from GUEST_DOSSIER<br>where regist_no = :ls_regist_no<br>using g_trans;</P>
<P>if g_trans.sqlcode <> 0 then<br>MessageBox("³ö´í", "²éÕÒÖӵ㷿¿ÍÈ˵µ°¸³ö´í£¡", Exclamation!)<br>Return<br>end if</P>
<P><STRONG><FONT color=#e8294f>li_return = wf_hour_to_allday(ls_room_code, gs_empid)</FONT></STRONG></P>
<P>if li_return = -1 then<br>MessageBox("ʧ°Ü", "Öӵ㷿תȫÈÕ×âʧ°Ü£¡", Exclamation!)<br>Return<br>elseif li_return = 0 then<br>MessageBox("³É¹¦", "Öӵ㷿תȫÈÕ×â³É¹¦£¡") <br>end if</P>
<P>//´¥·¢Ë¢Ð°´Å¥<br>cb_refresh.Trigger Event Clicked()<br><br>这是公司安排我改的一个比较老的酒店系统里的一个按钮的脚本,做系统的人已经不在公司了我自己又半天看不懂!<br>就红色那句右边是个什么意思~我开始以为是自定义函数结果我找遍了模块中的自定义函数都没有~不知道是啥意思!<br>高手们给个指点。<br></P>
[align=right][color=#000066][此贴子已经被作者于2006-3-10 13:49:15编辑过][/color][/align]
回复:(SingleLove)[求助]请问里面这句代码什么意思...
应该是一个窗口自定义函数吧页:
[1]
