rm.combo1.value="学号"
a=allt(thisform.text1.value)
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource='selectxh,kcdh,cjfromcjwherexh=aintocursorcjj1'
casethisform.combo1.value="姓名"
a=allt(thisform.text1.value)
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource='selectxh,xm,kcdh,cjfromcj,xswherexh=aandxs.xh=cj.xhintocursorcjj1'
casethisform.combo1.value="课程代号"
a=allt(thisform.text1.value)
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource='selectxh,kcdh,cjfromcjwherexh=aintocursorcjj1'
casethisform.combo1.value="专业代号"
a=allt(thisform.text1.value)
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource='selectxh,zydh,kcdh,cjfromcj,xswherexh=aandxs.xh=cj.xhintocursorcjj1'
casethisform.combo1.value="班级代号"
a=allt(thisform.text1.value)
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource='selectxh,bjdh,kcdh,cjfromcj,xswherexh=aandxs.xh=cj.xhintocursorcjj1'
otherwisemessageb("你输入的"+thisform.combo1.value+"有误或无此"+thisform.combo1.value+"的学生的成绩!")
endcase
??
??
??
??
1
上一篇:
VFP学生档案管理(论文和程序)
下一篇:
第1章 现在完成时和现在完成进行时