sle_1.setfocus() 5.学生数据查询
1）窗口的open事件
tab_1.tabpage_1.dw_1.settransobject(sqlca)
tab_1.tabpage_2.dw_2.settransobject(sqlca) tab_1.tabpage_3.dw_3.settransobject(sqlca) 2）选项页1中“查询”按钮的click事件 string ls_name
ls_name=trim(sle_1.text) if not ls_name=\ dw_1.retrieve(ls_name) else messagebox(\数据不全!\请输入待查询的学生姓名!\end if
sle_1.setfocus()
16
盐城工学院经济与管理学院
3）选项页2中“查询”按钮的click事件 string ls_name
ls_name=trim(sle_2.text) if not ls_name=\ dw_2.retrieve(ls_name) else messagebox(\数据不全!\请输入待查询的专业名!\end if
sle_2.setfocus()
4）选项页3中“查询”按钮的click事件 date ld_start,ld_end
if IsDate (sle_3.text) then if IsDate (sle_4.text) then ld_start=date(sle_3.text) ld_end=date(sle_4.text) dw_3.retrieve(ld_start,ld_end) else messagebox(\数据错误!\请重新输入结束日期!\ end if else messagebox(\数据错误!\请重新输入开始日期!\end if
sle_3.setfocus() 6学生成绩查询
1）窗口的open事件
dw_1.settransobject(sqlca) 2）“查询”按钮的click事件 string xh,kc
xh=trim(sle_1.text) kc=trim(sle_2.text) if xh=\ messagebox(\非法的条件输入\请输入正确的的查询条件！\else dw_1.retrieve(xh,kc) end if
17
盐城工学院经济与管理学院
sle_1.setfocus()
3）除”按钮的click事件 dw_1.reset() sle_1.text=\sle_2.text=\sle_1.setfocus() 7.用户定义查询
1）“查询”按钮的click事件 int m,n string mysql,str mysql=mle_1.text lb_1.reset()
declare mycur dynamic cursor for sqlsa; prepare sqlsa from :mysql using sqlca; describe sqlsa into sqlda;
open dynamic mycur using descriptor sqlda; fetch mycur using descriptor sqlda; m=sqlda.numoutputs
do while sqlca.sqlcode=0 str=\ for n=1 to m choose case sqlda.outparmtype[n] case typeinteger!,typedecimal!,typedouble! str=str+string(sqlda.getdynamicnumber(n))+\ case typestring! str=str+trim(sqlda.getdynamicstring(n))+\ case typedate! str=str+string(sqlda.getdynamicdate(n))+\ end choose next lb_1.additem(str)
18
盐城工学院经济与管理学院
fetch mycur using descriptor sqlda; loop
close mycur; 8.学生信息管理
1）窗口的open事件
dw_1.settransobject(sqlca) 2） 窗口的closequery事件 dw_1.AcceptText()
IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THEN
CHOOSE CASE MessageBox(\操作提示\数据已经发生变化,是否保存?\CASE 1
dw_1.update(); CASE 2
Return 0//不做任何操作直接关闭窗口 CASE 3
Return 1//不会运行Close Event,维持原来的情况 END CHOOSE END IF 3）“返回”按钮的click事件 close(w_zxh18_stuupdata) 4）“添加”按钮的click事件 ong row
row=dw_1.insertrow(0) dw_1.setrow(row) dw_1.scrolltorow(row) dw_1.setfocus() 5）“更新”按钮的click事件
dw_1.update() dw_1.reset() 6）“删除”按钮的click事件 dw_1.deleterow(dw_1.getrow())
19
盐城工学院经济与管理学院
7）“插入”按钮的click事件 long row
row=dw_1.insertrow (dw_1.getrow()) dw_1.setrow(row) dw_1.scrolltorow(row) dw_1.setfocus() 8）“显示”按钮的click事件
dw_1.retrieve() 9）“下一记录”按钮的click事件 dw_1.scrollnextrow()
dw_1.selectrow(dw_1.getrow() - 1,false) dw_1.selectrow(dw_1.getrow(),true) 10）“上一记录”按钮的click事件 dw_1.scrollpriorrow()
dw_1.selectrow(dw_1.getrow() +1,false) dw_1.selectrow(dw_1.getrow(),true) 9. 课程信息管理
1）窗口的open事件
dw_1.settransobject(sqlca) 2）窗口的closequery事件 dw_1.AcceptText()
IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THEN
CHOOSE CASE MessageBox(\操作提示\数据已经发生变化,是否保存?\CASE 1
dw_1.update(); CASE 2
Return 0//不做任何操作直接关闭窗口 CASE 3
Return 1//不会运行Close Event,维持原来的情况 END CHOOSE END IF
20
盐城工学院经济与管理学院