if USED("hd_dwqkk")
select hd_dwqkk
else
select 0
use hd_dwqkk
endif
replace 单位名称 with THISFORM.TEXT3.value
replace 联系人 with THISFORM.TEXT4.value
replace 联系电话 with THISFORM.TEXT5.value
if not FILE("hd_regdw.dbf")
zcdw_mc = "非法用户"
else
hd_use("hd_regdw")
zcdw_mc = ALLTRIM(resuser_list())
if not ALLTRIM(THISFORM.TEXT3.value) == ZCDW_MC
zcdw_mc = ALLTRIM(resuser_list2())
endif
endif
if not FILE("hd_dwqkk.dbf")
xtzc_bz = .f.
pjyz_t = .f.
return
endif
lxdh = ALLTRIM(THISFORM.TEXT5.value)
zcm1 = ALLTRIM(STR(VAL(SUBSTR(LXDH,1,4))+VAL(SUBSTR(LXDH,6,7))))
zcm2 = VAL(ALLTRIM(STR(VAL(ZCM1)*VAL(SUBSTR(LXDH,6,3))))+ALLTRIM(STR(OUT_BH+VAL(ZCM1)*9)))
zcm = HD_10TO16(ZCM2)
if ALLTRIM(THISFORM.TEXT2.value) == ZCM .and. ALLTRIM(THISFORM.TEXT3.value) == ZCDW_MC
MESSAGEBOX("注册成功，祝贺您获得《客户管理系统》永久使用权！",48,TYTSCK)
close databases
use hdcsk
replace 注册码 with ALLTRIM(THISFORM.TEXT2.value)
close databases
xtzcm_jc()
release thisform
else
MESSAGEBOX("注册码不正确，请向作者联系注册！",16,TYTSCK)
do form 联系注册表单
endif
close databases
procedure share_zc
if USED("hd_dwqkk")
select hd_dwqkk
else
select 0
use hd_dwqkk
endif
replace 单位名称 with THISFORM.TEXT3.value
replace 联系人 with THISFORM.TEXT4.value
replace 联系电话 with THISFORM.TEXT5.value
x = VAL(THISFORM.TEXT1.value)
disk_spac = disk_xlh()
disk_s = ALLTRIM(STR(DISK_SPAC,16))
bsm = VAL(SUBSTR(DISK_S,1))
zcm = ABS(BITXOR(BSM,BSM/5+OUT_BH))
if VAL(THISFORM.TEXT2.value) = ZCM
MESSAGEBOX("注册成功，祝贺您获得《客户管理系统》永久使用权！",48,TYTSCK)
close all
use hdcsk
replace 注册码 with (THISFORM.TEXT2.value)
close databases all
xtzcm_jc()
release thisform
else
MESSAGEBOX("注册码不正确，请向作者联系注册！",16,TYTSCK)
do form 联系注册表单
endif
close all
procedure Init
close databases
if XTZC_BZ
thisform.caption = "系统注册――已注册用户"
else
thisform.caption = "系统注册――未注册用户"
endif
if not SJDS_SHARE
thisform.label6.caption = "航空售票客户管理系统 单机光盘版 Ver "+SUBSTR(VER_BH,5,LEN(VER_BH)-4)+"版 用户注册"
else
thisform.label6.caption = "航空售票客户管理系统 单机标准版 Ver "+SUBSTR(VER_BH,5,LEN(VER_BH)-4)+"版 用户注册"
endif
disk_s = ALLTRIM(STR(disk_xlh(),16))
thisform.text1.value = DISK_S
if not SJDS_SHARE
thisform.text1.visible = .f.
thisform.label1.visible = .f.
thisform.text2.width = 168
thisform.label2.left = 80
thisform.text2.left = 160
endif
if not FILE("hd_dwqkk.dbf")
use hdcsk
copy structure to hd_jgk extended
use hd_jgk
zap
append blank
replace field_name with "单位名称" , field_type with "C" , field_len with 50 , field_dec with 0
append blank
replace field_name with "联系人" , field_type with "C" , field_len with 12 , field_dec with 0
append blank
replace field_name with "联系电话" , field_type with "C" , field_len with 15 , field_dec with 0
use
create hd_dwqkk from hd_jgk
use hd_dwqkk
append blank
ss = SYS(0)
replace 单位名称 with SUBSTR(SS,1,AT("#",SS)-1)
replace 联系人 with SUBSTR(SS,AT("#",SS)+2,LEN(ALLTRIM(SS))-AT("#",SS)-1)
use
endif
use hd_dwqkk
thisform.text3.value = 单位名称
thisform.text4.value = 联系人
thisform.text5.value = 联系电话
thisform.text2.setfocus
if XTZC_BZ
use hdcsk
thisform.text2.value = 注册码
thisform.text2.enabled = .f.
thisform.command1.enabled = .f.
thisform.command2.setfocus
endif
