下一条.prg

来自「排课管理系统」· PRG 代码 · 共 18 行

select  课程设置
   thisform.text1.value=课程设置.课程
   thisform.text2.value=课程设置.主讲
   thisform.text3.value=课程设置.学时
   thisform.text4.value=课程设置.学分
   thisform.text5.value=课程设置.班级
   thisform.text6.value=课程设置.人数
if  eof()
   messagebox('已到尾记录!!','提示')
 else
   skip
   thisform.text1.refresh
    thisform.text2.refresh
    thisform.text3.refresh
    thisform.text4.refresh
    thisform.text5.refresh
    thisform.text6.refresh
endif