Question

delphi代码问题

procedure llp_ui_work.cxgrdbtblvwcxGrid1DBTableView1DblClick(
Sender: TObject);
begin
if Not qry1.Active then Exit ;
if qry1.IsEmpty then Exit ;
if Not btn1.Visible then
begin
Application.MessageBox('无法取入数据',
'提示',MB_OK+mb_iconinformation) ;
Exit ;
end;
qry2.Filtered := False ;
qry2.Filter := 'xuhao = '+qry1.FieldByName('xuhao').AsString ;
qry2.Filtered := True ;
ShowCustomerDetail(qry2.FieldByName('xuhao').AsInteger);
end;
这段代码是什么意思

Answer 1

procedure llp_ui_work.cxgrdbtblvwcxGrid1DBTableView1DblClick(
Sender: TObject);
begin
if Not qry1.Active then Exit ; //如果数据集控件没有打开，退出
if qry1.IsEmpty then Exit ;//如果数据集没有数据，退出
if Not btn1.Visible then //如果btn按钮不可见，那么
begin //开始
Application.MessageBox('无法取入数据',
'提示',MB_OK+mb_iconinformation) ; //提示
Exit ; //退出
end;
qry2.Filtered := False ; //先关闭过滤器
qry2.Filter := 'xuhao = '+qry1.FieldByName('xuhao').AsString ; //过滤的条件为xuhao=qry1数据集里 xuhao字段的值
qry2.Filtered := True ; //打开过滤器，打开会，就只查询到符合过滤器条件的内容
ShowCustomerDetail(qry2.FieldByName('xuhao').AsInteger); //这个是一个过程，看不到代码，楼主自行研究吧
end;

Answer 2

答的好,真是江山代有才人出啊!

Answer 3

dbgrid双击后，取当前记录值，过滤另一数据查询