用友修改项目名称(原创)

CREATE PROCEDURE ydy11 --查询项目
(@iperiod int,@ino_id int,@md float )
AS
SELECT *
FROM GL_accvouch
where (iperiod = @iperiod) AND ino_id=@ino_id AND (ccode LIKE '5301%')  and  md=@md
GO



CREATE PROCEDURE ydy12 --修改项目
(@iperiod int,@ino_id int,@md float)
AS
update GL_accvouch
set citem_id = 'ZXXM13'
where (iperiod = @iperiod) AND ino_id=@ino_id AND (ccode LIKE '5301%') and  md=@md
GO


delphi用法
procedure TForm1.Button2Click(Sender: TObject);

begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('exec ydy11 :iperiod int,:ino_id int');
ADOQuery1.parameters.parambyname('iperiod').value:=strtofloat(edit1.Text);
ADOQuery1.parameters.parambyname('ino_id').value:=strtofloat(edit2.Text);
ADOQuery1.parameters.parambyname('md').value:=strtofloat(edit3.Text);

ADOQuery1.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('exec ydy12 :iperiod int,:ino_id int');
ADOQuery1.parameters.parambyname('iperiod').value:=strtofloat(edit1.Text);
ADOQuery1.parameters.parambyname('ino_id').value:=strtofloat(edit2.Text);
ADOQuery1.parameters.parambyname('md').value:=strtofloat(edit3.Text);

ADOQuery1.Open;
end;
end.