UnimList卡片显示

UnimList卡片显示

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

先来张效果图：

procedure TSpda.UnimFormShow(Sender: TObject);
begin
  FDMemTable1.query('1', 'select * from tgoods');
  FDMemTable1.First;
  while not FDMemTable1.Eof do
  begin
    UnimList1.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;