基于DAO的学生成绩管理软件

核心提示：3、而OnGetdispinfoList(long row,long column) 最为有用，可以在很多方面调用：void CListDlg::OnGetdispinfoList(long row,long column){if(!m_pRecordSet)return;COleVariant varValue;fo

3、而OnGetdispinfoList(long row,long column) 最为有用，可以在很多方面调用：

void CListDlg::OnGetdispinfoList(long row,long column)
{　
　
　　if(!m_pRecordSet)
　　return;
　　COleVariant varValue;
　　for(long i=0;iSetAbsolutePosition(i);//Set the file to desired index
　　　　}
　　　　catch(CDaoException* e)
　　　　{
　　　　AfxMessageBox(e->m_pErrorInfo->m_strDescription,
　　　　　　　　　　MB_ICONEXCLAMATION );
　　　　e->Delete();
　　　　return;
　　　　}
　　
　　　　for(long j=0;jGetFieldValue(j, varValue);
　　　　　 　　 else
　　　　　　 m_pRecordSet->GetFieldValue(0, varValue);
　　　　}
　　　　catch(CDaoException* e)
　　　　{
　　　　　　AfxMessageBox(e->m_pErrorInfo->m_strDescription,
　　　　　　　　　　MB_ICONEXCLAMATION );
　　　　　　e->Delete();
　　　　　　return;
　　　　}
　　
　　　　const VARIANT* variant = LPCVARIANT(varValue);
　　　　
　　　　if(variant->vt & VT_BYREF)
　　　　　　return;
　　　　CString st;
　　　　switch(variant->vt)
　　　　{　
　　　　　　case VT_ERROR:{　　
　　　　　　　　　　　　　　st="Error";　　　　　　　　　　
　　　　　　　　　　　　　　break;
　　　　　　　　　　　　　}
　　　　　　case VT_I2:{ 　　
　　　　　　　　　　　　　　st.Format("%d", variant->iVal);
　　　　　　　　　　　　　　break;
　　　　　　　　　　　 }
　　　　　　case VT_I4:{
　　　　　　　　　　　　　 st.Format( "%d", variant->lVal);
　　　　　　　　　　　　　　break;
　　　　　　　　　　　 }
　　　　　　case VT_R4:{　
　　　　　　　　　　　　　 st.Format( "%.2f", variant->fltVal);
　　　　　　　　　　　　　
　　　　　　　　　　　　　　break;}
　　　　　　　　　　
　　　　　　case VT_R8:{　　st.Format( "%.2f", variant->dblVal);
　　　　　　　　　　　　　　break;
　　　　　　　　　　　 }
　　　　　　case VT_CY:{　　COleCurrency c(varValue);
　　　　　　　　　　　　　 st = c.Format();//ie. 1.00
　　　　　　　　　　　　　　break;
　　　　　　　　　　　 }
　　　　　　case VT_DATE:{　　COleDateTime t(variant->date);
　　　　　　　　　　　　　　st = t.Format( "%B %d, %Y" );//Day of Week, Month Day, Year
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　break;
　　　　　　　　　　　　 }
　　　　　　case VT_BSTR:{　 st = V_BSTRT( &varValue );//convert BSTR to CString
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　break;
　　　　　　　　　　　　}
　　　　　　case VT_BOOL:{　　if(variant->boolVal)
　　　　　　　　　　　　　　st="TRUE";
　　　　　　　　　　　　　　else
　　　　　　　　　　　　　　　　st= "FALSE";
　　　　　　　　　　　　　　break;
　　　　　　　　　　　　 }
　　　　　　case VT_UI1:{st=(CString)((char*)variant->bVal);
　　　　　　　　　　　　　　break;
　　　　　　　　　　　　}
　　　　　　　　default:{
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　break;
　　　　　　　　　　　　}
　　　　}
　　　if(j==0)　　　　
　　　m_List1.InsertItem(i,st,0);
　　　else
　　　m_List1.SetItemText(i,j,st);
　　　　}
　　　}
}　

其它的可以看源码。

注意：

• （1） 这个程序没有实现以前的成绩统计的功能，其实这些功能的实现不要用表，建按钮实现就可，比较简单，有兴趣可以一试。这里把重点放在"增减科目"上。
• （2） 程序完后，时间紧张，没有优化，大家有兴趣可以优化一下。下一步，我的重点放在这上面，准备用COM把很多部分做成组件，欢迎有兴趣的读者和我交流。
• （3） 界面也没有花时间美化。