mainunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

      roomnum:= InputBox('请输入房间号', '房间号', '');
      if roomnum='' then
        exit;
      loginform.ExecuteSQL('select count(*) from room where room_num='''+roomnum+'''');
      count:=loginform.dsQuery.Fields[0].AsInteger;
      loginform.dsQuery.Close;
      if count<>1 then
        begin
          MessageDlg('没有发现此房间，请确认输入是否正确！',mtConfirmation, [mbYes], 0);
          exit;
        end;
    end;
  loginform.ExecuteSQL('select * from room where room_num='''+roomnum+'''');
  vtype:=loginform.dsQuery.fieldbyname('room_type').AsString;
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select * from roomtype where type_xh='''+vtype+'''');
  roomtype:=loginform.dsQuery.fieldbyname('type_mc').AsString;
  roomprice:=loginform.dsQuery.fieldbyname('type_csdj').AsString;
  roomhour:=loginform.dsQuery.fieldbyname('type_zd').AsString;
  roomhourprice:=loginform.dsQuery.fieldbyname('type_mp').AsString;
  roomdeposit:=loginform.dsQuery.fieldbyname('type_yj').AsString;
  loginform.dsQuery.Close;
  if (state='散客') or (state='团体') or (state='包房') or (state='钟点')then
    begin
      if (state='散客') or (state='钟点')then
        begin
          application.CreateForm(TSKEditForm,SKEditForm);
          SkEditForm.Show;
          Enabled:=False;
        end;
      if (state='团体')then
        begin
          application.CreateForm(TTTEditForm,TTEditForm);
          TTEditForm.Show;
          Enabled:=False;
        end;
      if (state='包房')then
        begin
          //application.CreateForm(TSKEditForm,SKEditForm);
          //SkEditForm.Show;
          //Enabled:=False;
        end;
    end
  else
    MessageDlg('不能对处于非占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
end;

procedure TMainForm.A1Click(Sender: TObject);
var
  state:string;
  count:integer;
begin
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    roomnum:=lv1.Selected.Caption
  else
    begin
      roomnum:= InputBox('请输入房间号', '房间号', '');
      if roomnum='' then
        exit;
      loginform.ExecuteSQL('select count(*) from room where room_num='''+roomnum+'''');
      count:=loginform.dsQuery.Fields[0].AsInteger;
      loginform.dsQuery.Close;
      if count<>1 then
        begin
          MessageDlg('没有发现此房间，请确认输入是否正确！',mtConfirmation, [mbYes], 0);
          exit;
        end;
    end;
  loginform.ExecuteSQL('select * from room where room_num='''+roomnum+'''');
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  loginform.dsQuery.Close;
  if (state='散客') or (state='团体') or (state='包房') or (state='钟点')then
    begin
      application.CreateForm(TChangeForm,ChangeForm);
      ChangeForm.Show;
      Enabled:=False;
    end
  else
    MessageDlg('不能对处于非占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
end;

procedure TMainForm.N49Click(Sender: TObject);
begin
  loginform.ExecuteSQL('update room set room_state=''可供'',room_ID='''' where room_state=''清理''');
  loginform.ExecuteSQL('insert into log '+
                       'values('''+FormatDatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.userid+
                               ''','''+LoginForm.username+''',''将所有房态为清理的房间变为可供'')');
  self.RefrushRoomState(0);
end;

procedure TMainForm.Z2Click(Sender: TObject);
var
  state:string;
  count:integer;
begin
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    roomnum:=lv1.Selected.Caption
  else
    begin
      roomnum:= InputBox('请输入房间号', '房间号', '');
      if roomnum='' then
        exit;
      loginform.ExecuteSQL('select count(*) from room where room_num='''+roomnum+'''');
      count:=loginform.dsQuery.Fields[0].AsInteger;
      loginform.dsQuery.Close;
      if count<>1 then
        begin
          MessageDlg('没有发现此房间，请确认输入是否正确！',mtConfirmation, [mbYes], 0);
          exit;
        end;
    end;
  loginform.ExecuteSQL('select * from room where room_num='''+roomnum+'''');
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  loginform.dsQuery.Close;
  if (state='散客') or (state='团体') or (state='包房') or (state='钟点')then
    MessageDlg('不能对处于占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0)
  else
    begin
      application.CreateForm(TStateEditForm,StateEditForm);
      StateEditForm.Show;
      Enabled:=False;
    end;
end;

procedure TMainForm.N50Click(Sender: TObject);
begin
  loginform.ExecuteSQL('update room set room_state=''可供'',room_ID='''' where room_state=''停用''');
  loginform.ExecuteSQL('insert into log '+
                       'values('''+FormatDatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.userid+
                               ''','''+LoginForm.username+''',''将所有房态为停用的房间变为可供'')');
  self.RefrushRoomState(0);
end;

procedure TMainForm.N46Click(Sender: TObject);
begin
  ShellExecute(Handle,'open','eat.exe',nil,nil,SW_SHOWNORMAL);
  self.closeflag:=True;
  close;
end;

procedure TMainForm.X2Click(Sender: TObject);
begin
  ShellExecute(Handle,'open','bath.exe',nil,nil,SW_SHOWNORMAL);
  self.closeflag:=True;
  close;
end;

procedure TMainForm.btn5Click(Sender: TObject);
begin
  application.CreateForm(TYDGLForm,YDGLForm);
  YDGLForm.Show;
  Enabled:=False;
end;

procedure TMainForm.N33Click(Sender: TObject);
var
  num:string;
  vtype,state:string;
begin
  self.ydflag:=True;
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    num:=lv1.Selected.Caption;
  roomnum:=num;
  loginform.ExecuteSQL('select * from room where room_num='''+roomnum+'''');
  vtype:=loginform.dsQuery.fieldbyname('room_type').AsString;
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  roomfloor:=loginform.dsQuery.fieldbyname('room_floor').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select * from roomtype where type_xh='''+vtype+'''');
  roomtype:=loginform.dsQuery.fieldbyname('type_mc').AsString;
  roomprice:=loginform.dsQuery.fieldbyname('type_csdj').AsString;
  roomhour:=loginform.dsQuery.fieldbyname('type_zd').AsString;
  roomhourprice:=loginform.dsQuery.fieldbyname('type_mp').AsString;
  roomdeposit:=loginform.dsQuery.fieldbyname('type_yj').AsString;
  loginform.dsQuery.Close;
  if (state='可供') then
    begin
      application.CreateForm(TYDDJForm,YDDJForm);
      YDDJForm.Show;
      Enabled:=False;
    end
  else
    MessageDlg('不能对处于非可供状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
  Self.ydflag:=False;
  self.closeflag:=false;
  roomnum:='';
end;

procedure TMainForm.btn3Click(Sender: TObject);
var
  num,state,vtype:string;
  count:integer;
begin
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    num:=lv1.Selected.Caption
  else
    begin
      num:= InputBox('请输入房间号', '房间号', '');
      if num='' then
        exit;
      loginform.ExecuteSQL('select count(*) from room where room_num='''+num+'''');
      count:=loginform.dsQuery.Fields[0].AsInteger;
      loginform.dsQuery.Close;
      if count<>1 then
        begin
          MessageDlg('没有发现此房间，请确认输入是否正确！',mtConfirmation, [mbYes], 0);
          exit;
        end;
    end;
  roomnum:=num;
  loginform.ExecuteSQL('select * from room where room_num='''+roomnum+'''');
  vtype:=loginform.dsQuery.fieldbyname('room_type').AsString;
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  roomfloor:=loginform.dsQuery.fieldbyname('room_floor').AsString;
  loginform.dsQuery.Close;
  if (state='散客') or (state='团体') or (state='包房') or (state='钟点')then
    begin
      loginform.ExecuteSQL('select * from roomtype where type_xh='''+vtype+'''');
      roomtype:=loginform.dsQuery.fieldbyname('type_mc').AsString;
      roomprice:=loginform.dsQuery.fieldbyname('type_csdj').AsString;
      roomhour:=loginform.dsQuery.fieldbyname('type_zd').AsString;
      roomhourprice:=loginform.dsQuery.fieldbyname('type_mp').AsString;
      roomdeposit:=loginform.dsQuery.fieldbyname('type_yj').AsString;
      loginform.dsQuery.Close;
    end
  else
    begin
      MessageDlg('不能对处于占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
      exit;
    end;
  application.CreateForm(TZJXFForm,ZJXFForm);
  ZJXFForm.Show;
  Enabled:=False;
end;

procedure TMainForm.btn6Click(Sender: TObject);
begin
  application.CreateForm(TYYCXForm,YYCXForm);
  YYCXForm.Show;
  Enabled:=False;
end;

procedure TMainForm.btn4Click(Sender: TObject);
var
  num,state,vtype:string;
  count:integer;
begin
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    num:=lv1.Selected.Caption
  else
    begin
      num:= InputBox('请输入房间号', '房间号', '');
      if num='' then
        exit;
      loginform.ExecuteSQL('select count(*) from room where room_num='''+num+'''');
      count:=loginform.dsQuery.Fields[0].AsInteger;
      loginform.dsQuery.Close;
      if count<>1 then
        begin
          MessageDlg('没有发现此房间，请确认输入是否正确！',mtConfirmation, [mbYes], 0);
          exit;
        end;
    end;
  roomnum:=num;
  loginform.ExecuteSQL('select * from room where room_num='''+roomnum+'''');
  vtype:=loginform.dsQuery.fieldbyname('room_type').AsString;
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  roomfloor:=loginform.dsQuery.fieldbyname('room_floor').AsString;
  loginform.dsQuery.Close;
  if (state='散客') or (state='团体') or (state='包房') or (state='钟点')then
    begin
      loginform.ExecuteSQL('select * from roomtype where type_xh='''+vtype+'''');
      roomtype:=loginform.dsQuery.fieldbyname('type_mc').AsString;
      roomprice:=loginform.dsQuery.fieldbyname('type_csdj').AsString;
      roomhour:=loginform.dsQuery.fieldbyname('type_zd').AsString;
      roomhourprice:=loginform.dsQuery.fieldbyname('type_mp').AsString;
      roomdeposit:=loginform.dsQuery.fieldbyname('type_yj').AsString;
      loginform.dsQuery.Close;
    end
  else
    begin
      MessageDlg('不能对处于占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
      exit;
    end;
  application.CreateForm(TBKJZForm,BKJZForm);
  BKJZForm.Show;
  Enabled:=False;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
  roomnum:='';
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    roomnum:=lv1.Selected.Caption;
  application.CreateForm(THBZDForm,HBZDForm);
  HBZDForm.Show;
  Enabled:=False;
end;

procedure TMainForm.F1Click(Sender: TObject);
begin
  roomnum:='';
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    roomnum:=lv1.Selected.Caption;
  application.CreateForm(TCFZDForm,CFZDForm);
  CFZDForm.Show;
  Enabled:=False;
end;

procedure TMainForm.G1Click(Sender: TObject);
begin
  application.CreateForm(TGZGLForm,GZGLForm);
  GZGLForm.Show;
  Enabled:=False;
end;

procedure TMainForm.btn7Click(Sender: TObject);
begin
  application.CreateForm(TYLGLForm,YLGLForm);
  YLGLForm.Show;
  Enabled:=False;
end;

procedure TMainForm.N47Click(Sender: TObject);
begin
  application.CreateForm(TSetRoomForm,SetRoomForm);
  SetRoomForm.Show;
  Enabled:=False;
end;

procedure TMainForm.N51Click(Sender: TObject);
begin
  application.CreateForm(TSetGoodForm,SetGoodForm);
  SetGoodForm.Show;
  Enabled:=False;
end;

procedure TMainForm.N52Click(Sender: TObject);
begin
  application.CreateForm(TSetGuestSourceForm,SetGuestSourceForm);
  SetGuestSourceForm.Show;
  Enabled:=False;
end;

procedure TMainForm.N53Click(Sender: TObject);
begin
  application.CreateForm(TSetUserForm,SetUserForm);
  SetUserForm.Show;
  Enabled:=False;
end;

procedure TMainForm.suiEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_ESCAPE then
    close;
end;

end.