UnimList卡片显示

UnimList卡片显示

手机APP，数据呈现，适合卡片式。因为手机的屏莫宽度小，并不适用列表式。

先来张效果图：

procedure TSpda.UnimFormShow(Sender: TObject);
beginFDMemTable1.query('1', 'select * from tgoods');FDMemTable1.First;while not FDMemTable1.Eof dobeginUnimList1.Items.Add('<p>品名：' + FDMemTable1.FieldByName('goodsname').Text +'<br>条码：' + FDMemTable1.FieldByName('barcode').Text +'<br>单位：' + FDMemTable1.FieldByName('unitname').Text +'<br>规格：' + FDMemTable1.FieldByName('gg').Text +'<br>进价：' + FDMemTable1.FieldByName('jj').Text +'<br>售价：' + FDMemTable1.FieldByName('lsj').Text + '</p>' +'<img src="bmp\1.png" style="position: absolute; right: 20px; top: 15px;" alt="商品图片">');FDMemTable1.Next;end;
end;