菜鸟急，要崩溃了，求救各位大侠！

编了一个最简单的界面，也就是需要验证用户名，密码的，但是老通不过，请教各位大侠！  
  String   username  
  String   password  
  username=Trim(sle_1.Text)  
  password=Trim(sle_2.Text)  
   
  IF   username=""   Or   password=""   THEN  
  MessageBox("提示","登陆信息输入不全请重新输入")  
  END   IF  
   
  SQLCA.DBMS   =   "ODBC"  
  SQLCA.AutoCommit   =   False  
  SQLCA.DBParm   =   "ConnectString='DSN=east;UID=east;PWD=east'"  
   
  CONNECT   USING   SQLCA;  
   
  String   ls_dstring  
  String   ls_name  
  String   ls_passwd  
  ls_dstring="Select   username,passwd   FROM   Ad   "+&  
  "   WHERE   username=?   AND   passwd=?   USING   SQLCA"  
   
   
  PREPARE   SQLSA   FROM:ls_dstring;  
   
  DECLARE   ad_cur1   DYNAMIC   CURSOR   FOR   SQLSA;  
   
  OPEN   DYNAMIC   ad_cur1   USING   :username,   :password;  
   
  FETCH   ad_cur1   INTO   :ls_name   :ls_passwd   ;  
   
   
  IF   SQLCA.SQLCode=0   THEN  
  //MessageBox("提示","用户名或密码输入错误")  
  ELSE  
  open(window)  
   
  END   IF  
  CLOSE   ad_cur1;  
  出错说打不开cursor,  
  另外再问一个问题，在窗口中能否连数据库（不通过数据窗口、控件，因为我想在脚本中通过界面的输入作验证，判断什么的，如上例）能否贴个例子，谢了，马上要交活了，没有成果，郁闷死了！ 问题点数：100、回复次数：1Top

1 楼wangpeilei_403（蚂蚱）回复于 2002-12-03 13:00:26 得分 100

看我的：  
  string   sql_pwd,sql_uid,sql_dept  
      SELECT   "login"."pwd"   ,uid,dept  
          INTO   :sql_pwd     ,:sql_uid,:sql_dept  
          FROM   "login"      
        WHERE   "login"."uid"   =   :ddlb_1.text     ;  
  if   sql_uid   <>""   and   trim(sql_pwd)=trim(sle_2.text)   and   trim(sql_dept)=trim(ddplb_1.text)   then  
  username=ddlb_1.text  
  gs_dept=ddplb_1.text  
  open(w_maincontrol)  
  OpenSheet(w_controlpanel_left,w_maincontrol,0,layered!)  
              gs_dept=trim(gs_dept)  
  if   gs_dept="系统管理员"   then  
  mn_frame.m_系统.m_用户管理.enabled=true  
  if   ProfileString   ("tabx.ini",   "PROFILE   arg",   "run_times",               "")="0"   then  
  messagebox("提示","您是第一次登陆本系统，系统需要进行一些设置，按'确定'后开始。")  
  setprofilestring("tabx.ini",   "PROFILE   arg",   "run_times",   "1")  
  messagebox("提示","系统设置成功!")  
  end   if  
  end   if  
  else  
  ii=ii+1  
  if   ii=1   then  
  messagebox("警告","账号或密码错误,请再输入一边!",exclamation!)  
  end   if  
  if   ii=2   then  
  messagebox("警告","您的密码和账号有出入,请核对!如果您的输入再次错误,系统将退出!",exclamation!)  
  end   if  
  if   ii=3   then  
  messagebox("警告","您的密码和账号有出入,请核对!系统将退出!",exclamation!)  
  halt  
  end   if  
  end   ifTop

相关问题

• 密码
• 账号
• 系统
• 用户
• sql
• thenmessagebox
• dept
• sqlca
• exclamation
• sle

• 帖主：csdncsdncsdn
• wangpeilei_403

• PowerBuilder类图书
• PowerBuilder类源码下载