哪位高手来写个注释

//=================================================================//    切换用户//=================================================================string s_user,s_pass,s_backpicint i_powerlong l_backcolor//取得用户输入的用户名（或者是用户编码）s_user=sle_user.text//取得用户输入的用户密码s_pass=sle_pass.text//从用户表(user0)中读取输入的用户的power、back_color、back_pic等与软件有关的配置信息select power,back_color,back_pic        into :i_power,:l_backcolor,:s_backpic    from user0        where user_name=:s_user and password=:s_pass;if sqlca.sqlcode=0 then //如果能够读取到用户的配置，说明用户输入的用户名和用户密码是存在并且匹配的    //调用w_main中的自定义函数closesheets，用来关闭当前通过opensheet打开的所有mdi子窗口    w_main.closesheets()    //将全局变量gs_user赋值为本次输入的用户名，表示当前的操作员变更为s_user了，同时赋值其他跟操作员有关的全局变量    gs_user=s_user    gi_power=i_power    gl_backcolor=l_backcolor    //w_main的WindowType为mdihelp!， dormitory是你当前pbt中的application对象。    //修改w_mian窗口下面的状态栏的默认提示文本为：'账号:'+gs_user    //当鼠标在w_main的菜单上移动时，如果想应的菜单项设置了MicroHelp属性，则w_mian窗口下面的状态栏的提示文本会变更为该MicroHelp属性，移开后又会恢复为默认的microhelpdefault    dormitory.microhelpdefault='账号:'+gs_user    //根据不同的用户变更不同的主界面背景图    if s_backpic<>'' then          w_back.p_1.picturename=s_backpic    end if    //关闭当前窗口，表示用户切换成功    close(parent)else    //用户不存在或者与密码错误，清空已经输入的密码，并将焦点定位在密码输入栏    sle_pass.text=''    sle_pass.setfocus()end if
------解决方案--------------------
string s_user,s_pass,s_backpic
int i_power
long l_backcolor//定义变量

s_user=sle_user.text//获取用户名
s_pass=sle_pass.text//获取密码

select power,back_color,back_pic
into :i_power,:l_backcolor,:s_backpic
from user0
where user_name=:s_user and password=:s_pass;//根据用户名和密码获取权限、背景色、背影图片
if sqlca.sqlcode=0 then //成功
w_main.closesheets()主窗口关闭sheet
gs_user=s_user//全局变量 赋值  
gi_power=i_power//全局变量 赋值  
gl_backcolor=l_backcolor//全局变量 赋值  
dormitory.microhelpdefault='账号:'+gs_user  //设置微帮助
if s_backpic<>'' then  //设置背景图片
w_back.p_1.picturename=s_backpic
end if
close(parent)
else //用户名或密码不正确  
sle_pass.text=''
sle_pass.setfocus()
end if