Question

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

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

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

Answer 1

非常好的文章和有价值的资源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

.NET就像Delphi中的DataTable实现一样

1 个答案: