请大家帮我一个忙，是关于数据库编程的。

Question

1、
local n,lstr
n=9
clear
for i=0 to int(n/2)
  lstr=''
  ?? space(int(n/2)-i)+padl(lstr,i*2+1,chr(asc('A')+i)+' ')
  ? ''  
endfor
for i=int(n/2)+2 to n
  lstr=''
  ?? space(i-int(n/2)-1)+padl(lstr,(n-i)*2+1,chr(asc('A')+n-i)+' ')
  ? ''  
endfor2、
在表单上添加两个TEXT控件，用于输入密码的那个TEXT的PASSWORDCHAR属性为*
添加个COMMAND控件，表单load :
use 计算机1班 in 0 alia kl
public i
i=1COMMAND的CLICK中
if i>3
   messagebox("拒绝登录")
   close data all
   release i
   thisform.release
else
   sele kl
   load for allt(姓名)=allt(thisform.text1.value);
      and allt(密码)==allt(thisform.text2.value)
   **设TEXT1为输入姓名，TEXT为输入密码
   if found()   
      messagebox("OK")
   else
      messagebox("口令错误")
      i=i+1
      thisform.text2.value=''
      thisform.text2.setfocus
      thisform.refresh 
   endif     
endif

Answer 1

好！！验证一下。如果对的话马上结贴。另外如果有谁把　自　己　的答案贴在http://www.csdn.net/expert/topic/769/769833.xml?temp=.7476923
这里的话，同样给分！！！

Answer 2

TO　liuri(璇玑) 也把你的答案贴到http://www.csdn.net/expert/topic/769/769833.xml?temp=.7476923
我好给分，谢谢。

Answer 3

我的更好
*问题一
clea
input "您要打印多少层" to cx
for i=1 to CX 
?spac(abs(INT(i-(CX+1)/2)))+REPL(CHR(ASC("A")+i-1),INT((CX+1)/2)*2-1-abs(INT(i-(CX+1)/2))*2)
endf
*问题二
use 班级情况1
for i=1 to 3
acce "请输入用户名" to user
acce "请输入密码" to user
go top
loca for 用户名=user.and.密码=pass
if found()
?"欢迎您"
do prog1  
*prog1为您的下一阶段程序
exit
else
?"密码不正确?,请重输"
endi
endf
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]