【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供Fcallstoredprocmain.pas参考，解决您在Fcallstoredprocmain.pas学习中工作中的难题，参考学习。

    unit fCallStoredProcMain;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, DB, StdCtrls;
    
    type
      TForm1 = class(TForm)
        DataSource1: TDataSource;
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        btnRaiseSalary: TButton;
        cbEID: TComboBox;
        edtPercent: TEdit;
        procedure FormActivate(Sender: TObject);
        procedure btnRaiseSalaryClick(Sender: TObject);
        procedure cbEIDChange(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    uses udmCallStoredProc;
    
    {$R *.dfm}
    
    procedure TForm1.FormActivate(Sender: TObject);
    var
      aBK : TBookMark;
    begin
      if (cbEID.Items.Count = 0) then
      begin
        aBK := dmCallStoredProc.scdsEmployee.GetBookmark;
        try
          cbEID.Items.BeginUpdate;
          dmCallStoredProc.scdsEmployee.First;
          while not dmCallStoredProc.scdsEmployee.Eof do
          begin
            cbEID.Items.Add(dmCallStoredProc.scdsEmployee.FieldByName('EID').Value);
            dmCallStoredProc.scdsEmployee.Next;
          end;
          cbEID.ItemIndex := 0;
        finally
          cbEID.Items.EndUpdate;
          dmCallStoredProc.scdsEmployee.GotoBookmark(aBK);
          dmCallStoredProc.scdsEmployee.FreeBookMark(aBK);
        end;
      end;
    end;
    
    procedure TForm1.btnRaiseSalaryClick(Sender: TObject);
    begin
      dmCallStoredProc.spRaiseSalary.Params.ParamByName('EID').Value :=
        cbEID.Text;
      dmCallStoredProc.spRaiseSalary.Params.ParamByName('RPERCENT').Value :=
        StrToFloat(edtPercent.Text);
      dmCallStoredProc.spRaiseSalary.ExecProc;
      dmCallStoredProc.scdsEmployee.Refresh;
    end;
    
    procedure TForm1.cbEIDChange(Sender: TObject);
    begin
      dmCallStoredProc.scdsEmployee.Locate('EID', cbEID.Text, []);
    end;
    
    end.