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

if ddlb_nation.text='' then messagebox(\提示信息\请选择民族信息！\ ddlb_nation.setfocus () return else ls_nation=ddlb_nation.text end if

if ddlb_party.text='' then messagebox(\提示信息\请选择政治面貌信息！\ ddlb_party.setfocus () return else ls_party=ddlb_party.text end if

//select zxh学号 // into :ll_i //from zxh_xsb

//where zxh学号=:ll_id ; //if ll_i<>\ then

// messagebox(\错误信息\学号第\号重号！请改正。\// sle_no.setfocus () // return //end if

ls_name=trim (sle_name.text) ls_home=trim(sle_address.text) ls_tel=trim(sle_tel.text)

ls_phone=trim(sle_phone.text) ls_address=trim(sle_address.text)

update zxh_xsb set

zxh姓名=:ls_name, zxh性别=:ls_sex, zxh民族=:ls_nation,

zxh政治面貌=:ls_party, zxh出生时间=:ld_birthday, zxh联系方式=:ls_phone, zxh家庭电话= :ls_tel, zxh通讯地址=:ls_address,

zxh个人简历=:mle_profile.text where zxh学号=:ll_id; if sqlca.sqlcode=0 then updateblob zxh_xsb set zxh照片=:ib_photo where zxh学号=:ll_id using sqlca; if sqlca.sqlnrows>0 then

31

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

sle_no.text=\ sle_name.text=\ sle_birthday.text=\ mle_profile.text=\ sle_address.text=\ sle_tel.text=\ sle_phone.text='' p_1.picturename=' ' ddlb_sex.text='' ddlb_nation.text='' ddlb_party.text='' sle_no.setfocus () messagebox('提示信息','数据和照片添加成功!') else messagebox('提示信息','数据添加成功，照片提交失败!') end if commit; sle_no.text=\ sle_name.text=\ sle_birthday.text=\ mle_profile.text=\ sle_address.text=\ sle_tel.text=\ sle_phone.text='' p_1.picturename=' ' ddlb_sex.text='' ddlb_nation.text='' ddlb_party.text='' sle_no.setfocus () close(parent) else messagebox('提示信息',sqlca.sqlerrtext) end if 4）“退出”按钮的click事件

close(parent) 14.课程安排录入界面

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

1）“确定”按钮click事件 int li_time

string ls_subject,ls_teacher date ld_date

ld_date=wf_GetOleDate()

if ddlb_subject.text=\

messageBox(\缺少数据\请选择课程名称。\ return else

ls_subject=trim(ddlb_subject.text) end if

ls_teacher=trim(sle_teacher.text) if ls_teacher=\

messagebox(\缺少数据\请输入任课老师姓名。\ return end if

li_time=integer (sle_time.text)

INSERT INTO \ ( \ \ \ \ VALUES ( :ls_subject, :ld_date, :ls_teacher, :li_time ) ; if sqlca.sqlcode=0 then

sle_time.text=\sle_teacher.text=\else messagebox('提示信息',\提交数据失败！\ end if

2)函数wf_getoledate Return

date(string(ole_date.object.year)+\

33

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

15.学生数据查询界面

1） 窗口open事件

tab_1.tabpage_name.dw_name.settransobject(sqlca) tab_1.tabpage_home.dw_home.settransobject(sqlca)

tab_1.tabpage_birthday.dw_birthday.settransobject(sqlca) tab_1.tabpage_party.dw_party.settransobject(sqlca) tab_1.tabpage_party.dw_party.retrieve(\共青团员\2） 选项页1中的“查询”按钮click事件 string ls_name

ls_name=trim (sle_name.text) if not ls_name=\ long a a= dw_name.retrieve(ls_name) if a=0 then messagebox(\提示信息\查无此人信息\ end if else messagebox(\数据不全\请输入待查询学生的姓名！\end if

sle_name.setfocus()

3） 选项页2中的“查询”按钮click事件 string ls_home

ls_home=trim(sle_home.text)

if not ls_home=\

ls_home=\ long a a= dw_home.retrieve(ls_home)

34

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

if a=0 then messagebox(\提示信息\查无此人信息\ end if else messagebox(\数据不全\请输入待查询学生的地区名称。\end if

sle_home.setfocus()

4） 选项页3中的“查询”按钮click事件 string ls_start,ls_END date ld_start,ld_END

if isDate(sle_datestart.text) then if IsDate (sle_dateEND.text) then ld_start=date (sle_datestart.text) ld_END=date(sle_dateEND.text) long a a= dw_birthday.retrieve(ld_start,ld_END) if a=0 then messagebox(\提示信息\查无此人信息\ end if else messagebox(\数据错误\请重新输入结束日期。\ end if else messagebox(\数据错误\请重新输入开始日期。\end if

sle_datestart.setfocus()

5） 选项页4中的“团员”单选按钮click事件 dw_party.retrieve(\共青团员\

6） 选项页4中的“党员”单选按钮click事件 dw_party.retrieve(\中共党员\

7） 选项页4中的“群众”单选按钮click事件 dw_party.retrieve(\群众\

35

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