请大家帮忙！！时间紧，请指教！！

[titan1110]

关于酒店管理的一个软件！
要求根据客户输入的楼栋号和楼层号，每层房间数以及房间号的格式，自动生成每层的房间号 并写入表中
例：客户输入楼栋号为A 共有5层 每层房间数20 房间号码的格式为80001 则自动生成第一层房间号码为 A80101 A80102^^……A80120 第五层为 A80501……A80520

小弟刚进这家公司 能否留下来就靠这个项目了，从来没有接触过delphi 望各位老大哥 拉兄弟一把！！！！！顿首 再拜！！！！！

[小呆之家]

自己在后台数据库写个存储过程吧。好办啊。
我不知道你用的什么数据库。在SQL SERVER中可以做到的。类型这样的。。。

create proc initRoom
@BuildName varchar(24),
@Floorid varchar(24),
@RoomCount int

as
declare @i int
set @i=@RoomCount
while @i>0 do
begin
insert into yourtable()
values()
end
go

生成房间编号的算法其实相当简单。。。。。自己想想。。。。

[andyzhou1101]

房间号码,参考一下,至于加到数据库自己写代码吧，不知道你用的什么数据库
//edit1-楼栋号
//edit2-楼层号
//edit3-房间数

procedure TForm1.Button1Click(Sender: TObject);
var
tl:tstringlist;
i:integer;
s:string;
begin
tl := tstringlist.Create;
for i := 0 to strtoint(Edit3.Text) - 1 do
begin
s := Edit1.Text+'80'+Edit2.Text+format('%.2d',[i+1]);
tl.Add(s);
end;
showmessage(tl.Text);
tl.Free;
end;

[titan1110]

没有看懂！！使用SQL SERVER2000
房间格式是不确定的 根据客户初始化输入的格式自定义

[chenyansong]

var
Floor : string;
Room : string;
i : Integer;
t1 : TStringList;

begin
// t1作为房间号码表
for i := 1 to t1.Count do
begin
if i < 10 then
Room := Floor+'80'+Room+'0'+i;
else if (i>10) and (i < 21) then
Room := Floor+'80'+Room+i;
end;
ShowMessage(Room);