with qryData do
    begin
        close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_Mech_info');
        Open;
        lvDev.Clear;
        while not Eof do
        begin
            Item := lvDev.Items.Add;
            Item.Caption := FieldByName('编号').AsString;
            Item.SubItems.Add(trim(FieldBYName('设备名称').AsString));
            Item.SubItems.Add(FieldBYName('出入').AsString);
            Item.SubItems.Add(FieldByName('设备类型').AsString);
            Item.SubItems.Add(FieldBYName('所属网络').AsString);
            Item.SubItems.Add(FieldBYName('所属停车场编号').AsString);
            Item.SubItems.Add(FieldBYName('视频编号').AsString);
            Item.SubItems.Add(FieldByName('图像编号').AsString);
            Item.SubItems.Add(boa[FieldBYName('暂停使用').AsBoolean]);
            Next;
        end;
    end;