以下是全部程序:
SQL2000Server中的存储过程:
---------------------------------------------------------------------------
create procedure "Ten Most Expensive Products" AS
SET ROWCOUNT 10
SELECT Products.ProductName AS TenMostExpensiveProducts, Products.UnitPrice
FROM Products
ORDER BY Products.UnitPrice DESCGO
---------------------------------------------------------------------------dephi7中的程序:
-----------------------------------------------------------
procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin
CreateDataSet;
dmDemo.spMostExpensiveProducts.Active:=true;//spMostExpensiveProducts是TSQLStoredProc控件
DoProcessSPData;
end;procedure TfrmMain.CreateDataSet;
var
Defs : TFieldDefs;
aField : TFieldDef;
anIndex : TIndexDef;
begin
Defs := cdsData.FieldDefs;
aField := Defs.AddFieldDef;
aField.DataType := ftString;
aField.Size := 40;
aField.Name := '产品名称';
aField := Defs.AddFieldDef;
aField.DataType := ftCurrency;
aField.Name := '价格';
anIndex := cdsData.IndexDefs.AddIndexDef;
anIndex.Fields := '产品名称';
anIndex.Name := 'pnIndex';
cdsData.CreateDataSet;
end;procedure TfrmMain.DoProcessSPData;
begin
try
cdsData.DisableControls;
while (not dmDemo.spMostExpensiveProducts.Eof) do
begin
cdsData.Insert;
cdsData.FieldByName('产品名称').Value :=
dmDemo.spMostExpensiveProducts.Fields[0].AsString;
cdsData.FieldByName('价格').Value :=
dmDemo.spMostExpensiveProducts.Fields[1].AsCurrency;
cdsData.Post;
dmDemo.spMostExpensiveProducts.Next;
end;
finally
cdsData.EnableControls;
end;
end;
------------------------------------------------------------------
SQL2000Server中的存储过程:
---------------------------------------------------------------------------
create procedure "Ten Most Expensive Products" AS
SET ROWCOUNT 10
SELECT Products.ProductName AS TenMostExpensiveProducts, Products.UnitPrice
FROM Products
ORDER BY Products.UnitPrice DESCGO
---------------------------------------------------------------------------dephi7中的程序:
-----------------------------------------------------------
procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin
CreateDataSet;
dmDemo.spMostExpensiveProducts.Active:=true;//spMostExpensiveProducts是TSQLStoredProc控件
DoProcessSPData;
end;procedure TfrmMain.CreateDataSet;
var
Defs : TFieldDefs;
aField : TFieldDef;
anIndex : TIndexDef;
begin
Defs := cdsData.FieldDefs;
aField := Defs.AddFieldDef;
aField.DataType := ftString;
aField.Size := 40;
aField.Name := '产品名称';
aField := Defs.AddFieldDef;
aField.DataType := ftCurrency;
aField.Name := '价格';
anIndex := cdsData.IndexDefs.AddIndexDef;
anIndex.Fields := '产品名称';
anIndex.Name := 'pnIndex';
cdsData.CreateDataSet;
end;procedure TfrmMain.DoProcessSPData;
begin
try
cdsData.DisableControls;
while (not dmDemo.spMostExpensiveProducts.Eof) do
begin
cdsData.Insert;
cdsData.FieldByName('产品名称').Value :=
dmDemo.spMostExpensiveProducts.Fields[0].AsString;
cdsData.FieldByName('价格').Value :=
dmDemo.spMostExpensiveProducts.Fields[1].AsCurrency;
cdsData.Post;
dmDemo.spMostExpensiveProducts.Next;
end;
finally
cdsData.EnableControls;
end;
end;
------------------------------------------------------------------
解决方案 »
- C# code 转成 Delphi code
- IdTCPClient/IdTCPServer 如何制定上传后保存的文件名.。。急。。。跪谢。。。
- 鼠标单击PageControl组件中的页签TabSheet事件
- 怎样用delphi画余玄函数
- 如何在DBGrid表中输入数据?
- 新手请教Access连接问题
- D7下的IdFTP如何通过代理上传??
- 我用DEPHI写了个小程序,把它缩小为个小图标,放在操作系统的底下状态栏里,和时间、输入法等放在一起,做好后,可是当我点击它后弹
- 如何在treeview的第3个跟节点,添加子节点?
- 怎么让窗体右上角的管理“叉”失效?
- ★☆★☆★☆★delphi 如何获取CUP风扇转速和温度!!急!!!
- intraweb显示图片的问题
你把storedprocname这个属性值:改为你的存储过程名,后面有一个";1"删掉,你再试试