vf教務(wù)信息管理系統(tǒng)課程設(shè)計(參考版)
2024-09-19 09:37本頁面
【正文】 系統(tǒng)用戶表 39。) go top endif clear all =.f. set escape off M_js= .T. M_hs= .T. 課程設(shè)計說明書 沈 陽 大 學(xué) mypath=left(sys(16),rat(\,sys(16))) set defa to amp。,0+64+0,39。 INTO CURSOR tempcursor thisform . = tempcursor endif scan if 成績 =60 num_pass =num_pass + 1 else num_nopass = numm_nopass + 1 endif sharescore =sharescore +成績 endscan 及格人數(shù) .Value=num_pass 不及格人數(shù) .Value=num_nopass 平均成績 .Value=sharescore/(num_nopass+num_pass) clear events sele 4 locate for bh=upper(allt()) if not found() =messagebox(39。 課程設(shè)計說明書 沈 陽 大 學(xué) where 學(xué)生 .姓名 = 值 .Value 。 from 教務(wù)信息 !學(xué)生 INNER JOIN 教務(wù)信息 !成績 。 order by 成績 .課程編號 。 On 學(xué)生 .學(xué)號 = 成績 .學(xué)號 。 into cursor tempcursor messagebox ( ) =tempcursor 課程設(shè)計說明書 沈 陽 大 學(xué) endif scan if 成績 =60 num_pass = num_pass + 1 else num_nopass = num_nopass +1 endif sharescore =sharescore +成績 endscan 不及格人數(shù) .value =num_nopass 及格人數(shù) .value =num_pass 平均成績 .value =sharescore /(num_nopass +num_pass) 統(tǒng)計個人成績 模塊代碼： num_pass = 0 num_nopass = 0 sharescore = 0 if 查詢依據(jù) .Text=學(xué)號 SELECT 學(xué)生 .學(xué)號 ,學(xué)生 .姓名 ,成績 .課程編號 ,成績 .成績 。 where 課程 .課程編號 = 值 .value。 on 課程 .課程編號 =成績 .課程編號 。 from 教務(wù)信息 !學(xué)生 INNER JOIN 教務(wù)信息 !成績 。 order by 學(xué)生 .學(xué)號 。 on 學(xué)生 .學(xué)號 =成績 .學(xué)號 。 inner join 課程信息！課程 。 INTO CURSOR tempcursor thisform . = tempcursor endif scan if 成績 = 60 num_pass =num_pass + 1 else num_nopass = numm_nopass + 1 endif sharescore =sharescore +成績 課程設(shè)計說明書 沈 陽 大 學(xué) endscan 不及格門數(shù) .Value=num_nopass 及格門數(shù) .Value=num_pass 平均成績 .Value=sharescore/(num_nopass+num_pass) 第二段 num_pass=0 num_nopass=0 sharescore=0 if 查詢依據(jù) .text=課程編號 SELECT 學(xué)生
公司管理相關(guān)推薦
鄂ICP備17016276號-1