下控件编程。 (1)rb_1 sle_1.enabled=true (2)sle_1 dw-l.setfilter("姓名=”+sle_l.text+”& dw_1.filter() cb_1.visible=true (3)cb1 rb_1.checked=false rb 2 checked =false sle_1.text= sle 2.text = sle 3.text=" sle 4 text sle_1.enable=false sle 2.enable fals sle 3.enable false sle4.enable=false 6、w_1为列表视图，报表风格，当wst打开时wit中显示数据库中学生表的所有学生 的信息。请为w_1的open事件编程。 Integer I.I.outage String outname,outsex,soutage Lv1.addcolumn(姓名”，lef,80o) Lv_1.addcolumn(性别，lefl,50o) Lv1.addcolum(年龄，lel,20o Declare namecur cursor for Select姓名，性别，年龄 From学生： Open namecur: sqlca.sqlcode=1 then Messagebox ("sqlerror".sqlcasqlerrtext) Else M Do Fetch namecur into:outname,:outsex,outage Lv 1.setitem(I,2,outname Lv_1.setitem(I,2,outsex) Soutage string (outage) 第12页共17页 第 12 页 共 17 页 下控件编程。 （1） rb_1 sle_1.enabled= true (2) sle_1 dw-1.setfilter (“姓名= ‘”+ sle_1.text +” ‘”) dw_1.filter ( ) cb_1.visible = true (3)cb_1 rb_1.checked = false rb_2.checked = false rb_3.checked = false rb_4.checked = false sle_1.text = “” sle_2.text = “” sle_3.text = “” sle_4.text = “” sle_1.enable = false sle_2.enable = false sle_3.enable = false sle_4.enable = false 6、lv_1 为列表视图，报表风格，当 w_list 打开时 lv_list 中显示数据库中学生表的所有学生 的信息。请为 w_1 的 open 事件编程。 Integer I, j , outage String outname , outsex , soutage Lv_1.addcolumn (“姓名”，left! , 800) Lv_1.addcolumn (“性别”，left! , 500) Lv_1.addcolumn (“年龄”，left! , 200) Declare namecur cursor for Select 姓名，性别，年龄 From 学生； Open namecur ; If sqlca.sqlcode = 1 then Messagebox (“sql.error” , sqlca.sqlerrtext ) Else I=1 Do Fetch namecur into :outname, :outsex, :outage ; J=I Lv_1.setitem(I, 2, outname ) Lv_1.setitem(I, 2, outsex ) Soutage = string (outage)