酒店系统中,客房概览界面的实现 我看到,有的客房管理系统中,主界面把所有的客房都以一个个图标的形式显示出来了。各个图标上都显示了一些房间的信息(如房号、状态等等)。 这种是用什么技术实现的啊,各位大侠能不能点醒下啊?如果有现成的源码那就更好啦。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 弄个frame,或者用panel上放个图标,label之类,然后动态生成。 然后根据房号生成 label ==的 坐标.. 排啊排.. LbltArr :array of TLabel;procedure TFrmPrintform.Button5Click(Sender: TObject);beginSetLength(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; 疯了,你没有看到有个DBCtrlGrid控件吗? 说白了就是一个 ListView -_-!! vividw(vividw)和78(2008奥运痴狂症) 说的都可以实现的。但是如果数据量比较大的话,我个人认为可能78(2008奥运痴狂症)说的会快点(尚未验证)。 太失望了太失望了…… 用SQL select怎么查找这样数据? 如何做QQ用户列表那样的界面? 求助,在Delphi里写的Class单元如何获知当前活动窗体? 关于QuickReport 关于登录窗口的设计 简单问题抢分的快上,解决问题我绝对给分,不给是小狗:)ADOQUERY问题 请问怎么样在INI文件中对用户名和密码进行加密? Microsoft .NET Framework和DELPHI5的ADO的冲突问题 关于DCOM的基本连接问题(求助) 抽像类的构造函数怎么搞 Delphi指针用法的疑问!恳求赐教!
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;
但是如果数据量比较大的话,我个人认为可能78(2008奥运痴狂症)说的会快点(尚未验证)。