Delphi调用SQL存储过程

原创于 2022-04-08 02:35:44 发布 · 642 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #mssql

数据库开发专栏收录该内容

3 篇文章

订阅专栏

这篇博客展示了如何在Delphi中通过ADO组件调用SQL存储过程来实现数据库的增删查改操作。文章详细解释了创建存储过程的SQL语句，并提供了Delphi代码示例，包括添加数据、删除数据、查询数据和修改数据的过程。

一个ADOConnection

一个ADOStoredProc
    属性为:
       connection:=Adoconnection1;
       procedurename:=myinsert; //选择为存储过程

一个ADOTable
    属性为:
       connection:=adoconnection1;
       tablename:=zrn;//数据库的表名

一个Datasource
属性为:
dataset:=Tadotable;

一个 DBGrid
    属性为:
     datasource:=datasource1;
--------------------------------------------------------------------------------------------------------------------
                                                调用SQL存储过程
添加数据
SQL:
CREATE PROCEDURE myinsert
@id char(20),
@name char(20)
AS
insert into zrn (idd,named) values (@id,@name)
GO

delphi:

procedure TForm1.Button1Click(Sender: TObject);
begin
with DataSource1 do
begin
   Enabled:=False;
   DataSet:=Adotable1;
   Enabled:=True;
end;
with AdoStoredproc1 do
begin
    Parameters.ParamByName('@id').Value:=Edit1.Text;
    parameters.ParamByName('@name').Value:=Edit2.Text;
    ExecProc;
end;
with Adotable1 do
begin
    Close;
    Open;
end;
end;
--------------------------------------------------------------------------------------------------------------------
删除数据
SQL:
CREATE PROCEDURE mydelete
@ip char(20)
AS
delete from zrn where idd = @ip
GO

delphi:

procedure TForm1.Button2Click(Sender: TObject);
begin
with DataSource1 do
begin
   Enabled:=False;
   DataSet:=Adotable1;
   Enabled:=True;
end;
with AdoStoredproc2 do
begin
    Parameters.ParamByName('@ip').Value:=Edit1.Text;
    ExecProc;
end;
with Adotable1 do
begin
    Close;
    Open;
end;
end;
--------------------------------------------------------------------------------------------------------------------
查询数据:
SQL:
CREATE PROCEDURE myselecte
@iy char(20) ,
@yame char(20)
AS
select * from zrn where idd=@iy
GO

delphi:

with AdoStoredproc3 do
begin
   close;
   parameters.parambyname('@iy').value:=Edit1.Text;
   prepared:=true;
   open;
end;
with DataSource1 do
begin
   Enabled:=False;
   DataSet:=ADOStoredProc3;
   Enabled:=True;
end;
--------------------------------------------------------------------------------------------------------------------
修改数据:
SQL:
CREATE PROCEDURE myupdate
@kk char(20),
@ky char(20),
@kame char(20),
@kage char(20)
AS
update zrn set idd=@ky, named=@kame , aged=@kage where idd=@kk
GO

delphi:

procedure TForm1.Button4Click(Sender: TObject);
begin
with AdoStoredproc4 do
begin
   parameters.parambyname('@kk').value:=Edit1.Text;
   parameters.parambyname('@ky').value:=Edit2.Text;
   parameters.parambyname('@kame').value:=Edit3.Text;
   parameters.parambyname('@kage').value:=Edit4.Text;
   ExecProc;
end;
with Adotable1 do
begin
    Close;
    Open;
end;
end;