delphi连接sql存储过程

浏览数：20 / 时间：2015年06月12日

针对返回结果为参数的

一、先建立自己的存储过程

ALTER PROCEDURE [dbo].[REName]
    @Gender    varchar(20)
AS
BEGIN
    select ROW_NUMBER() over(order by Name asc) as [序号],
    Name,Gender,Birthday,Mobile,Tel,Ctfld
    from dbo.name
    where Gender = @Gender OR @Gender IN ( NULL, ‘‘, ‘-1‘ )
END

二、打开delphi，先添加几个控件

ADOConnection1：连接sql数据库的

ADOQuery1：连接查询数据的，connection属性设为ADOConnection1

ADOStoredProc1：连接存储过程的，connection属性设为ADOConnection1，ProcedureName连接存储过程

DataSource1：Dataset属性设为ADOStoredProc1

TCombobox:

TcxButton:查询按钮

cxGrid1:

三、设置窗口OnShow事件，把查询的参数添加到TCombobox中

procedure TForm1.FormShow(Sender: TObject);
begin
  if adoquery1.Active then adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text :=‘select distinct Gender    from dbo.name‘;
  adoquery1.Open;
  while not adoquery1.Eof do
  begin
    cbbSex.Items.Add(adoquery1.fieldbyname(‘gender‘).AsString);
    adoquery1.Next;
  end;
end;

四、设置OnDblClick事件，在cxGrid1中显示数据，并在FieldName中选择参数

procedure TForm1.cxGrid1DBTableView1DblClick(Sender: TObject);
begin
  try
    screen.Cursor :=crhourglass;
    adostoredproc1.Close;
    adostoredproc1.Parameters.ParamByName(‘@Gender‘).Value :=(cbbSex.Text);
    adostoredproc1.Open;
  finally
    screen.Cursor :=crdefault;
  end;
end;

五、查询事件

procedure TForm1.cxButton1Click(Sender: TObject);
begin
  try
  adostoredproc1.Close;
  begin
    adostoredproc1.Parameters.ParamByName(‘@Gender‘).Value :=trim(cbbSex.Text);
    adostoredproc1.Open
  end;
  finally
    screen.Cursor :=crdefault
  end;
end;