基於DAO的學產生績管理軟體

前面我已經寫過幾篇關於資料庫的文檔，這一篇還是它的後繼篇。前面都是用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);
}