请解释一下这段VF代码,谢谢

来源:百度知道 编辑:UC知道 时间:2024/05/26 03:56:45
这是一段用来添加用户的代码的一部分
请解释一下,尽量详细一点,万分感谢
特别是从第5行开始,请详细一点

截止到24号早上7点...

1 public u1,pw1
2 u1=thisform.text1.value
3 pw1=thisform.text2.value
4 if thisform.text2.value==thisform.text3.value
5 tempstr=''
6 for i=1 to len(trim(pw1))
7 tempchr=bitxor(asc(subs(pw1,i,1)),123)
8 tempstr=tempstr+chr(tempchr)
9 endfor
10 dimension b(1,4)
11 b[1,1]=u1
12 b[1,2]=tempstr
13 b[1,3]=""
14 b[1,4]=.T.
15 append from array b

完整代码如下

public u1,pw1
u1=thisform.text1.value
pw1=thisform.text2.value
if empty(thisform.text1.value)
messagebox ("用户名不能为空!",48+0,"添加新用户")
thisform.text1.setfocus
else
locate for upper(用户.用户名)=upper(allt(thisform.text1.value))
if found()
messagebox("用户名已经存在,请输入其他用户名!",48

将U1,PW1定义为全局变量;(1行)
U1,PW1分别是文本框1,文本框2的值;(2,3行)

如果文本框一的值为空(4行)
出现个对话框,其中的内容是“用户名不能为空”,对话框的图标是惊叹号,按钮是确定,对话框标题栏的内容为添加新用户(5)
光标停在文本框1处(6)
否则(针对上面的如果,即文本框1的值不为空)(7)
寻找用户表中用户名(大写)与输入的用户名(大写且去空格)相同的记录(8)
如果找到(9)
弹出一个对话框,对话框中内容为"用户名已经存在,请输入其他用户名!",图标为惊叹号,按钮为确定,标题栏内容为添加新用户(10)
光标移到当前文本框中(11)
否则(12 针对如果找到9)
如果文本框2的值与文本框3的值相同(13)
是一个字符串变量 (14)
给I赋值,从1到(去掉pW1的尾空格,LEN是测量字符串长度,一个字母长度为一,一个汉字长度为二)测量PW1去掉尾空格后长度得到的值(15)
*此处是个循环*给字符串赋值,把PW1从第I位取一个字符,然后返回字符表达式中最左边字符的ANSI值, 然后返回这个值和123按位进行异或运算的结果(16)
又一个变量,它的值为本身的值与上行值的ASCII码连接(17)
然后给字符串赋第二个值,以此类推,循环此命令。直到I符合len(trim(pw1)) 这一值,结束循环,跳到下一行(18)
赋值数组,值为(1,1)(1,2)(1,3)(1,4)(19)
定义b(1,1)的值为u1(20)
定义b(1,2)的值为TEMPSTR(14行)(21)
定义b(1,3)的值为空格(22)
定义b(1,4)的值为逻辑型,真(23)
将二维数组b中的值传送到表中(24)