SingleLove 发表于 2006-3-10 13:49

[求助]请问里面这句代码什么意思?

<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("&Igrave;á&Ecirc;&frac34;", "&Ecirc;&Ccedil;·&ntilde;&frac12;&oslash;&ETH;&ETH;&Ouml;&Oacute;&micro;&atilde;·&iquest;×&ordf;&Egrave;&laquo;&Egrave;&Otilde;×&acirc;&sup2;&Ugrave;×÷&pound;&iquest;", 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>//&sup2;é&Ntilde;&macr;&micro;&Ccedil;&frac14;&Ccedil;&ordm;&Aring;<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("&Igrave;á&Ecirc;&frac34;", "&Ccedil;&euml;&Iuml;&Egrave;&Acirc;&frac14;&Egrave;&euml;&Ouml;&Oacute;&micro;&atilde;·&iquest;&iquest;&Iacute;&Egrave;&Euml;&micro;&micro;°&cedil;&ETH;&Aring;&Iuml;&cent;&pound;&iexcl;", Exclamation!)<br>Return<br>end if<br>//&Egrave;&iexcl;&micro;&Atilde;·&iquest;&frac14;&auml;&ordm;&Aring;<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 &lt;&gt; 0 then<br>MessageBox("&sup3;&ouml;&acute;í", "&sup2;é&Otilde;&Ograve;&Ouml;&Oacute;&micro;&atilde;·&iquest;&iquest;&Iacute;&Egrave;&Euml;&micro;&micro;°&cedil;&sup3;&ouml;&acute;í&pound;&iexcl;", 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("&Ecirc;§°&Uuml;", "&Ouml;&Oacute;&micro;&atilde;·&iquest;×&ordf;&Egrave;&laquo;&Egrave;&Otilde;×&acirc;&Ecirc;§°&Uuml;&pound;&iexcl;", Exclamation!)<br>Return<br>elseif li_return = 0 then<br>MessageBox("&sup3;&Eacute;&sup1;&brvbar;", "&Ouml;&Oacute;&micro;&atilde;·&iquest;×&ordf;&Egrave;&laquo;&Egrave;&Otilde;×&acirc;&sup3;&Eacute;&sup1;&brvbar;&pound;&iexcl;") <br>end if</P>
<P>//&acute;&yen;·&cent;&Euml;&cent;&ETH;&Acirc;°&acute;&Aring;&yen;<br>cb_refresh.Trigger Event Clicked()<br><br>这是公司安排我改的一个比较老的酒店系统里的一个按钮的脚本,做系统的人已经不在公司了我自己又半天看不懂!<br>就红色那句右边是个什么意思~我开始以为是自定义函数结果我找遍了模块中的自定义函数都没有~不知道是啥意思!<br>高手们给个指点。<br></P>
[align=right][color=#000066][此贴子已经被作者于2006-3-10 13:49:15编辑过][/color][/align]

ヤ順祺冄繎ヤ 发表于 2006-3-10 14:28

是一个自定义函数..<BR>你看一下是不是有继承呀!!

maindeng 发表于 2007-9-21 12:36

回复:(SingleLove)[求助]请问里面这句代码什么意思...

应该是一个窗口自定义函数吧

页: [1]

编程论坛