ttkdunit.pas

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

var
  temp:string;
  roomtype:string;
  roomhourprice:string;
  roomprice:string;
begin
  LoginForm.ExecuteSQL('select distinct roomtype from roomselect');
  LoginForm.dsQuery.First;
  while not LoginForm.dsQuery.Eof do
    begin
      temp:=temp+LoginForm.dsQuery.Fields[0].AsString+'@';
      LoginForm.dsQuery.Next;
    end;
  LoginForm.dsQuery.Close;
  if suiCheckBox1.Checked then
    begin
      suiEdit12.Text:='1.00';
      while Pos('@',temp)>0 do
        begin
          roomtype:=Copy(temp,1,Pos('@',temp)-1);
          LoginForm.ExecuteSQL('select type_mp from roomtype where type_mc='''+roomtype+'''');
          roomhourprice:=LoginForm.dsQuery.Fields[0].AsString;
          LoginForm.dsQuery.Close;
          loginform.ExecuteSQL('update roomselect '+
                               'set price='''+formatfloat('￥0.00',strtofloat(roomhourprice))+''','+
                                   'salce='''+suiEdit12.Text+''','+
                                   'factprice='''+formatfloat('￥0.00',strtofloat(roomhourprice))+''' '+
                               'where roomtype='''+roomtype+'''');
          Delete(temp,1,Pos('@',temp));
        end;
      suiEdit12.Enabled:=False;
      suiEdit14.SetFocus;
    end
  else
    begin
      suiEdit12.Text:='0.90';
      while Pos('@',temp)>0 do
        begin
          roomtype:=Copy(temp,1,Pos('@',temp)-1);
          LoginForm.ExecuteSQL('select type_csdj from roomtype where type_mc='''+roomtype+'''');
          roomprice:=LoginForm.dsQuery.Fields[0].AsString;
          LoginForm.dsQuery.Close;
          loginform.ExecuteSQL('update roomselect '+
                               'set price='''+formatfloat('￥0.00',strtofloat(roomprice))+''','+
                                   'salce='''+suiEdit12.Text+''','+
                                   'factprice='''+formatfloat('￥0.00',strtofloat(roomprice)*strtofloat(suiEdit12.Text))+''' '+
                               'where roomtype='''+roomtype+'''');
          Delete(temp,1,Pos('@',temp));
        end;
      suiEdit12.Enabled:=true;
      suiEdit12.SetFocus;
    end;
  ClientDataSet1.Close;
  ClientDataSet1.Open;
end;

procedure TTTKDForm.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)*
                                                                      strtofloat(suiedit12.Text))+
                                         ''','''+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 TTTKDForm.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 (ClientDataSet1.RecordCount>1) and (id<>'1') 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 TTTKDForm.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 TTTKDForm.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 TTTKDForm.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 TTTKDForm.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 TTTKDForm.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 TTTKDForm.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 TTTKDForm.N1Click(Sender: TObject);
begin
  ds3.Close;
  ds3.Open;
  ds3.Filter:='id='''+id+''' and room='''+ClientDataSet1.fieldbyname('roomnum').AsString+'''';
  ds3.Filtered:=true;
end;

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

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

end.