一个软件，是调用PBD文件执行的，OD无法调试，用PBKILL打开PBD文件后，找到关键代码，但是修改了就保存不了，所以想有能看懂的大侠把注册原理说一下

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

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

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)