奇怪，用SQL查询统计后状态栏上怎么不显示记录数了呢？原来是好的，哪位大虾有空来看看。谢绝麻风瘦大虾入内（不然你又说我不看书，呵呵呵呵）。本人长期在线，先解决先拿分。

Question

procedure TForm4.Query1AfterOpen(DataSet: TDataSet);
begin
  if DispRecordCount then
  Self.StatusBar1.Panels[0].Text:='记录个数: '+
  IntToStr(Self.Query1.RecordCount);
end;就这段出了问题，原来的时候你也见过，是能计数的。后来我把这段代码放到了主窗口FORM1的弹出式窗口2上，就是在主窗口上按按钮就会弹出的窗口。结果查询是正常的，就计算记录的功能出了问题。StatusBar1.Panels[0]上啥也没有了。

Answer 1

你把  onshow的过程放到onshow里。另外form4 的query 的 afteropen函数你没制定函数吧！要联上
procedure TForm4.FormShow(Sender: TObject);
var
  iCount:Integer;
  strName:String;
begin
  DispRecordCount:=false;
  ComboBox2.Items.Clear;
  Query1.Open;
  for iCount:=0 to Query1.FieldCount -1 do
  begin
    strName:=self.Query1.FieldList[iCount].FieldName;
    ComboBox2.Items.Add(strName);
  end;
  Query1.Close;
  ComboBox2.ItemIndex:=0;
  DispRecordCount:=true;
  DataSource1.DataSet:= QUery1;
end;procedure TForm4.Query1AfterOpen(DataSet: TDataSet);
begin
  if DispRecordCount then
  Self.StatusBar1.Panels[0].Text:='记录个数: '+
  IntToStr(Self.Query1.RecordCount);
end;AfterOpen有个waring提醒，很恶心改成我给你的函数。
行了。
我不说让你...

Answer 2

当然了，我天天时时在csdn混，能亏待我吗？参与分不多，不过换成可用分也有近千了。