2008年(909)
分类:
2008-05-06 21:28:47
下载本文源代码
前面我写过一篇《一个完善的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); } }上面的函数都是对两个表的使用,大家可以详细看一下。 接下来介绍一下数据库和记录集的情况。采用一个数据库,内有六个数据表。按班级分 每班有三个表:学生成级表,各科成绩表,任科老师表。按记录集分,有三个记录集:学生成级记录集,各科成绩记录集,任科老师记录集。每记录集包括所有班级相同类型表。这样增加班级,只需增加表,记录集不变。
最后,欢迎高手指教!
chinaunix网友2008-08-05 12:44:25
SAP99,支持下,也欢迎访问我的博客, SAP资料多多 http://sap99.cublog.cn PA系列教材 web_dynpro_for_java Web_Dynpro_for_abap abap资料-在SAP中查询TABL SAP实施顾问宝典 SAP配置(录像)-维护供应 SAP配置(录像)-定义税务 sap全面概述中文