tb:TADOTable;label1:label;..Click方法var v:intbegin if tb.locate('位置',5,[]) then begin v:=tb.FieldByName('工作时间'),asinteger;//这儿类型根据你的实际情况 lablel1.Caption:=inttostr(v); end;end;