BDE代码转换ADO代码（在线等待）

Question

procedure tfrmManage.QuickCopyTable(T: TTable;DestTblName: string; Overwrite: Boolean);
var
  DBType: dbINAME;
  WasOpen: Boolean;
  NumCopied: Word;
begin
  //save table active state
  WasOpen := T.Active;
  if not WasOpen then T.Open;   //ensure the table is open
  //Get driver type string
  Check(DbiGetProp(hDBIObj(T.Handle),  drvDRIVERTYPE, @DBType, SizeOf(DBINAME), NumCopied));
  //Copy the table
  Check(DBICopyTable(T.DBHandle, Overwrite, PChar(T.Tablename),
        DBType, PChar(DestTblName)));
//Restore active state
  T.Active := WasOpen;
end;

Answer 1

你的这个程序就是基于BDE的，如果要完全抛弃BDE的话，参数T的类型要改为
TADOTABLE，整个函数要重写，不能用DbiGetProp，DBICopyTable等函数，这
是BDE的函数

Answer 2

关注
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。0D
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。
0A
★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]