酒店系统中，客房概览界面的实现

我看到，有的客房管理系统中，主界面把所有的客房都以一个个图标的形式显示出来了。各个图标上都显示了一些房间的信息（如房号、状态等等）。  
          这种是用什么技术实现的啊，各位大侠能不能点醒下啊？如果有现成的源码那就更好啦。 问题点数：50、回复次数：7Top

1 楼wudi_1982（向伴水学习|胃出血，住院中）回复于 2006-08-03 17:35:48 得分 7

弄个frame，或者用panel上放个图标，label之类，然后动态生成。Top

2 楼vividw（vividw）回复于 2006-08-03 17:40:57 得分 20

然后根据房号生成   label   ==的   坐标..   排啊排..  
    LbltArr   :array   of   TLabel;  
   
  procedure   TFrmPrintform.Button5Click(Sender:   TObject);  
  begin  
  SetLength(LbltArr,   Length(LbltArr)+1);  
  LbltArr[Length(LbltArr)-1]:=TLabel.Create(Self);  
  LbltArr[Length(LbltArr)-1].Name:='LblArr'+inttostr(Length(LbltArr));  
  LbltArr[Length(LbltArr)-1].Parent:=Self;  
  LbltArr[Length(LbltArr)-1].Top:=100   +Length(LbltArr)*10;  
  LbltArr[Length(LbltArr)-1].Left:=   100+Length(LbltArr)*10   ;  
  LbltArr[Length(LbltArr)-1].Caption:='new';  
   
  LbltArr[Length(LbltArr)-1].OnClick:=Lbl1.OnClick;  
  LbltArr[Length(LbltArr)-1].OnMouseDown:=Lbl1.OnMouseDown;  
  LbltArr[Length(LbltArr)-1].OnMouseMove:=Lbl1.OnMouseMove;  
  LbltArr[Length(LbltArr)-1].OnMouseUp:=Lbl1.OnMouseUp;  
   
   
  end;Top

3 楼baronyang（魔蝎(交流QQ195428528)）回复于 2006-08-03 20:30:46 得分 1

好技术Top

4 楼Blakhawk（黑鹰）回复于 2006-08-04 00:34:35 得分 1

最好自己定义一个组件，封装一下。Top

5 楼78（2008奥运痴狂症）回复于 2006-08-04 09:48:53 得分 20

疯了，你没有看到有个DBCtrlGrid控件吗？Top

6 楼CDSoftwareWj（95927）回复于 2006-08-04 09:59:47 得分 1

说白了就是一个   ListView   -_-!!Top

7 楼gulf1234（小顾）回复于 2006-08-04 11:39:35 得分 0

vividw(vividw)和78(2008奥运痴狂症)   说的都可以实现的。  
  但是如果数据量比较大的话，我个人认为可能78(2008奥运痴狂症)说的会快点(尚未验证)。Top

相关问题

• 帖主：gulf1234
• wudi_1982
• vividw
• baronyang
• Blakhawk
• 78
• CDSoftwareWj

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载