IF (asc(left(bm1,2))+asc(right(bm1,2)))*197303+30=val(bm2) //这里就是关键比较和注册算法
wait window '注册成功,按任意键退出...' at 18,60
repl register with bm2
THISFORM.Release
close all
set skip of menu _msysmenu .f.
ELSE
#DEFINE MISMATCH_LOC "对不起!请重新注册!"
WAIT WINDOW MISMATCH_LOC TIMEOUT 3
THISFORM.text2.Value = ""
THISFORM.text2.SetFocus
ENDIF
ENDPROC
%?? % ? ? ? ? U Q? password? T? ?? ? ? ?? T? ?? ? ? ?? %?C? ?=CC? ?R?? ?C? g? ? R,???<?? 注册成功!按任意键退出...?
>? 腰? ?
? ? ? ? GN???? ?
? R,吸??? 对不起!请重新注册!? T? ? ? ? ?
? ? ? ? ? U
PASSWORD BM1 THISFORM TEXT4 VALUE BM2 TEXT2 REGISTER
RELEASE SETFOCUS Click, ?1 RQ? Q B1 A
3 ? )
commandbutton
commandbutton Command2 Form1 sTop = 324
Left = 240
Height = 24
Width = 96
FontSize = 9
Caption = "取 消"
TabIndex = 6
Name = "Command2"
LPROCEDURE Click
thisform.release
set skip of menu _msysmenu .f.
ENDPROC
政? _? % \ s
k ? U
? ? ? GN???? U THISFORM RELEASE Click, ?1
1 A )
label label Label2 Form1 jFontSize = 9
Caption = "请输入注册码:"
Height = 24
Left = 96
Top = 103
Width = 84
Name = "Label2"
textbox textbox Text4 Form1 FontSize = 9
ControlSource = ""
Height = 24
InputMask = ""
Left = 192
ReadOnly = .F.
TabIndex = 2
Top = 36
Width = 120
PasswordChar = ""
Name = "Text4"
label label Label4 Form1 iFontSize = 9
Caption = "你的用户名为:"
Height = 24
Left = 96
Top = 43
Width = 96
Name = "Label4"
label label Label1 Form1 fCaption = "1、将你的用户名,发送到"
Height = 24
Left = 72
Top = 180
Width = 144
Name = "Label1"
label label Label3 Form1 XCaption = "注册方法:"
Height = 24
Left = 72
Top = 144
Width = 61
Name = "Label3"
label label Label5 Form1 oCaption = "2、将300元人民币汇到指定帐号里;"
Height = 13
Left = 72
Top = 204
Width = 277
Name = "Label5"
label label Label6 Form1 tCaption = "3、作者将注册码发回到你指定的邮箱中;"
Height = 24
Left = 72
Top = 252
Width = 324
Name = "Label6"
label label Label7 Form1 [Caption = "4、完成注册。"
Height = 25
Left = 72
Top = 276
Width = 97
Name = "Label7"
shape shape Shape1 Form1 cTop = 24
Left = 48
Height = 109
Width = 313
BackStyle = 0
SpecialEffect = 0
Name = "Shape1"
label label Label8 Form1 ?aption
= "中国工商银行牡丹卡卡号:4580 6611 8341 9638 姓名:李昀飞"
Height = 13
Left = 84
Top = 228
Width = 348
Name = "Label8"
label label Label9 Form1 [Caption = "邮箱地址中;"
Height = 12
Left = 312
Top = 180
Width = 72
Name = "Label9"
label label Label10 Form1 _Caption = "zu_lin@yeah.net"
Height = 13
Left = 216
Top = 180
Width = 96
Name = "Label10"
宋体, 0, 9, 6, 14, 10, 12, 2, 2