procedure TfrmstPostImageCollate.LoadCollateImage(AOrderID: integer);
var
mySql: string;
node: TcxTreeListNode;
cPhoto, cFullPhoto: string;
begin
Screen.Cursor := crHourGlass;
tlResult.BeginUpdate;
tlResult.Clear;
LockWindowUpdate(Handle);
mySql := ' Select * from stCardPhotos where iOrderid=' + IntToStr(AOrderID);
OpenQuery(qryUnit, mySql);
try
with qryUnit do
begin
while not Eof do
begin
cPhoto := FieldByName('gPhoto').AsString;
cFullPhoto := FieldByName('cFullPhoto').AsString;
if cFullPhoto <> '' then
begin
node := tlResult.Add;
node.Texts[tlcResGPhoto.ItemIndex] := cPhoto;
node.Texts[tlcResCFullPhoto.ItemIndex] := FieldByName('cFullPhoto').AsString;
end;
Next;
end;
end;
finally
tlResult.EndUpdate;
LockWindowUpdate(0);
Screen.Cursor := crDefault;
end;
end;
如下图:
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步