如题,想就那个按键被按下去了后作出判断,然后在ADOQUERY过滤数据集事件中判断是那个按键按下了,然后再调用那个条件进行数据的查询,不知怎样的写相关的事件,算法如下:
procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if N1按下了 ten
begin
if 条件1 then
begin
end;
end;if N2按下了 ten
begin
if 条件2 then
begin
end;
end;
........
end;
procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if N1按下了 ten
begin
if 条件1 then
begin
end;
end;if N2按下了 ten
begin
if 条件2 then
begin
end;
end;
........
end;
VK_RIGHT
VK_DOWN ...
begin
//判断是否按下<enter>
if key=#13 then
begin
key:=#0;
//焦点移动到下一个组件
perform(WM_NEXTDLGCTL,0,0);
end;
end;
var
i:integer;
当某个按键按下的时候给它个值:
i:=1;然后在查询按钮下面写代码就好了
if i=1 then begin
//写那个查询函数
end
else if i=2 then
begin
//写那个查询函数
end