前面我写过一篇《一个完善的ODBC数据库程序》，大家可能看到过，有鼓励，也有批评，但是所有这一切只有一个目的就是学好VC。我学习VC已有接近一年的时间，水平菜鸟级，而VC知识库给大家提供了一个交流的地方，大家相互学习，共同提高。感谢VC知识库各版版主！！！ 
在《一个完善的ODBC数据库程序》我提到完善它的很多方面，做一个小软件。我按这个思路做下去，实现了一些基本功能。程序采用对话框，界面按属性页的方式分为两部分： “班级成绩”和“年级成绩”。 

程序界面如图: 
先介绍它的使用： 
1. 选中“班级成绩”时，首先选择班级，这里我只实现了两个班级管理。按开始按钮，三个列表框显示选中班级的三个记录集。“开始”按钮禁止，而其余对记录集操作的按钮允许。实现了增加记录，删除记录，修改记录，查寻记录，记录排序功能。比以前完善的地方主要在查寻记录，记录排序上。查寻可以按多中情况，而排序通过单击列表头实现，可按升序和降序，每一列都可实现排序。因为用了多记录集，所以在功能实现上麻烦了很多，大家可以看源程序。大家看过以后，可能觉得班级各科目列表，老师列表用文件或数组更容易实现，因为它们记录个数有限，固定。我之所以用数据库，是想学好ODBC，掌握多记录集编程。增加记录，删除记录，修改记录跟以前思路相同，只是由于学生成绩列表的变化引起科目成绩的变化，大家在源程序中看处理过程。下面主要看一下查寻记录和记录排序。 

查寻记录 

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); 
} 
} 

上面的函数都是对两个表的使用，大家可以详细看一下。 接下来介绍一下数据库和记录集的情况。采用一个数据库，内有六个数据表。按班级分 每班有三个表：学生成级表，各科成绩表，任科老师表。按记录集分，有三个记录集：学生成级记录集，各科成绩记录集，任科老师记录集。每记录集包括所有班级相同类型表。这样增加班级，只需增加表，记录集不变。 

注意点： 

1． 数据源由程序注册，读者提醒过在运行前先判断数据源是否注册过。我通过操作注册表设置键值和查寻键值实现。考虑到各主机的具体情况不同，操作系统不同，我没有把这部分加入，以免损坏你的注册表，有兴趣的可以一试。 
2． 删除记录前可以在列表中选中，然后点击删除即可，不用对话框。修改前，选中记录，点击修改按钮，则记录值显示在修改对话框中，只需修改所需改动的地方即可。 
这里没有用这种方法，考滤的是删除记录需要密码，有权限的才可以。修改可以采用这种方法，读者可以一试。 
3． 程序达到实用的目的还有很远，可以增加导出记录和打印功能。增加参数设置，能增加班级，增减科目等。这需要建一个可重用基类，不很容易，我正在做。 
4．程序刚完成，优化的比较少，层次不清晰，我正在优化。 
最后，欢迎高手指教！