⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ufundserver.pas

📁 Delphi Com编程的简单例子
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V02').Value := V02;
      ParamByName('@V05').Value := V05;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.UserAdd(var V01: WideString; const V02, V03,
  V04: WideString; V08, V09: Smallint; const V10, V11: WideString; V12,
  V13, V14, V16: Smallint; const V17: WideString; V18, V19: Smallint;
  const V20: WideString; var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_001_Add';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V02').Value := V02;
      ParamByName('@V03').Value := V03;
      ParamByName('@V04').Value := V04;
      ParamByName('@V08').Value := V08;
      ParamByName('@V09').Value := V09;
      ParamByName('@V10').Value := V10;
      ParamByName('@V11').Value := V11;
      ParamByName('@V12').Value := V12;
      ParamByName('@V13').Value := V13;
      ParamByName('@V14').Value := V14;
      ParamByName('@V16').Value := V16;
      ParamByName('@V17').Value := V17;
      ParamByName('@V18').Value := V18;
      ParamByName('@V19').Value := V19;
      ParamByName('@V20').Value := V20;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    V01 := sp_Fund.Parameters.ParamByName('@V01').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.UserDel(const V01: WideString; var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_001_del';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.UserUpd(const V01, V02, V03, V04: WideString; V08,
  V09: Smallint; const V10, V11: WideString; V12, V13, V14, V16: Smallint;
  const V17: WideString; V18, V19: Smallint; const V20: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_001_Upd';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V02').Value := V02;
      ParamByName('@V03').Value := V03;
      ParamByName('@V04').Value := V04;
      ParamByName('@V08').Value := V08;
      ParamByName('@V09').Value := V09;
      ParamByName('@V10').Value := V10;
      ParamByName('@V11').Value := V11;
      ParamByName('@V12').Value := V12;
      ParamByName('@V13').Value := V13;
      ParamByName('@V14').Value := V14;
      ParamByName('@V16').Value := V16;
      ParamByName('@V17').Value := V17;
      ParamByName('@V18').Value := V18;
      ParamByName('@V19').Value := V19;
      ParamByName('@V20').Value := V20;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.SubModDel(const V01, V02: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_005L_del';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V02').Value := V02;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.SubSysDel(const V01: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_005_del';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.SubRightAdd(const V01: WideString; V03, V04, V05,
  V06, V07, V08: Smallint; var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_005L2_Add';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V03').Value := V03;
      ParamByName('@V04').Value := V04;
      ParamByName('@V05').Value := V05;
      ParamByName('@V06').Value := V06;
      ParamByName('@V07').Value := V07;
      ParamByName('@V08').Value := V08;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.SubRightChg(const V01, V02, V021: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_005L2_Add1';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V02').Value := V02;
      ParamByName('@V021').Value := V021;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.RightGrpDel(const V01: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_004_del';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.GrpRightAdd(const V01, V02, V03: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_004L_Add';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V02').Value := V02;
      ParamByName('@V03').Value := V03;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.GrpRightDel(const V01: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_004L_del';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.UserRightAdd(const V01, V02, V03: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_004L2_Add';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V02').Value := V02;
      ParamByName('@V03').Value := V03;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.UserRightDel(const V01: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_004L2_del';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.GrpRightChg(const V01: WideString; var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_004L_Chg';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.UserRightChg(const V01: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_004L2_Chg';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.UserToGrp(const V01, V02: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_003L_Add';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V01').Value := V01;
      ParamByName('@V02').Value := V02;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.GrpUserDel(const V02: WideString;
  var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_003L_Del';
    sp_Fund.Parameters.Refresh;
    with sp_Fund.Parameters do
    begin
      ParamByName('@V02').Value := V02;
      ParamByName('@ret').Value := -1;
    end;
    sp_Fund.ExecProc;
    lResult := sp_Fund.Parameters.ParamByName('@ret').Value;
    sp_Fund.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TFundServer.CardGrpAdd(var V01: WideString; const V02,
  V03: WideString; V04: Smallint; var lResult: Integer);
begin
  try
    if sp_Fund.Active = true then
      sp_Fund.Close;
    sp_Fund.ProcedureName := 'p_008_Add';
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -