分类：
2008-10-13 16:08:47
一个简单的学生成绩管理软件（ODBC开发）
作者:
前面我写过一篇，大家可能看到过，有鼓励，也有批评，但是所有这一切只有一个目的就是学好VC。我学习VC已有接近一年的时间，水平菜鸟级，而VC知识库给大家提供了一个交流的地方，大家相互学习，共同提高。感谢VC知识库各版版主！！！
在我提到完善它的很多方面，做一个小软件。我按这个思路做下去，实现了一些基本功能。程序采用对话框，界面按属性页的方式分为两部分：
“班级成绩”和“年级成绩”。
程序界面如下图:
先介绍它的使用：
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);
}
}
上面的函数都是对两个表的使用，大家可以详细看一下。 接下来介绍一下数据库和记录集的情况。采用一个数据库，内有六个数据表。按班级分 每班有三个表：学生成级表，各科成绩表，任科老师表。按记录集分，有三个记录集：学生成级记录集，各科成绩记录集，任科老师记录集。每记录集包括所有班级相同类型表。这样增加班级，只需增加表，记录集不变。 最后，欢迎高手指教！
这个程序可以说写的一无是处,问题实在是太多了,居然不晓得用组合框项目改变事件,还自己搞个定时器,实在是笑死我了 ( xiongbo 发表于 2007-10-6 17:15:00) 为什么为CBaDialog类和CNaDilalog类中的按钮添加CLinkButton类的成员变量时，编译没错，但不能运行呢？？ ( 21407141 发表于 2005-12-22 21:27:00) int i,j; 我打算按照你的方法将我的ACCESS数据库直接注册到管理工具的数据源（ODBC）。我的系统是win2000操作系统。不知如何操作数据表键值和查询键值。 欢迎加盟中国微型软件开发中心，网站正建设中。。。 看了你的《一个完善的ODBC数据库程序》， 请问查询的时候如果是两个文本型的数据 所谓抛砖引玉，建设性的态度最好 ( 民工也疯狂 发表于 2003-2-17 15:38:00) 如何在教师的信息中加点图片或其它信息，即如何使用Access数据库中OLE对象这种数据类型. ( youngbou 发表于 2002-12-26 9:42:00) 在CLhwyApp::InitInstance()中用下面这句可以简一个循环。