像餐饮.酒店中房态是什么控件?(100分)

O

Oxfead

Unregistered / Unconfirmed
GUEST, unregistred user!
像餐饮.酒店中房态是什么控件?
 
没有人知道吗?
 
我也想知道
 
是个GRID,如果有后台数据库,用DBGRID,在对应格子上绘制状态图标。
 
应该是自己写的
 
难道一定要现成的控件吗?自己做一个什么能达到同样功能的东东不是一样吗?
 
每一个格子都一个记录的头一个字段质?一般的网格是不好做的呀!
 
一般酒店管理软件都是专用的。
如:Roomstat.db(房间状态库)
字段: 房号
......
......

以下为引用别人的程序:

procedure Troomstate_fe.ftbPaintPanel(DBCtrlGrid: TDBCtrlGrid;
Index: Integer);
var
a,b,c,d:integer;
begin
c:=ftb.Height;
d:=ftb.height;
if dm_fe.room_state_qy.FieldByName('a040109').value='X' then //清扫房
begin
ftb.Canvas.Brush.Color := clolive;
ftb.Canvas.rectangle(1,1,c,d);
tubiao.Draw(ftb.canvas,40,40,4); //画上清扫图标

end;

if dm_fe.room_state_qy.FieldByName('a040109').value='O' then //空OK房
begin
ftb.Canvas.Brush.Color := clgreen;
ftb.Canvas.Rectangle(1,1,c,d);
ftb.Canvas.Font.Size:=12;
tubiao.Draw(ftb.canvas,40,40,3); // 画上钥匙图标

end;

end.
 
可以数据库表的字段是什么呀
 
没人要分了吗?
 
我看过的餐饮管理软件,就是用listbox来表示餐厅
的状况,如预订,用餐,空闲之类的,分别用不同
的图标添加到listbox中。
至于字段就是直接用boolean属性。
 
哈哈,我是写过酒店系统地,没什么特别,TSHAPE控件,当然你得根据房态画颜色、个数
 
我觉得商务系统,需要有自己的开发特色,如果连这种界面的东东都要看别人用什么控件的话,
你能说你的核心如何如何先进吗?其实你可以用简单到Label,复杂到一些专业的LED或Grid控件,
想用什么就用什么,没有一个定式!
 
老兄,这个我现在也在做,欢迎联系:e518@21cn.com

也问一句,在定房时,是否要确定客房号??如果不,在房态时就不能显示出来,
如果是,对于提前几天,十几天的又如何处理??
 
自己建立个类啊
 
wanke 您好:
打扰了,我最近接了个酒店管理的私活,想(收购)找一套源码!
zhaqiong@21cn.com
QQ:46007272
2002-12-02


Delphi C++Builder Vb等的源代码
功能全,我修改的少,我可以多出money的!
 
Delphi 的DbControlGrid就可以实现的
 
您好:
打扰了,我最近接了个酒店管理的私活,想(收购)找一套源码!
zhaqiong@21cn.com
QQ:46007272
2002-12-02


Delphi C++Builder Vb等的源代码
功能全,我修改的少,我可以多出money的!
 
可以用DBCTRLGRID的ONREPAINPANEL事件
PROCEDURE DBCTRLGRIDREPAINPANEL(...)
VAR C1,C2,C3:TBITMAP
BEGIN
C1=TBITMAP.CREATE;
C2=TBITMAP.CREATE;
C3=TBITMAP.CREATE;
c1.loadfromfile(picture1);//其中picture1,picture2,picture3房態圖
c2.loadfromfile(picture2);
c3.loadfromfile(picture3);
TABLE1.FIRST
WHIEL TABLE1.EOF DO
IF TABLE1.FIELDS['FT'].ASSTRING='空閑' then dbctrlgrid1.canves.draw(1,1,c1);
IF TABLE1.FIELDS['FT'].ASSTRING='已開台' then dbctrlgrid1.canves.draw(1,1,c2);
IF TABLE1.FIELDS['FT'].ASSTRING='正在維修' then dbctrlgrid1.canves.draw(1,1,c3);
table1.next
end;




 
顶部