（4）[确定]按钮cb_1的Clicked事件脚本如下。
string ls_username,ls_password ls_username=trim(sle_1.text) ls_password=trim(sle_2.text)
if ls_username=\ messagebox(\提示\用户名和密码不能为空\else SELECT
\\
INTO :gs_username,:gs_password,:gs_admin FROM \
WHERE (\ (\= :ls_password ); if sqlca.sqlcode=0 then open(w_main) close(w_login) else
li_n=li_n - 1 if li_n<>0 then
messagebox(\提示\用户名或密码错误\
else
messagebox(\提示\错误超过3次,自动退出\
halt end if end if end if
(5)[放弃]按钮cb_2的Clicked事件脚本如下. halt
2) 设计密码修改窗口 创建窗口并设置属性 创建密码修改窗口w_mmxg,调整其大小,在窗口上放置3个静态文本控件(st_1,st_2,st_3)、2个命令按钮
控件（cb_1,cb_2）,设计完后如图3所示：
图3 密码修改窗口
为密码窗口编写脚本
（1）[确定]按钮cb_1的Clicked事件脚本如下。 string ls_password
if trim(sle_1.text)<>gs_password then messagebox(\提示\旧密码错误\else
if trim(sle_2.text)=(sle_3.text) then ls_password=trim(sle_2.text) UPDATE \ SET \ WHERE (\
(\ if sqlca.sqlcode<>0 then
messagebox(\提示\密码修改不成功\ else
close(parent)
messagebox(\提示\密码修改完成\ end if else
messagebox(\提示\两次密码不相同\ end if end if
（2）[取消]按钮cb_2的Clicked事件脚本如下。 Close(parent) 2）
设计用户管理的数据窗口和窗口 设计数据窗口
创建数据窗口“d_yhgl”,显示风格为“Grid”，数据源类型为“Quick Select”，布局如图4所示。
图4 数据窗口d_yhgl
数据窗口d_yhgl生成的SQL Select语句为： SELECT\\\\\创建窗口并设置属性
创建用户管理窗口w_yhgl，调整其大小，在窗口上放置1个数据窗口控件（dw_1）、4个命令按钮控件（ cb_1、cb_2、cb_3、cb_4），设计完后的窗口如图5所示：
图5 用户管理窗口