v_1.setitem(1,3,soutage) I Loop while sqlcasqlcode=0 Lv_1.deleteitem(j) End if Close namecur (I)写出菜单项“注册新用户”的clicked事件的代码 Open (w_new) (2)写出菜单“退出”的clicked事件中的代码。 Close (parentwindow) (3)在s1中输入新用户名，如果此用户名已存在则出现消息框，提示“此用户名已 存在，请另输入用户名”。 Select username From user If username=sle_1.text then msgbox((提示，”此用户名己存在，请另输入用户名 (4)写出cb_1的clicked事件中的代码。 Insert into user Values (:sle_1.text,:sle_2.text,:ddlb_1.text): 8、口完成统计功能。按学号分组显示学生平均成线，并显示总评成绩 (1)如果计算域平均成绩名为compute_1,写出语句使平均成绩不及格者的平均成绩红 色显示。 Dw_1.object.compute_1.color="0-t if (compute_1<60,255,0)" (2)在数据窗口对象的画板上计算域总评成绩和页码分别放在哪个区域， 答：分别放在summart区域和footer区域。 9、窗口打开时，树开视图显示数据库中所有学生的姓名，当你选邦一个姓名时，在右侧的 单行文本编辑框中显示学生的详细信息。 ()为该窗口的o n事件编得 tv_1.insertitemfirst(0. 学生 tw_l.insertitemfirst(L,“张明”，2) tw_1.insertitemfirst(l,“王红"，2) tw_1.insertitemfirst(L,“周萧萧”，2) (2)为tw_1的selectionchanged事件编程 int I treeviewitem 1 lv I=tv 1.finditem(current Treeltem!,) Tv_l.getitem(L,lw)） 第13页共7页第 13 页 共 17 页 Lv_1.setitem (I, 3, soutage) I++ Loop while sqlca.sqlcode=0 Lv_1.deleteitem ( j) End if Close namecur ; 7、 （1） 写出菜单项“注册新用户”的 clicked 事件的代码。 Open (w_new) （2） 写出菜单“退出”的 clicked 事件中的代码。 Close (parentwindow) （3） 在 sle_1 中输入新用户名，如果此用户名已存在则出现消息框，提示“此用户名已 存在，请另输入用户名”。 Select username From user If username = sle_1.text then msgbox(“提示”,” 此用户名已存在，请另输入用户名”) （4） 写出 cb_1 的 clicked 事件中的代码。 Insert into user Values (:sle_1.text , :sle_2.text , :ddlb_1.text )； 8、窗口完成统计功能。按学号分组显示学生平均成绩，并显示总评成绩。 （1） 如果计算域平均成绩名为 compute_1，写出语句使平均成绩不及格者的平均成绩红 色显示。 Dw_1.object.compute_1.color = “0~t if (compute_1<60, 255, 0)” （2） 在数据窗口对象的画板上计算域总评成绩和页码分别放在哪个区域。 答：分别放在 summart 区域和 footer 区域。 9、窗口打开时，树开视图显示数据库中所有学生的姓名，当你选择一个姓名时，在右侧的 单行文本编辑框中显示学生的详细信息。 （1） 为该窗口的 open 事件编程 tv_1.insertitemfirst (0, “学生”, 1) tv_1.insertitemfirst (1, “张明”, 2) tv_1.insertitemfirst (1, “王红”, 2) tv_1.insertitemfirst (1, “周萧萧”, 2) （2） 为 tv_1 的 selectionchanged 事件编程 int I treeviewitem l_lv I=tv_1.finditem(currentTreeItem ! , 0) Tv_1.getitem (I, l_lv)