？？？请问如何在界面添加 小方格并显示相关信息 ？？？

Question

如下表（T1）：房号     状态    楼层     房类    颜色   块大小     导入图片01001    预定    01       标间    蓝色   1215*885   c:\1.jpg
01002    空房    01       标间    绿色   1215*885   c:\2.jpg
01003    入住    01       标间    红色   1215*885   c:\3.jpg
..       ..      ..        ..      ..      ..         ..
请问如何利用上表信息设置成酒店管理那样的界面！即在主界面上有很多个小块，小块的大小如上表设置的大小，颜色如上表设置的颜色，在小块上要显示三行（上中下依次为 房号、导入图片大小要一致居中、房类）,小块逐行添加，但一定要根据母版的尺寸添加，横向不可以有滚动条！ 请问如何写代码，不必提思路！

Answer 1

stringgrid之类的表格控件，如果是数据库记录，可以用dbgrid，都是delphi自带的，自己找点资料看看吧

Answer 2

stringgrid也可以为各个单元格设特定的颜色的

Answer 3

用listview就行了,设置成icon显示方式,加上图标,然后可以在OnInfoTip事件中写提示信息

Answer 4

添加:ListView1.Items.Add,这个总会把,然后吧每条记录的ID记录在Item的Data下
OnInfoTip中根据当前Item的ID写sql,查询该条内容,然后显示出来

Answer 5

每一个格上能显示我说的那三条信息吗，分三行显示的信息，不需要将鼠标移上去出个tip来显示啊！

Answer 6

你这个其实就是显示表格吗,stringgrid,listview都可以,数据库的话,直接连数据Grid就行了

Answer 7

如何有 RZButton这个控件的话:procedure test;
var
   module_buttons : array of TRZButton; // 模块按钮数组
   new_button :TRZButton;
begin
   CDS_T1.close;
   CDS_T1.CommandText := 'select 状态, 楼层, 房类, 颜色, 块大小, 导入图片 from T1;
   CDS_T1.open;
   SetLength(module_buttons, CDS_T1.RecordCount);
   CDS_T1.first;
   while not CDS_T1.Eof do
   begin
      new_button := TRZButton.Create(Self);
      //写new_button 在的位置
      new_button.top := xx;
      new_button.lef := yy;
      ....
      ....
      //给new_button 绘色
       new_button.Color := 你想要的色;
      //给new_button 写字 用#13#10换行 如: '我是天才', '哈哈', 后面自已加
       new_button.Caption := '我是天才'+ #13#10 +'哈哈';
       //给new_button 赋上一些想要的事件
       new_button.OnClick = xxx;
      //
      module_buttons[CDS_T1.RecNo - 1] := new_button;
      //
      CDS_T1.Next;
   end;
end;如果没有这个控件，可以自已继承 TButton 类，添加一个属性;
 type   
  TColorButton=class(TButton)   
  private   
      ...
      procedure   SetColor(Value:TColor);   
      ...
  public   
      ...
  published   
      property Color :TColor read FColor write SetColor default clWhite;
  end;   后面代码太长, 自已写吧;然后把 TRZButton 换成 TColorButton 就OK了.

Answer 8

CSDN历来都是只说思路，不给代码，给代码也是提示性的代码！
什么都给你弄好了，还要你干嘛呢……

Answer 9

房态图是用 dbctrlgrid+dbimage