powerbuilder10,学生成绩数据库设计报告 - 图文(4)

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

盐城工学院经济与管理学院