前面我寫過一篇《一個完善的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．程序剛完成，優化的比較少，層次不清晰，我正在優化。
