一个完善的ODBC数据库程序

大家知道用VC开发数据库程序，一般有两种选择：ODBC或ADO。ODBC出现的较早，用的人也多。ADO是微软正大力支持和发展的技术， 致力于学习VC的程序员应该现在就学习这种技术。
在这个例字中我还是采用了自己更为熟悉的ODBC。程序的实现有两个关键地方：一、ODBC两个类的运用。二、LISTCONTROL控件的使用。程序的视图用CRecordView类，具体配置可以参考源程序。程序的实现主要在视图文件中完成，实现的功能有：增加记录、删除记录、修改记录、排序记录、查寻记录，并且在控件表格中直观的显示。本程序采用的是AECESS数据库，当然也可采用ORACLE等其它数据库。整个程序的界面简洁、直观(见下图)。


下面介绍具体步骤:
首先根据数据库的内容确定表格的样式，这里如下设计：
1．在视图头文件中给List Control控件加入Contrl 变量 m_ListCtrl。在实现文件的OnInitialUpdate()函数中加入如下语句：

//设表格表题和列的宽度
m_ListCtrl.SetExtendedStyle(LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES);
m_ListCtrl.InsertColumn(0,_T("学号"),LVCFMT_IMAGE|LVCFMT_LEFT);
 m_ListCtrl.InsertColumn(1,_T("姓名"));
 m_ListCtrl.InsertColumn(2,_T("数学"));
 m_ListCtrl.InsertColumn(3,_T("英语"));
int j;
 for(j=0;j<4;j++)
 {
   m_ListCtrl.SetColumnWidth(j ,90);
 }

这样列表题就设置好，同时设置列的宽度。还要特别注意的一点，要在List Control控件的属性页Styles中设report属性。因为程序一运行时，要求所有记录都显示出来所以接着增加了一个Show()函数，为了它的重用性，我对它进行了封装。在后面的程序中大家可以看到它的好处。Show()函数如下：

int  CLhwyView::Show()
{
 int i=0;
 m_pSet->MoveFirst();
   do
  {  
  CString s;
        s.Format("%d",m_pSet->m_column1);
        m_ListCtrl.InsertItem(i,s,0);
    m_ListCtrl.SetItemText(i,1,m_pSet->m_column2);
        s.Format("%d",m_pSet->m_column3);
       m_ListCtrl.SetItemText(i,2,s);
        s.Format("%d",m_pSet->m_column4);
        m_ListCtrl.SetItemText(i,3,s);
  i++;
        m_pSet->MoveNext();
  
  }  while(!m_pSet->IsEOF());
        m_pSet->MoveFirst();
  return i;
}

这样整个程序初始化的工作就基本完成。因为数据库中域用的是汉字，所以记录集中出现了
奇怪的m_column变量。如果用的是英文，就不会出现这种不直观的现象。这里m_column1对应数据库中的学号，m_column2对应数据库中的姓名，其它依次类推。在数据库中我把姓名字段的数据类型设为文本，其余设为数字。而List Control控件只显示文本。所以在显示以前把不是文本的变量都用Format（）函数进行了文本格式化。
2．为了实现程序的基本功能，在视图上增加了五个按钮，在视图实现文件中对按钮响应。五个函数如下：

//增加记录
void CLhwyView::OnAdd() 
{
 // TODO: Add your control notification handler code here
 
  CAddDialog dlg;
 if( dlg.DoModal()==IDOK)
   {  
  if(dlg.m_Xuehao==0)
  {
   AfxMessageBox("学号不可为零！");
  }
  else
  {
   m_pSet->AddNew();
      m_pSet->m_column1=dlg.m_Xuehao;
       m_pSet->m_column2=dlg.m_strName;
      m_pSet->m_column3=dlg.m_Maths;
   m_pSet->m_column4=dlg.m_English;
       m_pSet->Update();
      m_pSet->Requery();
      m_pSet->MoveLast();

  CString s;
      s.Format("%d",dlg.m_Xuehao);
      m_ListCtrl.InsertItem(0,s,0);
  m_ListCtrl.SetItemText(0,1,dlg.m_strName);
  s.Format("%d",dlg.m_Maths);
  m_ListCtrl.SetItemText(0,2,s);
       s.Format("%d",dlg.m_English);
       m_ListCtrl.SetItemText(0,3,s);
  }
 }   
        m_pSet->MoveFirst();
}

//删除记录
void CLhwyView::OnDelect() 
{
 // TODO: Add your control notification handler code here

    CDeleteDialog dlg;
 if(dlg.DoModal()==IDOK)
 {
   if(dlg.m_Password!=1234)
   AfxMessageBox("你没有权限删除记录！请重输入密码：");
   else
  {   
   BOOL b=FALSE;
   m_pSet->MoveFirst();
   do
   {
    if(dlg.m_Xuehao!=m_pSet->m_column1)
    m_pSet->MoveNext();
    else
   {   
    m_ListCtrl.DeleteAllItems();
    b=TRUE;
    m_pSet->Delete();
     
    m_pSet->Requery();
    this->Show();
    m_pSet->MoveFirst();
    break;
   } 
  }while(!m_pSet->IsEOF());
           
 if(b==FALSE)
 AfxMessageBox("没有此记录");
   }
 }
}

//查寻记录
void CLhwyView::OnFind() 
{
 // TODO: Add your control notification handler code here

 BOOL k=FALSE;
 CFindDialog dlg;
 if(dlg.DoModal()==IDOK)
 {
   m_pSet->MoveFirst();
   m_ListCtrl.DeleteAllItems();
   do{
  if(dlg.m_Maths!=m_pSet->m_column3)
  m_pSet->MoveNext();
  else
   {
    k=TRUE;
       CString s;
    s.Format("%d",m_pSet->m_column1);
    m_ListCtrl.InsertItem(0,s);
    m_ListCtrl.SetItemText(0,1,m_pSet->m_column2);
    s.Format("%d",m_pSet->m_column3); 
       m_ListCtrl.SetItemText(0,2,s);
             s.Format("%d",m_pSet->m_column3);
             m_ListCtrl.SetItemText(0,3,s);  
    m_pSet->MoveNext();
  } 

 }  while(!m_pSet->IsEOF());
        
 if(k==FALSE)
 AfxMessageBox("没有符和条件的记录");
 }
}

//修改记录
void CLhwyView::OnEdit() 
{
 // TODO: Add your control notification handler code here
  CEditDialog dlg;
 
  if(dlg.DoModal()==IDOK)
 {
   if(dlg.m_Password!=1234)
   AfxMessageBox("你没有权限更改记录！请重输入密码：");
   else
    {   
     BOOL b=FALSE;
     m_pSet->MoveFirst();
     do
   {
    if(dlg.m_Xuehao!=m_pSet->m_column1)
    m_pSet->MoveNext();
    else
    {   
    m_ListCtrl.DeleteAllItems();
    m_pSet->Edit();
    b=TRUE;
       m_pSet->m_column1=dlg.m_Xuehao;
    m_pSet->m_column2=dlg.m_strName;
    m_pSet->m_column3=dlg.m_Maths;
    m_pSet->m_column4=dlg.m_English;
    m_pSet->Update();

     
    m_pSet->Requery();
    this->Show();
    m_pSet->MoveFirst();
    break;
    } 
   }while(!m_pSet->IsEOF());
           if(b==FALSE)
     AfxMessageBox("没有此记录");
  }
 }
 
}

//取全部记录
void CLhwyView::OnAll() 
{
 m_ListCtrl.DeleteAllItems();
 this->Show();
}

//排序记录
void CLhwyView::OnSort() 
{
 m_ListCtrl.DeleteAllItems();
    m_pSet->m_strSort="[学号]";
 m_pSet->Requery();
 this->Show();
}

因为在查寻记录后，有时需要看所有记录。所以增加了一个onAll（）函数用来显示所有记录。在修改记录和删除记录中设置密码（1234）必需加以确认。这样整个程序就大致完成。
3．对程序的界面进行了美化，可以参考源程序。

特别说明：
在使用程序前请先使用控制面板中的ODBC配置工具注册ODBC数据源，选择Microsoft Access Driver,数据库选择源程序目录lhwy下的student数据库。程序中对应的代码看 ClhwySet.cpp如下程序行：

CString CLhwySet::GetDefaultConnect()
{                              //注册说明
 return _T("ODBC;DSN=not");  //在注册数据源库时，数据源名取not。当然也可换名，
}                              //但程序中的not也换成同样的名

CString CLhwySet::GetDefaultSQL()
{
 return _T("[fen]");           //表名，选fen表
}

假如您从方便用户的角度考虑，可以采用在程序中动态创建数据源，请参考VC知识库中的这篇文章
最后这个程序还可以有许多可以完善和增强功能的地方。例如可以做一个完善的学生成绩管理软件，增加统计功能，计算个人总成绩和平均成绩。再增加一个记录集辅助显示班级各科目的平均成绩、及格率、优秀率等。增强查寻功能（本程序只完成了据数学成绩查寻记录），可以据学号、姓名、科目查寻，也可以查寻及格、优秀的记录。增强排序功能，按各种情况排序。有兴趣的读者可以完善它。也可以变化一下用在工程项目中，我正在做的一个
通讯程序中上位机要存放下面传来各种信息，并且值班员要不时查寻一些有用的信息，这个程序变化一下用在里面效果很好。