登录窗口的Open事件
if RegistryGet("HKEY_LOCAL_MACHINE\Software\收费系统\主键1", "Operator_last", RegString!, ls_name) = 1 then
sle_userid.text = ls_name
sle_userid.selecttext( 1, len(ls_name))
end if
登录按钮的clicked事件
string ls_name, ls_pwd ,gs_pwd
int ii_time
if ls_name = "" and ls_pwd = "" then
messagebox("错误","请输入用户名和密码", Question!)
sle_userid.setfocus()
return
end if
if ls_name<>"" then
//取用户名和密码
SELECT password_user
INTO :gs_pwd
FROM UserInfo
WHERE User_name = :ls_name;
if SQLCA.SQLCODE <> 0 then
ii_time++
MessageBox("登录失败","不存在的用户名:"+ls_name)
sle_userID.setfocus()
sle_pwd.text = ""
sle_userID.text = ""
end if
if f_encrypt(ls_pwd) <> gs_pwd then
if ii_time = 3 then
MessageBox("登录失败","对不起,您无权使用本系统!", stopsign!)
sle_userid.enabled = false
sle_pwd.enabled = false
登录窗口的Open事件
if RegistryGet("HKEY_LOCAL_MACHINE\Software\收费系统\主键1", "Operator_last",
应该为:
if RegistryGet("HKEY_LOCAL_MACHINE\Software\我的程序\主键1", "Operator_last",