ttkdunit.pas

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

        loginform.dsQuery.Close;
        suiEdit8.Text:=suiEdit3.Text;
        suiEdit4.SetFocus;
      end;
end;

procedure TTTKDForm.suiEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      suiEdit9.Text:=suiEdit4.Text;
      btn1.Click;
      suiEdit5.Text:='团体开单:'+mainform.roomnum+';';
      suiEdit5.SetFocus;
    end;
end;

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

procedure TTTKDForm.suiComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      suiComboBox3.Text:=suiComboBox2.Text;
      suiEdit1.SetFocus;
    end;
end;

procedure TTTKDForm.suiComboBox7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      suiComboBox4.Text:=suiComboBox7.Text;
      suiEdit3.SetFocus;
    end;
end;

procedure TTTKDForm.suiEdit8KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#48..#57,#13,#8]) then
    key:=#0
  else
    if key=#13 then
      begin
        loginform.ExecuteSQL('select dq from idcard where bm='''+copy(suiEdit8.Text,1,6)+'''');
        suiEdit9.Text:=loginform.dsQuery.Fields[0].AsString;
        loginform.dsQuery.Close;
        suiEdit9.SetFocus;
      end;
end;

procedure TTTKDForm.suiEdit9KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    btn1.SetFocus;
end;

procedure TTTKDForm.suiEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    suiComboBox3.SetFocus;
end;

procedure TTTKDForm.suiComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    suiEdit16.SetFocus;
end;

procedure TTTKDForm.suiComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    suiEdit8.SetFocus;
end;

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

procedure TTTKDForm.suiComboBox7DropDown(Sender: TObject);
begin
  loginform.AddCombobox(suiComboBox7,'select name from paper');
  suiComboBox7.ItemIndex:=0;
end;

procedure TTTKDForm.suiComboBox4DropDown(Sender: TObject);
begin
  loginform.AddCombobox(suiComboBox4,'select name from paper');
  suiComboBox4.ItemIndex:=0;
end;

procedure TTTKDForm.suiComboBox8DropDown(Sender: TObject);
begin
  loginform.AddCombobox(suiComboBox8,'select name from paymode');
  suiComboBox8.ItemIndex:=0;
end;

procedure TTTKDForm.suiEdit12KeyPress(Sender: TObject; var Key: Char);
var
  temp:string;
  roomprice:string;
  roomtype:string;
begin
  if not (key in [#48..#57,#46,#13,#8]) then
    key:=#0
  else
    if key=#13 then
      begin
        try
          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;
          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;
          ClientDataSet1.Close;
          ClientDataSet1.Open;
          suiEdit14.SetFocus;
        except
          suiEdit12.SetFocus;
        end;
      end;
end;

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

procedure TTTKDForm.suiEdit15KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#48..#57,#46,#13,#8]) then
    key:=#0
  else
    if key=#13 then
      suiComboBox8.SetFocus;
end;

procedure TTTKDForm.suiComboBox8KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    suiButton1.SetFocus;
end;

procedure TTTKDForm.suiButton1Click(Sender: TObject);
var
  temp:string;
  source,name,sex,peoplenum,phone,cardtype,cardnum,address,memo:string;
  room,price,ifclock,clock,scale,factprice,days,deposit,paymode:string;
  entertime,leavetime:string;
  flag:Boolean;
  vtype:string;
begin
  flag:=false;
  source:=suiComboBox1.Text;
  name:=suiEdit6.Text;
  sex:=suiComboBox2.Text;
  peoplenum:=suiEdit1.Text;
  phone:=suiEdit2.Text;
  cardtype:=suiComboBox7.Text;
  cardnum:=suiEdit3.Text;
  address:=suiEdit4.Text;
  if not ifguest then
    begin
      loginform.ExecuteSQL('insert into guest(source,name,sex,phone,cardtype,cardnum,address,'+
                                             'cometime,expenditure,payment,nopayment) '+
                           'values('''+source+''','''+name+''','''+sex+''','''+phone+''','''+cardtype+
                                   ''','''+cardnum+''','''+address+''',''0'',''0.00'',''0.00'',''0.00'')');
      loginform.ExecuteSQL('select max(id) from guest');
      self.guestid:=LoginForm.dsQuery.Fields[0].AsString;
      LoginForm.dsQuery.Close;
    end;
  memo:=suiEdit5.Text;
  if suiCheckBox1.Checked then
    ifclock:='Y'
  else
    ifclock:='N';
  scale:=suiEdit12.Text;
  days:=suiEdit14.Text;
  deposit:=suiEdit15.Text;
  paymode:=suiComboBox8.Text;
  entertime:=FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
  leavetime:=FormatDateTime('yyyy-mm-dd hh:nn:ss',now+strtoint(days));
  temp:=memo;
  Delete(temp,1,9);
  while Pos(';',temp)>0 do
    begin
      room:=Copy(temp,1,Pos(';',temp)-1);
      loginform.ExecuteSQL('select price,factprice,roomtype from roomselect where roomnum='''+room+'''');
      price:=LoginForm.dsQuery.Fields[0].AsString;
      factprice:=LoginForm.dsQuery.Fields[1].AsString;
      vtype:=LoginForm.dsQuery.Fields[2].AsString;
      LoginForm.dsQuery.Close;
      loginform.ExecuteSQL('select type_mp from roomtype where type_mc='''+vtype+'''');
      clock:=LoginForm.dsQuery.Fields[0].AsString;
      LoginForm.dsQuery.Close;
      if not flag then
        begin
          loginform.ExecuteSQL('insert into house '+
                               'values('''+id+''','''+guestid+''','''+peoplenum+''','''+memo+''','''+room+
                                       ''','''+price+''','''+ifclock+''','''+clock+''','''+scale+
                                       ''','''+factprice+''','''+days+''','''+deposit+
                                       ''','''+paymode+''','''+entertime+''','''+leavetime+''')');
          flag:=true;
        end
      else
        loginform.ExecuteSQL('insert into house '+
                             'values('''+id+''','''+guestid+''','''+peoplenum+''','''+memo+''','''+room+
                                       ''','''+price+''','''+ifclock+''','''+clock+''','''+scale+
                                       ''','''+factprice+''','''+days+''',''0'','''+paymode+
                                       ''','''+entertime+''','''+leavetime+''')');
      if (ifclock='Y') or (ifclock='y') then
        begin
          loginform.ExecuteSQL('insert into consume '+
                               'values('''+id+''','''+room+''',''房间费'','''+FormatFloat('￥0.00',strtofloat(price))+
                                       ''','''+scale+''',''0.50'','''+FormatFloat('￥0.00',strtofloat(factprice)*0.50)+
                                       ''','''+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+''',''0.50'','''+FormatFloat('￥0.00',strtofloat(factprice)*0.50)+
                                       ''','''+entertime+''','''+FormatFloat('￥0.00',strtofloat(factprice))+
                                       '元/天'','''+loginform.username+''')');
        end;
      loginform.ExecuteSQL('update room set room_state=''团体'',room_ID='''+id+''' where room_num='''+room+'''');
      Delete(temp,1,Pos(';',temp))
    end;
  Delete(memo,1,9);
  Delete(memo,Length(memo),1);
  if Pos(';',memo)>0 then
    room:=Copy(memo,1,Pos(';',memo)-1)
  else
    room:=memo;
  loginform.ExecuteSQL('insert into yjgl '+
                       'values('''+id+''','''+room+''','''+deposit+''','''+entertime+''','''+loginform.username+
                               ''','''+days+''','''+paymode+''')');
  loginform.ExecuteSQL('insert into log '+
                       'values('''+entertime+''','''+loginform.userid+''','''+LoginForm.username+
                               ''',''团体客人【'+name+'】成功入住【'+memo+'】'')');
  MessageDlg('当前宾客【'+name+'】入住【'+memo+'】成功！',mtConfirmation, [mbYes], 0);
  ifsave:=true;
  close;
end;

procedure TTTKDForm.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 TTTKDForm.suiCheckBox1Click(Sender: TObject);