mainunit.pas

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

  loginform.dsQuery.Close;
  if (state='占用')then
    begin
      application.CreateForm(TSKEditForm,SKEditForm);
      SkEditForm.Show;
      Enabled:=False;
    end
  else
    MessageDlg('不能对处于非占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
end;

procedure TMainForm.A1Click(Sender: TObject);
var
  state:string;
  typeid: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+'''');
  typeid:=loginform.dsQuery.fieldbyname('room_type').AsString;
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select * from roomtype where type_xh='''+typeid+'''');
  typename:=loginform.dsQuery.fieldbyname('type_mc').AsString;
  menoy:=loginform.dsQuery.fieldbyname('type_menoy').AsString;
  loginform.dsQuery.Close;
  if (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;
  typeid: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+'''');
  typeid:=loginform.dsQuery.fieldbyname('room_type').AsString;
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select * from roomtype where type_xh='''+typeid+'''');
  typename:=loginform.dsQuery.fieldbyname('type_mc').AsString;
  menoy:=loginform.dsQuery.fieldbyname('type_menoy').AsString;
  loginform.dsQuery.Close;
  if (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','room.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
  typeid:string;
  state:string;
begin
  roomnum:='';
  if (lv1.Selected<>nil) and (lv1.Selected.Index>=0) then
    roomnum:=lv1.Selected.Caption;
  loginform.ExecuteSQL('select * from room where room_num='''+roomnum+'''');
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  typeid:=loginform.dsQuery.fieldbyname('room_type').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select * from roomtype where type_xh='''+typeid+'''');
  typename:=loginform.dsQuery.fieldbyname('type_mc').AsString;
  loginform.dsQuery.Close;
  if (state='可供') then
    begin
      self.ydflag:=True;
      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;
  self.suiEdit1.SetFocus;
end;

procedure TMainForm.btn3Click(Sender: TObject);
var
  state,typeid: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+'''');
  typeid:=loginform.dsQuery.fieldbyname('room_type').AsString;
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select * from roomtype where type_xh='''+typeid+'''');
  typename:=loginform.dsQuery.fieldbyname('type_mc').AsString;
  menoy:=loginform.dsQuery.fieldbyname('type_menoy').AsString;
  loginform.dsQuery.Close;
  if (state='占用')then
    begin
      application.CreateForm(TZJXFForm,ZJXFForm);
      ZJXFForm.Show;
      Enabled:=False;
    end
  else
    MessageDlg('不能对处于占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
end;

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

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

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

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

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

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

procedure TMainForm.N48Click(Sender: TObject);
begin
  application.CreateForm(TSetServerForm,SetServerForm);
  SetServerForm.Show;
  Enabled:=False;
end;

procedure TMainForm.N23Click(Sender: TObject);
begin
  self.RefrushRoomState(8);
end;

procedure TMainForm.N55Click(Sender: TObject);
begin
  self.RefrushRoomState(12);
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.btn4Click(Sender: TObject);
var
  state:string;
  typeid: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+'''');
  typeid:=loginform.dsQuery.fieldbyname('room_type').AsString;
  state:=loginform.dsQuery.fieldbyname('room_state').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select * from roomtype where type_xh='''+typeid+'''');
  typename:=loginform.dsQuery.fieldbyname('type_mc').AsString;
  menoy:=loginform.dsQuery.fieldbyname('type_menoy').AsString;
  loginform.dsQuery.Close;
  if (state='占用')then
    begin
      application.CreateForm(TBKJZForm,BKJZForm);
      BKJZForm.Show;
      Enabled:=False;
    end
  else
    MessageDlg('不能对处于占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
end;

end.