2,498
社区成员
发帖
与我相关
我的任务
分享
function TDataModule1.ReadJYJData(jyjID:string;var Dabz,Daph:string): string;
begin
try
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select deviceid,teamname,brandname,updatetime from view_tiaoping where deviceid='''+jyjID+''' order by updatetime desc';
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
if (not ADOQuery1.FieldByName('TeamName').IsNull) and (ADOQuery1.FieldByName('TeamName').AsString <>'') then
Dabz:=FGTeamStr(ADOQuery1.FieldValues['TeamName'])
else
Dabz:='----';
if (not ADOQuery1.FieldByName('BrandName').IsNull) and (ADOQuery1.FieldByName('BrandName').AsString <>'') then
Daph:='牌号:'+ADOQuery1.FieldValues['BrandName']
else
Daph:='牌号:----';
end;
except
on E:Exception do
Result:=E.Message;
end;
end;