基于DAO的学生成绩管理软件

核心提示：前面我已经写过几篇关于数据库的文档，这一篇还是它的后继篇，基于DAO的学生成绩管理软件，前面都是用ODBC开发的，现在改用DAO，下面看一下开发过程：因为科目是可以变化的，所以我没有用一个具体的CDaoRecordset类，DAO有一个缺点，没有同步支持ACCESS的最新版本

前面我已经写过几篇关于数据库的文档，这一篇还是它的后继篇。前面都是用ODBC开发的，现在改用DAO，DAO有一个缺点，没有同步支持ACCESS的最新版本，还要转换到早期的版本，不知道微软是咋搞的。废话少说，首先看一下软件的用法：

• 1、对话框中有两个菜单项用于创建班级和增减科目，一项下面有两个子项。其中"增加班级"只有在选中对话框"组合控件"中的一个班级然后按"开始"按钮后，才可以使用，因为只有先得到表的结构，才能按此结构创建新表。而其它三个子项恰相反，只有程序刚打开还没有选择班级按"开始按钮"或选择"组合控件"中的"关闭班级"项按"开始"按钮后才可以使用，这是因为只有把所有班级记录集关闭后，这三项才能安全工作。
• 2、增加记录与以前有一点不同，打开增加记录对话框后，大家可以看到不同，因为科目是随"增减科目"变化的，所以增加记录的科目要动态变化。
• 3、修改记录只有选中列表控件中的一条记录后，按"修改记录"按钮才可以。
• 4、其它的与以前版本相同。

下面看一下开发过程：

因为科目是可以变化的，所以我没有用一个具体的CDaoRecordset类，因此大部分的

功能是用SQL语句实现的。

1、首先看一下OnInitDialog()：

BOOL CListDlg::OnInitDialog()
{
　　CDialog::OnInitDialog();
　
　　SetWindowText("学生成绩管理");
　　// IDM_ABOUTBOX must be in the system command range.
　　ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
　　ASSERT(IDM_ABOUTBOX < 0xF000);
　　CMenu* pSysMenu = GetSystemMenu(FALSE);
　　if (pSysMenu != NULL)
　　{
　　　　CString strAboutMenu;
　　　　strAboutMenu.LoadString(IDS_ABOUTBOX);
　　　　if (!strAboutMenu.IsEmpty())
　　　　{
　　　　　　pSysMenu->AppendMenu(MF_SEPARATOR);
　　　　　　pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
　　　　}
　　}
　
　　SetIcon(m_hIcon, TRUE);　　　　　　// Set big icon
　　SetIcon(m_hIcon, FALSE);　　　　// Set small icon
　　GetDlgItem(IDC_STRAT)->EnableWindow(FALSE);
this->Enable(FALSE);
　　m_pDB=new CDaoDatabase;
　　CString sPath;
　　GetModuleFileName(NULL,sPath.GetBufferSetLength(MAX_PATH+1),MAX_PATH);
　　sPath.ReleaseBuffer ();
　　int nPos;
　　nPos=sPath.ReverseFind (''\\'');
　　sPath=sPath.Left (nPos);
　　nPos=sPath.ReverseFind(''\\'');
　　sPath=sPath.Left (nPos);
　　CString lpszFile = sPath + "\\db6.mdb";
　　try{
　　　　m_pDB->Open(lpszFile);
　　}
　　catch(CDaoException* e)
　　{
　　　　AfxMessageBox(e->m_pErrorInfo->m_strDescription,MB_ICONEXCLAMATION);
　　　　delete m_pDB;
　　　　e->Delete();
　　　　return FALSE;
　　}
　　
CDaoTableDefInfo tabInfo;
　　int nTableDefCount = m_pDB->GetTableDefCount();
　　for (int i = 0; i < nTableDefCount; i++)
　　{
　　　　m_pDB->GetTableDefInfo(i,tabInfo);
　　　　if (tabInfo.m_lAttributes & dbSystemObject)
　　　　　　continue;
　　　　m_Com.AddString(tabInfo.m_strName);
　　}
　　m_pRecordSet=new CDaoRecordset(m_pDB);
m_bTF=TRUE;
　　m_bCR=FALSE;
　　return TRUE;　// return TRUE　unless you set the focus to a control
}

它的主要任务是打开数据库和表的名字

2、下面是最为重要的OnStatr（）:

void CListDlg::OnStrat()
{　
　　if(m_pRecordSet->IsOpen())
　　m_pRecordSet->Close();
　
　　m_List1.DeleteAllItems();
　　if(nField!=0)
　　{
　　for(long i=0;i<nField;i++)
　　{
　　m_List1.DeleteColumn(0);
　　}
　　}
　　
　　m_Com.GetLBText(m_Com.GetCurSel(),m_GetString);
　　if(m_GetString=="关闭班级")
　　{　
　　　　m_bTF=TRUE;
　　　　m_bCR=FALSE;
　　　　return ;
　　}
　　m_bTF=FALSE;
　　m_bCR=TRUE;
　　CString strSQL="SELECT * FROM " + m_GetString;
try{
　　　　m_pRecordSet->Open(dbOpenDynaset, strSQL);
　　　　m_pRecordSet->m_strFilter.Empty();
　　}
　　catch(CDaoException *e)
　　{　
　　　　AfxMessageBox(e->m_pErrorInfo->m_strDescription,MB_ICONEXCLAMATION);
　　　　delete m_pRecordSet;
　　　　m_pDB->Close();
　　　　delete m_pDB;
　　　　e->Delete();
　　　　return ;
　　}
　　
　　if(m_pRecordSet != NULL)
　　{
　　　　m_pImageList = new CImageList();
　　　　m_pImageList->Create(IDB_BITMAP4, 16, 1, RGB(255,0,0));
　　　　m_List1.SetImageList(m_pImageList, LVSIL_SMALL);　　/* set extended stlyes*/
　　　　
　　DWORD dwExStyle = LVS_EX_FULLROWSELECT | LVS_EX_GRIDLINES | /*LVS_EX_SUBITEMIMAGES |*/
　　　　m_List1.SetExtendedStyle(LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES);
　　　　LVS_EX_HEADERDRAGDROP | LVS_EX_TRACKSELECT;
　　　　LV_COLUMN lvColumn;
　　　　lvColumn.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM;
　　　　lvColumn.fmt = LVCFMT_LEFT;　　lvColumn.cx = 67;
　　　　nField=m_pRecordSet->GetFieldCount();
　　　　for(int i = 0; i < nField; i++) // set up columns
　　　　{　　
　　　　　　CDaoFieldInfo m_fieldinfo;
　　　　　　m_pRecordSet->GetFieldInfo(i, m_fieldinfo);//get field name
　　　　　　int len = m_fieldinfo.m_strName.GetLength();
　　　　　　CString temp = m_fieldinfo.m_strName;
　　　　　　TCHAR* szBuffer = new TCHAR[len + 1];
　　　　　　strcpy(szBuffer, temp.GetBuffer(len));
　　　　　　temp.ReleaseBuffer();
　　　　　　lvColumn.pszText = szBuffer;
　　　　　　m_List1.InsertColumn(i, &lvColumn);//insert column　　　　
　　　　　　delete szBuffer;
　　　　}
　　　　/*set number of items in ListView*/
　　　　m_pRecordSet->MoveFirst();
　　　　m_pRecordSet->MoveLast();
　　 long count =m_pRecordSet->GetRecordCount();//Get number of records
　　　 this->OnGetdispinfoList( count, nField);
　　
　　}
　　GetDlgItem(IDC_STRAT)->EnableWindow(FALSE);
　　this->Enable(TRUE);
}