01_9_14_8.asp.html
来自「有用的VC教程,包括编程思想编程技巧程序效率等方面的指导」· HTML 代码 · 共 376 行 · 第 1/2 页
HTML
376 行
<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<TITLE>计算机世界网-在无绑定模式下使用DBGrid</TITLE></HEAD>
<style>
.a14{font-size:14px;text-indent:25px;line-height:20px}
.f{font-size:18px;color=#0f3ccd}
img{border:0px;}
td,p,input{font-fammily:verdana,宋体;font-size:12px;}
A:link {text-decoration:none;color:black}
A:visited {text-decoration:none;color:#80006f}
A:hover {text-decoration:underline;color:black}
</style>
<center>
<BODY topmargin=2 leftmargin=0>
<style>
.v12{font-size:10pt;color:"#ffffff";FONT-WEIGHT: bold}
.v14{font-size:14px;text-indent:25px;line-height:20px}
img{border:0px;}
td,p,input,select{font-fammily:verdana,宋体;font-size:12px;}
A:link {text-decoration:none;color:black}
A:visited {text-decoration:none;color:#80006f}
A:hover {text-decoration:underline;color:black}
</style>
<style>
.v13{font-size:10pt;color:"#ffffff";FONT-WEIGHT: bold}
.v12{font-size:13px;color:"#4C029C";FONT-WEIGHT: bold}
.v14{font-size:14px;text-indent:25px;line-height:20px}
img{border:0px;}
td,p,input,select{font-fammily:verdana,宋体;font-size:12px;}
A:link {text-decoration:none;color:black}
A:visited {text-decoration:none;color:#80006f}
A:hover {text-decoration:underline;color:black}
</style>
<!--头-->
<table align=center cellpadding="0" cellspacing="0" border="0" width="767">
<tr><td valign=bottom>
<table cellpadding="0" cellspacing="0" border=0>
<tr><td valign=top><img src="../../../../../center/image/ccwlogo.gif"></td></tr>
<tr><td height="27" valign=top><img src="../../../../../center/image/knowledge.gif" width="207" height="27"></td></tr>
</table></td>
<td valign=bottom width=556 bgcolor="#4c029c" height=96>
<table cellpadding="0" cellspacing="0" border=0 width=556 bgcolor="#4c029c" height=96>
<tr><td height=25 valign=bottom bgcolor="#ffffff" colspan=2 ><img src="../../../../../image2002/top.gif" usemap="#F"></td></tr>
<tr valign=middle >
<td align=center valign=middle height="60" align=center>
<!-- <a href="http://www.ccw.com.cn/search/" target=_blank><img src="../../../../../img2/esearch.GIF" border=0 width=468 height=60></a> --><a href="http://www.ccw.com.cn/html/search/thememail/" target=_blank><img src="../../../../../img2/topbanner_thememail.GIF" border=0 width=468 height=60></a>
</td>
<td align=center width=15%>
<table width=95%>
<tr><td><a href="mailto:center@ccw.com.cn?subject=我要投稿:" target=_blank><font class=v13>我要投稿</a><br><a href="mailto:center@ccw.com.cn?subject=编读往来"><font class=v13>编读往来</a><br><a href="javascript:AddBookMark('计算机世界网首页')"><font class=v13>加入收藏</a></font></td></tr>
</table>
</td>
</tr>
<tr><td bgcolor="#ffffff" height=1 colspan=2 ></td></tr>
<tr><td bgcolor="#b4aafc" height=2 colspan=2 ></td></tr></table>
<map name="F">
<area href="http://www.ccw.com.cn/" shape="rect" coords="29, 3, 61, 18" target=_blank>
<area href="http://www.ccw.com.cn/news1/" shape="rect" coords="72, 3, 143, 18" target=_blank>
<area href="http://www.ccw.com.cn/center/" shape="rect" coords="155, 2, 216, 18" target=_blank>
<area href="http://www.ccw.com.cn/work/" shape="rect" coords="225, 2, 299, 18" target=_blank>
<area href="http://www.ccw.com.cn/search/" shape="rect" coords="310, 3, 364, 19" target=_blank>
<area href="http://www3.ccw.com.cn/" shape="rect" coords="372, 2, 412, 19" target=_blank>
<area href="http://www2.ccw.com.cn/" shape="rect" coords="424, 2, 550, 18" target=_blank></map>
</td></tr>
<tr><td colspan=2 bgcolor="#b4aafc">
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr>
<td width=26% align=center><font class=v12>【2003年6月24日】 </font></td>
<td CLASS=V12> <a href="http://www.ccw.com.cn/center/topic.asp">专 题</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/tech.asp">技 术</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/prod.asp">产 品</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/app.asp">应 用</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/net.asp">网 络</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/prog.asp">编 程</a> /</td>
<td CLASS=V12><a href="http://www.ccw.com.cn/center/skill.asp">技 巧</a> </td>
</tr>
</table>
</td></tr>
</table>
<table align=center width=728>
<tr><td align=center><br><h2><font color='#0f3ccd'>在无绑定模式下使用DBGrid</font></h2>
<br><b>作者：Adrian Roman 翻译：白鹤</b>
</td></tr><tr><td align=right>01-9-14 下午 02:44:46<br><hr size=1 width=718 color=#f46240></td></tr></table><br>
<table align=center width=728><tr><td valign=top width=600>
<table width=100% ><tr><td class=a14>我花了好长时间来注意这件事情，因为我不能在其他任何文件中找到关于DBGrid 在无绑定模式下的VC++编程内容（只有VB的）。我想把我的心得与别人分享会是一个好主意。 </td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
首先，尽管连随机文档都说它能接受任何类型的变量作为书签，但是好象并不是那么回事儿。DaoRecordset把SAFEARRAY作为书签（GetBookmark返回包含VT_ARRAY | VT_UI1的变量）,但它不能与DBGrid一起工作(DBGrid把变量转变为VT_BSTR)。 它可能会与VT_I4工作的很好，但据说字符串是最好的，所以我用他们。当然，我把书签转换成字符串再转换回来。 SchedQ是一个通过查询得来的动态集（CDaoRecordset），如果关于他你有任何bug或是好想法，请跟我分享您的发现。 啊，对，我几乎忘了！极其重要！如果你从OCX的类库中继承了RowBuffer类，请修改构造函数，原构造函数得到LPDISPACH作为参数去调用基类的构造函数，这时第二个参数要设为FALSE（原来隐性地设置为TRUE）。如果不这样做，当RowBuffer对象被消除时整个程序会崩溃。 补充技巧：记着使用BeforeColUpdate 和KeyPress事件去验证一个域的输入及相应地过滤键盘的输入。 </td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
请不要给我来e-mails，问我关于如何在绑定模式下使用他们的问题。在加入DBGrid之前加上一个Microsoft Remote Data Control 的对话框，然后花点时间调整一下它的属性，你就会弄明白如何使用它。 致那些想在运行时改变列的人：由DBGrid类生成的GetColumns()成员函数是一个真正的GetColumn函数（返回一个指向单个列的LPDISPATCH---这样你就可以用这个LPDISPATCH来构造单个列对象，而不是列集的对象）。如果你想获得指向列集的LPDISPATCH，把GetColumns()该名为GetColumn，然后象下面这样重新写一个GetColumns()：</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
LPDISPATCH CMsDgridCtrl::GetColumns()</td></tr></table><table width=100% ><tr><td class=a14>
{</td></tr></table><table width=100% ><tr><td class=a14>
LPDISPATCH result;</td></tr></table><table width=100% ><tr><td class=a14>
InvokeHelper(0x8,DISPATCH_PROPERTYGET,VT_DISPATCH,(void*)&result,NULL,NULL);</td></tr></table><table width=100% ><tr><td class=a14>
return result;</td></tr></table><table width=100% ><tr><td class=a14>
} </td></tr></table><table width=100% ><tr><td class=a14>
这样你就可以用返回的LPDISPATCH来构造列集对象。 那么现在，往网格中输入数据、删除纪录、当网格中写操作发生时从网格中获取数据的代码如下所示：</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
void CMyView::OnUnboundReadDataDbgridMy(LPDISPATCH RowBuf, VARIANT FAR* StartLocation, BOOL ReadPriorRows) </td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
{</td></tr></table><table width=100% ><tr><td class=a14>
// TODO: Add your control notification handler code here</td></tr></table><table width=100% ><tr><td class=a14>
RowBuffer buf(RowBuf); </td></tr></table><table width=100% ><tr><td class=a14>
VARIANT varbok;</td></tr></table><table width=100% ><tr><td class=a14>
varbok.vt=VT_ARRAY | VT_UI1;</td></tr></table><table width=100% ><tr><td class=a14>
long Row,RowsFetched;</td></tr></table><table width=100% ><tr><td class=a14>
VARIANT var;</td></tr></table><table width=100% ><tr><td class=a14>
RowsFetched=0;</td></tr></table><table width=100% ><tr><td class=a14>
if(StartLocation->vt==VT_NULL){</td></tr></table><table width=100% ><tr><td class=a14>
if(ReadPriorRows){</td></tr></table><table width=100% ><tr><td class=a14>
try{</td></tr></table><table width=100% ><tr><td class=a14>
SchedQ->MoveLast();</td></tr></table><table width=100% ><tr><td class=a14>
}catch(CDaoException* e){</td></tr></table><table width=100% ><tr><td class=a14>
e->Delete();</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
}else{</td></tr></table><table width=100% ><tr><td class=a14>
try{</td></tr></table><table width=100% ><tr><td class=a14>
SchedQ->MoveFirst();</td></tr></table><table width=100% ><tr><td class=a14>
}catch(CDaoException* e){</td></tr></table><table width=100% ><tr><td class=a14>
e->Delete();</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
}else{</td></tr></table><table width=100% ><tr><td class=a14>
//根据StartLocation书签和ReadPriorRows参数找到开始读数据的位置</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
try{</td></tr></table><table width=100% ><tr><td class=a14>
VectorFromBstr(StartLocation->bstrVal,&varbok.parray);</td></tr></table><table width=100% ><tr><td class=a14>
SchedQ->SetBookmark(COleVariant(varbok));</td></tr></table><table width=100% ><tr><td class=a14>
if(ReadPriorRows)SchedQ->MovePrev();</td></tr></table><table width=100% ><tr><td class=a14>
else SchedQ->MoveNext();</td></tr></table><table width=100% ><tr><td class=a14>
}catch(CDaoException* e){</td></tr></table><table width=100% ><tr><td class=a14>
e->Delete();</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
//把我们的数据集数组转换为DBGrid 用来显示数据的RowBuf对象，</td></tr></table><table width=100% ><tr><td class=a14>
for(Row = 0; Row<buf.GetRowCount() ;Row++){>/td></tr></table><table width=100% ><tr><td class=a14>
if(SchedQ->IsEOF() || SchedQ->IsBOF())break;</td></tr></table><table width=100% ><tr><td class=a14>
var.vt=VT_I4;</td></tr></table><table width=100% ><tr><td class=a14>
var.lVal=SchedQ->m_WorkCodeID;</td></tr></table><table width=100% ><tr><td class=a14>
if(buf.GetColumnCount()>0)buf.SetValue(Row, 0,var);</td></tr></table><table width=100% ><tr><td class=a14>
COleVariant olvi(SchedQ->m_TimeIn);</td></tr></table><table width=100% ><tr><td class=a14>
var=*((LPVARIANT)olvi);</td></tr></table><table width=100% ><tr><td class=a14>
if(buf.GetColumnCount()>1)buf.SetValue(Row, 1,var);</td></tr></table><table width=100% ><tr><td class=a14>
COleVariant olvo(SchedQ->m_TimeOut);</td></tr></table><table width=100% ><tr><td class=a14>
var=*((LPVARIANT)olvo);</td></tr></table><table width=100% ><tr><td class=a14>
if(buf.GetColumnCount()>2)buf.SetValue(Row, 2,var);</td></tr></table><table width=100% ><tr><td class=a14>
// Set bookmark using CurRow which is also our</td></tr></table><table width=100% ><tr><td class=a14>
// array index</td></tr></table><table width=100% ><tr><td class=a14>
var.vt=VT_BSTR;</td></tr></table><table width=100% ><tr><td class=a14>
BstrFromVector(((LPVARIANT)SchedQ->GetBookmark())->parray,&var.bstrVal);</td></tr></table><table width=100% ><tr><td class=a14>
buf.SetBookmark(Row,var);</td></tr></table><table width=100% ><tr><td class=a14>
RowsFetched++;</td></tr></table><table width=100% ><tr><td class=a14>
if(ReadPriorRows)SchedQ->MovePrev();</td></tr></table><table width=100% ><tr><td class=a14>
else SchedQ->MoveNext();</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
buf.SetRowCount(RowsFetched);</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
void CMyView::OnUnboundWriteDataDbgridMy(LPDISPATCH RowBuf, VARIANT FAR* WriteLocation)</td></tr></table><table width=100% ><tr><td class=a14>
{</td></tr></table><table width=100% ><tr><td class=a14>
// TODO: Add your control notification handler code here</td></tr></table><table width=100% ><tr><td class=a14>
RowBuffer buf(RowBuf);</td></tr></table><table width=100% ><tr><td class=a14>
VARIANT varbok;</td></tr></table><table width=100% ><tr><td class=a14>
varbok.vt=VT_ARRAY | VT_UI1;</td></tr></table><table width=100% ><tr><td class=a14>
COleVariant var;</td></tr></table><table width=100% ><tr><td class=a14>
CString str;</td></tr></table><table width=100% ><tr><td class=a14>
try{</td></tr></table><table width=100% ><tr><td class=a14>
VectorFromBstr(WriteLocation->bstrVal,&varbok.parray);</td></tr></table><table width=100% ><tr><td class=a14>
SchedQ->SetBookmark(COleVariant(varbok));</td></tr></table><table width=100% ><tr><td class=a14>
}catch(CDaoException* e){</td></tr></table><table width=100% ><tr><td class=a14>
e->Delete();</td></tr></table><table width=100% ><tr><td class=a14>
buf.SetRowCount(0);</td></tr></table><table width=100% ><tr><td class=a14>
return;</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
//**********************************************************************</td></tr></table><table width=100% ><tr><td class=a14>
//Here was a portion of code that validated the record</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
//************************************************</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
//只有被修改过的列更新，否则，值被设置为NULL</td></tr></table><table width=100% ><tr><td class=a14>
try{</td></tr></table><table width=100% ><tr><td class=a14>
SchedQ->Edit();</td></tr></table><table width=100% ><tr><td class=a14>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?