新建 文本文档.txt

来自「奖学金评定系统」· 文本 代码 · 共 27 行

select * from 学生成绩1 where alltrim(学号)=alltrim(thisform.pageframe1.page2.text1.value) into cursor ww
   if alltrim(学号)=alltrim(thisform.pageframe1.page2.text1.value)
      d=总分
     close all
 use 学生成绩1
 set order to 总分
  skip 1
  a=总分
  skip 1
  b=总分
  skip 4
  c=总分
use
do case
  case d>=a
  thisform.pageframe1.page2.text4.value="一等奖学金"
  case d>=b
  thisform.pageframe1.page2.text4.value="er等奖学金"
   case d>=c
  thisform.pageframe1.page2.text4.value="三等奖学金"
  otherwise
  thisform.pageframe1.page2.text4.value="meiyou"
endcase
  else
  messagebox("查无此人")
endif