快速粘贴

单击事件实现代码：

procedure TForm3.N16Click(Sender: TObject);
var
MyAdq:TADOQuery;
MyClipboard:TClipboard;
MyString:string;
begin
MyAdq:=TADOQuery.Create(nil);
MyClipboard:=TClipboard.Create;
try
  MyAdq.Connection:=frmDataPool.ADOConnection1;
  MyString:=MyClipboard.AsText;
  with MyAdq do
  begin
    SQL.Text := 'INSERT INTO 需要做的事 (选中,类别,标题,优先级,状态,已完成百分比,说明,开始日期,截止日期) VALUES (:选中,:类别,:标题,:优先级,:状态,:已完成百分比,:说明,:开始日期,:截止日期)';
    Parameters.ParamByName('选中').Value := False;
    Parameters.ParamByName('类别').Value := '未分类';
    Parameters.ParamByName('标题').Value := MyString;
    Parameters.ParamByName('优先级').Value := '低';
    Parameters.ParamByName('状态').Value := '未开始';
    Parameters.ParamByName('已完成百分比').Value := 0;
    Parameters.ParamByName('说明').Value := '说明';
    Parameters.ParamByName('开始日期').Value := FormatDateTime('yyyy-MM-dd',now);
    Parameters.ParamByName('截止日期').Value := formatdatetime('yyyy-MM-dd',now+7);
    ExecSQL;
  end;
  Application.ProcessMessages;
  frmDataPool.qry需要做的事.Requery;
finally
MyAdq.Free;
MyClipboard.Free;
end;
end;