一、关于setkey、gotokey的问题,代码如下:(改为ADOtable的应该怎么改)
 Texamine.SetKey;
  Texamine.FieldByName('病人档案号').AsString:=ADOQuery1.fieldbyname('病人档案号').asstring;;
   Texamine.Gotokey;
二、关于editkey的问题,代码如下(改为ADOtable的应该怎么改)
  Texamine.EditKey;
     Texamine.Append;
     Texamine.FieldByName('检查号').Asinteger:=EID;
     Texamine.FieldByName('病人档案号').Asinteger:=PID;
     Texamine.FieldByName('检查创建时间').AsString:= datetostr(now);
     Texamine.fieldvalues['检查项目']:=dblookupcombobox1.Text;
     Texamine.fieldvalues['诊断设备']:=dblookupcombobox2.Text;
     Texamine.fieldvalues['病人来源']:=dblookupcombobox3.Text;
     Texamine.fieldvalues['申请科室']:=dblookupcombobox4.Text;
     Texamine.fieldvalues['申请医生']:=dblookupcombobox5.Text;
     Texamine.FieldByName('检查费用').AsString:=Edit7.Text;
     Texamine.FieldByName('住院号').AsString:=Edit8.Text ;
     Texamine.FieldByName('床号').AsString:=Edit9.Text ;
     Texamine.FieldByName('临床诊断').AsString:=Edit10.Text ;     Texamine.Post;
     Texamine.Refresh;

解决方案 »

  1.   

    就是现在我是用的Table控件,我现在要改为ADOTable,但不知道代码应该怎么改,因为有些东西Table控件有的ADOTable不一定有,我想问问应该怎么改
      

  2.   

    我的程序里也是用了大量ttabel,我也想改成adotabel不再使用bde,不知道怎么该,谁做过这方面的工作,给个思路。
      

  3.   

    我的程序里也是用了大量ttabel,我也想改成adotabel不再使用bde,不知道怎么该,谁做过这方面的工作,给个思路。
      

  4.   

    我的程序里也是用了大量ttabel,我也想改成adotabel不再使用bde,不知道怎么该,谁做过这方面的工作,给个思路。
      

  5.   

    用ADODATASET 尝试一下 COMMADTEXT 用表模式~
      

  6.   

    改的时候 一些 fieldbyname 改的很痛苦~
      

  7.   

    用ADOConnection连接你需要的数据库,然后把每个ADOTable的Connection属性改成ADOConnection1,再把代码中的table换成ADOTable .