单击事件，字符处理部分

最初由 skyege 发布
单击事件，字符处理部分

能具体点么？这些内容用文字怎么表达解释呢？

我帮你支持一下~~！

if parent.rb_2.checked = true //单选框是否选择 and dec(parent.em_5.text) > 1 //编辑掩码控件的string转换成decimal then
  ls_edition = "2518"
  ls_zch = string((dec(parent.sle_1.text) / dec(parent.em_5.text)) * dec(ls_edition) + ls_wl,"##########################") //装sle_1,em_5,ls_edition的值转换为decimal相加后再转换成指定格式的string
  ls_zch_1 = parent.em_1.text + parent.em_2.text + parent.em_3.text + parent.em_4.text
//连接以上控件中的字符串
  if ls_zch_1 = left(ls_zch,4)//从左边取四个字符 + right(ls_zch,4) //从右边取四个字符 + left(right(ls_zch,8),4) //从右面取八字在此基础上从左边取出四个 + right(left(ls_zch,8),4)//从左边取八个在此基础中从右取四个 then
以上取出的字符相连判断看是否等于ls_zch_1
    update user_base set slhao =' ' , zchao =' ' , lei =0  using sqlca;
条件成立更新user_base这个表
缺少end if 不知道下面的语句在不在上面的IF里

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

string ls_zch

call super::clicked;

if parent.rb_1.checked = true then
  ls_edition = "4829"
  ls_zch = string(dec(parent.sle_1.text) * dec(ls_edition) + ls_dj,"##########################")
  parent.em_1.text = left(ls_zch,4)
  parent.em_2.text = right(ls_zch,4)
  parent.em_3.text = left(right(ls_zch,8),4)
  parent.em_4.text = right(left(ls_zch,8),4)
else
  ls_edition = "2518"
  ls_zch = string((dec(parent.sle_1.text) / dec(parent.em_5.text)) * dec(ls_edition) + ls_wl,"##########################")
  parent.em_1.text = left(ls_zch,4)
  parent.em_2.text = right(ls_zch,4)
  parent.em_3.text = left(right(ls_zch,8),4)
  parent.em_4.text = right(left(ls_zch,8),4)
end if

return

某软件算注册号哇。