Delphi5+SqlServer实现会员数据插入

最新推荐文章于 2024-08-13 00:03:06 发布

c4fx

最新推荐文章于 2024-08-13 00:03:06 发布

阅读量177

点赞数 2

分类专栏： Delphi5 文章标签： sqlserver 数据库 Delphi

本文链接：https://blog.csdn.net/weixin_52116519/article/details/141066176

版权

Delphi5 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

文章目录

效果图

在这里插入图片描述

新建数据表

CREATE TABLE huiyuan (  
    id INT IDENTITY(1,1) PRIMARY KEY,  
    name NVARCHAR(50) NOT NULL,  
    rank NVARCHAR(10) NOT NULL,  
    reward INT,  
    goldcoin INT  
);

INSERT INTO huiyuan (name, rank, reward, goldcoin) VALUES ('张三', '铜牌', 100, 500);  
INSERT INTO huiyuan (name, rank, reward, goldcoin) VALUES ('李四', '银牌', 200, 1000);  
INSERT INTO huiyuan (name, rank, reward, goldcoin) VALUES ('王五', '金牌', 300, 1500);  
INSERT INTO huiyuan (name, rank, reward, goldcoin) VALUES ('赵六', '钻石', 500, 5000);  
INSERT INTO huiyuan (name, rank, reward, goldcoin) VALUES ('孙七', '新手', 0, 100);

展示数据

在这里插入图片描述

插入数据

在这里插入图片描述

{点击添加按钮，添加数据后立即展示}
procedure TForm1.btn1Click(Sender: TObject);
begin
  qry2.close;
  qry2.Parameters.ParamByName('name').value:=edt1.text;
  qry2.Parameters.ParamByName('rank').value:=edt2.text;
  qry2.Parameters.ParamByName('reward').value:=strtoint(edt3.text);
  qry2.Parameters.ParamByName('goldcoin').value:=strtoint(edt4.text);
  qry2.ExecSQL;
  qry1.Close;
  qry1.Open;
end;