代码分析.doc

《代码分析.doc》由会员分享，可在线阅读，更多相关《代码分析.doc（4页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流代码分析.精品文档.close alluse 员工信息locate for (locate，是查找、定位的意思。)编号=all trim(thisform.text1.value) 把编号信息输入在text1 ( ALLTRIM() 函数：删除指定字符表达式的前后空格符，并返回删除空格后的字符串。把“thisform.text1.value”前后空格符删除，并返回删除空格后的字符串，以此作为“编号”。if found() 如果找到。thisform.refresh（重新绘制表单或控件，并刷新它的所有值。end if结束use使用close a

2、ll关闭所有完整代码如下 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+0,添加新用户) thisform.text1.setfoc

3、us else if thisform.text2.value=thisform.text3.value tempstr= for i=1 to len(trim(pw1) tempchr=bitxor(asc(subs(pw1,i,1),123) tempstr=tempstr+chr(tempchr) endfor dimension b(1,4) b1,1=u1 b1,2=tempstr b1,3= b1,4=.T. append from array b messagebox(成功添加新用户！,64+0,添加新用户) release thisform else messagebox(请

4、输入相同密码！, 48+0,添加新用户) thisform.text3.setfocus endif endif endif最佳答案 将U1,PW1定义为全局变量;（1行）U1,PW1分别是文本框1，文本框2的值；（2，3行）如果文本框一的值为空（4行） 出现个对话框，其中的内容是“用户名不能为空”，对话框的图标是惊叹号，按钮是确定，对话框标题栏的内容为添加新用户（5）光标停在文本框1处（6）否则（针对上面的如果，即文本框1的值不为空）（7） 寻找用户表中用户名（大写）与输入的用户名（大写且去空格）相同的记录（8） 如果找到（9） 弹出一个对话框，对话框中内容为用户名已经存在，请输入其他用户名

5、！，图标为惊叹号，按钮为确定，标题栏内容为添加新用户（10） 光标移到当前文本框中（11） 否则（12 针对如果找到9） 如果文本框2的值与文本框3的值相同（13） 是一个字符串变量 （14） 给I赋值，从1到（去掉pW1的尾空格，LEN是测量字符串长度，一个字母长度为一，一个汉字长度为二）测量PW1去掉尾空格后长度得到的值（15） *此处是个循环*给字符串赋值，把PW1从第I位取一个字符，然后返回字符表达式中最左边字符的ANSI值， 然后返回这个值和123按位进行异或运算的结果（16） 又一个变量，它的值为本身的值与上行值的ASCII码连接（17） 然后给字符串赋第二个值，以此类推，循环此命

6、令。直到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） 弹出一个对话框，内容为成功添加新用户！图标为信息的 i， 按钮为确定。对话框标题栏为添加新用户。（25） 释放内存变量（26） 否则（针对13行的如果）（27） 弹出一对话框内容为请输入相同密码！对话框图标为！，对话框标题栏为添加新用户。（28） 光标回到文本框3的位置（29） 结束（30） 结束（31） 结束（32）