象这样的一段代码能否构成一个过程？

Question

begin 
SQLStoredProc1.StoredProcName:='GJGL'; 
SQLStoredProc1.Close;
SQLStoredProc1.Params.Clear; 
with SQLStoredProc1.Params.CreateParam(ftstring, 'gonjumingcheng', ptInput) do    
AsString:= Edit1.text; 
with SQLStoredProc1.Params.CreateParam(ftString, 'jibendanwei', ptInput) do 
AsString:=Edit2.text; 
with SQLStoredProc1.Params.CreateParam(ftstring, 'baoyangzhuangkuang', ptInput) do 
AsString:=edit3.Text; 
with SQLStoredProc1.Params.CreateParam(ftFMTBCD, 'gourujiage', ptInput) do 
AsFMTBCD:=strtobcd(edit4.Text); 
with SQLStoredProc1.Params.CreateParam(ftInteger, 'shuliang', ptInput) do 
AsInteger:=strtoint(edit5.Text); 
with SQLStoredProc1.Params.CreateParam(ftstring, 'cunfangdidian', ptInput) do 
AsString:=edit6.Text; 
SQLStoredProc1.ExecProc; 
SimpleDataSet1.Refresh; 
end; 
如果能将其构成一个过程就方便了调用。

Answer 1

可以啊~~procedure sql_StoredProc ;//加上此句，就是一个过程~~~调用的时候，直接sql_StoredProc即可~~
begin 
SQLStoredProc1.StoredProcName:='GJGL'; 
SQLStoredProc1.Close; 
SQLStoredProc1.Params.Clear; 
with SQLStoredProc1.Params.CreateParam(ftstring, 'gonjumingcheng', ptInput) do    
AsString:= Edit1.text; 
with SQLStoredProc1.Params.CreateParam(ftString, 'jibendanwei', ptInput) do 
AsString:=Edit2.text; 
with SQLStoredProc1.Params.CreateParam(ftstring, 'baoyangzhuangkuang', ptInput) do 
AsString:=edit3.Text; 
with SQLStoredProc1.Params.CreateParam(ftFMTBCD, 'gourujiage', ptInput) do 
AsFMTBCD:=strtobcd(edit4.Text); 
with SQLStoredProc1.Params.CreateParam(ftInteger, 'shuliang', ptInput) do 
AsInteger:=strtoint(edit5.Text); 
with SQLStoredProc1.Params.CreateParam(ftstring, 'cunfangdidian', ptInput) do 
AsString:=edit6.Text; 
SQLStoredProc1.ExecProc; 
SimpleDataSet1.Refresh; 
end; 

Answer 2

type
  TForm1 = class(TForm)
    SQLConnection1: TSQLConnection;
    SimpleDataSet1: TSimpleDataSet;
    datasource1: TDataSource;
    btnConnect: TButton;
    btnCommit: TButton;
    btnQuery: TButton;
    DBGrid1: TDBGrid;
    lbl1: TLabel;
    SQLStoredProc1: TSQLStoredProc;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit3: TEdit;
    procedure btnConnectClick(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure btnCommitClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure sql_rj_save;     //在这里声明过了
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
procedure TForm1.btnCommitClick(Sender: TObject);
begin
sql_rj_save;     //在这里调用
end;
procedure sql_rj_save;
begin
SQLStoredProc1.StoredProcName:='RJ_SAVE';   //这是第77行
SQLStoredProc1.close;
SQLStoredProc1.Params.Clear;
with SQLStoredProc1.Params.CreateParam(ftDate, 'shijian', ptInput) do
        AsDate:=DateTimePicker1.date;
      with SQLStoredProc1.Params.CreateParam(ftstring, 'jilu', ptInput) do
        Asstring:=Edit1.text;
     with SQLStoredProc1.Params.CreateParam(ftstring, 'zhuyi', ptInput) do
        Asstring:=Edit2.text;
SQLStoredProc1.ExecProc;
SimpleDataSet1.Refresh;
end;编译错误：
[Error] Unit1.pas(77): Undeclared identifier: 'SQLStoredProc1'
[Error] Unit1.pas(77): Missing operator or semicolon
[Error] Unit1.pas(78): Missing operator or semicolon
[Error] Unit1.pas(79): Missing operator or semicolon
[Error] Unit1.pas(80): 'DO' expected but identifier 'Params' found
[Error] Unit1.pas(82): 'DO' expected but identifier 'Params' found
[Error] Unit1.pas(84): 'DO' expected but identifier 'Params' found
[Error] Unit1.pas(30): Unsatisfied forward or external declaration: 'TForm1.sql_rj_save'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 3

procedure sql_rj_save; 
改为procedure TForm1.sql_rj_save; 试试

Answer 4

1、要改为procedure TForm1.sql_rj_save;
2、要声明SQLStoredProc1变量，需要在过程中加上var段

Answer 5

怎么声明SQLStoredProc1变量？是下面这样：
var
SQLStoredProc1:SQLStoredProc;