存储过程我很少用，三层结构中客户端用的ClientDataset如何读取存储过程呢？

Question

如题。希望能够举例子说明，谢谢各位大侠了！！

Answer 1

procedure TQueryConsume.QueryConsumeRecord(sql: string;QueryMode:TQueryMode);
var list :TListItem;
var i :integer;
begin
    dm.EpsSckCltDst.Close;
    dm.EpsSck.Connected := true;
    dm.EpsSckCltDst.CommandText := sql;//这里调用你的存储过程
    dm.EpsSckCltDst.Open;
    dm.EpsSckCltDst.First;    if QueryMode.QueryCard = true then
    begin
        while not dm.EpsSckCltDst.Eof do
        begin
            list := ListView1.Items.Add;
            list.Caption := dm.EpsSckCltDst.Fields.Fields[0].AsString;
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[1].AsString);
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[2].AsString);
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[3].AsString);
            dm.EpsSckCltDst.Next;
        end;    end;      dm.EpsSckCltDst.First;
    if QueryMode.QueryTime = true then
    begin
         for i:=0 to dm.EpsSckCltDst.RecordCount-1 do
        begin
            list := ListView2.Items.Add;
            list.Caption := dm.EpsSckCltDst.Fields.Fields[0].AsString;
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[1].AsString);
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[2].AsString);
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[3].AsString);
            dm.EpsSckCltDst.Next;
        end;    end;
    dm.EpsSckCltDst.First;
    if QueryMode.QueryAddress = true then
    begin
         while not dm.EpsSckCltDst.Eof do
        begin
            list := ListView3.Items.Add;
            list.Caption := dm.EpsSckCltDst.Fields.Fields[0].AsString;
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[1].AsString);
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[2].AsString);
            list.SubItems.Add(dm.EpsSckCltDst.Fields.Fields[3].AsString);
            dm.EpsSckCltDst.Next;
        end;    end;
end;