end;
//cdsAutoNumber執行後事件代碼:
{自動產生資產號后,取得產生的資產號}
procedure TFADM.cdsAutoNumberAfterExecute(Sender: TObject;
var OwnerData: OleVariant);
begin
if not ((VarIsEmpty(OwnerData)) or (VarIsNull(OwnerData))) then
sAssetsNo := OwnerData;
end;
下面的代碼是中間層的,用ADOStoredProc1调用储存过程,用DataSetProvider1返回参数。
{自動產生“固定資產編號”過程執行后返回編號﹒}
procedure TFAUpdateData.dspAutoNumberAfterExecute(Sender: TObject;
var OwnerData: OleVariant);
begin
if spAutoNumber.Parameters.ParamByName('@RETURN_VALUE').Value = 0 then
OwnerData := spAutoNumber.Parameters.ParamByName('@AssetsNumber').Value
else
OwnerData := 'Invalidity';
end;
{產生“固定資產編號“}
procedure TFAUpdateData.dspAutoNumberBeforeExecute(Sender: TObject;
var OwnerData: OleVariant);
begin
if not ((VarIsEmpty(OwnerData)) or (VarIsNull(OwnerData))) then
with spAutoNumber.Parameters do
begin
ParamByName('@City').Value := OwnerData[0];
ParamByName('@Value').Value := OwnerData[1];
ParamByName('@Corp').Value := OwnerData[2];
end else
with spAutoNumber.Parameters do
begin
ParamByName('@City').Value := '';
ParamByName('@Value').Value := -1;
ParamByName('@Corp').Value := '';
end;
end;
{Procedure TFAUpdateData.dspAddModeAfterExecute Return a Value.所有
返回值為@RETURN_VALUE都調用這個過程﹒}
procedure TFAUpdateData.dspAddModeAfterExecute(Sender: TObject;
var OwnerData: OleVariant);
var spDataSet : TDataSet;
begin
spDataSet := TDataSetProvider(Sender).DataSet; {得到過程執行時的數据集}
OwnerData := TADOStoredProc(spDataSet).Parameters.ParamByName('@RETURN_VALUE').Value;
end;