看看代码，问题在哪里？？

2002-08-19 04:03:27 137 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Conformal LEC逻辑等价性检查介绍和参考脚本分为三个产品：Conformal L、Conformal XL、Conformal GXL。L是功能性检查，XL支持复杂数据通路的综合和APR优化，GXL支持定制的stdcell和定制memory的检查。Cadence Conformal Equivalence Checker，就是常说的LEC，可以用来验证RTL、门级网表、甚至spice网表的逻辑等价性。do文件是conformal的脚本文件，可以由综合工具（RTL Compiler/Genus）自己产生（write_do_lec），也可以手写。阅读详情

我想当移动记录指针时，EDIT里的内容也跟着改变。（不用DBEDIT）。
如何得到正解？

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, Grids, DBGrids, ADODB, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ADOTable1MoveComplete(DataSet: TCustomADODataSet;
const Reason: TEventReason; const Error: Error;
var EventStatus: TEventStatus);
procedure DBGrid1ColumnMoved(Sender: TObject; FromIndex,
ToIndex: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Next;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Prior;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOTable1.open;
ADOTable1.First;
edit1.text:=ADOTable1.Fieldbyname('dm').asstring;
edit2.text:=ADOTable1.fieldbyname('mc').asstring;
end;

procedure TForm1.ADOTable1MoveComplete(DataSet: TCustomADODataSet;
const Reason: TEventReason; const Error: Error;
var EventStatus: TEventStatus);
begin
// edit1.text:=ADOTable1.Fieldbyname('dm').asstring;
// edit2.text:=ADOTable1.fieldbyname('mc').asstring;
end;

procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex,
ToIndex: Integer);
begin
edit1.text:=ADOTable1.Fieldbyname('dm').asstring;
edit2.text:=ADOTable1.fieldbyname('mc').asstring;
end;

end.

...全文