图4.4 2)创建窗口并设置属性
创建登录窗口（w_adminlogin1）,并调整其大小，在窗口上放置一个静态文本框控件（st_1）、一个数据窗口控件（dw_1）、四个命令按钮控件（cb_1、cb_2、cb_3、cb_4），各控件的位置和大小参照图4.3调整。其他需要修改的属性见表4—3，表中未列出的属性保留其默认值。 表4-3用户管理 对象 W_adminlogin1 St_1 属性 Title windowtype Text Alignment Bold italic textcolor Dw_1 Cb_1 Cb_2 Cb_3 Cb_4 3)编写脚本
Dataobject Vscrollbar text text text Enabled text 取值 用户管理 Response 用户管理 Center! true true Fuchsia d_yonghuguanli true 添加 删除 保存 false 取消
（1）用户管理窗口W_adminlogin1的open事件脚本如下。 dw_1.settransobject(sqlca)
dw_1.retrieve()
（2） 用户管理窗口W_adminlogin1的closequery事件脚本如下。 //判断是否有未保存的修改，提醒保存 int rt
dw_1.accepttext()
if dw_1.modifiedcount()=0 and dw_1.modifiedcount()=0 then
return 0 else
rt=messagebox(\提示\添加修改内容为保存，确定压迫退出吗?\if rt=1 then end if return 1
（3）数据窗口控件dw_1的itemchanged的事件脚本如下。 cb_3.enabled=true//激活“保存”按钮 （4）【添加】按钮cb_1的clicked事件的脚本如下 int row
row=dw_1.insertrow(0) dw_1.scrolltorow(row)
（5）【删除】按钮cb_2的clicked事件的脚本如下 dw_1.deleterow(0) cb_3.enabled=true
（6）【保存】按钮cb_3的clicked事件的脚本如下 If dw_1.update(true,false)=1 then
dw_1.resetupdate() commit;
cb_3.enabled=false else rollback;
messagebox(\错误\保存数据失败！\end if
（7）【取消】按钮cb_4的clicked事件的脚本如下 close(parent)
return 0 end if
4.3.4设计菜单
1、创建菜单对象
菜单结构如图4.5所示。菜单对象名为“m_m1”
图4.5菜单
下面编写各个菜单项的脚本，对于这些代码行，在对应的窗口没有建立之前先注释掉，在对应的窗口建立后再去掉其注释符 （1）【窗口管理】菜单下【退出窗口】菜单项的clicked的事件脚本如下。 close(w_adminlogin2)
close(w_studentlogin) close(w_techerlogin) （2）【用户管理】菜单的clicked的事件脚本如下。 open(w_adminlogin1) （3）【学生课程管理】菜单下的【课程更新】菜单项clicked的事件脚本如下。 open(w_updatecourse) （4）【学生课程管理】菜单下的【成绩管理】菜单项clicked的事件脚本如下。 open(w_chengjiguanli) （5）【学生信息管理】菜单下的【数据查询】菜单项下得【成绩查询】菜单项的clicked的事件脚本如下。
open(w_searchchenji) （6）【学生信息管理】下的【数据查询】菜单项下得【信息查询】菜单项的clicked的事件脚本如下。
open(w_search_stu_jibenxinxi) （7）【学生信息管理】下的【数据更新】菜单项的clicked的事件脚本如下。 open(w_adminlogin)
（8）【教师信息管理】下的【数据查询】菜单项的clicked的事件脚本如下。 open(w_search_teacher_jibenxinxi) （9）【教师信息管理】下的【数据更新】菜单项的clicked的事件脚本如下。 open(w_techerupdate) （10）【修改密码】菜单的clicked的事件脚本如下。 open(w_mami) （11）【系统帮助】下的【系统说明】菜单项的clicked的事件脚本如下。 open(w_systemintroduce) （12）【系统帮助】下的【系统时间】菜单项的clicked的事件脚本如下。 open(w_systemtime) （13）【退出系统】下的clicked的事件脚本如下。 close(w_login)
close(w_adminlogin2) close(w_studentlogin) close(w_techerlogin)
4.4设计学生基本信息管理模块
本模块实现学生基本信息的查询、更新、维护
4.4.1 学生基本信息查询如图4.6（以管理员身份登录）
1)创建数据窗口对象
图4.6
创建数据窗口d_search_stu_jibenxinxi，显示风格“Grid”，数据源为“Sql Select”， 2)创建窗口并设置属性
创建登录窗口（w_search_stu_jibenxinxi）,并调整其大小，在窗口上放置两个静态文本框控件（st_1、st_2）、一个数据窗口控件（dw_1）、两个命令按钮控件（cb_1、cb_2），各控件的位置和大小参照图4.6调整。St_3的FaceName为幼圆，textsize=20，textcolor=fuchsia 3)编写代码
（1）先在窗口的open事件写如下代码 dw_1.settransobject(sqlca)
（2）【查询】按钮的clicked的事件代码如下所示 string ls1
ls1=trim(sle_1.text) if ls1=\
messagebox(\提示\请输入数据！\
else
dw_1.retrieve(ls1) end if
sle_1.setfocus()
（3）【取消】按钮的clicked的事件代码如下所示
dw_1.reset() sle_1.text=\
4.4.2 学生基本信息更新如下图4.7（以管理员身份登录）
1)创建数据窗口对象
创建数据窗口d_updatestu，显示风格“Grid”，数据源为“Sql Select”， 2)创建窗口并设置属性