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
盐城工学院经济与管理学院