登录窗口

//用户名单行框：

String ls_UserName
Integer li_IsExist

If key=KeyEnter! Then
 
 ls_UserName = Trim(This.Text)
 Select Count(*) into:li_IsExist From password where username=:ls_UserName;
 
 If li_IsExist<=0 Then
  
  MessageBox("错误","该用户不存在")
  This.SelectText(1,Len(This.Text))
  Return
  
 End If
 
 sle_password.SetFocus()
 
End If 

//密码单行框：

If Key=KeyEnter! Then cb_1.TriggerEvent("clicked")

//登录按钮：

String ls_Password,ls_UserPass

ls_Password = Trim(sle_password.Text)

If trim(sle_username.text)='' Then

 MessageBox("错误","请输入用户名")
 Return
 
End If

Select password into:ls_UserPass From password where username=:sle_username.text;

 

If ls_Password=ls_Userpass Then
 
 Open(w_changepass)
 Close(Parent)
 
Else
 
 MessageBox("错误","密码不存在")
 sle_password.SelectText(1,Len(sle_password.Text))
 Return
 
End If