哪位读得懂的高手说说关键注册的条件

forward
global type server_win from window
end type
type dw_1 from datawindow within server_win
end type
type dw_3 from datawindow within server_win
end type
type p_1 from picture within server_win
end type
end forward

global type server_win from window
integer x = 837
integer y = 564
integer width = 2034
integer height = 1120
boolean titlebar = true
string title = "XXX管理系统XX版"
long backcolor = 15793151
boolean controlmenu = true
windowtype windowtype = popup!
dw_1 dw_1
dw_3 dw_3
p_1 p_1
end type
global server_win server_win

type variables
public string l_sr
public string l_ws
public string cname
public string xszcqk
public string cchp = ""
public string ccchp = ""
public string c_sr
public string wbxs = "wb"
public string yxs
public string cbb[5]={"A版","B版","C版","D版","E版"}  '指注册成哪一种版本
public integer xhp
public integer zjzds
public integer xhb
public integer xhbb
public integer chp
public long xcrh
public long gsm
public boolean ook = false
end variables

forward prototypes
public function integer f_csh (string xx1,string xx2)
public subroutine f_cz ()
public function string f_save (string s_name,string s_value)
public subroutine f_xs (string xx1)
public function string f_xxs (string xx1,string xx2)
end prototypes

public function integer f_csh (string xx1,string xx2);integer m
integer n
integer l
string xx3
string xx4
string str
string xx6
string xx7
string xs
string xxs
string xx8

dsqlca = create transaction
dsqlca.dbms = "MSS Microsoft SQL Server 6.x"
dsqlca.database = "master"
dsqlca.logpass = spa
dsqlca.servername = xx1
dsqlca.logid = sua
dsqlca.autocommit = false
dsqlca.dbparm = ""
xs = f_csq(xx1,0)
label_1:
connect using dsqlca;
str = dsqlca.sqlerrtext

if dsqlca.sqldbcode <> 0 then
  disconnect using dsqlca;

  if messagebox("系统提示！",str + "-" + spa + "-" + sua + "-" + xx1 + "-" + "系统服务器未连接，继续连接吗？",question!,yesno!,1) = 2 then        '如果连不上SQL数据库就会提示这个
    return -1
    goto label_0
  end if

  goto label_1
end if

label_0:

if xs <> wsname and xs <> cwsname then
  m = 0
  select count ( userid ) from operatorh WHERE lx =' ' and dbname =' ' and srname =' '  using dsqlca;
/* SQL Parameters List
0-> :m
1-> :dklx[2]
2-> :wsname
3-> :xs
*/
  commit using dsqlca;

  if m > 0 then
    messagebox("提示！","本站点已经注册。") '注册成功后再用对注册码就提示这个
    return 1
  end if

  xx8 = ""
  SELECT password FROM operatorh WHERE dbname =' ' and lx =' ' and srname =' '  using dsqlca;
/* SQL Parameters List
0-> :xx8
1-> :xs
2-> :dklx[2]
3-> :xs
*/
  commit using dsqlca;

  if ((xx8 = "") or (isnull(xx8))) then
    messagebox("提示！","请先注册服务器。")
    return -1
  end if

  xx2 = xx8
else

  if xs = cwsname then
    wsname = cwsname
  end if

  SELECT dbname , userid , password , xming FROM operatorh WHERE lx =' ' and srname =' '  using dsqlca;
/* SQL Parameters List
0-> :xx3
1-> :xx4
2-> :xxs
3-> :xx6
4-> :dklx[3]
5-> :xs
*/
  l = dsqlca.sqlcode
  str = dsqlca.sqlerrtext

  if l = -1 then
    disconnect using dsqlca;
    messagebox("操作提示！","系统正在运行初始化，请稍候。")
    goto label_1
  end if

  m = 0
  select count ( userid ) from operatorh WHERE lx =' ' and dbname =' ' and srname =' '  using dsqlca;
/* SQL Parameters List
0-> :m
1-> :dklx[2]
2-> :wsname
3-> :xs
*/
  commit using dsqlca;

  if m > 0 and xxs = xx2 then
    messagebox("提示！","服务器已经注册。")
    return -1
  end if

  if ((l = 100) or (pos(f_csq(xx2,1),"zcblk1218j") = 0)) then
    xx3 = string(zcomp,"00") + "csq1218"
    xx3 = f_csq(xx3,0)
    xx4 = string(0,"00") + "12020917"
    xx4 = f_csq(xx4,0)
    xx6 = f_csq(xszcqk,0)
    xx7 = gong_si_ming
    delete operatorh where lx =' ' and srname =' '  using dsqlca;
/* SQL Parameters List
0-> :dklx[3]
1-> :xs
*/
    insert operatorh ( userid , password , dbname , lx , srname , xming , dwming ) values ( ' ' , ' ' , ' ' , ' ' , ' ' , ' ' , ' ' )  using dsqlca;
/* SQL Parameters List
0-> :xx4
1-> :xx2
2-> :xx3
3-> :dklx[3]
4-> :xs
5-> :xx6
6-> :xx7
*/
  else
    update operatorh set password =' ' where lx =' ' and srname =' '  using dsqlca;
/* SQL Parameters List
0-> :xx2
1-> :dklx[3]
2-> :xs
*/
    xszcqk = ""
  end if

  delete operatorh where lx =' ' and srname =' ' and dbname =' '  using dsqlca;
/* SQL Parameters List
0-> :dklx[2]
1-> :xs
2-> :xs
*/

  if xszcqk = "" then
    xszcqk = f_csq(xx6,1)
  end if

  commit using dsqlca;
  bbbz = long(left(f_csq(xx2,1),2))
end if

SELECT dbname FROM operatorh WHERE srname =' ' and lx =' '  using dsqlca;
/* SQL Parameters List
0-> :xx3
1-> :xs
2-> :dklx[3]
*/

if dsqlca.sqlcode = 0 then
  xx3 = left(xx3,12)
  zcomp = long(f_csq(xx3,1))
end if

SELECT count ( userid ) FROM operatorh WHERE lx =' ' and srname =' '  using dsqlca;
/* SQL Parameters List
0-> :zjzds
1-> :dklx[2]
2-> :xs
*/
commit using dsqlca;

if zcomp <= zjzds then
  messagebox("提示！","分配站点数：" + string(zcomp) + "，已注册站点数：" + string(zjzds) + "，请先在服务器中增加分配站点数。")
  return -1
end if

xxs = bbbh
m = pos(xxs,".")

do while m > 0
  xxs = replace(xxs,m,1,"_")
  m = pos(xxs,".")
loop

xxs = f_csq(xxs,0)
insert operatorh ( userid , password , dbname , lx , srname , xming ) values ( ' ' , ' ' , ' ' , ' ' , ' ' , ' ' )  using dsqlca;
/* SQL Parameters List
0-> :dkname
1-> :xx2
2-> :wsname
3-> :dklx[2]
4-> :xs
5-> :xxs
*/
commit using dsqlca;
return 1
end function

public subroutine f_cz ();string xs
string xx1
string xx2
string xx3
string xx7
string str
string xlx
string xxs
long m
long n
long l
long h
datetime xrq
string cxx12[64]={"w2c","wme","spz","298","qw3","da4","c5r","h6d","m78","s8r","d9a","wha","xgb","c68","wd4","te6","7f8","sh8","hks","pma","jdn","kwS","kcx","mrt","nfs","p68","acx","f56","ry7","8s6","ktc","uer","xhw","2w6","xqw","y66","m54","af6","bh1","cw6","dh9","e24","fwe","gcf","her","kbb","jhx","kwp","lwb","mis","neh","a56","p26","qe9","ran","s88","t4w","uka","das","w68","xk5","yku","sdn","mdw"}

if xhb = 0 then
  messagebox("提示！","没有修改信息或修改的信息已经保存确认。")
  return
end if

dw_1.accepttext()
xx1 = dw_1.getitemstring(1,"mi_ma")
ssrname = dw_1.getitemstring(1,"bb")
gong_si_ming = dw_1.getitemstring(1,"sr")
xhb = 0

if xx1 <> l_ws and f_csq(xx1,0) <> cwsname then
  xszcqk = szcqk
  srname = xx1

  if f_csh(xx1,dkpass) = 1 then
    f_save("server",f_csq(srname,0))
  end if

  return
else

  if xhbb = 1 then
    dsqlca = create transaction
    dsqlca.dbms = "MSS Microsoft SQL Server 6.x"
    dsqlca.database = "master"
    dsqlca.logpass = spa
    dsqlca.servername = xx1
    dsqlca.logid = sua
    dsqlca.autocommit = false
    dsqlca.dbparm = ""
    xx1 = f_csq(xx1,0)
    label_1:
    connect using dsqlca;
    str = dsqlca.sqlerrtext

    if dsqlca.sqldbcode <> 0 then
      disconnect using dsqlca;

      if messagebox("系统提示！",str + "系统服务器未连接，继续连接吗？",question!,yesno!,1) = 2 then
        return
        goto label_0
      end if

      goto label_1
    end if

    label_0:
    yxs = gong_si_ming
    update operatorh set dwming =' ' where srname =' ' and lx =' '  using dsqlca;
/* SQL Parameters List
0-> :yxs
1-> :xx1
2-> :dklx[3]
*/
    commit using dsqlca;
    f_save("server",f_csq(srname,0))
    xhbb = 0
    return
  end if

end if

xx2 = string(2 * double(f_crh(dw_1.getitemstring(1,"db"),1)))
xs = dw_1.getitemstring(1,"ming_cheng")
xlx = left(xs,2)
l = len(xs) - 2
xs = right(xs,l)

if l > 0 then

  for n = 1 to 64
    h = n

    if left(xs,3) = cxx12[n] then
      m = 1
      exit
    end if

  next

  if m = 1 then
    xx3 = right(xs,6)

    for n = 1 to 64

      if left(xx3,3) = cxx12[n] then
        exit
      end if

    next

    if n < 65 then

      for m = 1 to 64

        if right(xx3,3) = cxx12[m] then
          exit
        end if

      next

      if m < 65 then
        xrq = datetime(relativedate(date(string("2004-04-01")),64 * (n - 1) + m - 1))
      else
        m = 0
      end if

    end if

  end if

end if

xxs = right(xs,l - 3)
xxs = left(xxs,len(xxs) - 6)

if (((xxs <> "zcblk1218j" and xxs <> f_xxs(xx1,xx2)) or (m = 0)) or (xrq < datetime(today()))) then
  messagebox("提示！","注册码不对，请申请正确的注册码。联系电话" + right(blgsm,dhmcd))  '注册码的长度正确（长度为21位）且注册组合符合（指第一位必须是0第二位必须数字后面的随便）如果达到这个条件的话会弹出这个对话框，否则点注册没反映 如果注册码正确,直接注册成功没有任何提示
  dw_1.setitem(1,3,"01mdwzcblk1218jmdwmdw")'这段像是注册码,可是注册不成功,也没有说注册码不正确
  dw_1.setfocus()
  dw_1.setcolumn("ming_cheng")
  return
end if

xs = xlx + xs
zcomp = h
xs = f_csq(xs,0)
xszcqk = string(xrq,"yyyy_mm_dd_") + string(h,"00") + "_00_0"

if spe = "E" then
  run("isqlw -S " + xx1 + " -d master " + "-E -i " + ppath + "master.sql -o ms.sql",minimized!)
else
  run("isqlw -S " + xx1 + " -d master " + "-U " + sua + " -P " + spa + " -i " + ppath + "master.sql -o ms.sql",minimized!)
end if

m = f_csh(xx1,xs)

if m = 1 then
  srname = xx1
  szcqk = xszcqk
  szcdm = xs
  f_save("server",f_csq(srname,0))
  dw_1.setitem(1,"by_qk",szcqk)

  if pos(f_csq(szcdm,1),"zcblk1218j") > 0 then
    dw_1.setitem(1,3,f_csq(szcdm,1))
  else
    dw_1.setitem(1,3,left(f_csq(szcdm,1),2))
  end if

end if
end subroutine

public function string f_save (string s_name,string s_value);string s_path

s_path = "HKEY_CURRENT_USER\Software\blypgsp" + crhzcb + "\"
ssrname = c_sr
registryset(s_path,s_name,regstring!,s_value)
registryset(s_path,"cserver",regstring!,f_csq(ssrname,0))
registryset(s_path,"spe",regstring!,spe)
registryset(s_path,"spa",regstring!,spa)
return ""
end function

public subroutine f_xs (string xx1);xhp = 0
ook = false

if ((xx1 = l_ws) or (xx1 = l_ws + "\blkj")) then
  ook = true
  xhp = 1
end if

dw_1.object.t1.visible = ook
dw_1.object.t2.visible = ook
dw_1.object.t3.visible = ook
dw_1.object.sjk.visible = ook
dw_1.object.gzz.visible = ook
dw_1.object.sjkt.visible = ook
dw_1.object.gzzt.visible = ook
dw_1.object.ming_cheng.visible = ook
dw_1.object.db.visible = ook
dw_1.object.by_qk.visible = ook
dw_1.object.bb.visible =  not ook
dw_1.object.bb_t.visible =  not ook

if not ook then
  dw_1.settaborder("bb",30)
end if
end subroutine

public function string f_xxs (string xx1,string xx2);integer m
integer n
integer l
integer j
string xx3
string xx4
string xx5

xx4 = xx1
xx5 = xx2
xx1 = f_csq(xx1,0)
xx2 = f_csq(xx2,0)
j = len(xx1)
l = len(xx2)
m = j

if j > l then
  m = l
  xx3 = left(xx1,j - l)
  xx1 = right(xx1,m)
else

  if j < l then
    m = j
    xx3 = left(xx2,l - j)
    xx2 = right(xx2,m)
  end if

end if

for n = 1 to m

  if ((left(xx1,1) = "1") or (left(xx2,1) = "1")) then
    xx3 = xx3 + "1"
  else
    xx3 = xx3 + "0"
  end if

  xx1 = right(xx1,m - n)
  xx2 = right(xx2,m - n)
next

return f_csq(xx3,1)
end function

event close;if cchp <> ccchp and cchp <> "" then

  if ((((long(left(cchp,2)) < 1) or (long(left(cchp,2)) > 5)) or (long(left(ccchp,2)) < 1)) or (long(left(ccchp,2)) > 5)) then
    return
  end if

  if messagebox("操作提示！","注册版本由:“" + cbb[long(left(cchp,2))] + "” 修改为:“" + cbb[long(left(ccchp,2))] + "” ，确认保存吗？",question!,yesno!,2) = 1 then '当注册码达到上面说的前两位必须为0+数字的后，会先弹这个对话框再弹判断注册码是否正确的对话框架
    xhb = 1
    f_cz()
  end if

end if

return
end event

on server_win.create
dw_3 = create dw_3
p_1 = create p_1
dw_1 = create dw_1
control[] = {dw_3,p_1,dw_1}
end on

on server_win.destroy
destroy(dw_3)
destroy(p_1)
destroy(dw_1)
end on

event doubleclicked;return
return
end event

event open;string str
string xx4
string xx6

if w0 = 3657 and h0 = 2743 then
  x = 940 + 110
  y = 650 + 80
  width = 1690 - 220
  height = 988 - 198
  crhzm = 80
  crhdb = 8
else

  if w0 = 4681 and h0 = 3511 then
    x = 1312 + 160
    y = 928
    width = 1690 - 220
    height = 988 - 198
    crhzm = 104
    crhdb = 4
  else

    if w0 = 2926 and h0 = 2194 then
      x = 503
      y = 380
      crhzm = 62
      crhdb = 12
    end if

  end if

end if

dw_1.x = -15
dw_1.y = -15
dw_1.width = width + 10
dw_1.height = height + 10
dw_1.object.b0.background.color = string(lrcolor)
dw_1.object.b1.background.color = string(bkcolor)
dw_1.object.b2.background.color = string(bkcolor)
dw_1.object.sjk.filename = (ppath + "qr.bmp")
dw_1.object.gzz.filename = (ppath + "qr.bmp")
dw_1.object.qr.filename = (ppath + "qr.bmp")
dw_1.object.qx.filename = (ppath + "qr.bmp")
dw_1.object.bl.filename = (ppath + "BLLOGO.bmp")
title = cbbh + right(blgsm,dhmcd)

if srname = "" then
  srname = f_csq(wsname,1)
  dsqlca = create transaction
  dsqlca.dbms = "MSS Microsoft SQL Server 6.x"
  dsqlca.database = "master"
  dsqlca.logpass = spa
  dsqlca.servername = srname
  dsqlca.logid = sua
  dsqlca.autocommit = false
  dsqlca.dbparm = ""
  label_2:
  connect using dsqlca;
  str = dsqlca.sqlerrtext

  if dsqlca.sqldbcode <> 0 then
    disconnect using dsqlca;

    if messagebox("系统提示！","系统服务器名为：" + srname + "，该服务器未连接，继续连接吗？",question!,yesno!,1) = 2 then
      goto label_0
      goto label_1
    end if

    goto label_2
  end if

  label_1:
  spe = f_login()
  SELECT password , xming FROM operatorh WHERE srname =' ' and lx =' '  using dsqlca;
/* SQL Parameters List
0-> :xx4
1-> :xx6
2-> :wsname
3-> :dklx[3]
*/
  disconnect using dsqlca;
  str = dsqlca.sqlerrtext

  if str = "" then
    szcqk = f_csq(xx6,1)
    dkpass = xx4
    szcdm = xx4
  end if

  ssrname = srname
  f_save("server",f_csq(srname,0))
end if

label_0:

if gong_si_ming = "" then
  gong_si_ming = left(blgsm,len(blgsm) - dhmcd)
  gong_si_ming = right(gong_si_ming,len(gong_si_ming) - 10)
end if

l_ws = f_csq(wsname,1)
f_xs(srname)
l_sr = lower(srname)
c_sr = lower(ssrname)
dw_1.visible = true
dw_1.reset()
dw_1.insertrow(0)
dw_1.setitem(1,1,gong_si_ming)
dw_1.setitem(1,2,lower(srname))
dw_1.setitem(1,6,lower(ssrname))

if szcdm = "" then
  xhb = 1
  gsm = 0
  dw_1.setitem(1,3,"01mdwzcblk1218jmdwmdw")
else

  if pos(crhzcm,"产品") > 0 then
    bbbz = 1
    szcdm = f_csq(szcdm,1)
    szcdm = "01" + right(szcdm,len(szcdm) - 2)
    szcdm = f_csq(szcdm,0)
  end if

  if pos(f_csq(szcdm,1),"zcblk1218j") > 0 then
    dw_1.setitem(1,3,f_csq(szcdm,1))
    gsm = 0
  else
    dw_1.setitem(1,3,left(f_csq(szcdm,1),2))
    gsm = 1
  end if

end if

dw_1.setitem(1,4,f_crh(string(dkvalue),0))
dw_1.setitem(1,5,szcqk)
dw_1.setfocus()
dw_1.setcolumn(1)
return
end event

type dw_1 from datawindow within server_win
event enterkey pbm_dwnprocessenter
event mmv pbm_mousemove
integer width = 1705
integer height = 944
integer taborder = 20
string dataobject = "blsrlr_dw"
borderstyle borderstyle = styleraised!
boolean livescroll = true
end type

event enterkey;if parent.cchp <> parent.ccchp and parent.cchp <> "" then

  if ((((long(left(parent.cchp,2)) < 1) or (long(left(parent.cchp,2)) > 5)) or (long(left(parent.ccchp,2)) < 1)) or (long(left(parent.ccchp,2)) > 5)) then

    if parent.chp = 4 then
      close(server_win)
    end if

    return
  end if

  if messagebox("操作提示！","注册版本由:“" + parent.cbb[long(left(parent.cchp,2))] + "” 修改为:“" + parent.cbb[long(left(parent.ccchp,2))] + "” ，确认保存吗？",question!,yesno!,2) = 2 then
    setitem(1,3,parent.cchp)
    parent.cchp = ""
    parent.cchp = ""
  else
    parent.xhb = 1
    parent.f_cz()
    setitem(1,3,parent.ccchp)
    parent.cchp = ""
    parent.ccchp = ""
  end if

end if

if getcolumn() = 2 and parent.xhp = 0 then

  if not parent.ook then
    setcolumn(6)
  else
    setcolumn(1)
  end if

  return
else

  if getcolumn() = 6 then
    setcolumn(1)
    return
  else

    if getcolumn() = 3 then
      setcolumn(1)
      return
    end if

  end if

end if

setcolumn(getcolumn() + 1)
return
end event

event mmv;parent.chp = 0

if xpos >= long(object.sjk.x) and xpos <= long(object.sjk.x) + long(object.sjk.width) and ypos >= long(object.sjk.y) and ypos <= long(object.sjk.y) + long(object.sjk.height) then
  parent.dw_1.object.sjk.filename = (ppath + "qrzc.bmp")
  parent.chp = 1
else
  parent.dw_1.object.sjk.filename = (ppath + "qr.bmp")
end if

if xpos >= long(object.gzz.x) and xpos <= long(object.gzz.x) + long(object.gzz.width) and ypos >= long(object.gzz.y) and ypos <= long(object.gzz.y) + long(object.gzz.height) then
  parent.dw_1.object.gzz.filename = (ppath + "qrzc.bmp")
  parent.chp = 2
else
  parent.dw_1.object.gzz.filename = (ppath + "qr.bmp")
end if

if xpos >= long(object.qr.x) and xpos <= long(object.qr.x) + long(object.qr.width) and ypos >= long(object.qr.y) and ypos <= long(object.qr.y) + long(object.qr.height) then
  parent.dw_1.object.qr.filename = (ppath + "qrzc.bmp")
  parent.chp = 3
else
  parent.dw_1.object.qr.filename = (ppath + "qr.bmp")
end if

if xpos >= long(object.qx.x) and xpos <= long(object.qx.x) + long(object.qx.width) and ypos >= long(object.qx.y) and ypos <= long(object.qx.y) + long(object.qx.height) then
  parent.dw_1.object.qx.filename = (ppath + "qrzc.bmp")
  parent.chp = 4
else
  parent.dw_1.object.qx.filename = (ppath + "qr.bmp")    '这些xx.bmp是程序运行后调用的一些图片
end if

return
end event

event clicked;double n

accepttext()

if parent.cchp <> parent.ccchp and parent.cchp <> "" then

  if ((((long(left(parent.cchp,2)) < 1) or (long(left(parent.cchp,2)) > 5)) or (long(left(parent.ccchp,2)) < 1)) or (long(left(parent.ccchp,2)) > 5)) then

    if parent.chp = 4 then
      close(server_win)
    end if

    return
  end if

  if messagebox("操作提示！","注册版本由:“" + parent.cbb[long(left(parent.cchp,2))] + "” 修改为:“" + parent.cbb[long(left(parent.ccchp,2))] + "” ，确认保存吗？",question!,yesno!,2) = 2 then
    setitem(1,3,parent.cchp)
    parent.cchp = ""
    parent.cchp = ""
  else
    parent.xhb = 1
    parent.f_cz()
    setitem(1,3,parent.ccchp)
    parent.cchp = ""
    parent.ccchp = ""
  end if

end if

n = double(right(szcqk,len(szcqk) - 17))

if ((szcdm <> "" and pos(f_csq(szcdm,1),"zcblk1218j") > 0) or (szcdm = "")) and n = cshzs + 1 then
  n = -100
end if

parent.dw_1.setcolumn(1)

if parent.chp = 1 and parent.xhp = 1 and n <> -100 then
  crhwn[190] = "regdb_win"
  mt[190] = "数据库维护"
  openwithparm(crhwd[190],mt[190],crhwn[190])
  return
end if

if parent.chp = 2 and parent.xhp = 1 then
  open(register_win)
  return
end if

if parent.chp = 3 then

  if szcdm = "" then

    if messagebox("操作提示！","注册版本已经录入，确认保存吗？",question!,yesno!,2) = 2 then
      return
    end if

  else
    parent.xhb = 0
    return
  end if

  parent.f_cz()
  return
end if

if parent.chp = 4 then
  close(server_win)
  return
end if

return
end event

event doubleclicked;return
return
end event

event editchanged;if getcolumn() = 1 then

  if (((f_csq(wsname,1) <> parent.dw_1.getitemstring(1,2)) or (bbbz = 5)) or (parent.gsm = 1)) then
    setitem(1,1,getitemstring(1,1))
    return
  else
    parent.xhbb = 1
  end if

else

  if getcolumn() = 2 then
    parent.l_sr = lower(gettext())
    parent.f_xs(parent.l_sr)

    if not parent.ook then
      setitem(1,6,parent.l_sr)
      parent.c_sr = parent.l_sr
    end if

  else

    if getcolumn() = 6 then
      parent.c_sr = lower(gettext())
    else

      if getcolumn() = 3 then

        if szcdm <> "" and pos(f_csq(szcdm,1),"zcblk1218j") = 0 then
          setitem(1,3,getitemstring(1,3))
          return
        end if

      end if

    end if

  end if

end if

parent.xhb = 1
return
end event

event itemchanged;if getcolumn() = 1 and parent.xhbb = 1 then

  if messagebox("操作提示！","公司名已经修改，确认保存吗？",question!,yesno!,2) = 2 then
    setitem(1,1,getitemstring(1,1))
    return 2
  end if

  parent.xhb = 1
  parent.f_cz()
else

  if getcolumn() = 3 then

    if pos(crhzcm,"产品") > 0 and left(data,2) <> "01" then
      setitem(1,3,getitemstring(1,3))
      return 2
    end if

    if ((szcdm <> "" and pos(f_csq(szcdm,1),"zcblk1218j") = 0) or (long(right(szcqk,2)) = cshzs)) then
      setitem(1,3,getitemstring(1,3))
      return 2
    end if

    if parent.cchp = "" then
      parent.cchp = getitemstring(1,3)
    end if

    parent.ccchp = gettext()
  else
    parent.xhb = 1
  end if

end if

return
end event

event itemerror;return 2
return
end event

type dw_3 from datawindow within server_win
event enterkey pbm_dwnprocessenter
integer x = 1504
integer y = 232
integer width = 1778
integer height = 880
integer taborder = 30
boolean visible = false
string dataobject = "blzdlr_dw"
borderstyle borderstyle = stylelowered!
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
end type

event doubleclicked;return
return
end event

type p_1 from picture within server_win
integer width = 1545
integer height = 836
integer taborder = 10
boolean visible = false
string picturename = "c:\xxx\1.bmp"
boolean border = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

哪位读得懂的高手说说关键注册的条件

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！