按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
//刷新 DataGrid
m_DataGrid。Refresh（）；
//将变量中的值保存到控件中
UpdateData（FALSE）；
//将结果集置空
m_Recordset = NULL；
｝
在这段代码中，完成了执行 SQL 语句。这是因为记录集转化成 LPUNKNOWN 类型，然
后当做参数传给 DataGrid 控件的方法 SetRefDataSource 即可。
至此，程序已经可以完成对数据库的操作了，但是为了让程序更加完善，当操作结束时，
应该关闭记录集和连接，然后退出。最后还需要为“断开”和“退出”按钮编写响应函数。
“断开”按钮的响应函数如下：
void CAdoTestView：：OnDisconnect（）
｛
·363 ·
…………………………………………………………Page 375……………………………………………………………
Visual C＋＋ 6。0 程序设计从入门到精通
// TODO： Add your control notification handler code here
try
｛
//关闭连接
m_Connection…》Close（）；
｝
//捕获__error 例外
catch （__error &e）
｛
GenerateError（e。Error（）； e。Description（））；
｝
//捕获其他例外
catch（。。。） ｛｝
//清空 List Box 控件
m_ListBox。ResetContent（）；
//将 DataGrid 控件置空
m_DataGrid。SetRefDataSource（NULL）；
//将 DataGrid 控件设置成默认状态
m_DataGrid。ClearFields（）；
//刷新 DataGrid
m_DataGrid。Refresh（）；
//将 SQL 语句清空
//这里不清空连接语句，是为了断开连接以后如果重新连接不需要重新设定数据源
m_strSQL = 〃〃；
//将变量值保存到控件中
UpdateData（FALSE）；
｝
为“退出”按钮编写如下响应函数：
void CAdoTestView：：OnQuit（）
｛
// TODO： Add your control notification handler code here
try
｛
//关闭记录集
if （m_Recordset ！= NULL）
m_Recordset…》Close（）；
//关闭连接
if （m_Connection ！=NULL）
m_Connection…》Close（）；
｝
·364 ·
…………………………………………………………Page 376……………………………………………………………
第 12 章 数据库开发
//捕获例外
catch（。。。）｛｝
//退出
PostMessage（WM_QUIT）；
｝
至此，基本功能已经全部完成 。为了让用户操作起来更加方便，下面介绍为添加的辅助
功能编写代码。
（3 ）为附加功能编写代码
首先，当用户单击 List Box 控件中的某一表项时，在 DataGrid 控件中会相应地出现此表
中所有的记录。当用户在 List Box 中单击一项时，会激发 LBN_SELCHANGE 消息，下面为
此消息添加处理函数。打开“ClassWizard ”对话框，在“Class name ”下拉菜单中选择
CAdoTestView，在“Object Ids ”下拉列表中选择 IDC_LISTBOX，在“Messages ”下拉列表
中选择 LBN_SELCHANGE ，单击“Add Function ”，采用默认的函数名，然后依次单击“OK ”
和“Edit Code ”按钮，定位到函数 CAdoTestView：：OnSelchangeListbox（），代码如下：
void CAdoTestView：：OnSelchangeListbox（）
｛
// TODO： Add your control notification handler code here
//得到鼠标单击项在 List Box 中的索引值
int index = m_ListBox。GetCurSel（）；
//根据索引值得到表项的名字
m_ListBox。GetText（index； m_strTableName）；
//构造 SQL 查询语句
m_strSQL = 〃select * from ＇〃 ＋ m_strTableName ＋ 〃＇〃；
//将变量值保存到控件中
UpdateData（FALSE）；
//进行查询
OnExecute（）；
｝
接下来实现单击某列进行排序的功能 。在程序中要用到两个类：CColumn 和 CColumns 。
在 CAdoTestView。cpp 的开头，需要加入语句#include 〃column。h〃 和 #include 〃columns。h〃 ，将
头文件包含进来。
当在 DataGrid 中单击某列时，会激发 HeadClick 消息。下面为此消息添加响应函数：打
开“ClassWizard ”对话框，在“Class name ”下拉菜单中选择 CAdoTestView，在“Object Ids ”
下拉列表中选择 IDC_DATAGRID，在“Messages ”下拉列表中选择 HeadClick ，单击“Add
Function ”，采用默认的函数名，然后依次单击“OK ”和“Edit Code ”按钮，定位到函数 void
CAdoTestView：：OnHeadClickDatagrid（short ColIndex），代码如下：
void CAdoTestView：：OnHeadClickDatagrid（short ColIndex）
｛
// TODO： Add your control notification handler code here
·365 ·
…………………………………………………………Page 377……………………………………………………………
Visual C＋＋ 6。0 程序设计从入门到精通
//得到 DataGrid 中表示各列信息的类
CColumns cols = m_DataGrid。GetColumns（）；
//此参数用来得到具体某一列
VARIANT index；
//值为 index
index。intVal = ColIndex；
//类型为整型
index。vt = VT_I4；
//得到单击列
CColumn col = cols。GetItem（index）；
//得到此列的名字
m_strTableName = col。GetCaption（）；
//排序必须是在已经建立连接的情况下
if（m_Connection ！= NULL）
｛
//排序还必须在表名存在的情况下
if（m_strTableName。GetLength（） ！= 0）
｛
//得到查询语句的长度，后面会用到
int nOriginalLength = m_strSQL。GetLength（）；
//构造新的查询语句
CString strTmp = 〃 order by ＇〃 ＋ m_strTableName ＋ 〃＇〃；
if（isDesc）
｛
strTmp = strTmp ＋ 〃 desc〃；
isDesc = FALSE；
｝
else
isDesc = TRUE；
m_strSQL ＋= strTmp；
//将变量值保存到控件中
UpdateData（FALSE）；
//对新的查询语句进行查询
OnExecute（）；
//恢复原查询语句，这样做是为了再单击别的列，可以对别的列进行排序
m_strSQL。Delete（nOriginalLength； strTmp。GetLength（））；
｝
｝
｝
至此，所有的代码均已编写完毕 。这段代码已经实现了对数据库的基本操作。可见，用
·366 ·
…………………………………………………………Page 378……………………………………………………………
第 12 章 数据库开发
ADO 技术进行数据库开发非常方便，且简单易学。同时，DataGrid 控件的使用可以使得程序
员不再为数据的显示做很多繁琐的事情，从而大大简化了代码的编写。
（4 ）运行程序
对程序编译、链接，然后运行（这里要注意，在编译的时候会出现如下的警告：
msado15。tlh（403） ： warning C4146： unary minus operator applied to unsigned type； result still
unsigned 。对此微软在 MSDN 中作了说明，并建议不要理会这个警告），可以看到运行界面如
图 12…26 所示。
图 12…26 程序运行界面
单击“数据源”按钮，打开如图 12…27 所示的“数据链接属性 ”对话框。单击“提供者”
选项卡。