mainunit.pas

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

      if (state='占用')then
        begin
          suiPanel1.Caption:='【'+state+'】'+suiPanel2.Caption+':'+lv1.Selected.Caption+'  消费清单如下';
          ds2.Close;
          ds2.CommandText:='select * from Consume';
          ds2.Open;
          ds2.Filter:='Lbxf_xfbh='''+id+''' and Lbxf_sph='''+lv1.Selected.Caption+'''';
          ds2.Filtered:=true;
          LoginForm.dsQuery.Close;
          loginform.ExecuteSQL('select * from house where id='''+id+'''');
          Label26.Caption:=LoginForm.dsQuery.fieldbyname('peopelnum').AsString;
          entertime:=LoginForm.dsQuery.fieldbyname('entertime').AsDateTime;
          LoginForm.dsQuery.Close;
          temp:=DateTimeToStr(entertime);
          Label29.Caption:=Copy(temp,1,10);
          Delete(temp,1,11);
          Label30.Caption:=temp;
          minute:=MinutesBetween(now,entertime);
          Day:=Minute div 1440;
          minute:=minute mod 1440;
          hour:=minute div 60;
          minute:=minute mod 60;
          Label31.Caption:=IntToStr(day)+'天'+inttostr(hour)+'小时'+inttostr(minute)+'分';
          LoginForm.ExecuteSQL('select sum(Lbxf_xfje) from consume where Lbxf_xfbh='''+id+'''');
          Label33.Caption:=FormatFloat('￥0.00',LoginForm.dsQuery.Fields[0].AsFloat);
          LoginForm.dsQuery.Close;
        end
      else
        suiPanel1.Caption:='【'+state+'】'+suiPanel2.Caption+':'+lv1.Selected.Caption;
      lv1.PopupMenu:=pm2;
    end
  else
    lv1.PopupMenu:=pm1;
end;

procedure TMainForm.btn1Click(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(TSKKDForm,SKKDForm);
      SKKDForm.Show;
      Enabled:=False;
    end
  else
    MessageDlg('餐台【'+roomnum+'】正处于【'+state+'】状态，不可以执行开单操作！',mtConfirmation, [mbYes], 0);
end;

procedure TMainform.TotalRoomState;
var
  temp:double;
begin
  loginform.ExecuteSQL('select count(*) from room');
  Label17.Caption:=loginform.dsQuery.Fields[0].AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select count(*) from room where room_state=''可供''');
  Label18.Caption:=loginform.dsQuery.Fields[0].AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select count(*) from room where room_state=''占用''');
  Label19.Caption:=loginform.dsQuery.Fields[0].AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select count(*) from room where room_state=''预订''');
  Label20.Caption:=loginform.dsQuery.Fields[0].AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select count(*) from room where room_state=''清理''');
  Label2.Caption:=loginform.dsQuery.Fields[0].AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select count(*) from room where room_state=''停用''');
  Label22.Caption:=loginform.dsQuery.Fields[0].AsString;
  loginform.dsQuery.Close;
  temp:=strtoint(Label19.Caption)/strtoint(Label17.Caption)*100;
  Label24.Caption:=FormatFloat('0.00',temp)+'%';
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  RefrushRoomState(0);
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
  RefrushRoomState(1);
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
  RefrushRoomState(2);
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
  RefrushRoomState(3);
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
  RefrushRoomState(4);
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
  RefrushRoomState(5);
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
  RefrushRoomState(6);
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
  RefrushRoomState(7);
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
  RefrushRoomState(9);
end;

procedure TMainForm.N25Click(Sender: TObject);
begin
  RefrushRoomState(10);
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
  RefrushRoomState(11);
end;

procedure TMainForm.N28Click(Sender: TObject);
begin
  RefrushRoomState(0);
end;

procedure TMainForm.btn11Click(Sender: TObject);
begin
  application.CreateForm(TSysSetForm,SysSetForm);
  SysSetForm.Show;
  Enabled:=False;
end;

procedure TMainForm.dbgrd1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if dbgrd1.DataSource.DataSet.RecNo mod 2 = 0 theN
    dbgrd1.Canvas.Brush.Color:=clSilver
  else
    dbgrd1.Canvas.Brush.Color:=clYellow;
  dbgrd1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TMainForm.A2Click(Sender: TObject);
begin
  application.CreateForm(TAbortForm,AbortForm);
  AbortForm.Show;
  Enabled:=False;
end;

procedure TMainForm.R2Click(Sender: TObject);
var
  result:OleVariant;
begin
  LoginForm.SocketConnection1.AppServer.DBBackup(result);
  MessageDlg(string(result) ,mtConfirmation , [mbYes], 0);
end;

procedure TMainForm.R1Click(Sender: TObject);
var
  result:OleVariant;
begin
  LoginForm.SocketConnection1.AppServer.DBRecovery(result);
  MessageDlg(string(result) ,mtConfirmation , [mbYes], 0);
end;

procedure TMainForm.Z3Click(Sender: TObject);
begin
  application.CreateForm(TLogForm,LogForm);
  LogForm.Show;
  Enabled:=False;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
  application.CreateForm(TPasswordForm,PasswordForm);
  PasswordForm.Show;
  Enabled:=False;
end;

procedure TMainForm.O1Click(Sender: TObject);
begin
  LoginForm.Visible:=True;
  self.Enabled:=False;
end;

procedure TMainForm.btn2Click(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='可供' 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('房间【'+roomnum+'】正处于【'+state+'】状态，不可以执行开单操作！',mtConfirmation, [mbYes], 0);
      exit;
    end;
  application.CreateForm(TTTKDForm,TTKDForm);
  TTKDForm.Show;
  Enabled:=False;
end;

procedure TMainForm.Z1Click(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(TPayForm,PayForm);
      PayForm.Show;
      Enabled:=False;
    end
  else
    MessageDlg('不能对处于非占用状态的房间进行此操作！',mtConfirmation, [mbYes], 0);
end;

procedure TMainForm.N5Click(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;