存储过程在X3中的使用方法！【欢迎跟帖讨论一下】

pure1437

我的参数里有三种类型，verchar2,number,date,number的在平台中会生成ftFMTBcd类型，然后就会出6楼的错误，把所有的ftFMTBcd全部改成ftfloat类型后就不会出错了。其他verchar2和date类型的参数没有改过。

pure1437

过程参数定义如下：
prm_PersonNo      IN   VARCHAR2,
prm_ExcuteDate    IN   DATE,
prm_Salary        IN   NUMBER,
prm_SIInfo        IN   VARCHAR2,
prm_PensionBase   OUT  NUMBER,
prm_MedicBase     OUT  NUMBER,
prm_UnemployBase  OUT  NUMBER,
prm_AccidentBase  OUT  NUMBER,
prm_BearingBase   OUT  NUMBER,
prm_AppCode       OUT  NUMBER,
prm_ErrorMsg      OUT  VARCHAR2

---------------------------------------------------------------------------
程序调用代码(aac001是个人编号字段，verchar2类型；aac040是工资字段，number类型)
StoredProc1.Params.ParamByName('prm_PersonNo').AsString:= datasetbroker1.DataSet.FieldByName('aac001').AsString;     
StoredProc1.Params.ParamByName('prm_ExcuteDate').AsDateTime:= SysSrv.SysService.Time;
StoredProc1.Params.ParamByName('prm_Salary').AsFloat:= datasetbroker1.DataSet.FieldByName('aac040').AsFloat;
StoredProc1.Params.ParamByName('prm_SIInfo').AsString:= '00100';：
StoredProc1.Execute;

jfjs := StoredProc1.Params.ParamByName('prm_MedicBase').AsFloat;

lixy

存储过程：
create or replace procedure testproc
(
prm1      IN   VARCHAR2,
prm2    IN   DATE,
prm3        IN   NUMBER,

prm11   OUT  VARCHAR2,
prm12     OUT  DATE,
prm13      OUT NUMBER
)

is
begin
  prm11:=prm1||'-test';
  prm12:=prm2+1;
  prm13:=prm3+1;
end testproc;
代码：
procedure TCT1.Button1Click(Sender: TObject);
begin
  with  StoredProc1 do
  begin
       Params.ParamByName('prm1').AsString:='x3';
       Params.ParamByName('prm2').AsDateTime:=SysSrv.SysService.Time;
       Params.ParamByName('prm3').Asfloat:=125.5;
       StoredProc1.Execute;
       Memo1.Lines.Add(Params.ParamByName('prm11').AsString);
       Memo1.Lines.Add(Params.ParamByName('prm12').AsString);
       Memo1.Lines.Add(Params.ParamByName('prm13').AsString);

  end;
end;

lixy

楼上的错误是日期类型产生的，日期传回的是零值。跟float那个无关。暂时先别用oracle的date类型了，传字符串，内部转换处理吧。
结果

李涛

手工代码创建TStoredProc后，参数是不是不能自动取得？我对Params[0].Value一赋值，就会跳出越界的错误。

lixy

稍等，我写下测试代码

lixy

代码方式：


存储过程：
create or replace procedure TestProc_20070704

(prmin in varchar2
, prmout1 out  number
,prmout2 out  varchar2) is
begin
  prmout1:=1234;
  prmout2:=prmin||'-justep';
end TestProc_20070704;


方法1：
procedure TMainForm.Button2Click(Sender: TObject);
var storedproc :TStoredProc;
begin

  storedproc := TStoredProc.Create(Self);
  try
    storedproc.ConnectionString :='DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
    storedproc.StoredProcName :='TESTPROC_20070704';

    storedproc.Params.Clear;

    storedproc.Params.CreateParam(TFieldType.ftString,'prmin',TParamType.ptInput).AsString :='LX';
    storedproc.Params.CreateParam(TFieldType.ftFMTBcd,'prmout1',TParamType.ptOutput);
    storedproc.Params.CreateParam(TFieldType.ftString,'prmout2',TParamType.ptOutput);
    storedproc.Execute;

    memo1.Lines.Add(storedproc.params[1].AsString);
    memo1.Lines.Add(storedproc.params[2].AsString);


  finally
    storedproc.Free;
  end;
end;

方法2（推荐使用）
procedure TMainForm.Button1Click(Sender: TObject);
var storedproc :TStoredProc;
begin

  storedproc := TStoredProc.Create(Self);
  try
    storedproc.ConnectionString :='DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
    storedproc.StoredProcName :='TESTPROC_20070704';
    storedproc.Params.ParamByName('prmin').AsString :='LX';

    storedproc.Execute;

    memo1.Lines.Add(storedproc.params[1].AsString);
    memo1.Lines.Add(storedproc.params[2].AsString);


  finally
    storedproc.Free;
  end;
end;

lixy

动态创建存储过程数据集例子：
存储过程：
create proc ljtest
@kind varchar(20),
@space varchar(40)
as
  select *
    from tfilesystem
   where FKIND=@kind
     and FSpace like @space
GO
代码：
  TMainForm = class(TForm)
   。。。。。
  public
    {public declarations}
     DataSetProc: TStoredProcDataSet;
  end;
。。。。。
procedure TMainForm.Button3Click(Sender: TObject);
begin
  DataSetProc:=TStoredProcDataSet.Create(self);
  DataSetProc.ConnectionString :='DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
  DataSetProc.StoredProcName:='ljtest';
  DataSetProc.Params.ParamByName('@kind').AsString:='.PDB';
  DataSetProc.Params.ParamByName('@space').AsString:='\SYSTEM\';
  DataSetProc.Open;
  DataSource2.DataSet:=DataSetProc;
  datagrid1.DataSource:=DataSource2;
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin

  DataSetProc.Free;
  DataSetProc:=nil;
end;