if ls_registration1 <> ls_registration then //比较输入的许可号和计算得到的许可号
messagebox(gs_msg_title,"对不起,您输入的许可号不正确,请重新输入!")
return 1
else
b_isok = true //相等就设置注册成功标志位
end if
string ls_temp
string ls_temp1
string ls_admissionnumber
integer i
integer j
for i = 1 to 4
ls_temp = f_changestring(registrationnumber,i)
ls_temp1 = f_conversion(i,ls_temp)
ls_admissionnumber = ls_admissionnumber + "-" + ls_temp1
next