rocedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
  with ora do
    begin
    close;
    sql.Clear;
    sql.Add('select * from z_jcyy_diagramlocodymaic');
    open;
    end;
       ce.First;
       while not eof do
       begin
        with ora do
        begin
         append;
         //fieldbyname('id').AsString:=ce.fieldbyname('').AsString;
         fieldbyname('diagram').AsString:='3';
         fieldbyname('dyanmictype').AsInteger:=OI(ce.fieldbyname('IOPUT').AsString);
         fieldbyname('locomotive').AsString:=ce.fieldbyname('jc').AsString;
         fieldbyname('place').AsString:=ce.fieldbyname('ad').AsString;
         fieldbyname('dt').AsDateTime:=strtodatetime(ce.fieldbyname('sj').AsString);
         fieldbyname('locotype').AsString:=ce.fieldbyname('cd').AsString;
         post;
         ce.Next;
        end;
       end;
end;
高手帮我看看 为什么CE连不上数据库  CE :clientdataset