Ado数据库操作

  with ADOQuery.do

  begin

    close;

    SQL.clear;

    SQL.add('select * from COMM');

    open;

  end;

  if ADOQuery.recordCount >0 then

  begin

    DateTimePick1.data := Adoquery.fieldbyname('出生年月').asDatatime;

    DateTimePick1.data := Adoquery.fieldbyname('入学日期').asDatatime

  end

  else

  begin

    DateTimePick1.data := now();

    DataTimePick2.data := now();

  end;

  adoqueyr.insert;

  adoquery.cancel;

  adoquey.append;

  adoqueyry.edit;

  adoquery.post;