一個簡單的學(xué)生成績管理軟件（ODBC開發(fā)） 
--------------------------------------------------------------------------------

  發(fā)表日期：2005年1月18日   出處：vckbase.com    作者：劉永超     【編輯錄入：webmaster】  
 


 
程序運(yùn)行效果截圖:
 
 

前面我寫過一篇《一個完善的ODBC數(shù)據(jù)庫程序》，大家可能看到過，有鼓勵，也有批評，但是所有這一切只有一個目的就是學(xué)好VC。我學(xué)習(xí)VC已有接近一年的時間，水平菜鳥級，而VC知識庫給大家提供了一個交流的地方，大家相互學(xué)習(xí)，共同提高。感謝VC知識庫各版版主！！！ 
在《一個完善的ODBC數(shù)據(jù)庫程序》我提到完善它的很多方面，做一個小軟件。我按這個思路做下去，實(shí)現(xiàn)了一些基本功能。程序采用對話框，界面按屬性頁的方式分為兩部分： “班級成績”和“年級成績”。 

程序界面如圖: 
先介紹它的使用： 
1. 選中“班級成績”時，首先選擇班級，這里我只實(shí)現(xiàn)了兩個班級管理。按開始按鈕，三個列表框顯示選中班級的三個記錄集。“開始”按鈕禁止，而其余對記錄集操作的按鈕允許。實(shí)現(xiàn)了增加記錄，刪除記錄，修改記錄，查尋記錄，記錄排序功能。比以前完善的地方主要在查尋記錄，記錄排序上。查尋可以按多中情況，而排序通過單擊列表頭實(shí)現(xiàn)，可按升序和降序，每一列都可實(shí)現(xiàn)排序。因?yàn)橛昧硕嘤涗浖栽诠δ軐?shí)現(xiàn)上麻煩了很多，大家可以看源程序。大家看過以后，可能覺得班級各科目列表，老師列表用文件或數(shù)組更容易實(shí)現(xiàn)，因?yàn)樗鼈冇涗泜€數(shù)有限，固定。我之所以用數(shù)據(jù)庫，是想學(xué)好ODBC，掌握多記錄集編程。增加記錄，刪除記錄，修改記錄跟以前思路相同，只是由于學(xué)生成績列表的變化引起科目成績的變化，大家在源程序中看處理過程。下面主要看一下查尋記錄和記錄排序。 

查尋記錄 

void CBaDialog::OnFind() 
{ 
// TODO: Add your control notification handler code here 
CFinDialog dlg; 
if( dlg.DoModal()==IDOK) 
{ 
this->Select(); 
m_bSet.Close(); 

if(dlg.m_Getstring2==">=") 
m_Set.m_strFilter.Format("[%s]>=%.2f",dlg.m_Getstring1,dlg.m_find); 
if(dlg.m_Getstring2=="=") 
m_Set.m_strFilter.Format("[%s]=%.2f",dlg.m_Getstring1,dlg.m_find); 
if(dlg.m_Getstring2=="<=") 
m_Set.m_strFilter.Format("[%s]<=%.2f",dlg.m_Getstring1,dlg.m_find); 
m_ListCtrlx.DeleteAllItems(); 
m_Set.Requery(); 
if(m_Set.IsEOF()) 
{ 
AfxMessageBox("沒有符合條件的記錄"); 
m_Set.Close(); 
return ; 
} 
else 
this->Show(); 

} 
} 

記錄排序 void CBaDialog::OnColumnclickList3(NMHDR* pNMHDR, LRESULT* pResult) 
{ 
NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR; 

if(FALSE== m_bS) 
{ 
 int k= pNMListView->iSubItem; 
 Sort(!m_bIsAsc,k); 
 m_ListCtrlx.DeleteAllItems(); 
 this->Show(); 
} 
*pResult = 0; 
} 

void CBaDialog::Sort(BOOL isAsc,int secol) 
{  
if(m_Set.IsOpen()) 
   m_Set.Close(); 
this->Select(); 
m_bSet.Close(); 
CODBCFieldInfo fieldInfo; 
m_Set.GetODBCFieldInfo(secol,fieldInfo); 
if(isAsc) 
{ 
m_Set.m_strSort=fieldInfo.m_strName+" ASC"; 
    m_bIsAsc=TRUE; 
} 
else 
{ 
m_Set.m_strSort=fieldInfo.m_strName+" DESC"; 
m_bIsAsc=FALSE; 
} 
m_Set.Requery(); 

} 

2．選中"年級成級"，先選中"全部記錄"則整個年級的情況顯示出來。這時最下面的"顯示按鈕"禁止取消，按一下，年級的各科情況顯示出來。下面是"全部記錄"和"顯示記錄"。 

全部記錄 void CNaDilalog::OnAll() 
{ 
// TODO: Add your control notification handler code here 
if(m_Set.IsOpen()) 
m_Set.Close(); 
m_ListCtrlx.DeleteAllItems(); 
m_Set.m_strFilter.Empty(); 
m_Set.Open(); 
m_nRecordCount=this->Show(); 
m_Set.Open(AFX_DB_USE_DEFAULT_TYPE,"[NO2STUDENT]"); 
m_nRecordCount+=this->Show(); 
CString s; 
s.Format("%d",m_nRecordCount); 
GetDlgItem(IDC_STATICALL)->SetWindowText(s); 
GetDlgItem(IDC_SHOW)->EnableWindow(TRUE); 

} 

其中Show()用來顯示在列表中，如下： int CNaDilalog::Show() 
{ 

 int k=0; 

 do 
 {  
 CString s; 
 s.Format("%d",m_Set.m_column1); 
 m_ListCtrlx.InsertItem(k,s,0); 
 m_ListCtrlx.SetItemText(k,1,m_Set.m_column2); 
 s.Format("%.1f",m_Set.m_column3); 
 m_ListCtrlx.SetItemText(k,2,s); 
 s.Format("%.1f",m_Set.m_column4); 
 m_ListCtrlx.SetItemText(k,3,s); 
 s.Format("%.1f",m_Set.m_column5); 
 m_ListCtrlx.SetItemText(k,4,s); 
 s.Format("%.1f",m_Set.m_column6); 
 m_ListCtrlx.SetItemText(k,5,s); 
 s.Format("%.1f",m_Set.m_column7); 
 m_ListCtrlx.SetItemText(k,6,s); 
 s.Format("%.1f",m_Set.m_column8); 
 m_ListCtrlx.SetItemText(k,7,s); 
 s.Format("%.2f",m_Set.m_column9); 
 m_ListCtrlx.SetItemText(k,8,s); 

 k++; 
 m_Set.MoveNext(); 

 } while(!m_Set.IsEOF()); 
 m_Set.Close(); 
 return k; 
  
} 

顯示記錄 void CNaDilalog::OnShow() 
{ 
// TODO: Add your control notification handler code here 
m_ListCtrlj.DeleteAllItems(); 
  CString s;  
  m_bSet.Open(); 
  int i=0; 
  m_bSet.MoveFirst(); 
  do 
{  
  m_ListCtrlj.InsertItem(i,m_bSet.m_column1,0); 
  i++; 
  m_bSet.MoveNext(); 
} while(!m_bSet.IsEOF()); 
  m_bSet.MoveFirst(); 
  for(i=0;i<=4;i++) 
  {   
  score[i][1]=m_bSet.m_column2; 
  score[i][3]=(float)m_bSet.m_column4; 
  score[i][4]=(float)m_bSet.m_column5; 
  if(i!=4) 
  m_bSet.MoveNext(); 
  } 
  m_bSet.Close(); 

  m_bSet.Open(AFX_DB_USE_DEFAULT_TYPE,"[NO2OBJECT]"); 
  for(i=0;i<5;i++) 
  { 
score[i][1]+=m_bSet.m_column2; 
score[i][2]=score[i][1]/m_nRecordCount; 
score[i][3]+=(float)m_bSet.m_column4; 
score[i][4]+=(float)m_bSet.m_column5; 
if(!m_bSet.IsEOF()) 
  m_bSet.MoveNext(); 
  } 
  m_bSet.Close(); 
 for(i=0;i<5;i++) 
 { 
s.Format("%.1f",score[i][1]); 
m_ListCtrlj.SetItemText(i,1,s); 
s.Format("%.2f",score[i][2]); 
  m_ListCtrlj.SetItemText(i,2,s); 
  s.Format("%d",(int)score[i][3]); 
  m_ListCtrlj.SetItemText(i,3,s); 
  s.Format("%d",(int)score[i][4]); 
  m_ListCtrlj.SetItemText(i,4,s); 
} 
} 

上面的函數(shù)都是對兩個表的使用，大家可以詳細(xì)看一下。 接下來介紹一下數(shù)據(jù)庫和記錄集的情況。采用一個數(shù)據(jù)庫，內(nèi)有六個數(shù)據(jù)表。按班級分 每班有三個表：學(xué)生成級表，各科成績表，任科老師表。按記錄集分，有三個記錄集：學(xué)生成級記錄集，各科成績記錄集，任科老師記錄集。每記錄集包括所有班級相同類型表。這樣增加班級，只需增加表，記錄集不變。 

注意點(diǎn)： 

1． 數(shù)據(jù)源由程序注冊，讀者提醒過在運(yùn)行前先判斷數(shù)據(jù)源是否注冊過。我通過操作注冊表設(shè)置鍵值和查尋鍵值實(shí)現(xiàn)。考慮到各主機(jī)的具體情況不同，操作系統(tǒng)不同，我沒有把這部分加入，以免損壞你的注冊表，有興趣的可以一試。 
2． 刪除記錄前可以在列表中選中，然后點(diǎn)擊刪除即可，不用對話框。修改前，選中記錄，點(diǎn)擊修改按鈕，則記錄值顯示在修改對話框中，只需修改所需改動的地方即可。 
這里沒有用這種方法，考濾的是刪除記錄需要密碼，有權(quán)限的才可以。修改可以采用這種方法，讀者可以一試。 
3． 程序達(dá)到實(shí)用的目的還有很遠(yuǎn)，可以增加導(dǎo)出記錄和打印功能。增加參數(shù)設(shè)置，能增加班級，增減科目等。這需要建一個可重用基類，不很容易，我正在做。 
4．程序剛完成，優(yōu)化的比較少，層次不清晰，我正在優(yōu)化。 
最后，歡迎高手指教！