zoukankan      html  css  js  c++  java
  • 快速粘贴

    单击事件实现代码:

    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;
  • 相关阅读:
    redis在linux下的安装
    Redis在系统中的使用
    使用ServiceStackRedis操作redis
    Redis命令
    mongo增删改操作
    mongo c#驱动介绍操作
    LeetCode 19 删除链表的倒数第N个节点
    LeetCode 01 两数之和
    metapath2vec 笔记
    Q&A(一)
  • 原文地址:https://www.cnblogs.com/ddxxxb/p/7070596.html
Copyright © 2011-2022 走看看