摘要:
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( 阅读全文
摘要:
procedure TfrmMain.DBGridEhTitleClick(Column: TColumnEh);var i : integer;begin for i:= 1 to DBGridEh.Columns.Count do begin//恢复所有标题字体为默认 DBGridEh.Colu 阅读全文