1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

CREATE PROCEDURE DBA."spu_aufnr_1" (out auft int)

BEGIN
   
   declare auf1 int;
  update nummernkreis set
    nk_nr = (select max(nk_nr)+1 into auf1 from nummernkreis where nk_id =1) 
    where nk_id =1;
   set auft= auf1;
END;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    StoredProc1: TStoredProc;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   StoredProc1.Prepare();
   StoredProc1.ExecProc();
   Edit1.Text:= inttostr(StoredProc1.Params.Items[0].Value);
   StoredProc1.UnPrepare();
end;

end.