unitforbid.pas

自己做过的工程

unit unitforbid;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tformforbid = class(TForm)
    StaticText1: TStaticText;
    ed_forbid: TEdit;
    but_forbid: TButton;
    but_close: TButton;
    Button1: TButton;
    procedure but_forbidClick(Sender: TObject);
    procedure but_closeClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formforbid: Tformforbid;

implementation
    uses unitroom,unitDMHotel,unitinroom;
{$R *.dfm}

procedure Tformforbid.but_forbidClick(Sender: TObject);
var
vID:string;
roomid:string;
vroomid:string;
vroomstatus:string;
begin
if ed_forbid.Text=''  then
begin
//showmessage('请输入要停用的房间号！') ;
exit;
end;

//应该先要判断房间的状态不是可以进行停用
DMHotel.ADODataSet_roomstatus.open;

roomid:=ed_forbid.Text;
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
vroomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['roomstatus'];
if vroomstatus<>'空闲'  then
begin
showmessage(roomid+'号房间不在空闲状态，不可以进行停用的操作！') ;
exit;
end;
DMHotel.ADODataSet_roomstatus.Close;

        DMHotel.ADODataSetroomstatus.Open;
    if  not DMHotel.ADODataSetroomstatus.Locate('roomid',roomid,[])then
        begin
        showmessage('你输入要停用房间号不存在'+ed_forbid.Text+'不存在，请重新输入！') ;
        ed_forbid.Text:='';
        exit;
        end;

VID:=ed_forbid.Text;
if MessageDlg('您确定要停用'+vid+'号房间吗？',mtConfirmation,[mbYes,mbNo],0)= mrno then
begin
ed_forbid.Text:='';
exit;
end
{因为只有两种情况，所有在下面直接写的是mryes的情况！}
//改变主界面上各种情况和改变相应的状态表
//改变界面上房间颜色
 else
  vroomid:=ed_forbid.Text;
//  showmessage(vroomid);
// formroom.'room+roomid'.

case strtoint(vroomid) of
8401:
begin
formroom.room401.Color:=clRed;

end;
8402:
begin
formroom.room402.Color:=clRed;

end;
8403:
begin
formroom.room403.Color:=clRed;

end;
8404:
begin
formroom.room404.Color:=clRed;

end;
8405:
begin
formroom.room405.Color:=clRed;

end;
8406:
begin
formroom.room406.Color:=clRed;

end;
8407:
begin
formroom.room407.Color:=clRed;

end;
8408:
begin
formroom.room408.Color:=clRed;

end;
8409:
begin
formroom.room409.Color:=clRed;

end;
8410:
begin
formroom.room410.Color:=clRed;

end;
8412:
begin
formroom.room411.Color:=clRed;

end;
8416:
begin
formroom.room412.Color:=clRed;

end;
8418:
begin
formroom.room413.Color:=clRed;

end;
8501:
begin
formroom.room501.Color:=clRed;

end;
8502:
begin
formroom.room502.Color:=clRed;

end;
8503:
begin
formroom.room503.Color:=clRed;

end;
8504:
begin
formroom.room504.Color:=clRed;

end;
8505:
begin
formroom.room505.Color:=clRed;

end;
8506:
begin
formroom.room506.Color:=clRed;

end;
8507:
begin
formroom.room507.Color:=clRed;

end;
8508:
begin
formroom.room508.Color:=clRed;

end;
8509:
begin
formroom.room509.Color:=clRed;

end;
8510:
begin
formroom.room510.Color:=clRed;

end;
8512:
begin
formroom.room511.Color:=clRed;

end;
8516:
begin
formroom.room512.Color:=clRed;

end;
8518:
begin
formroom.room513.Color:=clRed;

end;
8602:
begin
formroom.room601.Color:=clRed;

end;
8604:
begin
formroom.room602.Color:=clRed;

end;
8606:
begin
formroom.room603.Color:=clRed;

end;
8608:
begin
formroom.room604.Color:=clRed;

end;
8610:
begin
formroom.room605.Color:=clRed;

end;
8612:
begin
formroom.room606.Color:=clRed;

end;
end;


//改变数据库中信息 rooms-tatus表
//DMHotel.ADOConnection1.BeginTrans;
DMHotel.ADODataSet_roomstatus.open;
//DMHotel.ADODataSet_roomstatus.Edit;
roomid:=ed_forbid.Text;
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
DMHotel.ADODataSet_roomstatus.Edit;
DMHotel.ADODataSet_roomstatus.FieldValues['roomstatus']:= '停用';
DMHotel.ADODataSet_roomstatus.FieldValues['statusid']:= 4;
DMHotel.ADODataSet_roomstatus.Post;
//showmessage('jingyong');
DMHotel.ADODataSet_roomstatus.Close;
end;



procedure Tformforbid.but_closeClick(Sender: TObject);
begin
formforbid.Close;
end;

procedure Tformforbid.Button1Click(Sender: TObject);
var
vroomid:string;
vroomstatus:string;

//要起用，先要判断房间的状态和控件中所要输入的数字
//判断数字
begin
   if ed_forbid.Text=''  then
     begin
       showmessage('请输入要启用的房间号！') ;
       exit;
     end;

//判断房间状态
        vroomid:=ed_forbid.Text;
        DMHotel.ADODataSetroomstatus.Open;
    if  not DMHotel.ADODataSetroomstatus.Locate('roomid',vroomid,[])then
        begin
        showmessage('你输入要启用房间号不存在'+ed_forbid.Text+'不存在，请重新输入！') ;
        ed_forbid.Text:='';
        exit;
        end;

        DMHotel.ADODataSet_roomstatus.Close;
        DMHotel.ADODataSet_roomstatus.Open;
        DMHotel.ADODataSet_roomstatus.Locate('roomid',vroomid,[]);
        vroomstatus:=DMHotel.ADODataSet_roomstatus.FieldByName('roomstatus').AsString;
        DMHotel.ADODataSet_roomstatus.Close;

        if vroomstatus='停用' then
        //改变房间的状态和主界面的颜色
           begin
              //下面是要对room-status表的改变。即要改变其状态表，两个参数
                DMHotel.ADODataSet_roomstatus.Open;
                DMHotel.ADODataSet_roomstatus.Locate('roomid',vroomid,[]);
                DMHotel.ADODataSet_roomstatus.Edit;//使处于编辑状态
                DMHotel.ADODataSet_roomstatus.FieldByName('roomstatus').AsString:='空闲';
                DMHotel.ADODataSet_roomstatus.FieldByName('statusid').AsString:=inttostr(1);
                 DMHotel.ADODataSet_roomstatus.Post;
                DMHotel.ADODataSet_roomstatus.Close;
                //下面是对主界面上房间标识颜色的改变
                forminroom.fun_roomcolorchange(strtoint(vroomid),clCaptionText) ;
                showmessage(vroomid+'已经启用！');
           end
        else
        begin
        showmessage('你想启用的房间正在使用中，请仔细查看！');
        ed_forbid.Text:='';
        end;
end;

end.