Do where sqlca.sqlcode=0 namecur I=tv_1.insertitemlast(),outname,2) L0Op while sqlca.sqlcode=0 Tv_1:deleteitem(i) End if Close namecur 3ddb1为下拉列表框，st1,t2为静态文本框。该窗口打开时，ddb_1从数据库中的 院系表中读出了所有系名，当选择了某系时s1,2分别显示该系系领导和系办电话。 (1)在w1的open事件下编程。 String outname Declare namecur cursor for Select distinct department From院系 Where department=:ddlb_1.text Open namecur: sqlea sqlcode=-1 then Else Fetch namecur into:outname; Do where sqlca.sqlcode=0 Ddlb I add em (o Fetch namecur into:outname LOOp End if Close namecur (2)在ddlb_I的selectionchanged事件下编程。 Select系领导，系办电话 From院系 Where系名=：ddb_l.tet 1texI=系领导 2.text=系办电话 4、W_quey上有控件ddb1和dw_l,在ddlb1中选择系名后dw1中显示该系的学生。 (1)如果通过带参数的数据窗口对象来完成，请问w_1中的数据窗口对象的数据源为 quick select还是sal select。. 答：sl lect 2) 为ddb1的selectionchanged事件编程 Dw 1.settransobject (sqlca) Dw_1.retricve(ddlb_l.text) 5、当选择了某单选框并输入选择条件，按回车后，w_1中显示满足条件的记录。请对以 第11页共7页第 11 页 共 17 页 Do where sqlca .sqlcode = 0 Frtch namecur into :outname ; I=tv_1 .insertitemlast ( ) ,outname,2) L00p while sqlca .sqlcode = 0 Tv_1 :deleteitem (i) End if Close namecur ; 3、 ddlb_1 为下拉列表框，st_1,st_2 为静态文本框。该窗口打开时，ddlb_1 从数据库中的 院系表中读出了所有系名，当选择了某系时 st_1,st_2 分别显示该系系领导和系办电话。 （1） 在 w_1 的 open 事件下编程。 String outname Declare namecur cursor for Select distinct department From 院系 Where department = :ddlb_1.text Open namecur ; If sqlca.sqlcode = -1 then Messagebox ( “sql error “, sqlca ,sqlerrtext ) Else Fetch namecur into :outname ; Do where sqlca .sqlcode = 0 Ddlb_1.additem (outname) Fetch namecur into :outname ; L00p End if Close namecur ; （2） 在 ddlb_1 的 selectionchanged 事件下编程。 Select 系领导，系办电话 From 院系 Where 系名= :ddlb_1.text :st_1.text = 系领导 :st_2.text = 系办电话 4、w_query 上有控件 ddlb_1 和 dw_1，在 ddlb_1 中选择系名后 dw_1 中显示该系的学生。 （1） 如果通过带参数的数据窗口对象来完成，请问 dw_1 中的数据窗口对象的数据源为 quick select 还是 sql select。 答：sql select。 （2） 为 ddlb_1 的 selectionchanged 事件编程。 Dw_1.settransobject (sqlca) Dw_1.retricve (ddlb_1.text) 5、当选择了某单选框并输入选择条件，按回车后，dw_1 中显示满足条件的记录。请对以