【正文】 績上傳 39。 (sql)。 ()。 (教師授課情況 )。 UpdateData(false)。 } 15 BEGIN_EVENTSINK_MAP(TeaPage, CDialog) //{{AFX_EVENTSINK_MAP(TeaPage) ON_EVENT(TeaPage, IDC_DATAGRIDTEA, 600 /* Click */, OnClickDatagridtea, VTS_NONE) //}}AFX_EVENTSINK_MAP END_EVENTSINK_MAP() void TeaPage::OnClickDatagridtea() { // TODO: Add your control notification handler code here //AfxMessageBox(())。 return。 CString local_ame。 CString local_o。 CString strtemp。 CString sql。 BOOL datepass = 0。 local_o = ()。 local_ame = ()。 local_class = ()。 //是否以上傳成績 isrflag = _ttoi(())。 if (0==()||0==()) { return。 if (IDNO == AfxMessageBox(strtemp,MB_YESNO)) { return。%s39。 (_bstr_t(sql))。 ()。 } if (adoBOF) { MoveFirst()。 local_rdate = (LPCSTR)_bstr_t(var)。 strtemp = (4)。 strtemp = (5,2)。 strtemp = (7,3)。 strtemp = (8)。 strtemp = (3)。 strtemp = (3,3)。 strtemp = (2)。 CTime radtetime(year,month,day,hour,minite,second)。 //AfxMessageBox((%Y,%m,%d,%H,%M,%S))。 if (currentt radtetime) //已超過可修改時間內 { datepass = 1。 } } 17 (%s班 %s 成績表 ,local_class,local_ame)。 (exec gradenew %d,39。,39。,39。,isrflag+datepass,m_tno,local_class,local_o)。 (sql)。 if (datepass) { (false)。 //允許修改 } } 4 學生窗口源代碼 /********************/ void StuPage::OnButtonlog() //登入 { // TODO: Add your control notification handler code here UpdateData(true)。 CString sql。 //CString password。 if (0 == ()) { AfxMessageBox(學號不能為空 !!!!)。 } thisSetDlgItemText(IDC_BUTTONLOG,....)。 (_bstr_t(sql))。 ()。 } if (adoBOF) { 18 MoveFirst()。 //AfxMessageBox((LPCSTR)_bstr_t(var))。 ()。 } var = GetCollect(sname)。 (strtemp)。 (_bstr_t(sql))。 } var = GetCollect(failecount)。 //AfxMessageBox(strtemp)。 } /***查詢平均分 ******/ (select avg(grade) as average from grade\ where sno=%s,m_sno)。 if (adoEOF) { AfxMessageBox(沒有可查詢的成績 ,請等待老師上傳 !!!)。 return。 } var = GetCollect(average)。 19 /***更新 grid表格 *******/ (select ame as 39。,\ grade as 39。,tname as 39。 from student,grade,course,teacher,tcourse\ where = %s and = and = \ and = and = \ and = ,m_sno)。 ()。 ()。 UpdateData(false)。 thisSetDlgItemText(IDC_BUTTONLOG,未登入 )。姓名 39。學號 39。班級 39。 (sql)。 m_sno = _T()。 m_fail = 0。 ()。 UpdateData(false)。 select upe = count(),sum=sum(grade)from student,grade where = and = o and sclass = sclass and grade =80 if sum0 begin set average=sum end select stoe = count(),sum=sum(grade) from student,grade where = and = o and sclass = sclass and grade =60 and grade80 if sum0 begin set average=average+sum end select downs = count(),sum=sum() from student,grade 21 where = and = o and sclass = sclass and grade 60 select ame=ame from course where o = o select tname=tname from teacher where tno = tno if sum0 begin set average=average+sum end set pass=convert(real,(stoe+upe),1)/(stoe+upe+downs) set average = average /(stoe+upe+downs) insert into temp(sclass,ame,tname,upe,stoe,downs,average,pass) values(sclass,ame,tname,upe,stoe,downs,average,pass) fetch next from local_cursor into sclass,tno,o end close local_cursor deallocate local_cursor select sclass as 39。,ame as39。,tname as39。, upe as39。,stoe as39。, downs as39。,average as39。, pass*100 as39。from temp drop table temp /*************************/ /************************************************************** * 存儲過程 gradenew * isr smallint 0還未上傳， 1為已上傳但在修改限制日期 ,2為不可修改 * tno 教師號， sclass 班級， o課程號 ***************************************************************/ create proc gradenew isr smallint, tno char(11), sclass char(7), o char(6) as set nocount on if isr=0 begin insert into grade(sno,o,grade) select sno,o,0 from student where sclass = sclass end if isr!=2 begin 22 update tcourse set isr = 1, rdate = getdate() where sclass=sclass and tno=tno and o=o end /*****新成績默認置 0，再反饋給教師修改 *****/ select sname as 39。, as 39。,grade as 39。 from grade,student where = and sclass = sclass and o = o /*****選出該班該門課程的成績返回給老師 ****/