【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了fCallStorecProcMain.pas相关资料，希望对各位网友有所帮助!

    unit fCallStorecProcMain;
    
    interface
    
    uses
      SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
      QStdCtrls, DB, QGrids, QDBGrids, QExtCtrls, QDBCtrls;
    
    type
      TForm1 = class(TForm)
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        DataSource1: TDataSource;
        Button1: TButton;
        Edit1: TEdit;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    uses udmCallStoredProc;
    
    {$R *.xfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      dmSP.spBookCount.ExecProc;
      Edit1.Text :=
        IntToStr(dmSP.spBookCount.Params.ParamByName('IRECORDCOUNT').Value);
    end;
    
    end.