javaeclipse快捷键:ADO没有活动的事物怎么办

我用Delphi7.0编写ADO数据库,它说没有活动的事物.我从书上看到ADO有自己的事务处理函数,可用了还是不行.刚接触SQL Server,望高手指点迷津~~~~
if (RoomID.Text <> '') and (cbRoomHabitus.Text <> '') then begin
DM.ADOtblRooms.First; //-------->做个循环查找该房号是否已经存在
while not DM.ADOtblRooms.Eof do begin
if Trim(DM.ADOtblRooms.FieldByName('Room_ID').AsString) <> Trim(RoomId.Text) then
DM.ADOtblRooms.Next
else
WriteRoom('房间编号');
end;
DM.ADOConnection1.BeginTrans;
try
DM.ADOtblRooms.Insert;
DM.ADOtblRooms.FieldValues['Room_Type'] := cbRoomType.Text;
DM.ADOtblRooms.FieldValues['Room_ID'] := StrToInt(RoomID.Text);//-------->注册房间号
DM.ADOtblRooms.FieldValues['ZhuangTai'] := cbRoomHabitus.Text;
DM.ADOtblRooms.FieldValues['ZKouLv'] := StrToFloat(ZKouLv.Text);
DM.ADOtblRooms.FieldValues['TCZheKou'] := StrToFloat(TCZheKou.Text);
DM.ADOtblRooms.FieldValues['TZXiane'] := StrToFloat(TZXiane.Text);
DM.ADOtblRooms.Post;
DM.ADOConnection1.CommitTrans;
except
DM.ADOConnection1.RollbackTrans;
end;
end
else begin
ShowMessage('请输入房间号码及状态...');
end;