delphi怎样实现(100)

10分钟内允许查询按标识A查询数据一次,要是10分钟内再查询就不做处理，超过10分钟后才允许再进行查询最好有示例代码呀~~

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } i:integer; public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begini:=11;end;procedure TForm1.Timer1Timer(Sender: TObject);begininc(i);end;procedure TForm1.Button1Click(Sender: TObject);beginif i>10 then beginshowmessage('可以查询');i:=0;end else begin//不允许查询，不做处理end;end;end.

记录上一次查询时间,下一次点击时取当前时间-第一次查询时间大于10分钟则允许查询,同时更新上一次查询时间否则不允许

zhengrong117:那样限制了所有查询,要是查询B或C等也受影响了

to hanyuhen1:因为能查询多个标识（如A、B、C、D......）,怎样做才能分别限制呀？比如A 10分钟内查询过不允许查询，要是B C D...没查询过就可以查询，查询过也要做限制...