这是delphi的函数
怎么会是sqlserver的存储过程呢?只要在某控件里执行
TFSltCal.AddDepartJie;
就行了吧

解决方案 »

  1.   

    这些函数是定义数据库里面的存储过程吗?
    那他与以下程序有什么联系呢????
    procedure TFSltCalNa1.AddDepartJie;
    var sqltxt :string;
    begin  if(r1.Checked)then
      begin
        Self.GrateStr := '1 年级';
        Self.StpName := 'proc大学生体育合格标准总计评分男1';    Aq1.Close;
        aq1.SQL.Text := 'select distinct student_jie from nan_one';
        aq1.Open;
        cb2.Items.Clear;
        while not aq1.Eof do
        begin
          cb2.Items.Add(aq1.fieldbyname('student_jie').AsString) ;
          aq1.Next;
        end;
      end;