思迅餐饮V5源代码

zkyh2006

pascalwzc

什么也没有看到呀,可以下载到源代码吗？

Sky^$^

光发几个图片，没附件呀，忽悠人呢？

cxs0001

这种人拉出去斩。。。。。。。。

tx044

怎么个情况，来人啊。。。。为什么呢

mingtiankeji

怎么个意思啊  没看懂呢  就几张图

WUQUAN1988

思迅餐饮不良就知道做宣传。故意弄破解搞宣传的吧

WUQUAN1988

思迅餐饮真的不行。就知道做宣传。故意弄破解搞宣传的吧

zkyh2006

我提供代码谁帮写个狗@@               

zkyh2006

//clicked (none) returns long [pbm_bnclicked]
integer li_filenum
integer li_num
string ls_reg
string docname
string ls_title
string ls_err
string ls_registerno
string ls_serialno
integer li_rlen
integer i
char lc_c


//Has been Shielded.
IF  NOT (len(gfunc.is_serialno) = 16) THEN //1
        messagebox(gvar.apptitle,"无加密锁不能注册！")
        RETURN
END IF //1
IF PARENT.rb_reg.checked AND gfunc.is_hardid = "0000" AND gfunc.is_hardid2 = "0000" THEN //5
        messagebox(gvar.apptitle,"识别码异常，不能用注册号注册。~n请申请注册文件！")
        RETURN
END IF //5
IF PARENT.rb_regfile.checked THEN //9
        docname = PARENT.sle_regfile.text
        IF (len(docname) <= 0 OR  NOT (fileexists(docname))) THEN //12
                messagebox(gvar.apptitle,"注册文件不存在！")
                RETURN
        END IF //12
        li_filenum = fileopen(docname,linemode!,read!)
        li_num = fileread(li_filenum,ls_title)
        IF  NOT (ls_title = "[siss key file 7.0]") THEN //18
                fileclose(li_filenum)
                messagebox(gvar.apptitle,"不是有效的注册文件！")
                RETURN
        END IF //18
        li_num = fileread(li_filenum,ls_reg)
        fileclose(li_filenum)
        IF li_num > 240 THEN //25
                update t_sys_reg SET var_value =:ls_reg WHERE ( lower ( var_id ) ='regno' )  USING sqlca;
                IF sqlca.sqlnrows = 1 THEN //28
                        COMMIT USING sqlca;
                        GOTO LABEL_KENSHU_68
                END IF //28
                IF sqlca.sqlcode = 0 THEN //32
                        INSERT t_sys_reg ( var_id , var_value ) VALUES ( 'regno' , :ls_reg )  USING sqlca;
                        COMMIT USING sqlca;
                        GOTO LABEL_KENSHU_68
                END IF //32
                ls_err = sqlca.sqlerrtext
                ROLLBACK USING sqlca;
                messagebox(gvar.apptitle,ls_err)
                RETURN
        END IF //25
        messagebox(gvar.apptitle,"不是有效的注册文件！")
ELSE //9
        ls_serialno = gfunc.is_serialno
        ls_registerno = PARENT.em_reg1.text + PARENT.em_reg2.text + PARENT.em_reg3.text + PARENT.em_reg4.text + PARENT.em_reg5.text + PARENT.em_reg6.text
        li_rlen = len(ls_registerno)
        IF (li_rlen = 24 OR li_rlen = 28) THEN //46
                i = 1
        ELSE //46
                messagebox(gvar.apptitle,"输入的产品注册号必须为24/28位的数字或字母，请重新输入！")
                PARENT.em_reg1.setfocus()
                RETURN
        END IF //46
LABEL_KENSHU_52:
        IF li_rlen >= i THEN //53
                lc_c = mid(ls_registerno,i)
                IF (lc_c >= "0" AND lc_c <= "9" OR lc_c >= "A" AND lc_c <= "F") THEN //56
                        i ++
                        GOTO LABEL_KENSHU_52
                END IF //56
                messagebox(gvar.apptitle,"输入的产品注册号必须由0-9、A-F字符组成，第" + string(i) + "位字符错误，请重新输入！")
                PARENT.em_reg1.setfocus()
                RETURN
        END IF //53
        ghb.of_setsecret("RegisterNo",ls_registerno)
        update t_sys_reg SET var_value ='' WHERE ( Upper ( LTRIM ( RTRIM ( var_id ) ) ) =Upper ( LTRIM ( RTRIM ( 'regno' ) ) ) )  USING sqlca;
        messagebox(gvar.apptitle,"将重新启动应用程序！")
        gefunc.of_release_mutex()
        closewithreturn(PARENT,"1")
        RETURN
LABEL_KENSHU_68:
        messagebox(gvar.apptitle,"将重新启动应用程序！")
        gefunc.of_release_mutex()
        closewithreturn(PARENT,"1")
END IF //9
RETURN