unitsroomopen.pas

来自「自己做过的工程」· PAS 代码 · 共 115 行

unit unitsroomopen;

interface

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

type
  Tformsroomopen = class(TForm)
    Panel1: TPanel;
    but_ok: TButton;
    but_cancel: TButton;
    ed_sroomno: TEdit;
    Label2: TLabel;
    procedure but_cancelClick(Sender: TObject);
    procedure but_okClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsroomopen: Tformsroomopen;

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

procedure Tformsroomopen.but_cancelClick(Sender: TObject);
begin
    close;
end;

procedure Tformsroomopen.but_okClick(Sender: TObject);
var
    sroomno:string;
    ls_sroomno:integer;
    statuscolor:Tcolor;
begin
    statuscolor:=color1;   //启用的颜色
    sroomno:=ed_sroomno.Text;
    //判断是否是数字型
    if not tryStrToInt(sroomno,ls_sroomno) then
       begin
           MessageBox(handle,'您输入的包间编号格式不对！','错误',MB_OK or MB_ICONERROR);
           ed_sroomno.Text:='';
           ed_sroomno.SetFocus;
           exit;
       end;
    //调用包间状态修改函数
    formsupmanage.sroomstatus_change(statuscolor,strtoint(sroomno),'空闲');
    ed_sroomno.Text:='';
    close;
end;

procedure Tformsroomopen.Button1Click(Sender: TObject);
var
    ls_sroomno,ls_sroomstatus:string;
    test_sroomno:integer;
    statuscolor:Tcolor;
begin
    statuscolor:=color1;   //启用的颜色
    ls_sroomno:=ed_sroomno.Text;
    //判断是否是数字型
    if not tryStrToInt(ls_sroomno,test_sroomno) then
       begin
           MessageBox(handle,'您输入的包间编号格式不对！','错误',MB_OK or MB_ICONERROR);
           ed_sroomno.Text:='';
           ed_sroomno.SetFocus;
           exit;
       end;

    //找到该包间的记录
    DMHotel.ds_sup_room_status.Open;
    if not DMHotel.ds_sup_room_status.Locate('sroomno',ls_sroomno,[])then
       begin
           showmessage('包间编号'+ls_sroomno+'不存在！');
           ed_sroomno.Text:='';
           ed_sroomno.SetFocus;
           exit;
       end;

    //不再空闲或停用状态时将提示出错
    ls_sroomstatus:=DMHotel.ds_sup_room_status.FieldValues['sroomstatus'];
    if  (ls_sroomstatus='预定') or (ls_sroomstatus='使用') then
        begin
            showmessage('该包间不在停用状态，不能被启用！');
            exit;
        end;

    //调用包间状态修改函数
    formsupmanage.sroomstatus_change(statuscolor,strtoint(ls_sroomno),'空闲');
    ed_sroomno.Text:='';
    close;
end;


procedure Tformsroomopen.Button2Click(Sender: TObject);
begin
    close;
end;

procedure Tformsroomopen.FormShow(Sender: TObject);
begin
    ed_sroomno.Text:='';
    ed_sroomno.SetFocus;
end;

end.