zoukankan      html  css  js  c++  java
  • (转载)delphi实例TDBGrid用右键菜单复制行粘贴行

    delphi实例TDBGrid用右键菜单复制行粘贴行

    这个从本质上来说就是DBGrid后台数据库的插入

    右键复制当前行的相关数据到临时变量
    点粘贴时,覆盖数据或插入数据!

    db为数据库: 字段名id,name,string型
    通过adoquery-》datasource->dbgrid,adoquery的SQL中填写select * from db
    在form定义两个变量(全局):var id,name:string;
    复制代码:
    procedure CopyToMem;
    begin
    if not adoquery.active then
    begin
    showmessage('数据库没有打开!');
    exit;
    end;
    id:=adoquery.fieldbyname('id').asstring;
    name:=adoquery.fieldbyname('name').asstring;
    end;

    procedure PasTeFromMem; //覆盖
    begin
    if not adoquery.active then
    begin
    showmessage('数据库没有打开!');
    exit;
    end;
    adoquery.edit;
    adoquery.fieldbyname('id').asstring:=id;
    adoquery.fieldbyname('name').asstring:=name;
    adoquery.post;
    end;

    procedure PasTeFromMem1; //插入
    begin
    if not adoquery.active then
    begin
    showmessage('数据库没有打开!');
    exit;
    end;
    adoquery.insert;
    adoquery.fieldbyname('id').asstring:=id;
    adoquery.fieldbyname('name').asstring:=name;
    adoquery.post;
    end;

  • 相关阅读:
    kubernetes yaml文件格式
    docker 镜像上传至私有仓库
    Docker Compose编排容器
    jenkins+gitlab+ansible+dockerfile+k8s自动发布代码
    kubernetes 命令行
    关于HDFS的读写流程
    vue中watched属性
    app中rem算法
    vue使用中的随笔
    react 表单获取多个input
  • 原文地址:https://www.cnblogs.com/angelbd/p/3373074.html
Copyright © 2011-2022 走看看