摘要: function getchcount(query: TADOQuery): Integer;var i:integer;begin i:=0; with Query do begin Query.First; while not Eof do begin if Query.FieldByName( 阅读全文