-1

我有一个场景，我必须运行一个查询，该查询将为特定 ID 提供消息数量。如果该 id 包含任何未读消息，我想在警报框中一一显示。因此，到目前为止，我已经创建了一个存储过程，我通过 TQuery 执行名为 MembershipMessagesQuery（我必须使用 BDE :() 然后这个 TQuery 绑定到 TDataSource（dsUnreadDataSource）。现在我想使用“显示”显示警报框消息“但是我将遍历记录集。在 .NET 中，我们有可以用 sqldataadapter 填充的数据表，但是这里该怎么办？请帮忙。

MembershipMessagesQuery.ParamByName('membershipnumber').AsString  :=custQuery.FieldByName('cust_code').AsString;
MembershipMessagesQuery.ParamByName('primarymemberflag').AsString  := 'a';
MembershipMessagesQuery.Open;

如何遍历每条记录并在显示消息中播放消息列？

4

1 回答 1

0

非常好的文章和宝贵的资源http://docwiki.embarcadero.com/RADStudio/XE5/en/Navigating_Datasets和 http://delphi.about.com/od/database/ss/dbcourse_browse.htm

一个可能的解决方案：（代码没有经过测试，它只是给你一个关于如何解决你的问题的提示）

MembershipMessagesQuery.First;
while not MembershipMessagesQuery.eof do 
 begin
  Showmessage(MembershipMessagesQuery.FieldByName(yourfieldname).AsString);
  MembershipMessagesQuery.Next;
 end;

另一个很好的例子 http://docwiki.embarcadero.com/CodeExamples/XE4/en/RecordCount_%28Delphi%29

于 2013-09-18T09:18:47.080 回答