分类：
2008-10-14 14:56:51
一个完善的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;
}
这样整个程序初始化的工作就基本完成。因为数据库中域用的是汉字，所以记录集中出现了//增加记录
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）必需加以确认。这样整个程序就大致完成。
CString CLhwySet::GetDefaultConnect()
{ //注册说明
return _T("ODBC;DSN=not"); //在注册数据源库时，数据源名取not。当然也可换名，
} //但程序中的not也换成同样的名
CString CLhwySet::GetDefaultSQL()
{
return _T("[fen]"); //表名，选fen表
}
假如您从方便用户的角度考虑，可以采用在程序中动态创建数据源，请参考VC知识库中的这篇文章
你建立的是基于对话框的应用程序吗？还有那打印菜单的响应函数是怎么添加的？我到类向导那边去看怎么没看到你的菜单有关联响应函数啊？有没有更具体的文档呢？ ( wolfme 发表于 2008-4-30 9:19:00) To stevenwsoft: 怎样把你的程序改成连接到sql上呢 ( s45678900 发表于 2007-5-19 17:02:00) 欢迎加盟中国微型软件开发中心，网站正建设中。。。 我按照你提供的思路作了一个 数据库base,假设工程名为base1,如果我希望通过base1的菜单连到另一个表,名为data2,也用listcontrol控件,应该如何设置? stevenwsoft,對不起,我的電郵之前的打錯了,應該是: mysloth: ListControl 是一個listView的控件喔,滿好用的,多試試看喔 stevenwsoft,可以給我你的修改及提示如何做嗎?謝囉~~ 为什么一点击一个纪录程序就报错：该程序执行了非法操作？ 请问笔者怎样解决？ ( loverain 发表于 2003-3-1 0:41:00) 为什么一点击一个纪录程序就报错：该程序执行了非法操作？ 请问笔者怎样解决？ ( loverain 发表于 2003-3-1 0:41:00)