登陆界面的代码.txt

数据库实习学生选课系统

s_ut=ddlb_1.text 
string pswd_js,pswd_xs,pswd_gly
string input_name,input_pswd

input_name=sle_user.text
input_pswd=sle_pswd.text
s_sn=input_name

if input_name="" or ddlb_1.text="" then
	messagebox("登陆错误","用户身份和用户名不能为空!")
   else 
	
   if  input_name<>'' and ddlb_1.text="管理员"  then
         select 管理员表.密码 into :pswd_gly from 管理员表
         where 管理员表.编号=:input_name;
         if input_pswd<>pswd_gly or sqlca.sqlcode<>0 then
		       if in_time=3 then
			       messagebox("登录错误","对不起，您无权使用本系统",exclamation!)
			       halt close
		       else
			       in_time++
			       messagebox("登录错误","请输入正确的用户名或密码!")
		       end if
		      sle_user.setfocus() 
         else
	          open(w_assistor)
             close(w_login)
			     return
         end if
       
   else 
                 if input_name<>'' and ddlb_1.text="学生"  then
	                   select 学生表.密码 into:pswd_xs from 学生表 
	                   where  学生表.学号=:input_name;
	                   if input_pswd<>pswd_xs or sqlca.sqlcode<>0 then
								  if in_time=3 then
			                 messagebox("登录错误","对不起，您无权使用本系统",exclamation!)
			                 halt close
		                else
			                 in_time++
		                    messagebox("登录错误","请输入正确的用户名或密码!")
							end if
		                    sle_user.setfocus() 
	                   else
                         open(w_student)
                         close(w_login)
						       return
	                   end if 
		        
         	
                 else 
                      if input_name<>'' and ddlb_1.text="教师"  then
	                      select 教师表.密码 into:pswd_js from 教师表 
	                      where  教师表.教师编号=:input_name;
	                      if input_pswd<>pswd_js or sqlca.sqlcode<>0 then
		                      if in_time=3 then
			                      messagebox("登录错误","对不起，您无权使用本系统",exclamation!)
			                      halt close
		                       else
			                       in_time++
		                          messagebox("登录错误","请输入正确的用户名或密码!")
								    end if
		                      sle_user.setfocus() 
	                      else
	                           open(w_teacher)
                              close(w_login)
			                     return
	                      end if
                      end if
                 end if  
       
  end if
end if