tteditunit.pas

来自「东华休闲山庄洗浴、餐饮、客房管理系统」· PAS 代码 · 共 626 行 · 第 1/2 页

      if self.suiCheckBox1.Checked then
        ifclock:='Y';
      loginform.ExecuteSQL('select leavetime from house where id='''+id+'''');
      leavetime:=loginform.dsQuery.Fields[0].AsString;
      LoginForm.dsQuery.Close;
      Delete(memo,1,Length(info));
      temp:=memo;
      while Pos(';',temp)>0 do
        begin
          room:=Copy(temp,1,Pos(';',temp)-1);
          loginform.ExecuteSQL('select price,factprice,yajin from roomselect where roomnum='''+room+'''');
          price:=LoginForm.dsQuery.Fields[0].AsString;
          factprice:=LoginForm.dsQuery.Fields[1].AsString;
          LoginForm.dsQuery.Close;
          loginform.ExecuteSQL('insert into house '+
                               'values('''+id+''','''+guestid+''','''+self.suiEdit1.Text+''','''+suiEdit5.Text+
                                       ''','''+room+''','''+price+''','''+ifclock+''','''+clock+
                                       ''','''+suiedit12.Text+''','''+factprice+''','''+suiedit14.Text+
                                       ''',''0'','''+self.suiComboBox8.Text+''','''+entertime+
                                       ''','''+leavetime+''')');
          if (ifclock='Y') or (ifclock='y') then
            begin
              loginform.ExecuteSQL('insert into consume '+
                                   'values('''+id+''','''+room+''',''房间费'+
                                           ''','''+FormatFloat('￥0.00',strtofloat(price))+
                                           ''','''+scale+''',''1.0'+
                                           ''','''+FormatFloat('￥0.00',strtofloat(factprice)*1.0)+
                                           ''','''+entertime+''','''+FormatFloat('￥0.00',strtofloat(factprice))+
                                           '元/小时'','''+loginform.username+''')')
            end
          else
            begin
              loginform.ExecuteSQL('insert into consume '+
                                   'values('''+id+''','''+room+''',''房间费'+
                                           ''','''+FormatFloat('￥0.00',strtofloat(price))+
                                           ''','''+scale+''',''1.0'+
                                           ''','''+FormatFloat('￥0.00',strtofloat(factprice)*1.0)+
                                           ''','''+entertime+''','''+FormatFloat('￥0.00',strtofloat(factprice))+
                                           '元/天'','''+loginform.username+''')');

            end;
          Delete(temp,1,Pos(';',temp));
          loginform.ExecuteSQL('update room set room_state=''团体'',room_ID='''+id+''' where room_num='''+room+'''');
        end;
      Delete(memo,Length(memo),1);
      room:=suiEdit5.Text;
      Delete(room,1,9);
      Delete(room,Length(room),1);
      loginform.ExecuteSQL('insert into log '+
                           'values('''+entertime+''','''+loginform.userid+''','''+LoginForm.username+
                                   ''',''团体主客房【'+room+'】入住信息修改成功'')');
      MessageDlg('团体主客房【'+room+'】'+#13#10+'入住信息修改成功！',mtConfirmation, [mbYes], 0);
      ifupdate:=true;
      close;
    end;
end;

procedure TTTEditForm.suiEdit16KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#48..#57,#45,#13,#8]) then
    key:=#0
  else
    if key=#13 then
      suiComboBox4.SetFocus;
end;

procedure TTTEditForm.btn3Click(Sender: TObject);
var
  index:Integer;
  roomnum:string;
  roomtype:string;
  roomprice:string;
  roomhourprice:string;
  roomyajin:string;
  temp:string;
begin
  for index:=suiListBox2.Items.Count-1 downto 0 do
    if suiListBox2.Selected[index] then
      begin
        temp:=suiListBox2.Items.Strings[index]+'@'+temp;
        suiListBox2.Items.Delete(index);
      end;
  if temp<>'' then
    begin
      loginform.ExecuteSQL('select count(*)+1 from roomselect');
      index:=loginform.dsQuery.Fields[0].AsInteger;
      LoginForm.dsQuery.Close;
      while Pos('@',temp)>0 do
        begin
          roomnum:=Copy(temp,1,Pos('@',temp)-1);
          roomtype:=Copy(roomnum,1,Pos(':',roomnum)-1);
          Delete(roomnum,1,Pos(':',roomnum));
          loginform.ExecuteSQL('select * from roomtype where type_mc='''+roomtype+'''');
          roomprice:=loginform.dsQuery.fieldbyname('type_csdj').AsString;
          roomhourprice:=loginform.dsQuery.fieldbyname('type_mp').AsString;
          roomyajin:=loginform.dsQuery.fieldbyname('type_yj').AsString;
          LoginForm.dsQuery.Close;
          suiEdit5.Text:=suiEdit5.Text+roomnum+';';
          if suiCheckBox1.Checked then
            loginform.ExecuteSQL('insert into roomselect '+
                       'values('''+inttostr(index)+''','''+roomtype+''','''+roomnum+
                               ''','''+formatfloat('￥0.00',strtofloat(roomhourprice))+
                               ''','''+suiedit12.Text+''','''+formatfloat('￥0.00',strtofloat(roomhourprice))+
                               ''','''+formatfloat('￥0.00',strtofloat(roomyajin))+''')')
          else
            loginform.ExecuteSQL('insert into roomselect '+
                       'values('''+inttostr(index)+''','''+roomtype+''','''+roomnum+
                               ''','''+formatfloat('￥0.00',strtofloat(roomprice))+
                               ''','''+suiedit12.Text+''','''+formatfloat('￥0.00',strtofloat(roomprice))+
                               ''','''+formatfloat('￥0.00',strtofloat(roomyajin))+''')');
          Delete(temp,1,Pos('@',temp));
          inc(index);
        end;
      loginform.ExecuteSQL('select sum(yajin) from roomselect');
      suiEdit15.Text:=FormatFloat('0.00',LoginForm.dsQuery.Fields[0].AsFloat);
      LoginForm.dsQuery.Close;
      ClientDataSet1.Close;
      ClientDataSet1.Open;
    end;
end;

procedure TTTEditForm.btn4Click(Sender: TObject);
var
  id,roomtype,roomnum:string;
  temp:string;
  index:Integer;
begin
  id:=ClientDataSet1.fieldbyname('id').AsString;
  roomtype:=ClientDataSet1.fieldbyname('roomtype').AsString;
  roomnum:=ClientDataSet1.fieldbyname('roomnum').AsString;
  if Pos(roomnum,info)=0 then
    begin
      temp:=suiEdit5.Text;
      Delete(temp,Pos(roomnum,temp),6);
      suiEdit5.Text:=temp;
      LoginForm.ExecuteSQL('delete from roomselect where id='''+id+'''');
      LoginForm.ExecuteSQL('select id from roomselect where id<>''1'' order by id');
      LoginForm.dsQuery.First;
      while not LoginForm.dsQuery.Eof do
        begin
          temp:=temp+loginform.dsQuery.Fields[0].AsString+'@';
          LoginForm.dsQuery.Next;
        end;
      LoginForm.dsQuery.Close;
      index:=2;
      while Pos('@',temp)>0 do
        begin
          id:=Copy(temp,1,Pos('@',temp)-1);
          LoginForm.ExecuteSQL('update roomselect set id='''+inttostr(index)+''' where id='''+id+'''');
          Delete(temp,1,Pos('@',temp));
          Inc(index);
        end;
      suiListBox2.Items.Add(roomtype+':'+roomnum);
      suiListBox2.Sorted:=true;
    end
  else
    MessageDlg('已选客房不可以执行删除操作！',mtConfirmation, [mbYes], 0);
  loginform.ExecuteSQL('select sum(yajin) from roomselect');
  suiEdit15.Text:=FormatFloat('0.00',LoginForm.dsQuery.Fields[0].AsFloat);
  LoginForm.dsQuery.Close;
  ClientDataSet1.Close;
  ClientDataSet1.Open;
end;

procedure TTTEditForm.btn1Click(Sender: TObject);
begin
  LoginForm.ExecuteSQL('insert into roompeople '+
                       'values('''+id+''','''+ClientDataSet1.fieldbyname('roomnum').AsString+
                               ''','''+suiedit7.Text+''','''+suiComboBox3.Text+
                               ''','''+suiEdit16.Text+''','''+suiComboBox4.Text+
                               ''','''+suiEdit8.Text+''','''+suiEdit9.Text+''')');
  ds3.Close;
  ds3.Open;
  ds3.Filter:='id='''+id+''' and room='''+ClientDataSet1.fieldbyname('roomnum').AsString+'''';
  ds3.Filtered:=true;
  LoginForm.ExecuteSQL('select count(*) from roompeople where id='''+id+'''');
  suiEdit1.Text:=IntToStr(LoginForm.dsQuery.Fields[0].AsInteger);
  LoginForm.dsQuery.Close;
end;

procedure TTTEditForm.suiButton3Click(Sender: TObject);
begin
  if not ((ds3.Active) and (ds3.RecordCount>0)) then
    exit;
  if (suiedit6.Text=ds3.fieldbyname('name').AsString) and (suiedit3.Text=ds3.fieldbyname('cardnum').AsString) then
    begin
      MessageDlg('主客信息不可以执行此操作！',mtConfirmation, [mbYes], 0);
      exit;
    end;
  LoginForm.ExecuteSQL('update roompeople set name='''+suiedit7.Text+''','+
                                             'sex='''+suiComboBox3.Text+''','+
                                             'phone='''+suiEdit16.Text+''','+
                                             'cardtype='''+suiComboBox4.Text+''','+
                                             'cardnum='''+suiEdit8.Text+''','+
                                             'address='''+suiEdit9.Text+''' '+
                       'where id='''+id+''' and '+
                             'room='''+ClientDataSet1.fieldbyname('roomnum').AsString+''' and '+
                             'name='''+ds3.fieldbyname('name').AsString+''' and '+
                             'cardnum='''+ds3.fieldbyname('cardnum').AsString+'''');
  ds3.Close;
  ds3.Open;
  ds3.Filter:='id='''+id+''' and room='''+ClientDataSet1.fieldbyname('roomnum').AsString+'''';
  ds3.Filtered:=true;
  LoginForm.ExecuteSQL('select count(*) from roompeople where id='''+id+'''');
  suiEdit1.Text:=IntToStr(LoginForm.dsQuery.Fields[0].AsInteger);
  LoginForm.dsQuery.Close;
end;

procedure TTTEditForm.btn2Click(Sender: TObject);
begin
  if not ((ds3.Active) and (ds3.RecordCount>0)) then
    exit;
  if (suiedit6.Text=ds3.fieldbyname('name').AsString) and (suiedit3.Text=ds3.fieldbyname('cardnum').AsString) then
    begin
      MessageDlg('主客信息不可以执行此操作！',mtConfirmation, [mbYes], 0);
      exit;
    end;
  LoginForm.ExecuteSQL('delete from roompeople '+
                       'where id='''+id+''' and '+
                             'room='''+ClientDataSet1.fieldbyname('roomnum').AsString+''' and '+
                             'name='''+ds3.fieldbyname('name').AsString+''' and '+
                             'cardnum='''+ds3.fieldbyname('cardnum').AsString+'''');
  ds3.Close;
  ds3.Open;
  ds3.Filter:='id='''+id+''' and room='''+ClientDataSet1.fieldbyname('roomnum').AsString+'''';
  ds3.Filtered:=true;
  LoginForm.ExecuteSQL('select count(*) from roompeople where id='''+id+'''');
  suiEdit1.Text:=IntToStr(LoginForm.dsQuery.Fields[0].AsInteger);
  LoginForm.dsQuery.Close;
end;

procedure TTTEditForm.ds3AfterScroll(DataSet: TDataSet);
begin
  suiedit7.Text:=ds3.fieldbyname('name').AsString;
  suiComboBox3.Text:=ds3.fieldbyname('sex').AsString;
  suiEdit16.Text:=ds3.fieldbyname('phone').AsString;
  suiComboBox4.Text:=ds3.fieldbyname('cardtype').AsString;
  suiEdit8.Text:=ds3.fieldbyname('cardnum').AsString;
  suiEdit9.Text:=ds3.fieldbyname('address').AsString;
end;

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

procedure TTTEditForm.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 TTTEditForm.N1Click(Sender: TObject);
begin
  ds3.Close;
  ds3.Open;
  ds3.Filter:='id='''+id+''' and room='''+ClientDataSet1.fieldbyname('roomnum').AsString+'''';
  ds3.Filtered:=true;
end;

procedure TTTEditForm.N2Click(Sender: TObject);
begin
  ds3.Close;
  ds3.Open;
  ds3.Filter:='id='''+id+'''';
  ds3.Filtered:=true;
end;

procedure TTTEditForm.ClientDataSet1AfterScroll(DataSet: TDataSet);
begin
  ds3.Close;
  ds3.Open;
  ds3.Filter:='id='''+id+''' and room='''+ClientDataSet1.fieldbyname('roomnum').AsString+'''';
  ds3.Filtered:=true;
end;

procedure TTTEditForm.suiComboBox1DropDown(Sender: TObject);
begin
  loginform.AddCombobox(suiComboBox1,'select name from guestsource');
end;

procedure TTTEditForm.suiComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    suiEdit15.SetFocus;
end;

procedure TTTEditForm.suiEdit15KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#48..#57,#8,#13,#46]) then
    key:=#0
  else
    if key=#13 then
      if suiEdit15.Text='' then
        MessageDlg('押金总额不可以为空！',mtConfirmation, [mbYes], 0)
      else
        if StrToInt(suiEdit15.Text)<StrToInt(self.sumdeposit) then
          MessageDlg('押金总额应在大于等于'+self.sumdeposit+'！',mtConfirmation, [mbYes], 0);
end;

end.