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()) 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) 10.学生成绩管理
1） 窗口open事件
dw_1.settransobject(sqlca 2） 窗口closequery事件 dw_1.AcceptText()
21
盐城工学院经济与管理学院
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事件 string str1,str2 integer chenj integer xuef str1=sle_1.text str2=sle_2.text
chenj=integer(sle_3.text) xuef=integer(sle_4.text)
insert into zxh_xs_cj values (:str1,:str2,:chenj,:xuef) using sqlca; if sqlca.sqlcode=0 then messagebox('提示信息','数据提交成功！') dw_1.retrieve() sle_1.text='' sle_2.text='' sle_3.text='' sle_4.text='' sle_1.setfocus() else messagebox('提示信息','数据提交失败！') end if 4）“清除”按钮的click事件 sle_1.text=\ sle_2.text=\ sle_3.text=\ sle_4.text=\
dw_1.reset() 5）“返回”按钮的click事件 close(w_zxh18_achieveupdata) 6）“显示记录”按钮的click事件 dw_1.retrieve() 7）“删除记录”按钮的click事件 dw_1.deleterow(dw_1.getrow()) dw_1.update()
11学生基本信息输入
22
盐城工学院经济与管理学院
1）“选择照片”按钮的click事件 string ls_pathname,ls_filename integer li_value,li_filenum,loops,i
long ll_filelength,bytes_read,new_read,new_pos blob b,tot_b
li_value=getfileopenname('选择照片',+ls_pathname,ls_filename,\if li_value=1 then setpointer(hourglass!) ll_filelength=filelength(ls_filename) li_filenum=fileopen(ls_filename,+streammode!,read!,lockread!) if ll_filelength>66560 then messagebox('提示信息','照片最大不能超过65k！请重新选择照片') return end if if ll_filelength> 32765 then // if mod(ll_filelength,32765)=0 then // loops=ll_filelength/32765 // else // loops=(ll_filelength/32765)+1 // end if
loops=(ll_filelength - 1)/32765+1 else loops=1 end if new_pos=1 for i= 1 to loops bytes_read=fileread(li_filenum,b) tot_b=tot_b+b next fileclose(li_filenum)
23
盐城工学院经济与管理学院
ib_photo=tot_b p_1.setpicture(ib_photo) elseif li_value= - 1 then messagebox('选择照片','打开文件错误！') end if 2）“保存”按钮的click事件 string ll_id, ll_i date ld_birthday
string ls_name,ls_nation,ls_sex,ls_home,ls_tel,ls_party,ls_phone,ls_address
if sle_no.text=\ messagebox(\缺少数据\请输入学号\ sle_no.setfocus () return
elseif sle_name.text=\ messagebox(\缺少数据\请输入学生姓名\ sle_name.setfocus () return
elseif sle_address.text=\ messagebox(\缺少数据\请输入家庭住址信息！\ sle_name.setfocus () return end if
if sle_birthday.text<>\ if isDate (sle_birthday.text) then ld_birthday=date (sle_birthday.text) else messagebox(\输入数据错误\请使用“年-月-日”的日期格式\ sle_birthday.setfocus () return end if else messagebox('提示信息','请输入出生时间！') end if
ll_id=sle_no.text
if ddlb_sex.text='' then messagebox(\提示信息\请选择性别信息！\ ddlb_sex.setfocus () return else ls_sex=ddlb_sex.text end if
if ddlb_nation.text='' then messagebox(\提示信息\请选择民族信息！\
24
盐城工学院经济与管理学院
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)
INSERT INTO zxh_xsb ( zxh学号, zxh姓名, zxh性别, zxh民族, zxh政治面貌, zxh出生时间, zxh联系方式, zxh家庭电话, zxh通讯地址, zxh个人简历 )
VALUES ( :ll_id, :ls_name, :ls_sex, :ls_nation, :ls_party, :ld_birthday,
25
盐城工学院经济与管理学院